Re: Fortran 77 alphabet character $
- From: GaryScott <garylscott@xxxxxxxxxxxxx>
- Date: Thu, 29 May 2008 11:47:57 -0700 (PDT)
On May 29, 12:45 pm, e p chandler <e...@xxxxxxxx> wrote:
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.
That's odd as the most common usage was as the first character.
Perhaps some other text substitution like Q$ will work. Alas I have no
idea how to emulate
IMPLICIT INTEGER ($).
- e- Hide quoted text -
- Show quoted text -
.
- References:
- Fortran 77 alphabet character $
- From: Herman D . Knoble
- Re: Fortran 77 alphabet character $
- From: e p chandler
- Fortran 77 alphabet character $
- Prev by Date: Re: one-liner for characater replacement
- Next by Date: Re: Slick or Slack
- Previous by thread: Re: Fortran 77 alphabet character $
- Next by thread: Is this legal?
- Index(es):
Relevant Pages
|
|
