Skip to content
Snippets Groups Projects
Commit 9406108e authored by RODIER Quentin's avatar RODIER Quentin
Browse files

Quentin 08/02/2022: use ifdef SFX_FA instead of SFX_ARO for faieno.h : not present in MNH world

parent 23dc1e45
No related branches found
No related tags found
No related merge requests found
......@@ -199,7 +199,7 @@ CONTAINS
LOGICAL :: LDCOSP
REAL, TARGET :: PCHAMP (:)
REAL, POINTER :: ZCHAMP (:)
#ifdef SFX_ARO
#ifdef SFX_FA
#include "faieno.h"
#endif
INTEGER :: ITYPTR, ITRONC, INLATI, INXLON, INIVER
......@@ -257,7 +257,7 @@ CONTAINS
ELSE
ZCHAMP => PCHAMP
ENDIF
#ifdef SFX_ARO
#ifdef SFX_FA
CALL FAIENO (KREP, KNUMER, CDPREF, KNIVAU, CDSUFF, ZCHAMP, LDCOSP, LDUNDF=.TRUE., PUNDF=XUNDEF)
#endif
KLCHAM = SIZE (ZCHAMP)
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment