SUBROUTINE WRITER(IB)
C WRITES RECORD IN IB ON DISK AT LSR
DIMENSION IPARF(10), IFRMTF(3,1)
COMMON IPARF, IFRMTF
DIMENSION IB(10)
IF(IPARF(6)-IPARF(4))1,1,2
1 IF(IPARF(6)-IPARF(2))2,3,3
3 CALL DIO(IPARF(6),0,IB,IPARF(5))
RETURN
2 TYPE 100,IPARF(6),IPARF(1)
100 FORMAT(12HOUTSIDE FILE,I10,1X,A5)
CALL EXIT
END