!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
!
! p_map.greg
!
!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
!
if (pro%narg.eq.2) then
  let first &1
  let last &2
else if (pro%narg.eq.1) then
  let first &1
  let last &1
endif
!
define logical onice obit owedge ocontour
let onice    do_nice
let obit     do_bit
let owedge   do_wedge
let ocontour do_contour
!
let do_nice    no
let do_bit     no
let do_wedge   no
let do_contour yes
!
@ p_lmv.greg
!
let do_nice    onice
let do_bit     obit
let do_wedge   owedge
let do_contour ocontour
!
!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
