SUBROUTINE RGROPN (FILE, LUNITR, LUNITS, DEVUIC) C***************************************************************************** C C Description : Routine to open a RGR-library file C C Arguments : FILE = STRING containing the file-name without extension C (max. 26 characters) C LUNITR = INTEGER logical unit number of RGR-library file C LUNITS = INTEGER logical unit number of page lay-out workfile C DEVUIC = STRING containing the devicename and/or UIC of the C workfile (max. 13 characters) C C Author : F.A.Minkema C AKZO PHARMA, Oss Holland C dept. SDA C C Version : V2.0 Date : 10-jun-1983 C C Module name : RGROPN.FTN C C Package : TRAMP C C Compilation/Linking : FOR/F4P/TR:NONE RGROPN C C Updates : name version C C description : C C***************************************************************************** C BYTE DEVNAM,OFNTAB,SETPAG,SETSCR,DAT,TIM, 1 TEXREC,DATREC,RREC,SBUF,WPGREC COMMON/RGRCOM/NUNITR,NUNITS,NOS,MNOS,NUCTAB(4,4), 1 MAXBUF,NFRXR,LENREC,NPAG,NWPGR,NWPGC,NFXHL, 2 NRNXRE,NRFFTR,NRLFTR,NRFRTR,NRLRTR,NRFRDR,NRLRDR, 3 IPHLEN,LOGLEN,LOGWID,NRFLDW,NRLLDW,NRDATE,NCDATE, 4 NRTIME,NCTIME,NRPAGE,NCPAGE,NRRELS,NCRELS, 5 DEVNAM(14),SETPAG(6),SETSCR(6),DAT(10),TIM(10), 6 OFNTAB(32,4),TEXREC(40),DATREC(40),RREC(40), 7 SBUF(120),WPGREC(133) C C general info record C VNR ! version number C IFYPAL ! physical page length C IFYWID ! physical page width C NRFSRE ! rec.nr. first report C SETPAG ! esq.seq: set screen to 132 positions C SETSCR ! esq.seq: reset screen to 80 positions C C BYTE FILE(1),PROG(8),REXFIL(32) DATA PROG/'R','G','R','O','P','N',2*0/ C C generate complete file-name and open C CALL SCOPY(FILE,REXFIL,26) CALL SCOPY('.REX',REXFIL(LEN(REXFIL)+1)) OPEN (UNIT=LUNITR,NAME=REXFIL,TYPE='OLD', 1 ACCESS='DIRECT',RECORDSIZE=10) C C read general info record for initialization C READ (LUNITR'1) VNR,IFYPAL,IFYWID,NRFSRE,SETPAG,SETSCR IF (VNR.NE.'V2.0') GOTO 9020 IPHLEN=-1 MAXBUF=40 NUNITR=LUNITR NUNITS=-LUNITS ! initial value negative for detection in RGRPOS CALL SCOPY(DEVUIC,DEVNAM,13) NRNXRE=NRFSRE NWPGR=0 MNOS=4 NOS=0 DO 10 I=1,MNOS OFNTAB(1,I)=0 DO 10 J=1,4 NUCTAB(J,I)=0 10 CONTINUE CALL DATE(DAT) ! get date DAT(10)=0 CALL TIME(TIM) ! and time TIM(9)=0 NPAG=1 C C go back to calling routine C RETURN C C errors C 9020 CALL FATAL(PROG,'Invalid version RGR-library file') END