mpdef.f90

Go to the documentation of this file.

 
 
MODULE mpdef
    IMPLICIT NONE
    SAVE
    ! precision constants
    !obsolete INTRINSIC :: selected_real_kind
    !obsolete 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
    INTEGER, PARAMETER :: itemcsize = 15
    INTEGER, PARAMETER :: itemclen = itemcsize*mpi             
    TYPE listitemc
        INTEGER(mpi) :: label
        CHARACTER(len = itemCLen) :: text
    END TYPE listitemc
    TYPE listitemi
        INTEGER(mpi) :: label
        INTEGER(mpi) :: ivalue
    END TYPE listitemi
END MODULE mpdef