Hi,

To use the IVAR for IEQN in USRSRC for the first scalar it would be defined as this:

CALL GETVAR('USRSRC','SCAL ',ISCAL)

CALL GETSCA('USER SCALAR1',ISC1,CWORK)

ISC=ISCAL+ISC1-1

Then the above would be used as follows:

IF (ISC.EQ.IEQN) THEN

BLAH…

NOW if there are many scalars (say 2 more)…then would it be simply: for scalar two

CALL GETVAR('USRSRC','SCAL ',ISCAL)

CALL GETSCA('USER SCALAR2',ISC2,CWORK)

ISCA=ISCAL+ISC2-1

IF (ISCA.EQ.IEQN) THEN

BLAH…

CALL GETVAR('USRSRC','SCAL ',ISCAL)

CALL GETSCA('USER SCALAR3',ISC3,CWORK)

ISCB=ISCAL+ISC3-1

IF (ISCB.EQ.IEQN) THEN

BLAH…

ETC…

Thanks,

RK

That's the idea. I'd get all three indices (ISC,ISCA, and ISCB) first and then set up the if then else as:

IF (ISC.EQ.IEQN) THEN

....Blah1

ELSE IF(ISCA.EQ.IEQN) THEN

....Blah2

ELSE IF(ISCB.EQ.IEQN) THEN

....Blah3

ENDIF

Just for programming efficiency.

Jeff