Philippe 11/09/2017: IO: NEWLFI: length of record name is set with LEN_HREC
[MNH-git_open_source-lfs.git] / src / LIB / NEWLFI / src / lficom0.h
index 06aee5c..68fa8a5 100644 (file)
@@ -62,7 +62,7 @@ C
 C
       LOGICAL LPCRAY, LPRECH
 C
-      PARAMETER ( JPNCPN=16, JPLARD=512, JPNPDF=20, JPXUFM=100 )
+      PARAMETER ( JPNCPN=LEN_HREC, JPLARD=512, JPNPDF=20, JPXUFM=100 )
       PARAMETER ( JPNXFI=300, JPFACX=120, JPNPIA=4, JPNXPR=100 )
 C
 C     Implementation-dependent symbolic constants (except for JPNCMO and