From 07f147f069b36348e3d758f41a33fcecd901cf12 Mon Sep 17 00:00:00 2001
From: Jon Grumer <jongrumer@gmail.com>
Date: Thu, 28 Apr 2022 18:03:07 +0200
Subject: [PATCH] OF(30) --> OF(NWFD)

---
 atsp_src/HF.f | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

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)