machine.f90

Go to the documentation of this file.

MODULE machine

 IMPLICIT NONE
 SAVE
 integer, parameter :: kind_sngl_prec  = 4
 integer, parameter :: kind_io4  = kind_sngl_prec 
 integer, parameter :: kind_dbl_prec  = 8
 integer, parameter :: kind_io8  = kind_dbl_prec 
 END MODULE machine