diff -uNr garfield-8.10.orig/garfield-7.car garfield-8.10/garfield-7.car --- garfield-8.10.orig/garfield-7.car 2005-10-15 16:41:39.000000000 +0900 +++ garfield-8.10/garfield-7.car 2005-10-15 16:46:41.000000000 +0900 @@ -1706,9 +1706,9 @@ character*128 args external inpcmx +SELF,IF=UNIX. - integer inpcmx,arg_length,iarg,nargs,iargc,inext + integer inpcmx,arg_length,iarg,nargs,inext character*128 args - external inpcmx,iargc + external inpcmx +SELF,IF=CMS. INTEGER IRC CHARACTER*80 OPTFLG @@ -2469,7 +2469,8 @@ - FILE='/afs/cern.ch/user/r/rjd/Garfield/Log/garfield.log') *** Open and skip to the end of the file. +SELF,IF=LINUX. - OPEN(UNIT=12,STATUS='UNKNOWN',ACCESS='APPEND', +c OPEN(UNIT=12,STATUS='UNKNOWN',ACCESS='APPEND', + OPEN(UNIT=12,STATUS='UNKNOWN', - FILE='/afs/cern.ch/user/r/rjd/Garfield/Log/garfield.log', - IOSTAT=IOS,ERR=2020) +SELF,IF=-LINUX. @@ -10798,7 +10799,8 @@ ELSEIF(EXIS)THEN +SELF,IF=LINUX. OPEN(UNIT=LUNDSN,FILE=FILE(1:NC),STATUS='OLD', - - ACCESS='APPEND',IOSTAT=IOS,ERR=2020) +c - ACCESS='APPEND',IOSTAT=IOS,ERR=2020) + - IOSTAT=IOS,ERR=2020) +SELF,IF=-LINUX. OPEN(UNIT=LUNDSN,FILE=FILE(1:NC),STATUS='OLD', - ACCESS='SEQUENTIAL',IOSTAT=IOS,ERR=2020) @@ -26592,7 +26594,8 @@ +SELF,IF=LINUX. *** Open a file for GKS error messages. OPEN(UNIT=10,FILE=GKSLOG(1:NCGKS),STATUS='UNKNOWN', - - ACCESS='APPEND',IOSTAT=IOS,ERR=2020) +c - ACCESS='APPEND',IOSTAT=IOS,ERR=2020) + - IOSTAT=IOS,ERR=2020) CALL DSNLOG(GKSLOG(1:NCGKS),'GKS errors','Sequential', - 'Append ') WRITE(10,'('' ========== New run on '',A8,'' at '',A8, @@ -26641,17 +26644,17 @@ - '' ========== '')',ERR=2010,IOSTAT=IOS) DATE,TIME +SELF,IF=-APOLLO,IF=-LINUX,IF-CMS,IF=-VAX. *** Open a file for GKS error messages. - OPEN(UNIT=10,FILE=GKSLOG(1:NCGKS),STATUS='UNKNOWN',IOSTAT=IOS, - - ERR=2020) - CALL DSNLOG(GKSLOG(1:NCGKS),'GKS errors','Sequential', - - 'Append ') -10 CONTINUE - READ(10,'(A1)',END=20) STRING - GOTO 10 -20 CONTINUE - BACKSPACE(10) - WRITE(10,'('' ========== New run on '',A8,'' at '',A8, - - '' ========== '')',ERR=2010,IOSTAT=IOS) DATE,TIME +c OPEN(UNIT=10,FILE=GKSLOG(1:NCGKS),STATUS='UNKNOWN',IOSTAT=IOS, +c - ERR=2020) +c CALL DSNLOG(GKSLOG(1:NCGKS),'GKS errors','Sequential', +c - 'Append ') +c10 CONTINUE +c READ(10,'(A1)',END=20) STRING +c GOTO 10 +c20 CONTINUE +c BACKSPACE(10) +c WRITE(10,'('' ========== New run on '',A8,'' at '',A8, +c - '' ========== '')',ERR=2010,IOSTAT=IOS) DATE,TIME +SELF,IF=HIGZ. *** Initialise HIGZ. CALL HLIMIT(NWORDS) @@ -27224,8 +27227,7 @@ integer*2 iarg,nargs,istat integer pointer(128) +SELF,IF=-APOLLO. - integer iargc,nargs,iarg - external iargc + integer nargs,iarg +SELF. character*(*) file character*128 args @@ -30824,8 +30826,7 @@ integer*2 iarg,nargs,arg_length integer pointer(128) +SELF,IF=-APOLLO. - integer arg_length,iargc,nargs - external iargc + integer arg_length,nargs +SELF. character*128 args integer istart,iend,ionoff,iflag,iarg,iwktyp,icon,ifail, @@ -45163,10 +45164,10 @@ implicit none +SEQ,PRINTPLOT. CHARACTER*(*) STREAM - INTEGER LENARG,IARG,NARGS,INIT,INPCMX,iargc,DUMMY + INTEGER LENARG,IARG,NARGS,INIT,INPCMX,DUMMY CHARACTER*128 ARGS LOGICAL LSTATE,INTRAC - EXTERNAL INPCMX,INTRAC,iargc + EXTERNAL INPCMX,INTRAC +SELF,IF=SAVE. SAVE LSTATE,INIT +SELF. @@ -52235,7 +52236,9 @@ NARG=INS(INSTR,3) IPROC=INS(INSTR,1) *** Extract a sub-matrix. +c>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> IF(IPROC.EQ.-80)THEN +c>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> * Check the format of the argument list. IF(NARG.LT.3.OR.ARGREF(NARG,1).GE.2.OR. - MODARG(NARG-1).NE.5.OR.MODARG(1).NE.2.OR. @@ -52307,7 +52310,9 @@ RETURN 68 CONTINUE *** Store a sub-matrix. +c>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> ELSEIF(IPROC.EQ.-81)THEN +c>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> * Check the format of the argument list. IF(NARG.LT.3.OR.ARGREF(NARG-1,1).GE.2.OR. - MODARG(NARG-1).NE.5.OR. @@ -52405,7 +52410,9 @@ RETURN 78 CONTINUE *** Print a matrix. +c>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> ELSEIF(IPROC.EQ.-82)THEN +c>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> * There should be at least 1 argument. IF(NARG.LE.0)THEN PRINT *,' !!!!!! MATCAL WARNING : Incorrect number'// @@ -52428,7 +52435,9 @@ 10 CONTINUE ENDIF *** Create a matrix. +c>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> ELSEIF(IPROC.EQ.-83)THEN +c>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> * Check number of arguments. IF(NARG.LE.1.OR.ARGREF(1,1).GE.2)THEN PRINT *,' !!!!!! MATCAL WARNING : Incorrect argument'// @@ -52483,7 +52492,9 @@ MODARG(1)=5 ENDIF *** Resize a matrix. +c>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> ELSEIF(IPROC.EQ.-84)THEN +c>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> * Check number of arguments. IF(NARG.LE.2.OR.NARG.GT.MXMDIM+2.OR. - ARGREF(1,1).GE.2.OR.MODARG(1).NE.5.OR. @@ -52514,7 +52525,9 @@ ENDIF ENDIF *** Adjust a matrix. +c>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> ELSEIF(IPROC.EQ.-85)THEN +c>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> * Check number of arguments. IF(NARG.LE.2.OR.NARG.GT.MXMDIM+2.OR. - ARGREF(1,1).GE.2.OR.MODARG(1).NE.5.OR. @@ -52545,7 +52558,9 @@ ENDIF ENDIF *** Delete a matrix. +c>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> ELSEIF(IPROC.EQ.-86)THEN +c>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> * Check number of arguments. IF(NARG.LT.1)THEN DO 55 I=1,NGLB @@ -52573,7 +52588,9 @@ 50 CONTINUE ENDIF *** List matrices in memory. +c>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> ELSEIF(IPROC.EQ.-87)THEN +c>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> * Check number and type of arguments. IF(NARG.NE.0)THEN PRINT *,' !!!!!! MATCAL WARNING : Incorrect argument'// @@ -52583,7 +52600,9 @@ * List. CALL MATADM('LIST',IDUM,NDUM,ISIZ,NDUM,IFAIL1) *** Write a matrix to a library. +c>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> ELSEIF(IPROC.EQ.-88)THEN +c>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> * Check number and type of arguments. IF(MODARG(1).NE.5.OR.MODARG(2).NE.1.OR. - (NARG.GE.3.AND.MODARG(3).NE.1).OR. @@ -52642,7 +52661,9 @@ RETURN ENDIF *** Get a matrix from a library. +c>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> ELSEIF(IPROC.EQ.-89)THEN +c>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> * Check number and type of arguments. IF(ARGREF(1,1).GE.2.OR. - MODARG(2).NE.1.OR. @@ -52691,11 +52712,13 @@ RETURN ENDIF *** Matrix multiplication. +c>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> ELSEIF(IPROC.EQ.-90)THEN *** Solve linear equation. ELSEIF(IPROC.EQ.-91)THEN *** Return matrix dimensions. ELSEIF(IPROC.EQ.-92)THEN +c>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> * Check number and type of arguments. IF(NARG.NE.3.OR. - ARGREF(2,1).GE.2.OR.ARGREF(3,1).GE.2.OR. @@ -52748,7 +52771,9 @@ ARG(3)=IREFD MODARG(3)=5 *** Matrix interpolation. +c>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> ELSEIF(IPROC.EQ.-93)THEN +c>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> * Check the format of the argument list. IF(NARG.LT.4.OR.ARGREF(NARG,1).GE.2.OR. - MODARG(1).NE.5.OR.MODARG(NARG-1).NE.5)THEN @@ -52848,7 +52873,15 @@ CALL MATADM('DELETE',IRORD,1,ISIZ,2,IFAIL1) IF(IFAIL2.NE.0)RETURN *** Surface plots. - ELSEIF(IPROC.EQ.-94)THEN +c>>>>>>>>> +c>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + endif +c ELSEIF(IPROC.EQ.-94)THEN + IF(IPROC.EQ.-94) goto 201 + goto 1762 +201 continue +c>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> +c>>>>>>>>> * Check argument list. IF(NARG.LT.1.OR.NARG.GT.8.OR. - MODARG(1).NE.5.OR. @@ -52889,6 +52922,29 @@ IF(NARG.GE.6)THEN CALL STRBUF('READ',NINT(ARG(6)),XTXT,NCXTXT,IFAIL1) ELSEIF(NARG.GE.4)THEN +c>>> + go to 1691 +c DO 171 J=1,NGLB +c IF(GLBMOD(J).NE.5)GOTO 171 +c IF(NINT(GLBVAL(J)).EQ.IREFX)THEN +c XTXT=GLBVAR(J) +c NCXTXT=10 +c GOTO 172 +c ENDIF +c171 CONTINUE +c XTXT='x-axis' +c NCXTXT=6 +c172 CONTINUE +c IFAIL1=0 +c>>> + ELSE + XTXT='x-axis' + NCXTXT=6 + IFAIL1=0 + ENDIF +c>>> + goto 1721 +1691 continue DO 171 J=1,NGLB IF(GLBMOD(J).NE.5)GOTO 171 IF(NINT(GLBVAL(J)).EQ.IREFX)THEN @@ -52897,19 +52953,40 @@ GOTO 172 ENDIF 171 CONTINUE +1711 continue XTXT='x-axis' NCXTXT=6 172 CONTINUE IFAIL1=0 - ELSE - XTXT='x-axis' - NCXTXT=6 - IFAIL1=0 - ENDIF +1721 continue +c>>> * Fetch the y-axis label. IF(NARG.GE.7)THEN CALL STRBUF('READ',NINT(ARG(7)),YTXT,NCYTXT,IFAIL2) ELSEIF(NARG.GE.5)THEN +c>>> + go to 1722 +c DO 173 J=1,NGLB +c IF(GLBMOD(J).NE.5)GOTO 173 +c IF(NINT(GLBVAL(J)).EQ.IREFY)THEN +c YTXT=GLBVAR(J) +c NCYTXT=10 +c GOTO 174 +c ENDIF +c173 CONTINUE +c YTXT='y-axis' +c NCYTXT=6 +c174 CONTINUE +c IFAIL2=0 +c>>> + ELSE + YTXT='y-axis' + NCYTXT=6 + IFAIL2=0 + ENDIF +c>>> + goto 1741 +1722 continue DO 173 J=1,NGLB IF(GLBMOD(J).NE.5)GOTO 173 IF(NINT(GLBVAL(J)).EQ.IREFY)THEN @@ -52918,19 +52995,36 @@ GOTO 174 ENDIF 173 CONTINUE +1731 continue YTXT='y-axis' NCYTXT=6 174 CONTINUE IFAIL2=0 - ELSE - YTXT='y-axis' - NCYTXT=6 - IFAIL2=0 - ENDIF +1741 continue +c>>> * Fetch the global title. IF(NARG.GE.8)THEN CALL STRBUF('READ',NINT(ARG(8)),TITLE,NCTIT,IFAIL3) ELSE + goto 1742 +c>>> +c DO 175 J=1,NGLB +c IF(GLBMOD(J).NE.5)GOTO 175 +c IF(NINT(GLBVAL(J)).EQ.NINT(ARG(1)))THEN +c TITLE=GLBVAR(J) +c NCTIT=10 +c GOTO 176 +c ENDIF +c175 CONTINUE +c TITLE=' ' +c NCTIT=1 +c176 CONTINUE +c IFAIL3=0 +c>>> + ENDIF +c>>> + goto 1761 +1742 continue DO 175 J=1,NGLB IF(GLBMOD(J).NE.5)GOTO 175 IF(NINT(GLBVAL(J)).EQ.NINT(ARG(1)))THEN @@ -52939,11 +53033,13 @@ GOTO 176 ENDIF 175 CONTINUE +1751 continue TITLE=' ' NCTIT=1 176 CONTINUE IFAIL3=0 - ENDIF +1761 continue +c>>> * Plot the surface. CALL MATSUR(NINT(ARG(1)),IREFX,IREFY,XTXT(1:NCXTXT), - YTXT(1:NCYTXT),TITLE(1:NCTIT),PHI,THETA) @@ -52956,7 +53052,11 @@ RETURN ENDIF *** Contour plots. - ELSEIF(IPROC.EQ.-100)THEN +c>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> +c ELSEIF(IPROC.EQ.-100)THEN +1762 continue + IF(IPROC.EQ.-100)THEN +c>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> * Check argument list. IF(NARG.LT.1.OR.NARG.GT.8.OR. - MODARG(1).NE.5.OR. @@ -53048,7 +53148,9 @@ RETURN ENDIF *** Derivative. +c>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> ELSEIF(IPROC.EQ.-95)THEN +c>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> * Check argument list. IF(NARG.LT.4.OR.NARG.GT.5.OR. - MODARG(1).NE.5.OR.MODARG(2).NE.5.OR.MODARG(3).NE.2.OR. @@ -53082,7 +53184,9 @@ RETURN ENDIF *** Interpolation of various orders. +c>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> ELSEIF(IPROC.EQ.-96.OR.IPROC.EQ.-97.OR.IPROC.EQ.-98.OR. +c>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - IPROC.EQ.-99)THEN * Check argument list. IF(NARG.NE.4.OR.ARGREF(4,1).GE.2.OR. @@ -53193,7 +53297,9 @@ RETURN ENDIF *** Plot an error band. +c>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> ELSEIF(IPROC.EQ.-101)THEN +c>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> * Check number of arguments. IF(NARG.NE.3.OR.MODARG(1).NE.5.OR.MODARG(2).NE.5.OR. - MODARG(3).NE.5)THEN @@ -53208,7 +53314,9 @@ * Switch back to alphanumeric screen. CALL GRALPH *** Find zeroes of a matrix vs another matrix. +c>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> ELSEIF(IPROC.EQ.-102)THEN +c>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> * Check the arguments. IWRONG=0 DO 240 I=4,NARG @@ -53235,7 +53343,9 @@ ENDIF 190 CONTINUE *** Plot a bar chart. +c>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> ELSEIF(IPROC.EQ.-103)THEN +c>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> * Check number and type of arguments. IF(MODARG(1).NE.5.OR.MODARG(2).NE.5.OR. - (NARG.GE.3.AND.MODARG(3).NE.1).OR. @@ -53326,7 +53436,9 @@ - MLEN(ISLOTX),XTXT(1:NCXTXT),YTXT(1:NCYTXT), - TITLE(1:NCTIT),FRAME) *** Sort a matrix. +c>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> ELSEIF(IPROC.EQ.-104)THEN +c>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> * Check number and type of arguments. IF(MODARG(1).NE.5.OR.ARGREF(1,1).GE.2.OR.NARG.NE.1)THEN PRINT *,' !!!!!! MATCAL WARNING : Incorrect'// @@ -53342,7 +53454,9 @@ RETURN ENDIF *** Rainbow 3D. +c>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> ELSEIF(IPROC.EQ.-105)THEN +c>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> * Check argument list. IF(NARG.LT.1.OR.NARG.GT.10.OR. - MODARG(1).NE.5.OR. @@ -53386,7 +53500,10 @@ CALL STRBUF('READ',NINT(ARG(6)),XTXT,NCXTXT,IFAIL1) ELSEIF(NARG.GE.4)THEN DO 300 J=1,NGLB - IF(GLBMOD(J).NE.5)GOTO 171 +c>>> +c IF(GLBMOD(J).NE.5)GOTO 171 + IF(GLBMOD(J).NE.5)GOTO 1711 +c>>> IF(NINT(GLBVAL(J)).EQ.IREFX)THEN XTXT=GLBVAR(J) NCXTXT=10 @@ -53407,7 +53524,10 @@ CALL STRBUF('READ',NINT(ARG(7)),YTXT,NCYTXT,IFAIL2) ELSEIF(NARG.GE.5)THEN DO 320 J=1,NGLB - IF(GLBMOD(J).NE.5)GOTO 173 +c>>> +c IF(GLBMOD(J).NE.5)GOTO 173 + IF(GLBMOD(J).NE.5)GOTO 1731 +c>>> IF(NINT(GLBVAL(J)).EQ.IREFY)THEN YTXT=GLBVAR(J) NCYTXT=10 @@ -53436,7 +53556,10 @@ CALL STRBUF('READ',NINT(ARG(9)),TITLE,NCTIT,IFAIL4) ELSE DO 340 J=1,NGLB - IF(GLBMOD(J).NE.5)GOTO 175 +c>>> +c IF(GLBMOD(J).NE.5)GOTO 175 + IF(GLBMOD(J).NE.5)GOTO 1751 +c>>> IF(NINT(GLBVAL(J)).EQ.NINT(ARG(1)))THEN TITLE=GLBVAR(J) NCTIT=10 @@ -53475,7 +53598,9 @@ RETURN ENDIF *** Locate maximum or minimum. +c>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> ELSEIF(IPROC.EQ.-106.OR.IPROC.EQ.-107)THEN +c>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> * Check argument list. IF(NARG.LT.2)THEN PRINT *,' !!!!!! MATCAL WARNING : Number of'// @@ -53512,12 +53637,16 @@ MODARG(I+1)=2 370 CONTINUE *** Unknown matrix operation. +c>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> ELSE +c>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> PRINT *,' !!!!!! MATCAL WARNING : Unknown procedure code'// - ' received; nothing done.' IFAIL=1 RETURN +c>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> ENDIF +c>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> *** Seems to have worked. IFAIL=0 END diff -uNr garfield-8.10.orig/heed101garf.car garfield-8.10/heed101garf.car --- garfield-8.10.orig/heed101garf.car 2005-08-20 07:50:27.000000000 +0900 +++ garfield-8.10/heed101garf.car 2005-10-15 16:41:39.000000000 +0900 @@ -9567,7 +9567,9 @@ c implicit none - save +c>>> gfortran +c save +c>>> c include 'GoEvent.inc' +SEQ,GoEvent. diff -uNr garfield-8.10.orig/html/make_html garfield-8.10/html/make_html --- garfield-8.10.orig/html/make_html 2005-10-15 16:41:39.000000000 +0900 +++ garfield-8.10/html/make_html 2005-10-15 16:41:39.000000000 +0900 @@ -12,11 +12,11 @@ rm -f temp garfield.href: garfield.html hlp_html: hlp_html.f datimh_.o - f77 hlp_html.f datimh_.o -o hlp_html + $(FC) hlp_html.f datimh_.o -o hlp_html garfsearch: garfsearch.f - f77 garfsearch.f /pro/lib/libpacklib.a -L/usr/local/lib -lintl -o garfsearch + $(FC) garfsearch.f /pro/lib/libpacklib.a -L/usr/local/lib -lintl -o garfsearch index: index.f - f77 index.f /cern/pro/lib/libpacklib.a -L/usr/local/lib -lintl -o index + $(FC) index.f /cern/pro/lib/libpacklib.a -L/usr/local/lib -lintl -o index listkey: listkey.f - f77 listkey.f /cern/pro/lib/libpacklib.a -L/usr/local/lib -lintl -o listkey + $(FC) listkey.f /cern/pro/lib/libpacklib.a -L/usr/local/lib -lintl -o listkey