Line data    Source code

       1            1 : program test_const
       2              : 
       3            1 :    use const_def
       4              :    use const_lib, only: const_init
       5              : 
       6              :    implicit none
       7              : 
       8              :    integer :: ierr
       9              :    character(len=256) :: my_mesa_dir
      10              : 
      11            1 :    my_mesa_dir = '../..'
      12            1 :    call const_init(my_mesa_dir, ierr)
      13            1 :    if (ierr /= 0) then
      14            0 :       write (*, *) 'const_init failed'
      15            0 :       error stop 1
      16              :    end if
      17              : 
      18            1 :    call do_test_const
      19              : 
      20              : contains
      21              : 
      22            1 :    subroutine do_test_const
      23              : 
      24              :       character(*), parameter :: fmt1 = "(a40, 3x, 1pe24.16)"
      25              : 
      26            1 :       write (*, fmt=fmt1) 'pi', pi
      27            1 :       write (*, fmt=fmt1) 'ln10', ln10
      28            1 :       write (*, fmt=fmt1) 'boltz_sigma', boltz_sigma
      29            1 :       write (*, fmt=fmt1) 'boltz_sigma*4', boltz_sigma*4
      30            1 :       write (*, fmt=fmt1) 'boltz_sigma*4/clight', boltz_sigma*4/clight
      31            1 :       write (*, fmt=fmt1) 'boltz_sigma/clight', boltz_sigma/clight
      32            1 :       write (*, fmt=fmt1) 'crad', crad
      33            1 :       write (*, fmt=fmt1) 'secyer', secyer
      34            1 :       write (*, fmt=fmt1) 'Msun', Msun
      35            1 :       write (*, fmt=fmt1) 'Rsun', Rsun
      36            1 :       write (*, fmt=fmt1) 'Lsun', Lsun
      37            1 :       write (*, fmt=fmt1) 'ly', ly
      38            1 :       write (*, fmt=fmt1) 'm_earth', m_earth
      39            1 :       write (*, fmt=fmt1) 'au', au
      40            1 :       write (*, fmt=fmt1) 'amu', amu
      41            1 :       write (*, fmt=fmt1) 'mn', mn
      42            1 :       write (*, fmt=fmt1) 'mp', mp
      43            1 :       write (*, fmt=fmt1) 'me', me
      44            1 :       write (*, fmt=fmt1) 'planck_h', planck_h
      45            1 :       write (*, fmt=fmt1) 'qe', qe
      46            1 :       write (*, fmt=fmt1) 'avo', avo
      47            1 :       write (*, fmt=fmt1) 'clight', clight
      48            1 :       write (*, fmt=fmt1) 'kerg', kerg
      49              : 
      50            1 :    end subroutine do_test_const
      51              : 
      52              : end program test_const