dl_init Subroutine

subroutine dl_init(xmax0,ymax0,vpx,vpy,zom)
!
!     ROUTINE TO INITIALIZE THE LONGLIB GRAPHICS PLOT PACKAGE
!
!     FORTRAN-77 VERSION:   DGL JULY, 1987
!     xmin,xmax,ymin,ymax -- size in inches that the library  will simulate as the display size
!
!     VPX,VPY -------------- COORDINATES OF BOTTOM LEFT ORIGIN
!     ZOM   ---------------- ZOOM FACTOR
!
use M_pixel
implicit none
real :: vpx
real :: vpy
real :: xmax
real :: xmax0
real :: ymax
real :: ymax0
real :: z
real :: zom

   z=zom
   xmax=xmax0
   ymax=ymax0
   call page(0.0,xmax,0.0,ymax)
   xminq=0.0
   yminq=0.0
   xmaxq=xmax
   ymaxq=ymax

   call color(0)
   call clear()
   call color(7)

   translatexq=vpx         ! ORIGIN X
   translateyq=vpy         ! ORIGIN Y

   scaleq=abs(z)      ! SCALE FACTOR
   if (scaleq.le.0.0) scaleq=1.0

   angleq=0.0       ! PLOTTING ANGLE ROTATION

   xlastscaleq=0.0         ! LAST POINT PLOTTED
   ylastscaleq=0.0

   ! set the VIEWPORTQ() ARRAY
   call dl_viewport(-999.0,999.0,-999.0,999.0)
   call dl_color(7) ! INITIALIZE LINE COLOR
end subroutine dl_init