From e9293da11f685d17e2002bb06f0fd756845dadfd Mon Sep 17 00:00:00 2001 From: Joseph Hunkeler Date: Tue, 3 Aug 2021 14:49:58 -0400 Subject: Changeset: * Simplify Makefile * Accept input file as command line argument * Increase path length to 1024 for all path-related variables * Replace hard-coded path to \*.dat files with environment variable MOOG_DATA * SM needs double precision for several of its functions. Pass REAL8 not REAL4 to those. --- Specplot.f | 11 ++++++++--- 1 file changed, 8 insertions(+), 3 deletions(-) (limited to 'Specplot.f') diff --git a/Specplot.f b/Specplot.f index 4e8f026..03ea153 100755 --- a/Specplot.f +++ b/Specplot.f @@ -15,7 +15,7 @@ c****************************************************************************** real*4 style(1) real*4 yup,ydown integer iflip - + real*8 inx1,inx2,iny1,iny2 c*****for grid syntheses, dump out relevant information to a file if (choice .eq. 'g') then @@ -25,9 +25,15 @@ c*****for grid syntheses, dump out relevant information to a file c*****begin with a default window + inx1 = 0.0 + inx2 = 1.0 + iny1 = 0.0 + iny2 = 1.0 + call sm_location (3500,31000,4000,30000) call sm_window (1,1,1,1,1,1) - call sm_limits (0.0,1.0,0.0,1.0) +c call sm_limits (inx1, inx2, iny1, iny2) + call sm_limits (0d0, 1d0, 0d0, 1d0) call defcolor (1) @@ -53,7 +59,6 @@ c*****write smoothing information at the top of the plot write (nf6out,3002) isoitle(1:120) write (nf6out,3002) isoitle(121:240) endif - c*****define the real plot limits if (xlo .lt. xhi) then -- cgit