subroutine axisrt (vec, phi, vecpm)
c
c-----------------------------------------------------------------------
c
c     This routine does an axis rotation through angle phi from vec
c     system to vecpm system
c
c     written by jim green / msfc es53 / sometime in 1981
c
c-----------------------------------------------------------------------
c
      dimension vec(3), vecpm(3)
c
c-----------------------------------------------------------------------
c-----------------------------------------------------------------------
c
      radeg = 3.14159 / 180.0
      phir = phi * radeg
      cosp = cos(phir)
      sinp = sin(phir)
      vecpm(1) = vec(1) * cosp + vec(2) *  sinp
      vecpm(2) = vec(2) * cosp - vec(1) * sinp
      vecpm(3) = vec(3)
c
c-----------------------------------------------------------------------
c-----------------------------------------------------------------------
c
      return
      end