REP 3/1 ;17C1 TV FOROTS Fortran object time system,10(4174) WIT TV FOROTS Fortran object time system,10(5034) INS 307/1 ;17C2 ***** End V11 Development ***** 5034 JB 16-APR-87 IFS FUNCT. clears device argument (I.DEV), it shouldn't. ROUTINE INISF1 REP 470/1 ;17C3 BLT T1,%JIBLK+.PTMAX WIT BLT T1,%JIBLK+.PTMAX-1 ;[5034] SUM 33071