From 9e3fbd612bd63b5da75b0d022b5662dd868673f9 Mon Sep 17 00:00:00 2001 From: Joseph Hunkeler Date: Thu, 12 Aug 2021 11:43:37 -0400 Subject: Update types in other plotting drivers --- Binplot.f | 4 ++-- Cogplot.f | 4 ++-- Fluxplot.f | 4 ++-- 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 -- cgit