!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
!
! GREG emulation of MVIEW. Called by GO VIEW
!
!   Calls p_view_sub.greg, which is also
!   called by Mapping, but with a different header (W% instead of VUE%)
!
!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
!
@ p_name.greg ! Check name and type variables
!
if (.not.exist(do_write)) then
   define logical do_write /global
endif
if (pro%narg.ge.1) then
  let do_write &1
else
  let do_write no
endif
if (do_write) then
  sic copy 'name'"."'type' 'name'"-mod."'type'
  let name 'name'"-mod"
  @ p_load.greg vue write
else
  @ p_load.greg vue
endif
!
! Get contour levels
@ p_scale.greg  vue
@ p_level.greg  vue
!
@ p_view_sub.greg vue
