Line data    Source code

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