Fortran 77 alphabet character $

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



.

Relevant Pages