fdurastante/psblas3
1
0
Fork 0
mirror of https://github.com/sfilippone/psblas3.git synced 2026-10-19 20:32:12 +00:00
Code Issues Packages Projects Releases Wiki Activity

Merge (minimal) changes from SLUDist branch.

Browse Source
This commit is contained in:
Salvatore Filippone
2007-02-28 13:26:00 +00:00
parent aafb62405a
commit 2f0cfece0e
5 changed files with 23 additions and 17 deletions
Download Patch File Download Diff File Expand all files Collapse all files
base/modules/psb_realloc_mod.F90
+2 -2
View File
@@ -1213,7 +1213,7 @@ Contains
if (allocated(vin)) then
call move_alloc(vin,vout)
else if (allocated(vout)) then
write(0,*) 'transfer: Clearing output'
!!$ write(0,*) 'transfer: Clearing output'
deallocate(vout)
end if
@@ -1361,7 +1361,7 @@ Contains
if (allocated(vin)) then
call move_alloc(vin,vout)
else if (allocated(vout)) then
write(0,*) 'transfer: Clearing output'
!!$ write(0,*) 'transfer: Clearing output'
deallocate(vout)
end if
#else