diff --git a/sammy/src/end/msamyy.f b/sammy/src/end/msamyy.f
index 9b9d0e25ec37827496054e92dad3b52e1200180d..fe96e39603ac1ee0cde247e1a70b389d7cf79a67 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