C ========================================================================
C
C  I.  Common arrays of tree information
C
C ------------------------------------------------------------------------
      INTEGER MAXTREE
      PARAMETER (MAXTREE    = 10 )
      COMMON /ATOM_TREE/ N_TREE,N_TREE_INIT
     *                  ,IATM_FIRST_TREE,IATM_LAST_TREE
     *                  ,IATM_FIRST_TREE_C,IATM_LAST_TREE_C
     *                  ,IBACK_S_INIT,IFOR_F_INIT,ID_TREE_INIT
     *                  ,XYZ_TREE,ANGLES_TREE,DUMMY_TREE_1,DUMMY_TREE_2
      INTEGER   N_TREE_INIT       
      INTEGER   N_TREE,IATM_FIRST_TREE(MAXTREE),IATM_LAST_TREE(MAXTREE)
      INTEGER   IATM_FIRST_TREE_C(MAXTREE),IATM_LAST_TREE_C(MAXTREE)
      INTEGER   IBACK_S_INIT(MAXTREE),IFOR_F_INIT(MAXTREE)
      INTEGER   ID_TREE_INIT(MAXTREE)
      REAL      XYZ_TREE(3,MAXTREE),ANGLES_TREE(3,MAXTREE)
      REAL      DUMMY_TREE_1(3,MAXTREE),DUMMY_TREE_2(3,MAXTREE)      
C ==========================================================
C
C   II. variable angles Phi.
C 
C ----------------------------------------------------------
      INTEGER MAXBRN
      PARAMETER (MAXBRN   =   8 )
      COMMON /CONN_ATOM/ ATM_ISTART,ATM_IFINISH,ATM_NDUMMY
     *                 ,ATM_NDIST,ATM_CONN
      INTEGER*4 ATM_NDIST (MAXATOM) 
      INTEGER*4 ATM_CONN  (MAXBRN,MAXATOM) 
      INTEGER*4 ATM_ISTART,ATM_IFINISH,ATM_NDUMMY
C ----------------------------------------------------------
      INTEGER MAXPHI
      PARAMETER (MAXPHI    = MAXATOM )
      COMMON /ANGL_PHI/ PHI_VAR,IP_PSI,PHI_TYPE

      REAL      PHI_VAR  (MAXPHI)   
      INTEGER*4 IP_PSI   (MAXPHI)   
      CHARACTER PHI_TYPE (MAXPHI)*16
C ----------------------------------------------------------------
C PHI_VAR   - value
C IP_PSI    - pointer to array:  ATM_PSI
C PHI_TYPE  - type
C ===============================================================