SUBROUTINE READW(iproc,weifn) USE param USE struct USE com implicit real*8 (a-h,o-z) character*80 weifn,fname k=0 iloop=0 778 continue if(IPROC.GT.0) then iloop=iloop+1 close(26) call mknam(FNAME,weifn,ILOOP) open(26,FILE=FNAME,STATUS='old',form='UNFORMATTED',ERR=951) endif READ(26)Ea 10 READ(26,end=4000)nek k=k+1 READ(26)(weigh(k,nn),nn=1,nek) GOTO 10 4000 CONTINUE IF(ILOOP.LT.IPROC) goto 778 return 951 write(6,*) 'error:',FNAME CALL OUTERR('QTL','readw file open error') end