USRWRK...some HELP...

RK

Hi,

Just to clarify some info on USRWRK facility in CFX 4.4.

(1) I have setup user workspace in USRWRK

(2) In USRINT, I dump the variable of interest (in this case enthalpy) in this workspace. (as shown in USRINT)

(3) If I want to write to a file using USRTRN that has been dumped in the work space within USRINT, is the syntac correct as shown below?

The way as it is written now, the WORK(IUSRGR+INODE-1) does contain the H variable, but when I try to write it out in USRTRN Zero values are dumped...so something is wrong...

I hope someone can help...

Robin

*********************** SUBROUTINE USRWRK...

CALL SETPER('USRWRK','WORK ','USRGR ',NNODE,IUSRGR)

****************** SUBROUTINE USRINT

CALL GETADD('USRINT','PERMR ','USRGR ',ILEVEL,IUSRGR)

DO 101 I=1,NPT

INODE=IPT(I)

C SET H VAR into the workspace

WORK(IUSRGR+INODE-1)=H(INODE,IPHASE)

101 CONTINUE

************** SUBROUTINE USRTRN

CALL GETADD('USRINT','PERMR ','USRGR ',ILEVEL,IUSRGR) DO 101 I=1,NPT

INODE=IPT(I)

G0=WORK(IUSRGR+INODE-1)

WRITE(*,*) G0

101 CONTINUE **************