declarations_special.f

Go to the documentation of this file.
00001 C:\opentelemac\v7p0\sources\utils\special\declarations_special.f
00002 !
00027                      MODULE DECLARATIONS_SPECIAL
00028 !                    ***************************
00029 !
00030 !
00031 !***********************************************************************
00032 ! SPECIAL                                             09/05/2014
00033 !***********************************************************************
00034 !
00035 !
00036 !
00037 !~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
00038 !~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
00039 !
00040       IMPLICIT NONE
00041 !----------------------------------------------------------------------
00042 !
00043 !     Integer values to allow the allocation of I4 and I8 integers.
00044 !
00045 !     The syntax will be :
00046 !
00047 !     INTEGER(KIND=K4) :: I (I WILL BE A 4-BYTE INTEGER)
00048 !     INTEGER(KIND=K8) :: I (I WILL BE A 8-BYTE INTEGER)
00049 !
00050 !     SELECTED_INT_KIND(R):
00051 !
00052 !     Returns the kind type for integers N such that : -10**R<N<10**R
00053 !
00054       INTEGER, PARAMETER :: K4  =  SELECTED_INT_KIND(9)
00055       INTEGER, PARAMETER :: K8  =  SELECTED_INT_KIND(15)
00056 !
00057 !-----------------------------------------------------------------------
00058 !
00059       END MODULE DECLARATIONS_SPECIAL

Generated on Fri Aug 31 2013 18:12:58 by S.E.Bourban (HRW) using doxygen 1.7.0