SURFEX v7.3
General documentation of Surfex
|
00001 C Jan-2011 P. Marguinaud Interface to thread-safe LFI 00002 SUBROUTINE LFIINTECR ( KREP, KNUMER, CDNOMA, KTAB, KLONG ) 00003 USE LFIMOD, ONLY : LFICOM_DEFAULT, 00004 S LFICOM_DEFAULT_INIT, 00005 S NEW_LFI_DEFAULT 00006 IMPLICIT NONE 00007 CHARACTER CDNOMA*(*) 00008 INTEGER KREP, KNUMER, KLONG, KTAB(KLONG) 00009 IF (.NOT. LFICOM_DEFAULT_INIT) CALL NEW_LFI_DEFAULT () 00010 CALL LFIINTECR_MT (LFICOM_DEFAULT, KREP, KNUMER, 00011 S CDNOMA, KTAB, KLONG ) 00012 END SUBROUTINE 00013