From 658aa40bd14bbada42913051f6c461dabcbc5e1a Mon Sep 17 00:00:00 2001
From: Joe Taylor <k1jt@arrl.org>
Date: Wed, 17 Jan 2018 18:08:15 +0000
Subject: [PATCH] Deallocate sw if allocated.

git-svn-id: svn+ssh://svn.code.sf.net/p/wsjt/wsjt/branches/wsjtx@8418 ab8295b8-cf94-4d9e-aec4-7959e3be5d79
---
 lib/plotsave.f90 | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/lib/plotsave.f90 b/lib/plotsave.f90
index 438e3af51..8a62161b4 100644
--- a/lib/plotsave.f90
+++ b/lib/plotsave.f90
@@ -11,7 +11,8 @@ subroutine plotsave(swide,nw,nh,irow)
   endif
 
   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))
      sw=0.
      nw0=nw