C ============================================================== C C Connectivities. C C initialization in INIT_CONN_INF / GETLIB (make_lib.f) / C C INCLUDE 'lib-com.fh' C INCLUDE 'conn-com.fh' C ------------------------------------------------------------------- PARAMETER ( NSTOR_PAR = 100 ) COMMON /COM_CONN_INF/ N_STOR,IFLAG_STOR,ICONN_ATOM_IND * ,X_STOR,Y_STOR,Z_STOR,BOND_IDL * ,ATOM_STOR C ------------------------------------------------------------------- INTEGER N_STOR,IFLAG_STOR(NSTOR_PAR,2) REAL X_STOR(NSTOR_PAR,2),Y_STOR(NSTOR_PAR,2) * ,Z_STOR(NSTOR_PAR,2),BOND_IDL(MAXLLNK) CHARACTER ATOM_STOR(NSTOR_PAR)*4 C --- INTEGER ICONN_ATOM_IND(2,MAXLLNK) C ------------------------------------------------------------------- C ===============================================================