From 413e1f53591501a15e54729b09ffaf9d35351b45 Mon Sep 17 00:00:00 2001
From: Wiarda <wiardada@ornl.gov>
Date: Thu, 24 Mar 2022 16:00:50 -0400
Subject: [PATCH] Add a todo to ensure that we should no longer use Idimen
---
sammy/src/end/msamyy.f | 5 +++++
1 file changed, 5 insertions(+)
diff --git a/sammy/src/end/msamyy.f b/sammy/src/end/msamyy.f
index 9b9d0e25e..fe96e3960 100755
--- a/sammy/src/end/msamyy.f
+++ b/sammy/src/end/msamyy.f
@@ -18,6 +18,11 @@ c CALL Fix_Alpha (Alpha, Alph1)
c write(6,"('<<< ',A30,' >>>',2I10)")Alph1,Many,Kount
c ************************************************************ debug
C
+ ! TODO Discontinue the use of IDIMEN in
+ ! sammy proper and all auxillary codes.
+ ! While sammy proper no longer uses IDIMEN
+ ! to dimension arrays, there are some auxillary codes
+ ! that still do.
IF (Iwhich.LT.0) THEN
C *** Here to de-allocate space
Kount = Many
--
GitLab