User Common Block...ODD?
 

Hi,

I would like to ask how does one check whether or not a user variable from one subroutine to another has been passed. Example

USRINT

COMMON /UCDGR/r

AREA 5**************

WORK(IUSRGR+INODE-1)=r ... ... END USRBCS

COMMON /UCDGR/r

AREA 5****

r=WORK(IUSRGR+INODE-1) .... ....

END

If put a write statement just below the COMMON block statement in USRBCS, one get all sorts of error but when one checks the user variable r in USRBCS a value of zero is given; thus it seems not be passing from one subroutine to another...The workspace has hopefully been set up correctly, assuming this...

Does anyone have a remedy for this?

Many Thanks in advance...

RK