lfiver.F90

Go to the documentation of this file.

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

SUBROUTINE lfiver_fort                       &
&                     (lfi, pverou, cdsens )
USE lfimod, ONLY : lficom
USE parkind1, ONLY : jprb
USE yomhook , ONLY : lhook, dr_hook
USE lfi_precision
IMPLICIT NONE
!****
!        CE S/P EST CHARGE, EN MODE MULTI-TASKING, DE TOUTES LES
!        ACTIONS CONCERNANT LES "VERROUS" .
!**
!     ARGUMENTS : PVEROU ==> VERROU CONCERNE;
!                 CDSENS ==> SUFFIXE DE L'ACTION SOUHAITEE.
!                            ('ASGN','ON','OFF','REL')
!
!
TYPE(lficom) :: LFI
CHARACTER CDSENS*(*)
!
INTEGER (KIND=JPLIKB) INUMER, IREP, INIMES
!
REAL (KIND=JPDBLR) PVEROU
CHARACTER(LEN=LFI%JPLSPX) CLNSPR
CHARACTER(LEN=LFI%JPLMES) CLMESS
CHARACTER(LEN=LFI%JPLFTX) CLACTI
LOGICAL LLFATA

!
REAL(KIND=JPRB) :: ZHOOK_HANDLE
IF (lhook) CALL dr_hook('LFIVER_FORT',0,zhook_handle)
clacti=''

inumer=lfi%JPNIL
inimes=0
irep=-3
llfata=lfi%NERFAG.NE.2
clnspr='LFIVER'

CALL lfiems_fort                                       &
&               (lfi,inumer,inimes,irep,llfata,clmess, &
&                clnspr,clacti)
!
IF (lhook) CALL dr_hook('LFIVER_FORT',1,zhook_handle)
END SUBROUTINE lfiver_fort




! Oct-2012 P. Marguinaud 64b LFI
SUBROUTINE lfiver64           &
&           (pverou, cdsens)
USE lfimod, ONLY : lfi => lficom_default, &
&                   lficom_default_init,   &
&                   new_lfi_default
USE lfi_precision
IMPLICIT NONE
! Arguments
REAL (KIND=JPDBLR)     PVEROU                                 ! IN   
CHARACTER (LEN=*)      CDSENS                                 ! IN   

IF (.NOT. lficom_default_init) CALL new_lfi_default ()

CALL lfiver_fort                 &
&           (lfi, pverou, cdsens)

END SUBROUTINE lfiver64

SUBROUTINE lfiver             &
&           (pverou, cdsens)
USE lfimod, ONLY : lfi => lficom_default, &
&                   lficom_default_init,   &
&                   new_lfi_default
USE lfi_precision
IMPLICIT NONE
! Arguments
REAL (KIND=JPDBLR)     PVEROU                                 ! IN   
CHARACTER (LEN=*)      CDSENS                                 ! IN   

IF (.NOT. lficom_default_init) CALL new_lfi_default ()

CALL lfiver_mt                  &
&           (lfi, pverou, cdsens)

END SUBROUTINE lfiver

SUBROUTINE lfiver_mt             &
&           (lfi, pverou, cdsens)
USE lfimod, ONLY : lficom
USE lfi_precision
IMPLICIT NONE
! Arguments
type(lficom)          lfi                                    ! INOUT
REAL (KIND=JPDBLR)     PVEROU                                 ! IN   
CHARACTER (LEN=*)      CDSENS                                 ! IN   
! Local integers
! Convert arguments


CALL lfiver_fort                 &
&           (lfi, pverou, cdsens)


END SUBROUTINE lfiver_mt

!INTF PVEROU        IN    
!INTF CDSENS        IN