      SUBROUTINE DRUK(EPS,PLN,Q,PS,QF,KDT)
CJPB  DOUBLE PRECISION EPS,COL
      DOUBLE PRECISION EPS,COL(21)
      DIMENSION EPS( 306 ),PLN( 306 )
      DIMENSION PS( 50 ),QF( 50 ),PRS(12)
      COMPLEX Q( 289 )
      DATA IFIR/0/
      LON1=1
      LON2= 50 /4
      LON3=2*LON2
      LON4=3*LON2
C
      PI6=0.523598
      TENDEG=0.174533
C
      LAT=1
      I=-4
      IF(IFIR.EQ.0) WRITE(6,99)LON1,LON2,LON3,LON4
99    FORMAT(1H0,' LON1...LON4 ',4(I4,2X))
      DO 1000 LA=1,3
      COLR=TENDEG+(LA-1)*PI6
CJPB  COL=COLR
      COL(LAT)=COLR
      IF(IFIR.EQ.0) WRITE(6,98)COLR
98    FORMAT(1H0,'COLR=',E12.4)
      CALL PLN2(PLN,COL,LAT,EPS)
      CALL SUMPLS(Q,PS,QF,PLN)
      CALL FFS99(PS,QF,1)
      I=I+4
      PRS(I+1)=10.*EXP(PS(LON1))
      PRS(I+2)=10.*EXP(PS(LON2))
      PRS(I+3)=10.*EXP(PS(LON3))
      PRS(I+4)=10.*EXP(PS(LON4))
1000  CONTINUE
      WRITE(6,100)KDT,(PRS(I),I=1,12)
100   FORMAT(1H ,'KDT=',I3,2X,12(F7.1,1X))
      IFIR=1
      RETURN
      END
