CFX4: USRDIFF

Robin K

Hi,

Could someone confirm/not: I want to set DIFF For SCAl1 & SCAl2:

C GET EQUATION NUMBER FOR SCALAR

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

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

CALL GETSCA('USER SCALAR2',ISC2,CWORK) C C DEFINE INDICIES C

ISCA=ISCAL+ISC1-1

ISCB=ISCAL+ISC2-1

IF (IEQN.EQ.ISCA) THEN

GAMMA(INODE,IPHASE,1)=HBDIFF1

ELSEIF (IEQN.EQ.ISCB) THEN

GAMMA(INODE,IPHASE,1)=HBDIFF2

END IF

Hope some one can help...

Many Thanks,

Robin