C ECHO DQDRV MESSAGES(XQECHO.FTN) C C C PAUL ELKINS C C LOS ALAMOS NATIONAL LAB. C PO BOX 1663 MS-J957 C LOS ALAMOS NM 87545 C 505 667 3502 C PARAMETER LX=1500/2 !MAXIMUM PACKET SIZE(WORDS) C IMPLICIT INTEGER(A-Z) INTEGER BUF(LX),PRM1(6),PRM2(6),IOSB1(2),IOSB2(2) DATA L1/1/RLB/"1000/WLB/"400/REF/1/XEF/2/ C CALL GETADR(PRM1,BUF(1)) CALL GETADR(PRM2,BUF(1)) PRM1(2)=LX*2 PRM2(2)=60 10 CALL QIO(RLB,L1,REF,,IOSB1,PRM1,IDS) IF(IDS.NE.1)TYPE *,'XQECHO REC IDS=',IDS CALL WAITFR(REF) TEMP=BUF(3) BUF(3)=BUF(6) BUF(6)=TEMP TEMP=BUF(9) BUF(9)=BUF(11) BUF(11)=TEMP TEMP=BUF(10) BUF(10)=BUF(12) BUF(12)=TEMP PRM2(2)=IOSB1(2) IF(PRM2(2).LT.60) PRM2(2)=60 IF(IOSB1(1).NE.1) TYPE 100,IOSB1,(BUF(I),I=1,24) CALL QIO(WLB,L1,XEF,,IOSB2,PRM2,IDS) IF(IDS.NE.1)TYPE *,'XQECHO XMIT IDS=',IDS GOTO 10 100 FORMAT(' XQECHO REC IOSB,BUFFER=',2O7,3(/,8O7)) 101 FORMAT(' XQECHO XMIT IOSB=',2O7) END