C     INCLUDE FILE FOR ROUTINES THAT CALL HGRAPH
      INTEGER PENPOSX,PENPOSY,NEUTTOTAL
      COMMON/TOTALNEUT/NEUTTOTAL
      COMMON/PENPEN2/PENPOSX,PENPOSY
      LOGICAL EXIS27,OPEN27
      LOGICAL EXIS28,OPEN28
      COMMON/TWENTY7/OPEN27,EXIS27
      COMMON/TWENTY8/OPEN28,EXIS28
      CHARACTER OUTNEUT*80
      COMMON/NEUTOUT/OUTNEUT
      LOGICAL NODRAW,NOWMF
      COMMON/DRAWNO/NODRAW,NOWMF
      LOGICAL DOENDPLT
      COMMON/ENDPLOTTER/DOENDPLT
      REAL*8 POLDX,POLDY,POLDZ,PCURX,PCURY,PCURZ,PNEWX,PNEWY,PNEWZ
      COMMON/PENMOVER/POLDX,POLDY,POLDZ,PCURX,PCURY,PCURZ,PNEWX,
     1 PNEWY,PNEWZ
C
C     USER DEFINED FAN AXIS PLOTS
      INTEGER FANAXX,FANAXY
      COMMON/AXISFANS/FANAXX,FANAXY
C
C     SIZE OF NETARRAY
      INTEGER MAXNEUTRAL
      COMMON/NEUTMAX/MAXNEUTRAL
C
        LOGICAL NEUTFILE
        COMMON/FILENEUT/NEUTFILE
C
        CHARACTER PLOTNOTE*80
        COMMON/NOTEPLOT/PLOTNOTE
C
C       RANGE OF USER-DEFINED PLOTS
        INTEGER UIXSTART,UIXSTOP,UIYSTART,UIYSTOP
        COMMON/USERSTARTSTOP/UIXSTART,UIXSTOP,UIYSTART,UIYSTOP
C
C       X AND Y NUMBER OF TICKS
        REAL UUDX,UUDY
        COMMON/USERXYDF/UUDX,UUDY
C
