subroutine map_xy(stcprm, x_map, x, y)
      dimension stcprm(15),x_map(3)
        call map_xe(stcprm, x_map, xi, eta, 'c')
        call xe_xy(stcprm, xi, eta, x, y)
        return
      end