!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
!
! View Cuts along the 3 major directions of a 3-D data cube
!
! Called by
!
! GO 3VIEW
!   Calls p_3view_sub, which is also called by IMAGER
!   but with different headers (any 3-D buffer specified)
!
!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
!
@ p_name    ! Check name and type variables
!
if .not.exist(ActiveVariable) define character ActiveVariable*32 /global
!
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 vue "" write
else
  @ p_load vue ActiveVariable
endif
!
! Get contour levels
@ p_scale  'ActiveVariable'
@ p_level  'ActiveVariable'
!
@ p_3view_sub  'ActiveVariable'


