

















      INTEGER          MAXML2
      PARAMETER        (MAXML2 = 250)
      INTEGER          ATMML2, BNDML2, SGRML2, ML2UNT, DBSTRT, 
     +                 DBADMN(MAXML2), DBBNDF(MAXML2), DBBNDT(MAXML2), 
     +                 DBATNB(MAXML2), DRGADM(MAXML2), DDBBCK(9,5000),
     +                 DDBCUS(MAXML2), DDBCNT, ML2PNT(10000)
      REAL             XCRML2, YCRML2, ZCRML2, DBXCRD(MAXML2), 
     +                 DBYCRD(MAXML2), DBZCRD(MAXML2), DBCVAL(MAXML2)
      LOGICAL          HASML2, DRGDBG
      CHARACTER*4      TSAML2, OATML2, DBATNM(MAXML2), LSTDFI
      CHARACTER*6      DBTYNM(MAXML2)
	

      COMMON /DRGINC1/ 
     +                 DBADMN, ATMML2, BNDML2, SGRML2, ML2UNT, DBSTRT,
     +                 DBBNDF, DBBNDT, DBATNB, DRGADM, DDBCUS, ML2PNT

      COMMON /DRGINC2/ 
     +                 HASML2

      COMMON /DRGINC3/ 
     +                 OATML2, TSAML2, DBATNM, DBTYNM, LSTDFI

      COMMON /DRGINC4/ 
     +                 XCRML2, YCRML2, ZCRML2

      COMMON /DRGINC5/ 
     +                 DBXCRD, DBYCRD, DBZCRD, DBCVAL

      COMMON /DRGINC6/ 
     +                 DDBBCK, DDBCNT

      COMMON /DRGINC7/ 
     +                 DRGDBG
