Не могу скомпилировать: "unresolved external symbol"

      SUBROUTINE PARAD
      real*4 e(6)
      REAL*8 FII(6),BB(3),XD,XD2,RED,AA,XAD,XED,zb,psf,ai
      COMMON /KIDAD/U,SK,SI,CO,CMK,PD,PP,ZB
     */VSPAD/RED,AA,XAD,XED,FII
     */KONAD/XD,XD2,BB
     */NPAD/RA,F1,PSF,PSD,PSQ,PSED,PSEQ,PI,DI,QI,EDI,EQI,EF,RF
     */NAPAD/UD,UQ,TET,PHI
     */TPRAD/AI,BI,CI,PRA,PRB,PRC
     */MCAD/PSM
     */OSWAD/AOO(16)
     */PUSKAD/AB(4)
     */BVELAD/AIB(6)
     */ACD/ACD1(42)
      C=-(CO+SI)
      AX=SK*XAD/RED*(1.-XD/(XD-XD2))
      B=XD+XAD*AX
      SK=-SK
      TET=ATAN((-1.+C*B*(1.+SK)+RA*C)/(1.+(CO-SI)*
     *(1.+SK)*B-RA*C))
      EQ=0.
      FI=0.
      EF=0.
      PSS=0.
      RF=0.
      PSF=0.
      PHI=3.1415926
      F1=PHI+ACOS(CO)
      CALL UIDQ
      PSD=-(UQ+RA*QI)/(1.+SK)
      PSQ=(UD+RA*DI)/(1.+SK)
      EDI=(PSD-DI*XD)/XAD
      EQI=(PSQ-XD*QI)/XAD
      PSED=XAD*DI+XED*EDI
      PSEQ=XAD*QI+XED*EQI
      PSM=PSQ*DI-QI*PSD
      SP9=(AOO(1)/PHI)*180.
      WRITE(*, 83)
   83 FORMAT('     !    R=Q[O.E.]     !    HJ[РАД]       !',
     *'MOM. ЭЛ.МАГ.[O.E.]!ИНДУКТ. БАЗ. [ГН] !',
     *'БАЗ. НАПРЯЖЕН. [B]! БАЗ. TOK  [A]    !')
      CALL X6
      AKF=AOO(2)
      AKP=AOO(5)
      BIM=AIB(4)
      UB=AIB(1)
      SP8=AIB(2)
      CALLX8(RED,AKF,PSM,BIM,UB,SP8)
      CALL X6
      WRITE(*, 84)
   84 FORMAT('     !БАЗ. СОПРОТ. [OM] !УГОЛ ГАММА [РАД]  !',
     *'СКОЛЬЖЕНИЕ [O.E.] !ПОТОКОСЦ. D [O.E.]!ПОТОКОСЦ. Q [O.E.]!',
     *'НАПР. ВОЗБ. [O.E.]!')
      CALL X6
      e(2)=sp9
      e(3)=sk
      e(4)=psd
      e(5)=psq
      e(6)=ef
      CALL X8(zb,e(2),e(3),e(4),e(5),e(6))
      CALL X6
      WRITE(*, 85)
   85 FORMAT('     !ПОТ.СЦ. ВОЗБ.[O.E]!',
     *'TOK ПО ОСИ D[O.E.]!TOK ПО ОСИ Q[O.E.]!TOK ДЕМПФ D [O.E.]!',
     *'TOK ДЕМПФ Q [O.E.]!ПОТ.СЦ.ДЕМПФ[O.E.]!')
      CALL X6
      e(2)=di
      e(3)=qi
      e(4)=edi
      e(5)=eqi
      e(6)=psed
      CALL X8(psf,e(2),e(3),e(4),e(5),e(6))
      CALL X6
      WRITE(*, 86)
   86 FORMAT('     !ПОТ. ДЕМ.ПOQ[O.E.]!',
     *'  RЭD X.X.[O.E.]  !  RЭD ПУСК.[O.E.] !CBEPXП. СОП.[O.E.]!',
     *'                  !                  !')
      CALL X6
      WRITE(*, 686)PSEQ,AB(4),AB(3),ACD1(40)
  686 FORMAT('     !',G18.10,'!',G18.10,'!',G18.10,'!',G18.10,'!',
     *'                  !                  !')
      CALL X6
      WRITE(*, 87)
   87 FORMAT('     !TOK B ФАЗЕ A [A]  ! TOK B ФАЗЕ B [A] !',
     *' TOK B ФАЗЕ C [A] !ПР.TOKA B A[A/CEK]!ПР.TOKA B B[A/CEK]!',
     *'ПР.TOKA B C[A/CEK]!')
      CALL X6
      e(2)=bi
      e(3)=ci
      e(4)=pra
      e(5)=prb
      e(6)=prc
      CALL X8(ai,e(2),e(3),e(4),e(5),e(6))
      CALL X7
      ACD1(14)=AOO(2)
      ACD1(15)=PSM
      ACD1(16)=BIM
      ACD1(17)=UB
      ACD1(18)=AIB(2)
      ACD1(19)=ZB
      ACD1(20)=AB(4)
      ACD1(21)=AB(3)
      ACD1(22)=AOO(1)
      ACD1(23)=SK
      ACD1(24)=PSD
      ACD1(25)=PSQ
      ACD1(26)=EF
      ACD1(27)=PSF
      ACD1(28)=DI
      ACD1(29)=QI
      ACD1(30)=EDI
      ACD1(31)=EQI
      ACD1(32)=PSED
      ACD1(33)=PSEQ
      ACD1(34)=AI
      ACD1(35)=BI
      ACD1(36)=CI
      ACD1(37)=PRA
      ACD1(38)=PRB
      ACD1(39)=PRC
      RETURN
      END