diff --git a/shrink_dp_pointer_array.f90 b/shrink_dp_pointer_array.f90
index 80362c0baa92b1f8cdef73ae2321260b46c33988..fe3a8a6e28b00e4ec7dd68e56b43569c0c9a38ba 100644
--- a/shrink_dp_pointer_array.f90
+++ b/shrink_dp_pointer_array.f90
@@ -4,6 +4,9 @@ subroutine shrink_dp_pointer_array(threadinfo, x, new_size)
 ! Author: Douglas Guptill
 ! Copyright (c) 2009 Douglas Guptill. All rights reserved.
 ! 2009-07-14: new
+!
+! Does not work as desired; x is not available.
+! Not called in douar.
 
 use threads
 use definitions