!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
!
define character parg*32 pkind*32
!
! Analyse possible input parameter and modify plot%kind and type accordingly
if (pro%narg.eq.1) then
   let parg 'pro%arg[1]' /lower
   if (parg.eq."view") then
      let plot%kind 'parg'
   else if (parg.eq."bit") then
      let plot%kind "nice"
   else if (parg.eq."dirty") then
      let type lmv
   else if ((parg.eq."lmv").or.(parg.eq."beam").or.(parg.eq."lobe").or.(parg.eq."fields")) then
      let type 'parg'
   else if ((parg.eq."clean").or.(parg.eq."res").or.(parg.eq."diff").or.(parg.eq."sky")) then
      let type "lmv-"'parg'
   else if (parg.eq."cct") then
      ! Does nothing
   else
      message e plot "Unknown first parameter: "'parg'
      return base
   endif
endif
!
! Define local plotting procedure
if (parg.eq."cct") then
   let pkind "cct"
else if ((type.eq."lobe").or.(type.eq."fields")) then
   let pkind "nice"
else if (type.eq."beam") then
   let pkind "plotbeam"
else
   let pkind 'plot%kind'
endif
!
! Plot
@ p_'pkind'
!
!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
