diff options
-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 |