w4kek/WSJT-X
1
0
Fork 0
mirror of https://github.com/saitohirga/WSJT-X.git synced 2024-11-25 13:48:42 -05:00
Code Issues Packages Projects Releases Wiki Activity

Deallocate sw if allocated.

Browse Source 
git-svn-id: svn+ssh://svn.code.sf.net/p/wsjt/wsjt/branches/wsjtx@8418 ab8295b8-cf94-4d9e-aec4-7959e3be5d79
This commit is contained in:
Joe Taylor 2018-01-17 18:08:15 +00:00
parent 9381a13388
commit 658aa40bd1
1 changed files with 2 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
lib/plotsave.f90
View File

@ -11,7 +11,8 @@ subroutine plotsave(swide,nw,nh,irow)
endif endif
if(nw.ne.nw0 .or. nh.ne.nh0) then if(nw.ne.nw0 .or. nh.ne.nh0) then
if(nw0.ne.-1) deallocate(sw) if(allocated(sw)) deallocate(sw)
! if(nw0.ne.-1) deallocate(sw)
allocate(sw(0:nw-1,0:nh-1)) allocate(sw(0:nw-1,0:nh-1))
sw=0. sw=0.
nw0=nw nw0=nw