Line data    Source code

       1            1 : program test_star_data
       2              : 
       3            1 :    use star_data_def
       4              :    use star_data_lib
       5              :    implicit none
       6              : 
       7              :    integer :: ierr
       8              :    character(len=256) :: my_mesa_dir
       9              : 
      10            1 :    my_mesa_dir = '../..'
      11            1 :    call star_data_init(my_mesa_dir, ierr)
      12            1 :    if (ierr /= 0) then
      13            0 :       write (*, *) 'star_data_init failed'
      14            0 :       error stop 1
      15              :    end if
      16              : 
      17            1 :    call do_test_star_data
      18              : 
      19              : contains
      20              : 
      21            1 :    subroutine do_test_star_data
      22              : 
      23            1 :       write (*, *) 'done testing star_data'
      24              : 
      25            1 :    end subroutine do_test_star_data
      26              : 
      27              : end program test_star_data