lfiintecr.F90

Go to the documentation of this file.

! Oct-2012 P. Marguinaud 64b LFI
! Jan-2011 P. Marguinaud Thread-safe LFI

SUBROUTINE lfiintecr_fort                          &
&           (lfi, krep, knumer, cdnoma, ktab, klong)
USE lfimod, ONLY : lficom
USE lfi_precision
IMPLICIT NONE
!
!****
!        SOUS-PROGRAMME D'ECRITURE  D'UN TABLEAU D'ENTIERS A PARTIR 
!     D'UN ARTICLE (DE DONNEES) PAR *NOM*
!     SUR UNE UNITE LOGIQUE OUVERTE POUR LE LOGICIEL DE FICHIERS INDEXES
!     *LFI*; L'ARTICLE EN SORTIE EST UN "BLOC" DE DONNEES ADJACENTES.
!**
!    ARGUMENTS : KREP   (SORTIE) ==> CODE-REPONSE DU SOUS-PROGRAMME;
!                KNUMER (ENTREE) ==> LFI%NUMERO DE L'UNITE LOGIQUE;
!                CDNOMA (ENTREE) ==> NOM DE L'ARTICLE A RECHERCHER;
!                KTAB   (ENTREE) ==> PREMIER MOT A ECRIRE
!                KLONG  (ENTREE) ==> LONGUEUR DE L'ARTICLE A LIRE.
!
!
! Arguments
type(lficom)          lfi                                    ! INOUT
INTEGER (KIND=JPLIKB)  KREP                                   !   OUT
INTEGER (KIND=JPLIKB)  KNUMER                                 ! IN   
CHARACTER (LEN=*)      CDNOMA                                 ! IN   
INTEGER (KIND=JPLIKB)  KLONG                                  ! IN   
INTEGER (KIND=JPLIKM)  KTAB       (klong)                     ! IN   
! Local integers
INTEGER (KIND=JPLIKB)  ITAB       (klong)                     ! IN   
! Convert arguments

itab       = int(      ktab, jplikb)

CALL lfiecr_fort                                 &
&           (lfi, krep, knumer, cdnoma, itab, klong)

END SUBROUTINE lfiintecr_fort

! Oct-2012 P. Marguinaud 64b LFI
SUBROUTINE lfiintecr64                        &
&           (krep, knumer, cdnoma, ktab, klong)
USE lfimod, ONLY : lfi => lficom_default,  &
&                   lficom_default_init,   &
&                   new_lfi_default
USE lfi_precision
IMPLICIT NONE
! Arguments
INTEGER (KIND=JPLIKB)  KREP                                   !   OUT
INTEGER (KIND=JPLIKB)  KNUMER                                 ! IN   
CHARACTER (LEN=*)      CDNOMA                                 ! IN   
INTEGER (KIND=JPLIKB)  KLONG                                  ! IN   
INTEGER (KIND=JPLIKM)  KTAB       (klong)                     ! IN   

IF (.NOT. lficom_default_init) CALL new_lfi_default ()

CALL lfiintecr_fort                                 &
&           (lfi, krep, knumer, cdnoma, ktab, klong)

END SUBROUTINE lfiintecr64

SUBROUTINE lfiintecr                          &
&           (krep, knumer, cdnoma, ktab, klong)
USE lfimod, ONLY : lfi => lficom_default,  &
&                   lficom_default_init,   &
&                   new_lfi_default
USE lfi_precision
IMPLICIT NONE
! Arguments
INTEGER (KIND=JPLIKM)  KREP                                   !   OUT
INTEGER (KIND=JPLIKM)  KNUMER                                 ! IN   
CHARACTER (LEN=*)      CDNOMA                                 ! IN   
INTEGER (KIND=JPLIKM)  KLONG                                  ! IN   
INTEGER (KIND=JPLIKM)  KTAB       (klong)                     ! IN   

IF (.NOT. lficom_default_init) CALL new_lfi_default ()

CALL lfiintecr_mt                                  &
&           (lfi, krep, knumer, cdnoma, ktab, klong)

END SUBROUTINE lfiintecr

SUBROUTINE lfiintecr_mt                            &
&           (lfi, krep, knumer, cdnoma, ktab, klong)
USE lfimod, ONLY : lficom
USE lfi_precision
IMPLICIT NONE
! Arguments
type(lficom)          lfi                                    ! INOUT
INTEGER (KIND=JPLIKM)  KREP                                   !   OUT
INTEGER (KIND=JPLIKM)  KNUMER                                 ! IN   
CHARACTER (LEN=*)      CDNOMA                                 ! IN   
INTEGER (KIND=JPLIKM)  KLONG                                  ! IN   
INTEGER (KIND=JPLIKM)  KTAB       (klong)                     ! IN   
! Local integers
INTEGER (KIND=JPLIKB)  IREP                                   !   OUT
INTEGER (KIND=JPLIKB)  INUMER                                 ! IN   
INTEGER (KIND=JPLIKB)  ILONG                                  ! IN   
! Convert arguments

inumer     = int(    knumer, jplikb)
ilong      = int(     klong, jplikb)

CALL lfiecr_fort                                 &
&           (lfi, irep, inumer, cdnoma, ktab, ilong)

krep       = int(      irep, jplikm)

END SUBROUTINE lfiintecr_mt

!INTF KREP            OUT                               
!INTF KNUMER        IN                                  
!INTF CDNOMA        IN                                  
!INTF KTAB          IN    DIMS=KLONG                    
!INTF KLONG         IN