Fix for segmentation violation (MacOS 10.15.4) (#12)

Co-authored-by: hristov <Peter.Hristov@cern.ch>
vmc-project · Mar 31, 2020 · c6236a7 · c6236a7
1 parent d7d16b4
commit c6236a7
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/gcons/gstmed.F b/gcons/gstmed.F
@@ -116,7 +116,7 @@ SUBROUTINE G3STMED(KTMED,NATMED,NMAT,ISVOL,IFIELD,FIELDM,TMAXFD,
       EQUIVALENCE (MECA(1,1),IPAIR)
       DIMENSION UBUF(1),CUTVEC(10)
       EQUIVALENCE (CUTVEC,CUTGAM)
-      CHARACTER*(*) NATMED
+      CHARACTER*20 NATMED
       CHARACTER*20 NAME
 C.
 C.    ------------------------------------------------------------------