From 0029c439d0f6db6c327cab7758d1a7196239025e Mon Sep 17 00:00:00 2001
From: Douglas Guptill <douglas.guptill@dal.ca>
Date: Wed, 15 Jul 2009 00:48:27 +0000
Subject: [PATCH] cosmetic; does not work as desired; not used in douar

---
 shrink_dp_pointer_array.f90 | 3 +++
 1 file changed, 3 insertions(+)

diff --git a/shrink_dp_pointer_array.f90 b/shrink_dp_pointer_array.f90
index 80362c0b..fe3a8a6e 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
-- 
GitLab