161         DO IGAS = 1, NGAS
163           IJACT = I_SX_CCACT(IGAS,JGAS)
166             I_OFF = IOBPTS(IGAS,ISM)
169             NI = NOBPTS(IGAS,ISM)
201          DO IGAS = 1, NGAS
205           IJKL_ACT = I_DX_CCACT(IGAS,KGAS,JGAS,LGAS)
212             IF(IGAS.GT.KGAS.OR.(IGAS.EQ.KGAS.AND.JGAS.GT.LGAS)) THEN
214             ELSE IF(IGAS.EQ.KGAS.AND.JGAS.EQ.LGAS) THEN
223             NI = NOBPTS(IGAS,ISM)
224             I_OFF = IOBPTS(IGAS,ISM)
923       SUBROUTINE GET_SX_BLK(HBLK,H,IGAS,ISM,JGAS,JSM)  argument
938       NI = NOBPTS(IGAS,ISM)
941       IJ_ACT = I_SX_ACT(IGAS,JGAS)
949        CALL I_OFF_SX(IOFF,IGAS,ISM,JGAS,JSM,ISX_SYM)
957      &   ' (ism,itp,jsm,jtp)', ISM,IGAS,JSM,JGAS
979         DO IGAS = 1, NGAS
982           IJACT = I_SX_CCACT(IGAS,JGAS)
985             NI = NOBPTS(IGAS,ISM)
988             IF(ISM.EQ.IISM.AND.IGAS.EQ.IIGAS.AND.
1006       SUBROUTINE GET_DX_BLK(IGAS,ISM,JGAS,JSM,KGAS,KSM,LGAS,LSM,   argument
1037       NI = NOBPTS(IGAS,ISM)
1046       CALL FETCH_DX_BLK(IGAS,ISM,JGAS,JSM,KGAS,KSM,LGAS,LSM,C,CBLK,
1050         CALL FETCH_DX_BLK(IGAS,ISM,LGAS,LSM,KGAS,KSM,JGAS,JSM,C,SCR ,
1219       SUBROUTINE FETCH_DX_BLK(IGAS,ISM,JGAS,JSM,KGAS,KSM,LGAS,LSM,  argument
1244         L = IGAS
1245         IGAS = JGAS
1252       IJKL_ACT = I_DX_ACT(IGAS,KGAS,LGAS,JGAS)
1254       IF(IGAS.EQ.KGAS.AND.ISM.EQ.KSM .AND. 
1261       NI = NOBPTS(IGAS,ISM)
1277      &         IGAS,ISM,JGAS,JSM,KGAS,KSM,LGAS,LSM,IDX_SYM) 
1298         L = IGAS
1299         IGAS = JGAS
1317      &                 IGAS,ISM,JGAS,JSM,KGAS,KSM,LGAS,LSM
1320      &                 JGAS,JSM,IGAS,ISM,KGAS,KSM,LGAS,LSM
1401          DO IGAS = 1, NGAS
1405           IJKL_ACT = I_DX_CCACT(IGAS,KGAS,LGAS,JGAS)
1410             IF(IGAS.GT.KGAS.OR.(IGAS.EQ.KGAS.AND.JGAS.GT.LGAS)) THEN
1412             ELSE IF(IGAS.EQ.KGAS.AND.JGAS.EQ.LGAS) THEN
1420             NI = NOBPTS(IGAS,ISM)
1421             I_OFF = IOBPTS(IGAS,ISM)
1432             IF(IIGAS.EQ.IGAS.AND.IISM.EQ.ISM.AND.
1524          DO IGAS = 1, NGAS
1528           IJKL_ACT = I_DX_CCACT(IGAS,KGAS,JGAS,LGAS)
1533             IF(IGAS.GT.KGAS.OR.(IGAS.EQ.KGAS.AND.JGAS.GT.LGAS)) THEN
1535             ELSE IF(IGAS.EQ.KGAS.AND.JGAS.EQ.LGAS) THEN
1543             NI = NOBPTS(IGAS,ISM)
1549      &      IGAS,JGAS,KGAS,LGAS,IJKL_OFF
1586       FUNCTION I_DX_ACT(IGAS,KGAS,LGAS,JGAS)
1597         I_DX_ACT = I_DX_CCACT(IGAS,KGAS,LGAS,JGAS)
1608      &    ,IGAS,JGAS,KGAS,LGAS
1612      &    ,IGAS,JGAS,KGAS,LGAS
1618       FUNCTION I_SX_ACT(IGAS,JGAS)
1629         I_SX_ACT = I_SX_CCACT(IGAS,JGAS)
1640      &    IGAS,JGAS
1644      &    IGAS,JGAS
1691          DO IGAS = 1, NGAS
1695           IJKL_ACT = I_DX_CCACT(IGAS,KGAS,JGAS,LGAS)
1700             IF(IGAS.GT.KGAS.OR.(IGAS.EQ.KGAS.AND.JGAS.GT.LGAS)) THEN
1702             ELSE IF(IGAS.EQ.KGAS.AND.JGAS.EQ.LGAS) THEN
1710             NI = NOBPTS(IGAS,ISM)
1711             I_OFF = IOBPTS(IGAS,ISM)
1725      &          IGAS,ISM,JGAS,JSM,KGAS,KSM,LGAS,LSM 
1803          DO IGAS = 1, NGAS
1807           IJKL_ACT = I_DX_CCACT(IGAS,KGAS,JGAS,LGAS)
1814             IF(IGAS.GT.KGAS.OR.(IGAS.EQ.KGAS.AND.JGAS.GT.LGAS)) THEN
1816             ELSE IF(IGAS.EQ.KGAS.AND.JGAS.EQ.LGAS) THEN
1825             NI = NOBPTS(IGAS,ISM)
1826             I_OFF = IOBPTS(IGAS,ISM)
1928         DO IGAS = 1, NGAS
1931           IJACT = I_SX_CCACT(IGAS,JGAS)
1934             NI = NOBPTS(IGAS,ISM)
1940      &        ' (ism,itp,jsm,jtp)', ISM,IGAS,JSM,JGAS
1984         DO IGAS = 1, NGAS
1987           IJACT = I_SX_CCACT(IGAS,JGAS)
1990             I_OFF = IOBPTS(IGAS,ISM)
1993             NI = NOBPTS(IGAS,ISM)
2155       DO IGAS = 1, NGAS
2161        IF(IGAS.EQ.1) THEN
2162          NEL_MAX = 2*NGSOBT(IGAS)
2164          NEL_MAX = NEL_MAX + 2*NGSOBT(IGAS) 
2167        IF(IGSOCCX(IGAS,1,ISPC) .EQ. NEL_MAX  .AND.
2168      &    IGSOCCX(IGAS,2,ISPC) .EQ. NEL_MAX       ) THEN 
2170           IHPVGAS(IGAS) = 1
2171           NHOLE = NHOLE + NGSOBT(IGAS)
2172        ELSE IF(IGAS.GT.1.AND.IGSOCCX(IGAS-1,1,ISPC) .EQ. NEL_REF) THEN
2174           IHPVGAS(IGAS) = 2
2177           IHPVGAS(IGAS) = 3
2178           NVAL = NVAL + NGSOBT(IGAS)
2187        DO IGAS = 1, NGAS
2189          IF(IGAS.EQ.1) THEN
2192            NEL_MIN = IGSOCCX(IGAS,1,ISPC)-IGSOCCX(IGAS-1,2,ISPC)
2196          IF(IGAS.EQ.1) THEN
2199            NEL_MAX = IGSOCCX(IGAS,2,ISPC)-IGSOCCX(IGAS-1,1,ISPC)
2200            NEL_MAX = MIN(NEL_MAX,2*NGSOBT(IGAS))
2206           IHPVGAS(IGAS) = 2
2207          ELSE IF (NEL_MIN.EQ.2*NGSOBT(IGAS)) THEN
2209           IHPVGAS(IGAS) = 1
2210           NHOLE = NHOLE + NGSOBT(IGAS)
2213           IHPVGAS(IGAS) = 3
2214           NVAL = NVAL + NGSOBT(IGAS)
2248       DO IGAS = 1, NGAS
2249         IF(IHPVGAS(IGAS).EQ.1) THEN
2250           IHPVGAS_AB(IGAS,1) = 1
2251           IHPVGAS_AB(IGAS,2) = 1
2252         ELSE IF (IHPVGAS(IGAS).EQ.2) THEN 
2253           IHPVGAS_AB(IGAS,1) = 2
2254           IHPVGAS_AB(IGAS,2) = 2
2255         ELSE IF (IHPVGAS(IGAS).EQ.3) THEN 
2257             IHPVGAS_AB(IGAS,1) = 1
2258             IHPVGAS_AB(IGAS,2) = 2
2260             IHPVGAS_AB(IGAS,1) = 2
2261             IHPVGAS_AB(IGAS,2) = 1
2263             IHPVGAS_AB(IGAS,1) = 3
2264             IHPVGAS_AB(IGAS,2) = 3
2304       FUNCTION I_SX_CCACT(IGAS,JGAS)
2319         IF(IHPVGAS(IGAS) .GE.2 .AND. IHPVGAS(JGAS) .NE. 2 
2320      &     .AND..NOT.(IHPVGAS(IGAS).EQ.3.AND.IHPVGAS(JGAS).EQ.3) ) THEN
2321           IF(I_IAD(IGAS).EQ.2.AND.I_IAD(JGAS).EQ.2) THEN
2335       FUNCTION I_DX_CCACT(IGAS,KGAS,LGAS,JGAS)
2352         IF(I_IAD(IGAS).EQ.2.AND.I_IAD(JGAS).EQ.2.AND.
2355           IF(IHPVGAS(IGAS).EQ.1.OR.IHPVGAS(KGAS).EQ.1.OR.
2360           IF(IHPVGAS(IGAS).EQ.3.AND.IHPVGAS(JGAS).EQ.3.AND.
2372      &   IGAS,JGAS,KGAS,LGAS,IACT
2408       DO IGAS = 1, NGAS
2411         IACT = I_SX_ACT(IGAS,JGAS)
2415             NSX = NSX + NGSOB(ISYM,IGAS)*NGSOB(JSYM,JGAS)
2429       DO IGAS = 1, NGAS 
2433            IACT = I_DX_CCACT(IGAS,KGAS,LGAS,JGAS)
2443                I_INDEX = (ISYM-1)*NGAS + IGAS
2448                NI = NGSOB(ISYM,IGAS)