FREE_R set

[Michael Nilges]

You wrote:
> DO WHILE ( .NOT. EOF )
> CALL   LRREFL ( 1 , RESOL , ADATA , EOF )
> ADATA (RFREE COL) =
> .     INT (AMOD ( ADATA (RFREE COL) + 1 , FLOAT ( MX RFREE ) ) )
> IF ( .NOT. EOF ) CALL   LWREFL ( 1 , ADATA )
> END DO

wouldn't

X-PLOR> xrefin> do (test = mod(test+1, p)) end end

do the job?
just guessing...
-----------------------------------------------
Michael Nilges                             EMBL
Tel: +49 6221 387528             Meierhofstr. 1
Fax: +49 6221 387517         D-69117 Heidelberg
-----------------------------------------------