Merge pull request #3 from compas/jg/hf_OF_declaration

HF -- OF() array dimension fix
compas · Jun 8, 2022 · cd45fec · cd45fec
2 parents 2fb100c + 6fa492f
commit cd45fec
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/src/util/hf.f b/src/util/hf.f
@@ -3046,7 +3046,7 @@ SUBROUTINE REFORM(STR1,STR2)
 *   iterated appear last in the list.
 *
         SUBROUTINE REORD(OF, ELC, NWF, IERR)
-        CHARACTER*3 OF(30), ELC
+        CHARACTER*3 OF(NWFD), ELC
 *
         IERR = 1
         CALL EPTR(OF, ELC, I, *99)