2
program input_eos_coef_funct
4
! Allocating EOS_COEFS( NPHASE, NCOEF )
5
integer, parameter :: nphase = 2, ncoef = 10
6
real, dimension( nphase, ncoef ) :: eos_coefs
10
! print*, nphase, ncoef
12
eos_coefs( 1 : nphase, 1 ) = 1.
13
eos_coefs( 1, 2 ) = 0.01
17
print*, eos_coefs( i, j )
22
end program input_eos_coef_funct