








      INTEGER      USESOU(MAXMOL), USERSOU(MAXMOL), 
     +             USEBCK(MAXMOL,10), USEBCKPNT, IQ7338, IQ7339 

      COMMON       /ENVIR1/
     +             USESOU, USERSOU, IQ7338, USEBCK, IQ7339, USEBCKPNT
