      SUBROUTINE TRACE(SLAT,SLONG,SHGT,RLAT,RLONG,RHGT,DIST,DATE,IHEM)
      COMMON /STEPP/LCT,Y,YOLD,BN,BE,BV,B,ST,SGN,D
      DATA RAD/57.2958/
      DIMENSION Y(3),YOLD(3)
      Y(1)=SHGT
      Y(2)=SLAT
      Y(3)=SLONG
      L=0
      SGN=IHEM
      D=DIST/10.
      ST=COS(SLAT/RAD)
      DO 10 LCT=1,14
      CALL FIELDG(Y(2),Y(3),Y(1),DATE,10,L,BN,BE,BV,B)
   10 CALL STEP
      RLAT=Y(2)
      RLONG=Y(3)
      RHGT=Y(1)
      RETURN
      END
