CFX4: USRDIFF
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 |
All times are GMT -4. The time now is 02:55. |