mpdef.f90

Go to the documentation of this file.

MODULE mpdef
    IMPLICIT NONE
    SAVE
    ! constants
    INTEGER, PARAMETER :: large=LARGE_SIZE !< size of LARGE integers (*4 or *8) from preprocessor
    INTEGER, PARAMETER :: lscale=large/4   !< number of (32bit) words
    INTEGER, PARAMETER :: maxi4=2147483647 !< max. INTEGER*4

    TYPE listitem
        INTEGER :: label
        REAL :: value
    END TYPE listitem
END MODULE mpdef