SVN r8748

2018-06-14 21:27:34 -04:00
parent 419c039d08
commit 4f1fe4fc94
581 changed files with 69338 additions and 39836 deletions
@@ -1,51 +0,0 @@
-128
-48
-9
-1 17 34 51 66 81 99 113 127 
-2 18 35 50 67 82 100 114 128 
-3 19 36 52 68 82 101 115 0 
-2 20 36 51 69 83 102 116 0 
-4 19 37 53 66 84 103 117 0 
-5 21 38 54 70 85 92 114 0 
-6 22 39 55 66 85 96 118 0 
-7 23 32 56 71 86 103 119 0 
-8 20 40 55 72 86 104 120 0 
-9 19 41 57 73 87 105 118 0 
-10 24 36 56 74 88 106 120 0 
-10 17 33 47 75 89 107 121 126 
-11 21 42 51 76 87 108 122 0 
-1 25 40 58 74 84 109 122 126 
-12 22 42 49 77 90 110 123 0 
-13 26 43 59 68 89 104 113 0 
-13 22 44 57 75 91 106 124 0 
-12 23 37 46 78 88 109 113 128 
-3 27 34 60 65 87 111 123 0 
-6 27 45 61 79 89 98 114 0 
-14 28 34 62 72 92 107 122 125 
-8 27 42 59 71 92 112 117 0 
-15 20 46 57 79 93 101 117 0 
-9 29 45 62 74 94 108 119 128 
-8 30 38 63 73 95 110 124 0 
-16 29 47 64 69 96 110 125 0 
-16 23 48 63 76 94 111 120 0 
-7 25 39 52 70 97 108 116 127 
-4 26 45 63 67 83 90 121 0 
-15 28 39 50 76 88 103 115 0 
-15 26 33 58 65 97 102 125 128 
-14 31 47 52 77 81 93 120 0 
-14 24 37 61 71 82 99 116 0 
-4 31 40 54 80 91 107 119 0 
-5 32 41 58 77 98 111 124 127 
-9 18 49 65 79 85 104 124 0 
-10 30 43 60 69 84 112 119 127 
-1 18 43 48 73 91 98 121 0 
-3 21 46 64 67 86 112 118 0 
-5 24 48 55 75 93 105 122 0 
-2 32 44 62 80 95 99 118 0 
-16 28 41 59 80 83 100 123 0 
-11 33 35 53 72 96 109 115 0 
-11 25 44 60 78 90 100 117 0 
-6 31 35 56 70 95 102 123 126 
-12 17 50 54 68 94 106 125 0 
-13 29 38 53 78 97 105 121 0 
-7 30 49 61 64 81 101 126 0 
@@ -0,0 +1,34 @@
+subroutine plotsave(swide,nw,nh,irow)
+
+  real, dimension(:,:), allocatable :: sw
+  real swide(0:nw-1)
+  data nw0/-1/,nh0/-1/
+  save nw0,nh0,sw
+
+  if(irow.eq.-99) then
+     if(allocated(sw)) deallocate(sw)
+     go to 900
+  endif
+
+  if(nw.ne.nw0 .or. nh.ne.nh0 .or. (.not.allocated(sw))) then
+     if(allocated(sw)) deallocate(sw)
+!     if(nw0.ne.-1) deallocate(sw)
+     allocate(sw(0:nw-1,0:nh-1))
+     sw=0.
+     nw0=nw
+     nh0=nh
+  endif
+  df=12000.0/16384
+  if(irow.lt.0) then
+! Push a new row of data into sw
+     do j=nh-1,1,-1
+        sw(0:nw-1,j)=sw(0:nw-1,j-1)
+     enddo
+     sw(0:nw-1,0)=swide
+  else
+! Return the saved "irow" as swide(), for a waterfall replot.
+     swide=sw(0:nw-1,irow)
+  endif
+
+900 return
+end subroutine plotsave