SURFEX v7.3
General documentation of Surfex
|
00001 C Jan-2011 P. Marguinaud Interface to thread-safe FA 00002 SUBROUTINE FACTEC(KREP, PA, KNBIT, KDEC, KE, KNUTIL) 00003 USE FA_MOD, ONLY : FA_COM_DEFAULT, 00004 S FA_COM_DEFAULT_INIT, 00005 S NEW_FA_DEFAULT 00006 IMPLICIT NONE 00007 #include "precision.h" 00008 REAL (KIND=JPDBLR) PA 00009 INTEGER KREP, KNBIT, KDEC, KE, KNUTIL 00010 IF (.NOT. FA_COM_DEFAULT_INIT) CALL NEW_FA_DEFAULT () 00011 CALL FACTEC_MT (FA_COM_DEFAULT, KREP, PA, KNBIT, KDEC, KE, KNUTIL) 00012 END SUBROUTINE 00013