15 lines
433 B
Fortran
15 lines
433 B
Fortran
module graydata_flags
|
|
use const_and_precisions, only : wp_
|
|
implicit none
|
|
|
|
character*255, save :: filenmeqq,filenmprf,filenmbm
|
|
real(wp_), save :: sspl, dst
|
|
integer, save :: ibeam,iequil,ixp,iprof
|
|
integer, save :: iwarm,ilarm,imx,ieccd,ipec,idst
|
|
integer, save :: igrad,ipass
|
|
integer, save :: ipsinorm,iscal,icocos
|
|
integer, save :: nnd,istpr0,istpl0,ipol
|
|
integer, save :: neqdsk,nprof
|
|
|
|
end module graydata_flags
|