SUBROUTINE CLOGCUBX 
C    LOG N IS A CUBIC FUNCTION OF HEIGHT   (VERSION FOR COMPLEX SPACE)
      COMMON /CONST/ PI,PIT2,PID2,DEGS,RAD,K,DUM(2) 
      COMMON /XX/ MODX(2),X,PXPR,PXPTH,PXPPH,PXPT,HMAX
      COMMON R(6) /WW/ ID(10),W0,W(400) 
      EQUIVALENCE (EARTHR,W(2)),(F,W(6)), 
     1 (N0,W(101)),(H0,W(102)),(A,W(103)),(PERT,W(150)) 
     2 ,(B,W(104)),(C  ,W(105)),(D,W(106))
      COMPLEX     X,PXPR,PXPTH,PXPPH,PXPT 
      COMPLEX N,H,R,DH
      REAL   N0,K 
      DATA(MODX=8HCLOGCUBX),(HMAX=350.) 
      ENTRY ELECTX
      H=R(1)-EARTHR 
      DH=H-H0 
      N=N0*10.**(D+DH*(C+DH*(B+DH*A)))
      X=K*N/F**2
C     NEED A FORMULA FOR PXPR FOR RAY TRACING 
      IF (PERT.NE.0.) CALL ELECT1 
      RETURN
         END                                                                  -