mpdef.f90

Go to the documentation of this file.

 
 
MODULE mpdef
    IMPLICIT NONE
    SAVE
    ! precision constants
    INTRINSIC :: selected_real_kind
    INTRINSIC :: selected_int_kind
    INTEGER, PARAMETER :: mpi4  = selected_int_kind(9)
    INTEGER, PARAMETER :: mpi8  = selected_int_kind(18)
    INTEGER, PARAMETER :: mpr4  = selected_real_kind(6, 37)
    INTEGER, PARAMETER :: mpr8  = selected_real_kind(15, 307)
    INTEGER, PARAMETER :: mpr16 = selected_real_kind(33, 4931)
    INTEGER, PARAMETER :: mpi  = mpi4
    INTEGER, PARAMETER :: mpl  = mpi8
    INTEGER, PARAMETER :: mps  = mpr4
    INTEGER, PARAMETER :: mpd  = mpr8
    TYPE listitem
        INTEGER(mpi) :: label
        REAL(mpd) :: value
    END TYPE listitem
END MODULE mpdef