C       MAIN PROGRAM INCLUDE FILE
C
C     FIGURE TITLE
      CHARACTER FIGTITLE*141
      COMMON/TITLEFIG/FIGTITLE
C
      LOGICAL APPEND,ALLSET
C
      COMMON/SETALL/ALLSET
C
      COMMON/REEPER/APPEND
C
        CHARACTER INPUT*140,AA*20,BB*8,CNULL*75
        COMMON/JK_CHAR/INPUT,AA,BB,CNULL
C
C     OUTLYNE*140 AND THE COMMON BLOCK REPLWRIT ARE USED TO REPLACE
C     ALL CALLS TO WRITE WITH CALLS TO THE SUBROUTINE SHOWIT.FOR
C     ADDED 12/18/95
      CHARACTER*153 OUTLYNE
      CHARACTER*256 OUTLYNE_LONG
      COMMON/REPLWRIT/OUTLYNE,OUTLYNE_LONG
C
C     CONTROLS THE "SHOW" CMD LEVEL COMMAND
        LOGICAL SHOW,ASHOW
        COMMON/SHOWER/SHOW,ASHOW
C
        LOGICAL HALT2,HT,HALTING
C
      COMMON/HALTT/HT,HALTING
C
        COMMON/HHALTT/HALT2
C
        LOGICAL KILOPT
        COMMON/OPTKIL/KILOPT
C
        CHARACTER LIBLEN*80,LIBMAC*80,LIBTRA*80,OLIBMAC*80
     1  ,LIBSPO*80,LIBGLA*80,LIBAUT*80,LIBPLO*80,MYEDIT*80,DIRLEN*80
C
        COMMON/EDTEDT/MYEDIT
C
        COMMON/FLXCFG/LIBLEN,LIBMAC,LIBTRA,LIBSPO,LIBGLA,LIBAUT
     1  ,LIBPLO,DIRLEN,OLIBMAC
C
        LOGICAL HEADIN
C
        COMMON/HDINGS/HEADIN
C
        REAL*8 PII,TWOPII,HALFPII
        REAL RPII,RTWOPII,RHALFPII
C
        COMMON/PPIIEE/PII,TWOPII,HALFPII,RPII,RTWOPII,RHALFPII
C
C     LATEST STUFF
C
        CHARACTER WC*8,WQ*8,WS*80
C
        COMMON/CNTLCH/WC,WQ,WS
C
        INTEGER SB1,SB2,SC1,SC2,SQ,SST,S1,S2,S3,S4,S5,
     1  DF1,DF2,DF3,DF4,DF5,SN,STI
C
        REAL*8 W1,W2,W3,W4,W5
C
        COMMON/CNTLNM/W1,W2,W3,W4,W5,SB1,SB2,SC1,SC2,SQ,SST,
     1  S1,S2,S3,S4,S5,DF1,DF2,DF3,DF4,DF5,SN

        INTEGER ECH,IN,OUT,NRECL
C
        INTEGER W1CODE,W2CODE,W3CODE,W4CODE,W5CODE
C
        COMMON/CODEWW/W1CODE,W2CODE,W3CODE,W4CODE,W5CODE
C
        INTEGER
     1  F1,F2,F3,F4,F5,F6,F7,F8,F9,F10,F11,F12,F13,F14,F15,F16,
     2  F17,F18,F19,F20,F21,F22,F23,F24,F25,F26,F27,F28,F29,F30,
     3  F31,F32,F33,F34,F35,F36,F37,F38,F39,F40,F41,F42,F43,F44,
     4  F45,F46,F47,F48,F49,F50,F51,F52,F53,F54,F55,F56,F57,F58,F59
     5  ,F60,F61,F62,F63,F64,F65,F66,F67,F68,F69
     6  ,F70,F71,F72,F73,F74,F75,F76,F77,F78,F79
     7  ,F80,F81,F82,F83,F84,F85,F86,F87,F88,F89
     8  ,F90,F91,F92,F93,F94,F95,F96,F97,F98,F99,F100

        COMMON/FLAGS/
     1  F1,F2,F3,F4,F5,F6,F7,F8,F9,F10,F11,F12,F13,F14,F15,F16,
     2  F17,F18,F19,F20,F21,F22,F23,F24,F25,F26,F27,F28,F29,F30,
     3  F31,F32,F33,F34,F35,F36,F37,F38,F39,F40,F41,F42,F43,F44,
     4  F45,F46,F47,F48,F49
     5  ,F50,F51,F52,F53,F54,F55,F56,F57,F58,F59
     6  ,F60,F61,F62,F63,F64,F65,F66,F67,F68,F69
     7  ,F70,F71,F72,F73,F74,F75,F76,F77,F78,F79
     8  ,F80,F81,F82,F83,F84,F85,F86,F87,F88,F89
     9  ,F90,F91,F92,F93,F94,F95,F96,F97,F98,F99,F100
C
      COMMON/RECLL/NRECL
C
        COMMON/MAINIO/IN,OUT,ECH
C
      COMMON/KUERRY/STI
C
C     PREVIOUS STUFF(USED TO REMEMBER PREVIOUS VALUES IN SPECIAL CASES)
C
        CHARACTER P_WC*8,P_WQ*8,P_WS*80
C
        COMMON/PNTLCH/P_WC,P_WQ,P_WS
C
        INTEGER P_SB1,P_SB2,P_SC1,P_SC2,P_SQ,P_SST,P_S1,P_S2,
     1  P_S3,P_S4,P_S5,
     1  P_DF1,P_DF2,P_DF3,P_DF4,P_DF5,P_SN,P_STI
C
        REAL*8 P_W1,P_W2,P_W3,P_W4,P_W5
C
        COMMON/PNTLNM/P_W1,P_W2,P_W3,P_W4,P_W5,P_SB1,P_SB2,P_SC1,
     1  P_SC2,P_SQ,P_SST,
     1  P_S1,P_S2,P_S3,P_S4,P_S5,P_DF1,P_DF2,P_DF3,P_DF4,P_DF5,P_SN
C
        INTEGER P_ECH,P_IN,P_OUT
C
        COMMON/PAINIO/P_IN,P_OUT,P_ECH
C
        COMMON/PUERRY/P_STI
C
C     REGISTERS BOTH NAMED AND NUMBERED GENERAL PURPOSE
C
        REAL*8 REG(1:50)
C
        COMMON/MEMORY/REG
C
        REAL*8 GPREG(0:100000)
C
        CHARACTER AGPREG(0:100000)*140
C
        COMMON/MEM2/GPREG
C
        COMMON/AMEM2/AGPREG
C
        CHARACTER WFORM*80,LFORM*141
C
        COMMON/WWFOR/WFORM,LFORM
C
C     RADUNITS 1=WATTS, 2=PHOTONS
      INTEGER RADUNI
C
      COMMON/RDUNI/RADUNI
C
      LOGICAL MORANT
C
      COMMON/BREAKER/MORANT
C
C     PARALLEL AND SERIAL PORT NAMES
C
      CHARACTER*4 PARPORT,COMPORT
      COMMON/PORTER/PARPORT,COMPORT
C
      LOGICAL GOOY
      COMMON/LOTAGOO/GOOY
C
C     OUTFILE NAME
      CHARACTER OFILN*80,LASTFIL*80
      COMMON/OOFILNN/OFILN,LASTFIL
      CHARACTER CMDLINE*127
      COMMON/LINECMD/CMDLINE
C
C     TEXT FRONT AND BACK COLORS
      INTEGER IFRONT,IBACK
      COMMON/TEXTCOLORS/IFRONT,IBACK
C
C     THE NEXT VARIABLES ARE USED TO SEE IF THE LAST COMMAND WORD
C     WAS FOB OR NOT TO SUPPORT MULTI FOV IN MTF ANALYSES
C
        CHARACTER LASTCOMWRD*8
C
        LOGICAL LASTWASFOB
C
        COMMON/LASTCOM/LASTCOMWRD,LASTWASFOB
      INTEGER ID_SYSTEM
      COMMON/SYSTEMID/ID_SYSTEM
C
C     OPTIMIZATION AUTOMATIC RE-INITIALIZATION
      INTEGER OPTM_INIT
      COMMON/INITOPTIM/OPTM_INIT
C
C     NEAR/FAR FOR OTF CALCS
      INTEGER NEAR_FAR
      COMMON/NEARER/NEAR_FAR
C
C     THESE LINES SUPPORT THE 50 LEVELS OF INPUT SAVE AND RECALL IN KDP
      LOGICAL REST_KDP(1:200)
      COMMON/KDPREST/REST_KDP
      LOGICAL SAVE_KDP(1:200)
      COMMON/KDPSAVE/SAVE_KDP
      LOGICAL RESTINPT
      LOGICAL SAVEINPT
      EXTERNAL RESTINPT
      EXTERNAL SAVEINPT
C
C     MIN/MAX REGISTERS
      REAL*8 MIN_REG(1:100),MAX_REG(1:100)
      COMMON/MINMAX_REG/MIN_REG,MAX_REG
C
      LOGICAL PLOTCAPCON,PLOTPSFCON,PLOTINTENCON
      COMMON/CAPCON/PLOTCAPCON,PLOTPSFCON,PLOTINTENCON
C
C     VARIABLES USED IN PENMV1.FOR
      LOGICAL FIXUP
      COMMON/UPFIX/FIXUP
C     3-D LINE PLOTTING VARIABLES (9/4/2001)
      REAL*8 LX1,LX2,LY1,LY2,LZ1,LZ2
      COMMON/THREEDEELINE/LX1,LX2,LY1,LY2,LZ1,LZ2
      LOGICAL NORAYPLOT
      COMMON/TDRAY/NORAYPLOT
      LOGICAL MACFAILURE
      COMMON/FAILMAC/MACFAILURE
C
C       USER VECTOR OPERATIONS
        DOUBLE PRECISION AXVEC,AYVEC,AZVEC,BXVEC,BYVEC,BZVEC
        DOUBLE PRECISION CXVEC,CYVEC,CZVEC
        COMMON/VEC/AXVEC,AYVEC,AZVEC,BXVEC,BYVEC,BZVEC
     1  ,CXVEC,CYVEC,CZVEC
C
        LOGICAL ALLSTOP
        COMMON/STOPPER/ALLSTOP
C
        LOGICAL GUIERROR
        COMMON/ERRORGUI/GUIERROR

        character HOME*40
        common HOME

