! @ p_show_map.ima NAME
!   Display the IMAGE-like variable NAME using the "SHOW" facility
if (.not.exist(&1)) then
  Message E SHOW "No such variable &1"
  let mapping_error yes
  return 
endif
if (rank(&1).lt.2)  then
  Message E SHOW "Variable &1 is less than 2-D"
  let mapping_error yes
  return 
endif
if (.not.exist(&1%EXTREMA)) then
  Message E SHOW "Variable &1 has no assigned extrema"
  let mapping_error yes
  return 
endif
!
gtvl\clear directory 
let PopupName MAP
!
let header_name_type "(&1)" /Upper
symbol HAS_CHANGED NO
!
let verify sic%verify /new log
sic verify off
!!@ p_scale  &1           ! Scaling
!!@ p_level  &1           ! Contour levels
@ p_lmv_map &1 1 &2 &3  ! Effective drawing (also set Scaling and Levels)
!
symbol drawn &1%
if verify sic verify on
