!====>Begin Module DDIAPA                 File t208a.f                  
!---->Makedcls Options: All variables                                   
!
!     External functions
!
  EXTERNAL            TKIOLL
!
  INTEGER             MAX0,        MIN0,        TKIOLL
!
!     Argument variables
!
  INTEGER             IX,          IY
!
!     Local variables
!
  INTEGER             BLANK,       DUMMY
!
!     Common variables
!
  INTEGER             LASTX,       LASTY,       LINEWT,      MAGFAC
  INTEGER             MAXX,        MAXY,        MINX,        MINY
  INTEGER             MOVEX,       MOVEY,       NPATH,       PSXOFF
  INTEGER             PSYOFF
!
  LOGICAL             DVINIT,      IMAGE,       ROTATE,      VILAST
!
  REAL                DSSIZE,      LINEIN,      PLSTEP,      SX
  REAL                SY,          TIMAGE(4,4), XMAX,        YMAX
  REAL                ZMAX
!
  COMMON / DDI01  /   DSSIZE,      LINEIN,      PLSTEP,      SX
  COMMON / DDI01  /   SY,          TIMAGE,      XMAX,        YMAX
  COMMON / DDI01  /   ZMAX,        LASTX,       LASTY,       LINEWT
  COMMON / DDI01  /   MAGFAC,      MAXX,        MAXY,        MINX
  COMMON / DDI01  /   MINY,        MOVEX,       MOVEY,       NPATH
  COMMON / DDI01  /   PSXOFF,      PSYOFF,      DVINIT,      IMAGE
  COMMON / DDI01  /   ROTATE,      VILAST
!
!====>End Module   DDIAPA                 File t208a.f