aboutsummaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorJoseph Hunkeler <jhunkeler@gmail.com>2021-08-12 11:43:37 -0400
committerJoseph Hunkeler <jhunkeler@gmail.com>2021-08-12 11:43:37 -0400
commit9e3fbd612bd63b5da75b0d022b5662dd868673f9 (patch)
tree03abd528a6aba2628df6acbe65882a1eba2ef6bc
parent783d4baaa19ea3843dffa2ca5654e662d4a5aa8b (diff)
downloadmoog-9e3fbd612bd63b5da75b0d022b5662dd868673f9.tar.gz
Update types in other plotting drivers
-rw-r--r--Binplot.f4
-rw-r--r--Cogplot.f4
-rw-r--r--Fluxplot.f4
3 files changed, 6 insertions, 6 deletions
diff --git a/Binplot.f b/Binplot.f
index 7a0f9e4..48ac4b3 100644
--- a/Binplot.f
+++ b/Binplot.f
@@ -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
diff --git a/Cogplot.f b/Cogplot.f
index 5d4fe7f..592e4ad 100644
--- a/Cogplot.f
+++ b/Cogplot.f
@@ -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
diff --git a/Fluxplot.f b/Fluxplot.f
index 7393a3a..b07a1d5 100644
--- a/Fluxplot.f
+++ b/Fluxplot.f
@@ -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