From 788f857302d9c98ffcbd34fe2f59ea0d0ee1eabb Mon Sep 17 00:00:00 2001
From: Philippe WAUTELET <philippe.wautelet@aero.obs-mip.fr>
Date: Mon, 11 Sep 2017 09:33:58 +0200
Subject: [PATCH] Philippe 11/09/2017: IO: NEWLFI: length of record name is set
with LEN_HREC
(cherry picked from commit baada2757375fd5879f06a20f3b7c070b8869dd7)
---
src/LIB/NEWLFI/src/lficom0.h | 2 +-
1 file changed, 1 insertion(+), 1 deletion(-)
diff --git a/src/LIB/NEWLFI/src/lficom0.h b/src/LIB/NEWLFI/src/lficom0.h
index 06aee5c43..68fa8a594 100644
--- a/src/LIB/NEWLFI/src/lficom0.h
+++ b/src/LIB/NEWLFI/src/lficom0.h
@@ -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
--
GitLab