Skip to content
Snippets Groups Projects
Commit 0029c439 authored by Douglas Guptill's avatar Douglas Guptill
Browse files

cosmetic; does not work as desired; not used in douar

parent 14c951f0
No related branches found
No related tags found
No related merge requests found
Hide whitespace changes
Inline Side-by-side
shrink_dp_pointer_array.f90
+ 3
− 0
View file @ 0029c439
......@@ -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
......
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment