diff options
author | Joseph Hunkeler <jhunkeler@gmail.com> | 2021-08-12 11:43:37 -0400 |
---|---|---|
committer | Joseph Hunkeler <jhunkeler@gmail.com> | 2021-08-12 11:43:37 -0400 |
commit | 9e3fbd612bd63b5da75b0d022b5662dd868673f9 (patch) | |
tree | 03abd528a6aba2628df6acbe65882a1eba2ef6bc | |
parent | 783d4baaa19ea3843dffa2ca5654e662d4a5aa8b (diff) | |
download | moog-9e3fbd612bd63b5da75b0d022b5662dd868673f9.tar.gz |
Update types in other plotting drivers
-rw-r--r-- | Binplot.f | 4 | ||||
-rw-r--r-- | Cogplot.f | 4 | ||||
-rw-r--r-- | Fluxplot.f | 4 |
3 files changed, 6 insertions, 6 deletions
@@ -12,8 +12,8 @@ c****************************************************************************** include 'Pstuff.com' include 'Equivs.com' include 'Multistar.com' - real*4 style(1) - real*4 yup,ydown + real*8 style(1) + real*8 yup,ydown integer iflip @@ -9,8 +9,8 @@ c****************************************************************************** include 'Linex.com' include 'Mol.com' include 'Pstuff.com' - real*4 gfplot(3000), rwplot(3000) - real*4 xfour, style(1) + real*8 gfplot(3000), rwplot(3000) + real*8 xfour, style(1) character*4 ion @@ -9,8 +9,8 @@ c****************************************************************************** include 'Dummy.com' include 'Pstuff.com' real*8 wavep(2000), fluxp(2000) - real*4 waveplot(2000), flxplt(2000) - real*4 style(1) + real*8 waveplot(2000), flxplt(2000) + real*8 style(1) c*****dump the data into working arrays |