What's wrong in following (from 70th) code?
1 PROGRAM CFDUE
2 ! IMPLICIT REAL (A-C,E-H,O-Z), INTEGER (I-N)
3 INTEGER I,K
4 REAL P,TR,X,Y,R,AL,T54,T56,T55,T1,REK,AIMK,Z,W,T
5 ! DIMENSION Q(100),R(50),P(10)
6 COMMON/AB/Q(100),R(50),P(10)
7 COMPLEX Q,D,D1
8 OPEN (7, FILE='D30.DAT') !
9 OPEN (6, FILE='CYLT.LST') !
10 ! COMPLEX Z,W
11 DATA(P(I),I=5,8) /0.2000001,0.00000001,4.,2./ !
12 TR(X,Y)=COS(X/3.)*(R(5)-Y*R(49))-SIN(X/3.)*REAL(Q(3))
......1
(1) This name has not been declared as an array or a function. [TR]
13 AL(T)=R(6)/(R(49)*(P(1)+(10.**(-17.)))*COS(R(15)))+T
......1
(1) This name has not been declared as an array or a function. [AL]
14 T54(Z)=ABS(Z)-(10.**(-5.))
......1
(1) This name has not been declared as an array or a function. [T54]
15 T56(Z)=ABS(Z)-0.00000001
......1
(1) This name has not been declared as an array or a function. [T56]
16 T55(Z)=ABS(Z)-R(50)
......1
(1) This name has not been declared as an array or a function. [T55]
17 T1(Z)=ABS(Z)-R(40)
......1
(1) This name has not been declared as an array or a function. [T1]
18 D(W)=CEXP((-2.,0)*R(49)*Q(9)*Q(10)*W)
......1
(1) This name has not been declared as an array or a function. [D]
19 D1(W)=(D(W)-1.)/(D(-1.)-1.)
......1
(1) This name has not been declared as an array or a function. [D1]
20 ! 1 READ 1001,(P(I),I=1,4) !
21 1 READ (7,1001,end=2000),(P(I),I=1,4) !
22 1001 FORMAT(4F14.8) !
23 PRINT 1002,(P(I),I=1,4) !
24 1002 FORMAT(///10X,' 22HMODNU,ARGNU,MODZ,ARGZ=',4F14.8) !
25 DO 14 I=1,10
26 R(30+I)=0.
27 14 CONTINUE
.......
.......
.......
Also, program couldn't fully compiled: Compilation Aborted (code1)