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