Line data    Source code

       1            1 : program test_neu
       2              : 
       3            1 :    use neu_support
       4              :    use const_lib, only: const_init
       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            1 :    call math_init()
      19            1 :    call do_test_neutrinos()
      20              : 
      21            1 : end program test_neu