definitions.f90

来自「分子动力学程序dynamo」· F90 代码 · 共 19 行

MODULE DEFINITIONS
! .MOUDLE the machine and flie definitions;
IMPLICIT NONE
PUBLIC
SAVE

integer, parameter ::DP=8, SP=4

integer, parameter :: DEFAULT_INPUT=10, DEFAULT_OUTPUT=20

INTEGER, PARAMETER :: LINE_LENGTH=100

INTEGER, PARAMETER :: MAX_UNITS=80, MIN_UNITS=1
CHARACTER (15):: FORCE_FIELD
INTEGER, PARAMETER :: MAX_RECORD_LENGTH =100
integer, parameter :: VERSION=1999

END MODULE DEFINITIONS