lficfg.F90

Go to the documentation of this file.

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

SUBROUTINE lficfg_fort    (LFI)
USE lfimod, ONLY : lficom
USE parkind1, ONLY : jprb
USE yomhook , ONLY : lhook, dr_hook
USE lfi_precision
IMPLICIT NONE
!****
!         Sous-programme imprimant les "PARAMETER" de base definissant
!     la configuration dans laquelle tourne le logiciel de fichiers
!     indexes LFI.
!**
!         Ce sous-programme n'a pas d'arguments.
!
!
TYPE(lficom) :: LFI
INTEGER (KIND=JPLIKB) IREP, INUMER, INIMES
CHARACTER(LEN=LFI%JPLSPX) CLNSPR
CHARACTER(LEN=LFI%JPLMES) CLMESS
CHARACTER(LEN=LFI%JPLFTX) CLACTI
LOGICAL LLFATA

!
!**
!     1.  -  INITIALISATIONS.
!-----------------------------------------------------------------------
!
REAL(KIND=JPRB) :: ZHOOK_HANDLE
IF (lhook) CALL dr_hook('LFICFG_FORT',0,zhook_handle)
clacti=''
IF (lfi%LFICFG_LLPREA) THEN
  CALL lfiini_fort                 &
&                 (lfi, 2_jplikb )
  lfi%LFICFG_LLPREA=.false.
ENDIF
!
!         Envoi d'une banniere.
!
irep=0
inumer=lfi%JPNIL
clnspr='LFICFG'
WRITE (unit=lfi%NULOUT,fmt='(///)')
!
IF (lfi%LFRANC) THEN
  clmess='Configuration du logiciel LFI'// &
&             ' ("PARAMETER" de base):'
ELSE
  clmess='Configuration of LFI software (basic "PARAMETER"):'
ENDIF
!
inimes=2
llfata=.false.
CALL lfiems_fort                                        &
&               (lfi, inumer,inimes,irep,llfata,clmess, &
&                clnspr,clacti)
WRITE (unit=lfi%NULOUT,fmt='(/)')
!**
!     2.  -  IMPRESSION DES "PARAMETER" DE BASE DU LOGICIEL.
!-----------------------------------------------------------------------
!
IF (lfi%LFRANC) THEN
  WRITE (unit=lfi%NULOUT,fmt=9005)lfi%JPNBIM
  WRITE (unit=lfi%NULOUT,fmt=9007)lfi%JPNBIC
  WRITE (unit=lfi%NULOUT,fmt=9010)lfi%JPNCMO
  WRITE (unit=lfi%NULOUT,fmt=9020)lfi%JPNCPN
  WRITE (unit=lfi%NULOUT,fmt=9030)lfi%JPLARD,lfi%JPLARC
  WRITE (unit=lfi%NULOUT,fmt=9035)lfi%JPFACX
  WRITE (unit=lfi%NULOUT,fmt=9037)lfi%JPXUFM
  WRITE (unit=lfi%NULOUT,fmt=9040)lfi%JPRECL
  WRITE (unit=lfi%NULOUT,fmt=9050)lfi%JPNXFI
  WRITE (unit=lfi%NULOUT,fmt=9060)lfi%JPNPIA
  WRITE (unit=lfi%NULOUT,fmt=9070)lfi%JPNXPI
  WRITE (unit=lfi%NULOUT,fmt=9080)lfi%JPNPIS
  WRITE (unit=lfi%NULOUT,fmt=9090)lfi%JPNAPP
  WRITE (unit=lfi%NULOUT,fmt=9100)lfi%JPLDOC
  WRITE (unit=lfi%NULOUT,fmt=9110)lfi%JPNPDF
  WRITE (unit=lfi%NULOUT,fmt=9120)lfi%JPNXPR
  WRITE (unit=lfi%NULOUT,fmt=9130)lfi%JPNIL
  WRITE (unit=lfi%NULOUT,fmt=9135)lfi%JPLFTX
  WRITE (unit=lfi%NULOUT,fmt=9137)lfi%JPLFIX
ELSE
  WRITE (unit=lfi%NULOUT,fmt=9006)lfi%JPNBIM
  WRITE (unit=lfi%NULOUT,fmt=9008)lfi%JPNBIC
  WRITE (unit=lfi%NULOUT,fmt=9011)lfi%JPNCMO
  WRITE (unit=lfi%NULOUT,fmt=9021)lfi%JPNCPN
  WRITE (unit=lfi%NULOUT,fmt=9031)lfi%JPLARD,lfi%JPLARC
  WRITE (unit=lfi%NULOUT,fmt=9036)lfi%JPFACX
  WRITE (unit=lfi%NULOUT,fmt=9038)lfi%JPXUFM
  WRITE (unit=lfi%NULOUT,fmt=9041)lfi%JPRECL
  WRITE (unit=lfi%NULOUT,fmt=9051)lfi%JPNXFI
  WRITE (unit=lfi%NULOUT,fmt=9061)lfi%JPNPIA
  WRITE (unit=lfi%NULOUT,fmt=9071)lfi%JPNXPI
  WRITE (unit=lfi%NULOUT,fmt=9081)lfi%JPNPIS
  WRITE (unit=lfi%NULOUT,fmt=9091)lfi%JPNAPP
  WRITE (unit=lfi%NULOUT,fmt=9101)lfi%JPLDOC
  WRITE (unit=lfi%NULOUT,fmt=9111)lfi%JPNPDF
  WRITE (unit=lfi%NULOUT,fmt=9121)lfi%JPNXPR
  WRITE (unit=lfi%NULOUT,fmt=9131)lfi%JPNIL
  WRITE (unit=lfi%NULOUT,fmt=9136)lfi%JPLFTX
  WRITE (unit=lfi%NULOUT,fmt=9138)lfi%JPLFIX
ENDIF
!
!         Envoi d'un message terminal.
!
WRITE (unit=lfi%NULOUT,fmt='(/)')
!
IF (lfi%LFRANC) THEN
  clmess='Fin d''impression de la '//        &
&             'Configuration du logiciel LFI'
ELSE
  clmess='End of dump of LFI software configuration'
ENDIF
!
CALL lfiems_fort                                 &
&               (lfi, inumer,inimes,irep,llfata, &
&                clmess,clnspr,clacti)
WRITE (unit=lfi%NULOUT,fmt='(///)')
!
IF (lhook) CALL dr_hook('LFICFG_FORT',1,zhook_handle)
RETURN
!
 9005 FORMAT(' Nombre de Bits par mot machine.......................', &
&       i5)
!
 9006 FORMAT(' Number of Bits per computer word.....................', &
&       i5)
!
 9007 FORMAT(' Nombre de Bits par caractere machine.................', &
&       i5)
!
 9008 FORMAT(' Number of Bits per computer character................', &
&       i5)
!
 9010 FORMAT('    ... d''ou Nombre de caracteres par mot.............', &
&       i5)
!
 9011 FORMAT('    ... so Number of characters per word is...........', &
&       i5)
!
 9020 FORMAT(' Nombre maximum de Caracteres par NOM d''ARTICLE.......', &
&       i5)
!
 9021 FORMAT(' Maximum number of Characters per RECORD NAME.........', &
&       i5)
!
 9030 FORMAT(' Longueur d''Article PHYSIQUE Elementaire des Fichiers.', &
&       i5,' Mots (',i5,' Caracteres )')
!
 9031 FORMAT(' Elementary PHYSICAL Record Length of Files...........', &
&       i5,' Words (',i5,' Characters )')
!
 9035 FORMAT(' Facteur Multiplicatif Maximal de cette Longueur......', &
&       i5)
!
 9036 FORMAT(' Maximum Multiply Factor of this elementary Length....', &
&       i5)
!
 9037 FORMAT(' Nombre maximum d''associations explicites',/,           &
&       '   entre Unites Logiques et Facteurs Multiplicatifs...', &
&       i5)
!
 9038 FORMAT(' Maximum number of explicit associations',/,             &
&       '         between Logical Units and Multiply Factors...', &
&       i5)
!
 9040 FORMAT(' "RECL" Elementaire pour l''"OPEN" des Fichiers........', &
&       i5)
!
 9041 FORMAT(' Elementary "RECL" parameter for "OPEN" of Files......', &
&       i5)
!
 9050 FORMAT(' Nombre maximum de Fichiers ouverts en meme temps',/,    &
&       '        (si leur "facteur multiplicatif" vaut 1 ).....', &
&       i5)
!
 9051 FORMAT(' Maximum number of Files open at the same time',/,       &
&       '               (if their "multiply factor" is 1 ).....', &
&       i5)
!
 9060 FORMAT(' Nombre de *PAIRES* de "PAGES d''INDEX"',/,              &
&       '        (en memoire) *PREALLOUEES* par Fichier........', &
&       i5)
!
 9061 FORMAT(' Number of *PREALLOCATED PAIRS* of "INDEX PAGES"',/,     &
&       '        (in software commons) per File................', &
&       i5)
!
 9070 FORMAT(' Nombre TOTAL de *PAIRES* de "PAGES d''INDEX"',/,        &
&       '        (en memoire) ALLOUABLES.......................', &
&       i5)
!
 9071 FORMAT(' TOTAL number of *PAIRS* of "INDEX PAGES"',/,            &
&       '        (in software commons) allocatable.............', &
&       i5)
!
 9080 FORMAT('    ... d''ou Nombre de P.P.I. non preallouees.........', &
&       i5)
!
 9081 FORMAT('    ... so Number of P.I.P. not preallocated is.......', &
&       i5)
!
 9090 FORMAT(' Nombre Maxi. utile de NOMS d''ARTICLES',/,               &
&       '        par PAGE ou ARTICLE d''INDEX Elementaire.......', &
&       i5)
!
 9091 FORMAT(' Maximum number of usable RECORD NAMES',/,               &
&       '        per Elementary INDEX PAGE or RECORD...........', &
&       i5)
!
 9100 FORMAT(' Longueur de la Partie DOCUMENTAIRE du 1er Article....', &
&       i5,' Mots')
!
 9101 FORMAT(' Length of DOCUMENTARY part in 1st physical record....', &
&       i5,' Words')
!
 9110 FORMAT(' Nombre de PAGES de DONNEES par Fichier...............', &
&       i5)
!
 9111 FORMAT(' Number of DATA PAGES per FILE........................', &
&       i5)
!
 9120 FORMAT(' Nombre Maximum de PAIRES d''ARTICLES d''INDEX',/,        &
&       '        Reservables a la Creation d''un Fichier........', &
&       i5)
!
 9121 FORMAT(' Maximum number of PAIRS of INDEX RECORDS',/,            &
&       '        that may be RESERVED at File Creation.........', &
&       i5)
!
 9130 FORMAT(' Code "VALEUR ABSENTE"', /,                               &
&       '      pour certaines Tables D''ENTIERS.................', &
&       i5)
!
 9131 FORMAT(' "MISSING VALUE" code', /,                               &
&       '      for some INTEGER-type Tables....................', &
&       i5)
!
 9135 FORMAT(' Longueur Maximale des Noms de Fichiers',/,              &
&       '                 traitable proprement.................', &
&       i5,' Caracteres')
!
 9136 FORMAT(' Maximum Length of File Names',/,                        &
&       '                    carefully handled.................', &
&       i5,' Characters')
!
 9137 FORMAT(' Longueur Maximale imprimable des Noms de Fichiers....', &
&       i5,' Caracteres')
!
 9138 FORMAT(' Maximum printable Length of File Names (most cases)..', &
&       i5,' Characters')
!
END SUBROUTINE lficfg_fort



! Oct-2012 P. Marguinaud 64b LFI
SUBROUTINE lficfg64  ()
USE lfimod, ONLY : lfi => lficom_default, &
&                   lficom_default_init,   &
&                   new_lfi_default
USE lfi_precision
IMPLICIT NONE
! Arguments

IF (.NOT. lficom_default_init) CALL new_lfi_default ()

CALL lficfg_fort            &
&           (lfi)

END SUBROUTINE lficfg64

SUBROUTINE lficfg    ()
USE lfimod, ONLY : lfi => lficom_default, &
&                   lficom_default_init,   &
&                   new_lfi_default
USE lfi_precision
IMPLICIT NONE
! Arguments

IF (.NOT. lficom_default_init) CALL new_lfi_default ()

CALL lficfg_mt             &
&           (lfi)

END SUBROUTINE lficfg

SUBROUTINE lficfg_mt    (LFI)
USE lfimod, ONLY : lficom
USE lfi_precision
IMPLICIT NONE
! Arguments
type(lficom)          lfi                                    ! INOUT
! Local integers
! Convert arguments


CALL lficfg_fort            &
&           (lfi)


END SUBROUTINE lficfg_mt