meroni@ITNSG1.CINECA.IT (Alberto Meroni) (01/16/91)
The following code fragment, from the pgplot package, produces the following
fatal error in as1:
itnsg1 % f77 -c -col120 -static m.f
Fatal error in: /usr/lib/as1 - core dumped
Signal 133 itnsg1 %
itnsg1 % uname -a
itnsg1 itnsg1 3.3.1 08201206 IP6
Does anyone know of this problem?
Thanks a lot in advance,
Alberto Meroni
Internet: meroni@itnsg1.cineca.it
P.S.: PLEASE answer directly to me, I'm not a subscriber to this list.
--------------------- cut here (m.f) --------------------
SUBROUTINE Menu (ans,fits,dataset,xlog,ylog,flip,labels,points,
* linestyle,x1,x2,y1,y2,f1,f2)
c
c ----- The main menu screen with all of the current plot settings for
c the current data
c
INTEGER maxpoints,spoly,ncoeff,maxdataset,dataset,ma,i,j
PARAMETER (maxpoints=10000,ncoeff=10,maxdataset=15,
* spoly=8*maxpoints)
REAL xp(spoly),yp(spoly),coeff(ncoeff,2),x1,x2,y1,y2,
* f1,f2
INTEGER power(ncoeff),maxply(maxdataset)
CHARACTER*1 ans,UpCase
CHARACTER*34 plotted(5),dummy
LOGICAL fits(5,maxdataset),xlog,ylog,flip,labels,points,
* linestyle
c
COMMON /PlyDat/xp,yp,coeff,power,maxply,ma
c
WRITE (*,100)
100 FORMAT ('0',24X,'CurveFit - Main Menu'/)
DO 2 i=1,5
dummy='[ ]'
DO 1 j=1,dataset
dummy(j+2:j+2)='-'
IF (fits(i,j)) dummy(j+2:j+2)='+'
1 CONTINUE
plotted(i)=dummy
2 CONTINUE
WRITE (*,93) '(1) Connect points with straight line ',plotted(1)
WRITE (*,93) '(2) Connect points with cubic spline ',plotted(2)
WRITE (*,93) '(3) Smooth data with Bezier polynomial',plotted(3)
WRITE (*,93) '(4) Smooth data with Fourier transform',plotted(4)
WRITE (*,93) '(5) Best fit polynomial ',plotted(5)
IF (xlog.AND.ylog) THEN
WRITE (*,97) '(6) Logarithms of x or y data','[ XY ]'
ELSE IF (xlog) THEN
WRITE (*,97) '(6) Logarithms of x or y data','[ X ]'
ELSE IF (ylog) THEN
WRITE (*,97) '(6) Logarithms of x or y data','[ Y ]'
ELSE
WRITE (*,97) '(6) Logarithms of x or y data','[ NONE ]'
ENDIF
WRITE (*,94) '(7) Plotting range of x coordinate [',
* x1,' to ',x2,' ]'
WRITE (*,94) '(8) Plotting range of y coordinate [',
* y1,' to ',y2,' ]'
WRITE (*,94) '(9) Fitting range of x coordinate [',
* f1,' to ',f2,' ]'
IF (flip) THEN
WRITE (*,95) '(F) Flip the x and y axes','[ ON ]'
ELSE
WRITE (*,95) '(F) Flip the x and y axes','[ OFF ]'
ENDIF
IF (points) THEN
WRITE (*,98) '(D) Data points are plotted','[ ON ]'
ELSE
WRITE (*,98) '(D) Data points are plotted','[ OFF ]'
ENDIF
IF (labels) THEN
WRITE (*,99) '(T) Labels and title placed on the plot','[ ON ]'
ELSE
WRITE (*,99) '(T) Labels and title placed on the plot',
* '[ OFF ]'
ENDIF
WRITE (*,92) '(A) Add a data file to existing plot','[ ',dataset,
* ' ]'
IF (linestyle) THEN
WRITE (*,96) '(L) User/System defined plotted line styles',
* '[ USER ]'
ELSE
WRITE (*,96) '(L) User/System defined plotted line styles',
* '[ SYSTEM ]'
ENDIF
WRITE (*,101)
101 FORMAT (1X,'(S) Scale/Slide/Subtract a particular dataset'/1X,
* '(H) Send plot to disk for hardcopy'/1X,
* '(V) Select a new video display device'/1X,
* '(N) New data file and plot'/1X,'(E,Q,X) Exit CurveFit',
* //10X,'Choose one of the above [Plot to screen]: ',$)
READ (*,'(A)') ans
ans=UpCase(ans)
92 FORMAT (1X,(A),17X,(A),I<INT(LOG10(FLOAT(dataset)))+1>,(A))
93 FORMAT (1X,(A),3X,(A))
94 FORMAT (1X,(A),E10.3,A4,E10.3,A2)
95 FORMAT (1X,(A),28X,(A))
96 FORMAT (1X,(A),10X,(A))
97 FORMAT (1X,(A),24X,(A))
98 FORMAT (1X,(A),26X,(A))
99 FORMAT (1X,(A),14X,(A))
RETURN
END