COMMON /SEED/JSEED,IFRST,NEXTN
INTEGER JSEED,IFRST,NEXTN
WRITE(334,*) JSEED,IFRST,NEXTN
NEXTN = JSEED