faauto.F90

Go to the documentation of this file.

! Jan-2011 P. Marguinaud Thread-safe FA
SUBROUTINE faauto_fort  (FA, KNUMER, LDLFI)
USE fa_mod, ONLY : fa_com, jpniil
USE parkind1, ONLY : jprb
USE yomhook , ONLY : lhook, dr_hook
USE lfi_precision
USE sdl_mod, ONLY : sdl_srlabort
IMPLICIT NONE
!****
!        Sous-programme de recherche d'une unite libre.
!
!**
!     ARGUMENTS : 
!                 KNUMER (Sortie) ==> Unite logique libre
!
!
TYPE(fa_com) :: FA
INTEGER (KIND=JPLIKB) KNUMER
LOGICAL               LDLFI
INTEGER (KIND=JPLIKB) IRANGF
LOGICAL               LLOPEN

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

IF (all(fa%FICHIER%NULOGI.NE.jpniil)) THEN
  CALL sdl_srlabort
ENDIF

knumer=-1000

DO

  CALL fanumu_fort  (fa, knumer, irangf)

  IF (ASSOCIATED (fa%LFI) .AND. ldlfi) THEN
    CALL lfipro_mt64 (fa%LFI, knumer, llopen)
  ELSE
    llopen = .false.
  ENDIF

  IF ((.NOT. llopen) .AND. (irangf == 0)) EXIT

  knumer=knumer-1

ENDDO

IF (lhook) CALL dr_hook('FAAUTO_MT',1,zhook_handle)

END SUBROUTINE