subroutine sobstr(stcprm, p_lat, p_lon)
C*
C*  Set Map Parameters for an OBlique STeReographic Projection
C*  Inputs: p_lat,P_lon - latitude and longitude of the
C*          projection pole (tangent point)
C*  Outputs: stcprm - map parameters
C*/
      dimension stcprm(15)
      call mpstrt(stcprm, 90., p_lat,p_lon, p_lat-90.,p_lon)
      return
      end