Re: Fortran 77 alphabet character $

On May 29, 8:59 am, Herman D. Knoble <SkipKnobleL...@xxxxxxxxxxxxxxx>
wrote:
What  does the F77 Standard say about using the character, $ for the beginning of a
variable name?  A  professor here has a large code that does this throughout. (See
the following Block Data).

Note:  tje variable names in this large code begin with every letter of the alplhabet;
so a substitute for $ won't work.

The prroblem is that G95 will flag thet such use of $ as an error.  
 Lahey LF95 compiles  the code  with no warning about the $ variables.
Silverfrost flags the $ varables as an error.
Intel Ifort  compiles the code with no warning about the $ variables.

Thanks.
Skip Knoble

-------------------------------------Example of use of $ variables ------------
      BLOCKDATA
      IMPLICIT INTEGER ($)
      COMMON /BASIC/$PRTOP(15),TITLE(18),VERSIN,PAGE,NUMSTP,STEPS,IMAX,
     1      JMAX,MMAX,NGEM,$STFLG,NSOR,IJMAX,$CNSIZ,
     2      $BASCR,LO1,$INPCR,$MSMCR,$GTINP,
     3      NLB,NTB,NRB,NBB,EPI1,ITMAX,FACTOR,$BORSH,
     4      LIMI,LIMJ,NIT,TTLM,VMN,MTOX,MC1,MC2,MC3,MC4,I,J,K,TV1,
     5      TV2,TV3,TV4,IS1,IS2,
     6      GROUPS,IBORON,NOADD,$SGSUM,$SGPT,$MAP(20),$MXMP,LIN
      INTEGER STEPS,BESTIR
      INTEGER PAGE
      COMMON /XENON/ $XEOPT
      COMMON /BATCOS/ COSQNN(180)
      COMMON /COST/ COSTFL,NUMBAT,DOLLAR,IBAOUT(15,5),ILLREU(15),
     1ILREPO(15,5)
      COMMON /RELOAD/MAXSH,NCODE(70),NEB(4,70),W(70),P(6),V(6),
     1      MMA,MMI,IR(70),BESTIR(70),KC,KSUM,LA,INNEW(5),
     2      NEBX(4,70),IV(6),RPLO(70),RPHI(70),
     3      BESTID(70),BESTBA(70),OPTPPM
      COMMON /PASSCY/ CCULM(70),AASNAM(70),IIBATC(70), TRECUL(15,5),TREN
     1AM(15,5),IREOPO(15,5)
C
      DATA PAGE/0/
      DATA COSQNN/180*0./
      DATA DOLLAR/'$$'/
      DATA INNEW/11,12,13,19,24/
      DATA VERSIN /90.1/
      DATA TRECUL/75*0./,TRENAM/75*' '/,IREOPO/75*0/
C     DEFAULT MAX. NO. OF ITERATIONS
      DATA ITMAX/700/
C     DEFAULT OUTPUT OPTIONS
CB    DATA $PRTOP/1,10,0,-1,1,1,1,0,0,0,0,1,0,0,0/
      DATA $PRTOP/0, 0,0,-1,0,0,1,0,0,0,0,1,0,0,0/
C     DEFAULT BOUNDRY CONDITION ASSIGNMENTS
      DATA NLB/1/,NTB/1/,NRB/0/,NBB/0/
C     DEFAULT POWER MAP DATA
      DATA $MAP/8,7,6,4,3,1,0,0,0,0,0,0,0,0,0,0,0,0,0,0/,$MXMP/6/
      END

g95 does allow the dollar sign in identifiers if the -fdollar-ok
option is specified, however it is not allowed as the leading
character.

Perhaps some other text substitution like Q$ will work. Alas I have no
idea how to emulate

IMPLICIT INTEGER ($).

- e


.

Relevant Pages