FTN4,L C C *************************************************************** C * (C) COPYRIGHT HEWLETT-PACKARD COMPANY 1979. ALL RIGHTS * C * RESERVED. NO PART OF THIS PROGRAM MAY BE PHOTOCOPIED, * C * REPRODUCED OR TRANSLATED TO ANOTHER PROGRAM LANGUAGE WITHOUT* C * THE PRIOR WRITTEN CONSENT OF HEWLETT-PACKARD COMPANY. * C *************************************************************** C C SOURCE PART NUMBER :92067-18414 C C RELOCATABLE PART NUMBER : 92067-16361 C C PROGRAMER(S) : J.M.N. C C C C C READ FROM "LIST" LU OR FILE C C C CALLING SEQUENCE C CALL ACREL(IBUF,NO,LEN,IERR) C C WHERE: IBUF IS OUTPUT BUFFER C NO IS NUMBER WORDS IN BUFFER C LEN IS LENGTH OF BUFFER RETURNED C C SUBROUTINE ACREL(IBUF,NO,LEN,IERR) ,92067-16361 REV.1940 781212 DIMENSION LU2(2) COMMON /ACOM1/NDCB(272),NBUF(256),MBUF(256) COMMON /ACOM3/LIST(10),LDCB(144),LLIST,LLDCB(144),ITTY,ITDCB(144) DIMENSION IBUF(2) IF(IERR.EQ.-12) RETURN LU2(2)=LIST(2) IF(LIST(4).LT.0) GO TO 200 IF(LIST(4).EQ.3) GO TO 100 C C READ FROM LU C LU2(1)=IOR(LIST,100000B) CALL XLUEX(1,LU2,IBUF,NO) CALL ABREG(IA,LEN) IF(LEN.EQ.0) IERR=-12 RETURN C C READ FROM FILE C 100 CALL READF(LDCB,IERR,IBUF,NO,LEN) RETURN C C READ FROM +@CCT! FILE C 200 CALL READF(NDCB,IERR,IBUF,NO,LEN) RETURN END