lfilaf.F90

Go to the documentation of this file.

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

SUBROUTINE lfilaf_fort                             &
&                     (lfi, krep, knumer, ldtout )
USE lfimod, ONLY : lficom
USE parkind1, ONLY : jprb
USE yomhook , ONLY : lhook, dr_hook
USE lfi_precision
IMPLICIT NONE
!****
!        Sous-programme donnant, pour une unite logique ouverte au sens
!     du logiciel de fichiers indexes *LFI*, la Liste des Articles logi-
!     ques de donnees presents dans le Fichier, liste donnee toutefois
!     dans l'ordre PHYSIQUE ou ceux-ci figurent dans le fichier.
!        Sur option on donne aussi des renseignements sur les articles
!     (physiques) de gestion propres au logiciel, ainsi que sur les
!     trous repertories dans l'index.
!**
!    Arguments : KREP   (Sortie) ==> Code-reponse du sous-programme;
!                KNUMER (Entree) ==> Numero de l'unite logique;
!                LDTOUT (Entree) ==> Vrai si on doit donner les rensei-
!                                    gnements optionnels (qui ne concer-
!                                    nent pas directement les articles
!                                    logiques de donnees).
!
!
TYPE(lficom) :: LFI
INTEGER (KIND=JPLIKB) KREP, KNUMER, IMDESC, IREP, IRANG 
INTEGER (KIND=JPLIKB) INTROU, INBPIR, INBALO
INTEGER (KIND=JPLIKB) INALDO, IFACTM, ILARPH, INALPP 
INTEGER (KIND=JPLIKB) INTPPI, INPPIM, INIMES, J
INTEGER (KIND=JPLIKB) INAGES, IRESER, INUTIL, IPERTE 
INTEGER (KIND=JPLIKB) IPOSFI, IPOSDE, INEXCE
INTEGER (KIND=JPLIKB) INABAL, INALDI, INTROI, INPIMD 
INTEGER (KIND=JPLIKB) INPIMF, INPILE, JRGPIF
INTEGER (KIND=JPLIKB) IRGPFS, IRGPIM, IRANGM, IRPIMS 
INTEGER (KIND=JPLIKB) INALPI, ILONGA, IRECPI
INTEGER (KIND=JPLIKB) IDERPU, IREC, IRETIN
!
LOGICAL LDTOUT
!
CHARACTER(LEN=LFI%JPLSPX) CLNSPR
CHARACTER(LEN=LFI%JPLMES) CLMESS
CHARACTER(LEN=LFI%JPLFTX) CLACTI
LOGICAL LLFATA

!**
!     1.  -  CONTROLES DES PARAMETRES D'APPEL, PUIS INITIALISATIONS.
!-----------------------------------------------------------------------
!
REAL(KIND=JPRB) :: ZHOOK_HANDLE
IF (lhook) CALL dr_hook('LFILAF_FORT',0,zhook_handle)
clacti=''
irep=0
irang=0
clnspr='LFILAF'
CALL lfinum_fort                    &
&               (lfi, knumer,irang)
!
IF (irang.EQ.0) THEN
  irep=-1
  GOTO 1001
ENDIF
!
IF (lfi%LMULTI) CALL lfiver_fort                              &
&                               (lfi, lfi%VERRUE(irang),'ON')
introu=lfi%MDES1D(ixm(lfi%JPNTRU,irang))+lfi%NBTROU(irang)
inbpir=lfi%MDES1D(ixm(lfi%JPNPIR,irang))
inbalo=lfi%MDES1D(ixm(lfi%JPNALO,irang))
inaldo=inbalo-introu
ifactm=lfi%MFACTM(irang)
ilarph=lfi%JPLARD*ifactm
inalpp=lfi%JPNAPP*ifactm
intppi=(inbalo-1+inalpp)/inalpp
inppim=lfi%NPPIMM(irang)
!
!         Envoi d'une banniere.
!
WRITE (unit=lfi%NULOUT,fmt='(///)')
!
IF (lfi%LFRANC) THEN
  WRITE (unit=clmess,                                             &
&         fmt='(''Catalogue de l''''Unite Logique LFI''            &
& ,I3,'' dans l''''ordre *PHYSIQUE* (sequentiel) des articles'')') &
&     knumer
ELSE
  WRITE (unit=clmess,fmt='(''Catalog of LFI Logical Unit'',I3,  &
&         '' in *PHYSICAL* (sequential) record order'')') knumer
ENDIF
!
inimes=2
llfata=.false.
CALL lfiems_fort                                 &
&               (lfi, knumer,inimes,irep,llfata, &
&                clmess,clnspr,clacti)
!**
!     2.  -  SUR OPTION, RENSEIGNEMENTS SUR LES ARTICLES "DE GESTION".
!            (ARTICLE DOCUMENTAIRE, PAIRES D'ARTICLES D'INDEX)
!-----------------------------------------------------------------------
!
IF (ldtout) THEN
  inages=1+2*inbpir
  ireser=ilarph*inages
!
  IF (lfi%LFRANC) THEN
    WRITE (unit=lfi%NULOUT,fmt='(//,TR1,I6,                        &
&           '' article(s) "physique(s)" de gestion,'',I6,           &
&           '' mots chacun, occupant donc'',I7,'' mots; detail:'',  &
& /,TR10,''Article documentaire de la position 1 a'',I6,/,TR10,I6,  &
&'' paire(s) d''''articles d''''index prereserves, de la position'' &
&           ,I6,'' a'',I7)')                                        &
&         inages,ilarph,ireser,ilarph,inbpir,ilarph+1,ireser
  ELSE
    WRITE (unit=lfi%NULOUT,fmt='(//,TR1,I6,                        &
&           '' "physical" records for file handling,'',I6,          &
&           '' words each, occupying then'',I7,'' words; detail:'', &
& /,TR10,''Documentary record from position 1 to'',I6,/,TR10,I6,    &
&'' pair(s) of pre-reserved index records, from position''          &
&           ,I6,'' to'',I7)')                                       &
&         inages,ilarph,ireser,ilarph,inbpir,ilarph+1,ireser
  ENDIF
!
  IF (intppi.LT.inbpir) THEN
    inutil=inbpir-intppi
    iperte=ilarph*inutil*2
!
    IF (lfi%LFRANC) THEN
      WRITE (unit=lfi%NULOUT,                                     &
&             fmt='(/,TR10,5(''=''),''> Il y a'',I3,               &
& '' paire(s) d''''articles d''''index inutilises, representant'', &
&             I8,'' mots'')') inutil,iperte
    ELSE
      WRITE (unit=lfi%NULOUT,                                &
&             fmt='(/,TR10,5(''=''),''> There is (are)'',I3,  &
& '' pair(s) of unused index records, leading to a loss of'', &
&             I8,'' words'')') inutil,iperte
    ENDIF
!
  ELSEIF (intppi.EQ.inbpir) THEN
!
    IF (lfi%LFRANC) THEN
      WRITE (unit=lfi%NULOUT,                                     &
&             fmt='(TR15,5(''-''),TR3,''pas de paire '',           &
&        ''d''''articles d''''index inutilises ni excedentaires'', &
&          TR3,5(''-''))')
    ELSE
      WRITE (unit=lfi%NULOUT,                         &
&             fmt='(TR15,5(''-''),TR3,''no pair of '', &
&        ''unused or overflow pages'',                 &
&          TR3,5(''-''))')
    ENDIF
!
  ELSEIF (intppi.EQ.(inbpir+1)) THEN
    iposfi=ilarph*(lfi%MDES1D(ixm(ilarph,irang))+1)
    iposde=iposfi-2*ilarph+1
!
    IF (lfi%LFRANC) THEN
      WRITE (unit=lfi%NULOUT,                              &
&             fmt='(TR10,''une paire d''''articles '',      &
&             ''d''''index excedentaires, de la position'', &
&             I9,'' a'',I9)')                               &
&      iposde,iposfi
    ELSE
      WRITE (unit=lfi%NULOUT,                            &
&             fmt='(TR10,''one pair of overflow index '', &
&             ''pages ,from position'',                   &
&             I9,'' to'',I9)')                            &
&      iposde,iposfi
    ENDIF
!
  ELSE
    inexce=intppi-inbpir
!
    IF (lfi%LFRANC) THEN
      WRITE (unit=lfi%NULOUT,                                     &
&             fmt='(TR10,I6,'' paires d''''articles '',            &
&           ''d''''index excedentaires, des positions:'')') inexce
!
      DO j=1,inexce
      iposfi=ilarph*(lfi%MDES1D(ixm(ilarph+1-j,irang))+1)
      iposde=iposfi-2*ilarph+1
      WRITE (unit=lfi%NULOUT,fmt='(TR20,I9,'' a'',I9)')  &
&             iposde,iposfi
      ENDDO
!
    ELSE
      WRITE (unit=lfi%NULOUT,                             &
&             fmt='(TR10,I6,'' pairs of overflow index '', &
&           ''pages, from positions:'')') inexce
!
      DO j=1,inexce
      iposfi=ilarph*(lfi%MDES1D(ixm(ilarph+1-j,irang))+1)
      iposde=iposfi-2*ilarph+1
      WRITE (unit=lfi%NULOUT,fmt='(TR20,I9,'' to'',I9)')  &
&             iposde,iposfi
      ENDDO
!
    ENDIF
!
  ENDIF
!
ENDIF
!
WRITE (unit=lfi%NULOUT,fmt='(//)')
!**
!     3.  -  RENSEIGNEMENTS INDIVIDUALISES SUR LES ARTICLES LOGIQUES.
!            (DONNEES, ET SUR OPTION TROUS REPERTORIES DANS L'INDEX)
!-----------------------------------------------------------------------
!
IF (lfi%LFRANC) THEN
!
  IF (inbalo.EQ.0) THEN
    WRITE (unit=lfi%NULOUT,                                        &
&           fmt='(/,TR10,5(''=''),''> L''''unite logique'',         &
& I3,'' ne contient AUCUN ARTICLE LOGIQUE (ni donnees, ni trous)'', &
&           //)') knumer
    GOTO 1001
  ELSEIF (inbalo.EQ.introu) THEN
    WRITE (unit=lfi%NULOUT,                                      &
&           fmt='(/,TR10,5(''=''),''> L''''unite logique'',       &
& I3,'' ne contient QUE DES TROUS, pas de donnees)'',//)') knumer
    IF (.NOT.ldtout) GOTO 1001
  ENDIF
!
ELSE
!
  IF (inbalo.EQ.0) THEN
    WRITE (unit=lfi%NULOUT,                                        &
&           fmt='(/,TR10,5(''=''),''> The logical unit'',I3,        &
& '' contains NO LOGICAL RECORD AT ALL (neither data, nor holes)'', &
&           //)') knumer
    GOTO 1001
  ELSEIF (inbalo.EQ.introu) THEN
    WRITE (unit=lfi%NULOUT,                                 &
&           fmt='(/,TR10,5(''=''),''> The logical unit'',I3, &
& '' contains ONLY HOLES, no dat)'',//)') knumer
    IF (.NOT.ldtout) GOTO 1001
  ENDIF
!
ENDIF
!*
!     3.1 -  BALAYAGE DES PAIRES D'ARTICLES D'INDEX, PAR ORDRE CROISSANT
!-----------------------------------------------------------------------
!
inabal=0
inaldi=0
introi=0
inpimd=2
inpimf=inppim
IF (lfi%NPODPI(irang).EQ.2) inpimd=3
IF (lfi%NPODPI(irang).EQ.inppim) inpimf=inppim-1
inpile=2
!
DO jrgpif=1,intppi
irgpfs=jrgpif+1
!
!        On fait en sorte que la P.A.I. concernee, ainsi que sa suivante
!     eventuelle, soient toutes les deux en memoire.
!
IF (jrgpif.EQ.intppi) THEN
  irgpim=lfi%MRGPIM(lfi%NPODPI(irang),irang)
  GOTO 314
!
ELSEIF (jrgpif.NE.1) THEN
!
!       Recherche de la P.A.I. dans les Paires de Pages d'Index memoire.
!
  DO j=inpimd,inpimf
  irgpim=lfi%MRGPIM(j,irang)
!
  IF (lfi%MRGPIF(irgpim).EQ.jrgpif) THEN
!
    IF (.NOT.lfi%LPHASP(irgpim)) THEN
!
      CALL lfipha_fort                                &
&                     (lfi, irep,irang,irgpim,iretin)
!
      IF (iretin.EQ.1) THEN
        GOTO 903
      ELSEIF (iretin.EQ.2) THEN
        GOTO 904
      ELSEIF (iretin.NE.0) THEN
        GOTO 1001
      ENDIF
!
    ENDIF
!
    GOTO 312
!
  ENDIF
!
  ENDDO
!
!          Mise en memoire de la Paire d'Articles d'Index cherchee.
!
  CALL lfipim_fort                                              &
&                 (lfi, irep,irang,irangm,irgpim,jrgpif,irgpfs, &
&                  inpile,iretin)
!
  IF (iretin.EQ.1) THEN
    GOTO 903
  ELSEIF (iretin.EQ.2) THEN
    GOTO 904
  ELSEIF (iretin.NE.0) THEN
    GOTO 1001
  ELSEIF (irangm.GT.inppim) THEN
    inppim=irangm
    inpimf=inppim
  ENDIF
!
ELSE
  irgpim=lfi%MRGPIM(1,irang)
!
ENDIF
!
312 CONTINUE
!
IF (irgpfs.EQ.intppi) THEN
  irpims=lfi%MRGPIM(lfi%NPODPI(irang),irang)
!
ELSE
!
!       Recherche de la P.A.I. dans les Paires de Pages d'Index memoire.
!
  DO j=inpimd,inpimf
  irpims=lfi%MRGPIM(j,irang)
!
  IF (lfi%MRGPIF(irpims).EQ.irgpfs) THEN
!
    IF (.NOT.lfi%LPHASP(irpims)) THEN
!
      CALL lfipha_fort                                &
&                     (lfi, irep,irang,irpims,iretin)
!
      IF (iretin.EQ.1) THEN
        GOTO 903
      ELSEIF (iretin.EQ.2) THEN
        GOTO 904
      ELSEIF (iretin.NE.0) THEN
        GOTO 1001
      ENDIF
!
    ENDIF
!
    GOTO 314
!
  ENDIF
!
  ENDDO
!
!          Mise en memoire de la Paire d'Articles d'Index cherchee.
!
  CALL lfipim_fort                                              &
&                 (lfi, irep,irang,irangm,irpims,irgpfs,jrgpif, &
&                  inpile,iretin)
!
  IF (iretin.EQ.1) THEN
    GOTO 903
  ELSEIF (iretin.EQ.2) THEN
    GOTO 904
  ELSEIF (iretin.NE.0) THEN
    GOTO 1001
  ELSEIF (irangm.GT.inppim) THEN
    inppim=irangm
    inpimf=inppim
  ENDIF
!
ENDIF
!
314 CONTINUE
inalpi=min(inalpp,inbalo-inabal)
!
!        Balayage de la Paire d'Article d'Index concernee.
!
DO j=1,inalpi
!
IF (lfi%CNOMAR(ixc(j,irgpim)).NE.' ') THEN
!
!              Il s'agit d'un article logique de donnees; en plus de ses
!         caracteristiques tabulees, on verifie s'il n'y a pas de la
!         place "perdue" juste derriere les donnees, place recuperable
!         eventuellement en cas de reecriture plus longue de l'article
!         logique.
!
  inaldi=inaldi+1
  ilonga=lfi%MLGPOS(ixm(2*j-1,irgpim))
  iposde=lfi%MLGPOS(ixm(2*j  ,irgpim))
  iposfi=iposde+ilonga-1
!
  IF (j.EQ.1.AND.jrgpif.GT.inbpir) THEN
!
!          Cas du premier article logique d'une P.A.I. excedentaire;
!     dans ce cas, la P.A.I. est situee derriere l'article logique,
!     en occupant deux articles physiques.
!
    irecpi=lfi%MDES1D(ixm(ilarph+1-(jrgpif-inbpir),irang))
    iderpu=ilarph*(irecpi-1)
!
  ELSEIF (j.EQ.inalpi.AND.jrgpif.EQ.intppi) THEN
!
!          Cas du dernier article logique du fichier, sans P.A.I. situee
!     derriere: la derniere position utilisable sans modifier le nombre
!     d'articles physiques du fichier correspond a la fin du dernier
!     article physique contenant des donnees, ou a la fin du dernier
!     article physique ecrit sur le fichier.
!
    imdesc=lfi%MDES1D(ixm(lfi%JPNAPH,irang))
    irec=max(1+(iposfi-1)/ilarph,imdesc)
    iderpu=ilarph*irec
!
!          Si on arrive au test ci-dessous, on est sur que l'article lo-
!     gique n'est pas le dernier du fichier.
!
  ELSEIF (j.NE.inalpp) THEN
!
!          Cas general, ou l'article logique n'est pas le dernier de sa
!     (Paire de) Page(s) d'Index.
!
    iderpu=lfi%MLGPOS(ixm(2*j+2,irgpim))-1
!
  ELSE
!
!          Cas particulier ou l'article logique est le dernier de sa
!     (Paire de) Page(s) d'Index.
!
    iderpu=lfi%MLGPOS(ixm(2_jplikb ,irpims))-1
  ENDIF
!
  IF (iderpu.EQ.iposfi) THEN
!
    IF (lfi%LFRANC) THEN
      WRITE (unit=lfi%NULOUT,                                &
&             fmt='(I7,''-eme article de donnees: "'',A,      &
&             ''",'',I7,'' mots, position'',I9,'' a'',I9)')   &
&       inaldi,lfi%CNOMAR(ixc(j,irgpim)),ilonga,iposde,iposfi
    ELSE
      WRITE (unit=lfi%NULOUT,                                &
&             fmt='(I7,''-th data record: "'',A,''",'',I7,    &
&             '' words, position'',I9,'' to'',I9)')           &
&       inaldi,lfi%CNOMAR(ixc(j,irgpim)),ilonga,iposde,iposfi
    ENDIF
!
  ELSE
!
!           On visualise en plus la place "perdue" derriere l'article.
!
    IF (lfi%LFRANC) THEN
      WRITE (unit=lfi%NULOUT,                                      &
&             fmt='(I7,''-eme article de donnees: "'',A,            &
&             ''",'',I7,'' mots, position'',I9,'' a'',I9,'' <'',SP, &
&             I8,'' >'')')                                          &
&   inaldi,lfi%CNOMAR(ixc(j,irgpim)),ilonga,iposde,                 &
&   iposfi,iderpu-iposfi
    ELSE
      WRITE (unit=lfi%NULOUT,                                  &
&       fmt='(I7,''-th data record: '''''',A,                   &
&       '''''','',I7,'' words, position'',I9,'' to'',I9,'' <'', &
&       SP,I8,'' >'')')                                         &
&   inaldi,lfi%CNOMAR(ixc(j,irgpim)),ilonga,iposde,             &
&   iposfi,iderpu-iposfi
    ENDIF
!
  ENDIF
!
ELSEIF (ldtout) THEN
  introi=introi+1
  ilonga=lfi%MLGPOS(ixm(2*j-1,irgpim))
  iposde=lfi%MLGPOS(ixm(2*j  ,irgpim))
  iposfi=iposde+ilonga-1
!
  IF (lfi%LFRANC) THEN
    WRITE (unit=lfi%NULOUT,fmt='(TR1,5(''=''),''>'',T10,I6,        &
& ''-eme TROU repertorie dans l''''index, longueur reutilisable:'', &
&         I7,'' mots, position'',I9,'' a'',I9)')                    &
&   introi,ilonga,iposde,iposfi
  ELSE
    WRITE (unit=lfi%NULOUT,fmt='(TR1,5(''=''),''>'',T10,I6, &
& ''-th HOLE cataloged within index, re-usable length:'',    &
&         I7,'' words, position'',I9,'' to'',I9)')           &
&   introi,ilonga,iposde,iposfi
  ENDIF
!
ENDIF
!
ENDDO
!
inabal=inabal+inalpi
ENDDO
!*
!     3.2 -  ENVOI DE MESSAGES RECAPITULATIFS.
!-----------------------------------------------------------------------
!
IF (lfi%LFRANC) THEN
!
  IF (ldtout) THEN
    WRITE (unit=lfi%NULOUT,fmt='(//,T5,8(''-''),TR3,I7,     &
&           '' articles logiques de donnees et'',I6,         &
&           '' trous repertories listes'',TR3,8(''-''),//)') &
&    inaldi,introi
  ELSE
    WRITE (unit=lfi%NULOUT,fmt='(//,T5,8(''-''),TR3,I7,            &
&       '' articles logiques de donnees listes'',TR3,8(''-''),//)') &
&    inaldi
  ENDIF
!
ELSE
!
  IF (ldtout) THEN
    WRITE (unit=lfi%NULOUT,fmt='(//,T5,8(''-''),TR3,I7,      &
&           '' logical records of data and'',I6,              &
&           '' holes within index listed'',TR3,8(''-''),//)') &
&    inaldi,introi
  ELSE
    WRITE (unit=lfi%NULOUT,fmt='(//,T5,8(''-''),TR3,I7,       &
&       '' logical records of data listed'',TR3,8(''-''),//)') &
&    inaldi
  ENDIF
!
ENDIF
!
IF (inaldi.EQ.inaldo.AND.(.NOT.ldtout.OR.introi.EQ.introu)) THEN
!
  IF (lfi%LFRANC) THEN
    WRITE (unit=clmess,fmt=                                       &
&     '(''Fin du catalogue de l''''Unite Logique'',I3,'' ---'',I7, &
&       '' Articles logiques en tout'')') knumer,inbalo
  ELSE
    WRITE (unit=clmess,fmt=                                 &
&     '(''End of catalog of Logical Unit'',I3,'' ---'',I7,   &
&       '' logical Records for whole file'')') knumer,inbalo
  ENDIF
!
  CALL lfiems_fort                                 &
&                 (lfi, knumer,inimes,irep,llfata, &
&                  clmess,clnspr,clacti)
  WRITE (unit=lfi%NULOUT,fmt='(///)')
ELSE
  irep=-16
ENDIF
!
GOTO 1001
!**
!     9.  - CI-DESSOUS, ETIQUETTES DE BRANCHEMENT EN CAS D'ERREUR E/S.
!-----------------------------------------------------------------------
!
903 CONTINUE
clacti='WRITE'
GOTO 909
!
904 CONTINUE
clacti='READ'
!
909 CONTINUE
!
!      AU CAS OU, ON FORCE LE CODE-REPONSE ENTREE/SORTIE A ETRE POSITIF.
!
irep=abs(irep)
!**
!    10.  -  PHASE TERMINALE : MESSAGERIE, AVEC "ABORT" EVENTUEL,
!            VIA LE SOUS-PROGRAMME "LFIEMS" .
!-----------------------------------------------------------------------
!
1001 CONTINUE
krep=irep
llfata=llmoer(irep,irang)
!
IF (irang.NE.0) THEN
  lfi%NDEROP(irang)=18
  lfi%NDERCO(irang)=irep
  IF (lfi%LMULTI) CALL lfiver_fort                               &
&                                 (lfi, lfi%VERRUE(irang),'OFF')
ENDIF
!
IF (llfata.OR.ixnims(irang).EQ.2) THEN
  inimes=2
ELSE
  IF (lhook) CALL dr_hook('LFILAF_FORT',1,zhook_handle)
  RETURN
ENDIF
!
WRITE (unit=clmess,fmt='(''KREP='',I4,'', KNUMER='',I3, &
&    '', LDTOUT= '',L1)') krep,knumer,ldtout
CALL lfiems_fort                                 &
&               (lfi, knumer,inimes,irep,llfata, &
&                clmess,clnspr,clacti)
!
IF (lhook) CALL dr_hook('LFILAF_FORT',1,zhook_handle)

CONTAINS

#include "lficom2.ixc.h"
#include "lficom2.ixm.h"
#include "lficom2.ixnims.h"
#include "lficom2.llmoer.h"

END SUBROUTINE lfilaf_fort



! Oct-2012 P. Marguinaud 64b LFI
SUBROUTINE lfilaf64              &
&           (krep, knumer, ldtout)
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   
LOGICAL                LDTOUT                                 ! IN   

IF (.NOT. lficom_default_init) CALL new_lfi_default ()

CALL lfilaf_fort                       &
&           (lfi, krep, knumer, ldtout)

END SUBROUTINE lfilaf64

SUBROUTINE lfilaf                &
&           (krep, knumer, ldtout)
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   
LOGICAL                LDTOUT                                 ! IN   

IF (.NOT. lficom_default_init) CALL new_lfi_default ()

CALL lfilaf_mt                        &
&           (lfi, krep, knumer, ldtout)

END SUBROUTINE lfilaf

SUBROUTINE lfilaf_mt                  &
&           (lfi, krep, knumer, ldtout)
USE lfimod, ONLY : lficom
USE lfi_precision
IMPLICIT NONE
! Arguments
type(lficom)          lfi                                    ! INOUT
INTEGER (KIND=JPLIKM)  KREP                                   !   OUT
INTEGER (KIND=JPLIKM)  KNUMER                                 ! IN   
LOGICAL                LDTOUT                                 ! IN   
! Local integers
INTEGER (KIND=JPLIKB)  IREP                                   !   OUT
INTEGER (KIND=JPLIKB)  INUMER                                 ! IN   
! Convert arguments

inumer     = int(    knumer, jplikb)

CALL lfilaf_fort                       &
&           (lfi, irep, inumer, ldtout)

krep       = int(      irep, jplikm)

END SUBROUTINE lfilaf_mt

!INTF KREP            OUT 
!INTF KNUMER        IN    
!INTF LDTOUT        IN