Line data    Source code

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