subroutine stlmbr(stcprm, reflat, reflon)
C*
C*  Set Map Parameters for a North Polar LaMBeRt Conic Conformal
C*    Projection
C*  Inputs: reflat - tangent latitude of the tangent latitude of
C*                   cone.
C*          reflon - midrange longitude (180 degrees from cut)
C*  Outputs: stcprm - map parameters
C*/
      real stcprm(15)
      CALL mpstrt(stcprm,reflat,90.,reflon,0.,reflon)
      return
      end

      subroutine stcmap(stcprm, tnglat, reflon)
C*
C*  Set Map Parameters for a North Polar LaMBeRt Conic Conformal
C*    Projection
C*  included for compatibliity with previous version
C*  Inputs: tnglat - tangent latitude of the tangent latitude of
C*                   cone.
C*          reflon - midrange longitude (180 degrees from cut)
C*  Outputs: stcprm - map parameters
C*/
      real stcprm(15)
      CALL mpstrt(stcprm,tnglat,90.,reflon,0.,reflon)
      return
      end