SUBROUTINE RNAME
C			FILE: ADTAPE:RPARM.FT
	COMMON NDEV,NDE2,N1,N2,N3,N4,NBLK,NMAX,NLEN
	COMMON NEW,NSAM,NDIS,NADC,NADCS
	COMMON NSPB,NCAL,JC,IC,JB,IB
	COMMON NBI,NII,NBF,NIF
	DIMENSION NADCS(8)
C
	DIMENSION NF(8),NF2(7),NF3(6),NF4(5),NF5(4),NF6(3),NF7(2)
	DIMENSION NS(4),NS2(3),NS3(2)
	DIMENSION NADCH(16),NCL(2)
	EQUIVALENCE(NF(8),NF2(7),NF3(6),NF4(5),NF5(4),NF6(3),NF7(2),NF8)
	EQUIVALENCE(NS(4),NS2(3),NS3(2),NS4)
C
50	IC=178
	NF =N1/64
	NF2=IREM(0)
	NF3=N2/64
	NF4=IREM(0)
	NF5=N3/64
	NF6=IREM(0)
	NF7=N4/64
	NF8=IREM(0)
	DO 57 J=1,8
	JC=138+10*J
	CALL DPARM(M,K)
	GOTO(60,60,51,57,54,52)K
51	J=J-2
	IF(J)50,57,57
52	IF(M)58,53,53
53	M=M-64
	IF(M+22)54,54,58
54	NF(J)=M+48
	IF(NEW)56,55,56
55	CALL CFILE(0)
56	N1=64*NF +NF2
	N2=64*NF3+NF4
	N3=64*NF5+NF6
	N4=64*NF7+NF8
	NEW=-1408
57	CONTINUE
	GOTO 50
58	DO 59 J=J,8
59	NF(J)=32
	J=6
	M=NF6-48
	GOTO 54
C
60	IF(NEW)62,72,71
62	NBLK=LFILE(NDEV,N1,NMAX)
	IF(NBLK)65,64,64
64	NEW=1984
	GOTO 50
65	NBLK=MFILE(NDEV,N1,NMAX)
	NEW=0
	NLEN=0
	NBI=1
	NII=1
	NBF=1
	NIF=1
	IF(NBLK)66,50,50
66	NEW=-64
	GOTO 50
C
71	CALL RFILE(1,NBLK,NLEN)
72	IF(K-1)73,73,75
73	CALL RPARM
C
75	IF(NLEN)75,76,77
76	NLEN=1
	NDIS=-2
	NSPB=NADC*(248/NADC+1)
	CALL RFILE(-1,NBLK,NLEN)
77	CALL MODE
C
C======================================
C
C	SUBROUTINE RPARM
SENTRY	RPARM
SRPARM,	BLOCK 2
C
C	CONVERT NSAM
	NS =NSAM/1000
	NS2=IREM(0)/100
	NS3=IREM(0)/10
	NS4=IREM(0)
C
C	CONVERT CHANNEL NUMBERS
	NADC2=2*NADC
	DO 19 I=1,NADC2
	NADCH(2*I-1)=NADCS(I)/8
	K=IREM(0)
19	NADCH(2*I)=K
C
C*** DPARM: K= CR, ALT, RO, SP, DIGIT, ELSE
C
C*** SAMPLE RATE XXXX MS
20	IC=114
	DO 25 J=1,4
21	JC=158+10*J
	CALL DPARM(M,K)
	GOTO(30,75,22,25,23,21)K
22	J=J-1
	IF(J)20,20,21
23	NS(J)=M
	NSAM=NS4+10*(NS3+10*(NS2+10*NS))
	NLEN=0
25	CONTINUE
C
C*** # OF CHANNELS X
30	IC=50
	JC=188
	CALL DPARM(M,K)
	GOTO(40,75,20,40,31,30)K
31	IF(M)30,30,32
32	IF(8-M)30,33,33
33	NADC=M
	NADC2=M*2
	NLEN=0
C
C*** CHANNELS: XX XX XX XX XX XX XX XX
40	IC=-14
	DO 46 J=1,NADC2
41	JC=133+10*(J+(J-1)/2)
	CALL DPARM(M,K)
	GOTO(80,75,42,46,43,41)K
42	J=J-1
	IF(J)30,30,41
43	IF(7-M)41,44,44
44	NADCH(J)=M
	NLEN=0
	DO 45 I=1,NADC
45	NADCS(I)=NADCH(I*2)+8*NADCH(2*I-1)
46	CONTINUE
C
C*** # CAL XX
80	CONTINUE
	IC=-78
	DO 86 J=0,1
81	JC=108+10*J
	CALL DPARM(M,K)
	GOTO(20,75,82,86,83,81)K
82	J=J-1
	IF(J)40,81,81
83	NCL(J+1)=M
	NCAL=NCL*10+NCL(2)
	NLEN=0
86	CONTINUE
	GOTO 20
	END