Line data    Source code

       1            1 : program test_interp
       2              : 
       3            1 :    use const_lib, only: const_init
       4              :    use interp_1d_support
       5              :    use interp_1d_support_sg
       6              :    use utils_lib, only: mesa_error
       7              : 
       8              :    implicit none
       9              : 
      10              :    character(len=32) :: my_mesa_dir
      11              :    integer :: ierr
      12              : 
      13            1 :    my_mesa_dir = '../..'
      14            1 :    call const_init(my_mesa_dir, ierr)
      15            1 :    if (ierr /= 0) then
      16            0 :       write (*, *) 'const_init failed'
      17            0 :       call mesa_error(__FILE__, __LINE__)
      18              :    end if
      19              : 
      20            1 :    call math_init()
      21            1 :    call test
      22              : 
      23              : contains
      24              : 
      25            1 :    subroutine test
      26            1 :       write (*, *) 'test db'
      27            1 :       call do_test
      28            1 :       write (*, *) 'test sg'
      29            1 :       call do_test_sg
      30            1 :    end subroutine test
      31              : 
      32              : end program test_interp