diff --git a/atsp_src/HF.f b/atsp_src/HF.f
index 9300f5a..f619c0e 100644
--- a/atsp_src/HF.f
+++ b/atsp_src/HF.f
@@ -3050,7 +3050,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)