SURFEX v7.3: /home/dasprezs/EXPORT_v7_3/src/LIB/XRD38/LFI/mt/lfiintecr

Go to the documentation of this file.
00001 C Jan-2011 P. Marguinaud Thread-safe LFI
00002       SUBROUTINE LFIINTECR_MT (LFI, KREP, KNUMER, CDNOMA, KTAB, KLONG )
00003       USE LFIMOD, ONLY : LFICOM
00004       USE PARKIND1, ONLY : JPRB
00005       USE YOMHOOK , ONLY : LHOOK, DR_HOOK
00006 C
00007 C****
00008 C        SOUS-PROGRAMME D'ECRITURE  D'UN TABLEAU D'ENTIERS A PARTIR 
00009 C     D'UN ARTICLE (DE DONNEES) PAR *NOM*
00010 C     SUR UNE UNITE LOGIQUE OUVERTE POUR LE LOGICIEL DE FICHIERS INDEXES
00011 C     *LFI*; L'ARTICLE EN SORTIE EST UN "BLOC" DE DONNEES ADJACENTES.
00012 C**
00013 C    ARGUMENTS : KREP   (SORTIE) ==> CODE-REPONSE DU SOUS-PROGRAMME;
00014 C                KNUMER (ENTREE) ==> LFI%NUMERO DE L'UNITE LOGIQUE;
00015 C                CDNOMA (ENTREE) ==> NOM DE L'ARTICLE A RECHERCHER;
00016 C                KTAB   (ENTREE) ==> PREMIER MOT A ECRIRE
00017 C                KLONG  (ENTREE) ==> LONGUEUR DE L'ARTICLE A LIRE.
00018 C
00019 #ifndef f77
00020 #include "precision.h"
00021 #endif
00022 C
00023       TYPE(LFICOM) :: LFI
00024       CHARACTER CDNOMA*(*)
00025       INTEGER KREP, KNUMER, KLONG, KTAB(KLONG)
00026 
00027       INTEGER JI
00028 #ifndef f77
00029       INTEGER (KIND=JPDBLE)  ITAB (KLONG)
00030 #else
00031       INTEGER ITAB (KLONG)
00032 #endif
00033 #include "lficom_mt.h"
00034 C
00035       REAL(KIND=JPRB) :: ZHOOK_HANDLE
00036       IF (LHOOK) CALL DR_HOOK('LFIINTECR_MT',0,ZHOOK_HANDLE)
00037       DO 10 JI=1,KLONG
00038 #ifndef f77
00039         ITAB(JI)=INT(KTAB(JI),KIND=JPDBLE)
00040 #else
00041         ITAB(JI)=INT(KTAB(JI))
00042 #endif
00043 10    CONTINUE 
00044       CALL LFIECR_MT (LFI,  KREP, KNUMER, CDNOMA, ITAB, KLONG )
00045 C
00046       IF (LHOOK) CALL DR_HOOK('LFIINTECR_MT',1,ZHOOK_HANDLE)
00047       END
00048