User Common Block...ODD?
I would like to ask how does one check whether or not a user variable from one subroutine to another has been passed. Example
WORK(IUSRGR+INODE-1)=r ... ... END USRBCS
r=WORK(IUSRGR+INODE-1) .... ....
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...
|All times are GMT -4. The time now is 02:16.|