MODULE mo_kind
      
        ! $Id: mo_kind.f90,v 1.8 1999/09/27 12:29:01 m214089 Exp $
      
   5:   IMPLICIT NONE
      
        ! Number model from which the SELECTED_*_KIND are requested:
        !
        !                   4 byte REAL      8 byte REAL
  10:   !          CRAY:        -            precision =   13
        !                                    exponent  = 2465
        !          IEEE:    precision =  6   precision =   15  
        !                   exponent  = 37   exponent  =  307 
        !
  15:   ! Most likely this are the only possible models.
      
        INTEGER, PARAMETER :: sp = SELECTED_REAL_KIND(6,37)  
        INTEGER, PARAMETER :: dp = SELECTED_REAL_KIND(12,307)
        INTEGER, PARAMETER :: i4 = SELECTED_INT_KIND(9)
  20: #ifdef SX
      #ifdef CRAY
        INTEGER, PARAMETER :: i8 = SELECTED_INT_KIND(14)
      #else
        INTEGER, PARAMETER :: i8 = SELECTED_INT_KIND(15)
  25: #endif
      #else
        INTEGER, PARAMETER :: i8 = SELECTED_INT_KIND(18)
      #endif
      
  30: #ifdef CP4
      #define CP_LEN 4
      #else
      #define CP_LEN 8
      #endif
  35: 
      #if (CP_LEN == 4)
        INTEGER, PARAMETER :: cp = i4
      #elif (CP_LEN == 8)
        INTEGER, PARAMETER :: cp = i8
  40: #else
        #error "This memory layout is not supported!"
      #endif
      
      
  45: END MODULE mo_kind


Info Section
 

HTML derived from FORTRAN source by f2html.pl v0.3 (C) 1997,98 Beroud Jean-Marc.