module viewm
   ! provides subroutine viewr for NJOY2016
   use locale
   implicit none
   private
   public viewr

   ! common variables

   ! setup1
   real(kr)::xpage,ypage,wline,csize
   integer::lori,istyle,ipcol

   ! setup2
   real(kr)::xll,yll,ww,wh,wr,xg,yg
   integer::iwcol

   ! setup3
   real(kr)::hlab
   integer::n1,n2,nx,ny,nr
   character(80)::t1,t2,xl,yl,rl

   ! setup4
   real(kr)::xmin,xmax,xstp
   real(kr)::ymin,ymax,ystp
   real(kr)::zmin,zmax,zstp
   integer::itype,jtype,igrid,ileg

   ! setup5
   integer::icon,isym,idash,ithick,ishade,iccol

   ! setup6
   real(kr)::xtag,ytag,xpoint,xpt,ypt,hleg
   integer::nleg
   character(80)::aleg

   ! setup7
   real(kr)::x3,y3,z3,xv,yv,zv

contains

   subroutine viewr
   !--------------------------------------------------------------------
   !
   ! View plots generated by plotr, covr, or dtfr.
   ! Postscript version.
   !
   ! Character specifications are similar to DISSPLA, except that
   ! the default case is lower instead of upper.  This allows
   ! mixed-case strings to be used in Postscript mode.  The
