scale-of-eight 1

[alleyor]

INTERGER H

IF (H(J,2).GT.0.AND.H(J,2).LT.77B) GO TO 550

This sentence can't be compilered in ivf9.

"IF (H(J,2).GT.0.AND.H(J,2).LT.O'77') GO TO 550" (1)

OR

"IF (H(J,2).GT.0.AND.H(J,2).LT.63) GO TO 550", (2)

WHICH IS CORRECT? OR OTHER?

AND THIS ONE.

IF ((NN(I) .AND.77777700000000000000B).EQ.3LCOM) GO TO 190

IF it is used in place of "IF ((NN(I) .AND.O'77777700000000000000').EQ.3LCOM) GO TO 190",
THIS WILL A CLEW:" Error: This octal constant is too large in this context. [O'77777700000000000000']"

THANKS!

 

[xwb]

B is normally used for binary. O prefix is used for octal. Both

IF (H(J,2).GT.0.AND.H(J,2).LT.O'77') GO TO 550

IF (H(J,2).GT.0.AND.H(J,2).LT.63) GO TO 550

are correct: one has 77 in octal, the other in decimal.

I'm using IVF7, I don't get any erros with the octal constant but I get a problem with 3LCOM, which is an illegally named variable.

IF ((NN(I) .AND.O'77777700000000000000').EQ.3LCOM) GO TO 190

You have a 60 bit word so presumably NN(I) is a 64 bit integer (INTEGER*8).

 

[alleyor]

The problem was solved thank you!

 

[alleyor]

IF ALL THE WOEDS ARE 32BITS,HOW DO I replace it?