Line data    Source code

       1            1 : program test_eos_quietly
       2              : 
       3            1 :    use test_eos_support
       4              : 
       5              :    implicit none
       6              : 
       7              :    logical, parameter :: quietly = .true.
       8              : 
       9            1 :    call Setup_eos
      10            1 :    call Do_One(quietly)
      11            1 :    call test1_eosPT_for_ck(quietly)
      12              : 
      13            1 : end program test_eos_quietly