& SOLV_MAX_ITERS, SOLV_NCHECK, NPSEUDOTIMESTEPS,
INTEGER SOLV_MAX_ITERS, SOLV_NCHECK
ICOUNT1=SOLV_MAX_ITERS
ICOUNT2=SOLV_MAX_ITERS
SOLV_MAX_ITERS = 1500
CALL WRITE_0D_I ( SOLV_MAX_ITERS, INDEX_NONE,