      SUBROUTINE LFIOFD ( KFACMD )
#include "lficomt.h"
C****
C        Ce sous-programme permet d'obtenir la valeur courante
C     du FACTEUR MULTIPLICATIF par DEFAUT du logiciel LFI.
C**
C        ARGUMENT : KFACMD (Sortie) ==> Facteur multiplicatif par defaut
C
C        Le facteur multiplicatif est, pour une unite logique LFI, le
C     rapport entre la longueur d'enregistrement du fichier et JPRECL.
C
#include "lficom0.h"
#ifndef f77
#include "precision.h"
#endif
#include "lficom1.h"
C
      INTEGER KFACMD, INIMES, IREP, INUMER
C
      LOGICAL LLPREA
      SAVE LLPREA
C
      DATA LLPREA /.TRUE./
C
      IF (LLPREA) THEN
        CALL LFIINI (2)
        LLPREA=.FALSE.
      ENDIF
C
      IF (LMULTI) CALL LFIVER (VERGLA,'ON')
      KFACMD=MFACTU(0)
      IF (LMULTI) CALL LFIVER (VERGLA,'OFF')
      INIMES=NIMESG
C
      IF (INIMES.EQ.2) THEN
        IREP=0
        INUMER=JPNIL
        CLNSPR='LFIOFD'
        WRITE (UNIT=CLMESS,FMT='(''KFACMD='',I3)') KFACMD
        CALL LFIEMS (INUMER,INIMES,IREP,.FALSE.,CLMESS,CLNSPR,CLACTI)
      ENDIF
C
      RETURN
      END
