C NLOCAL    SOURCE    CB215821  23/10/19    21:15:03     11763          

C_______________________________________________________________________
C
C           CALCUL DU MCHAML MOYENNE
C
C           CHAM1=NLOC CHAM2 CHAM3 ('NODI');
C
C
C_______________________________________________________________________
      SUBROUTINE NLOCAL

      IMPLICIT INTEGER(I-N)
      IMPLICIT REAL*8(A-H,O-Z)

-INC PPARAM
-INC CCOPTIO
-INC SMCOORD

      CHARACTER*4 MONODI/'NODI'/
      CHARACTER*22 TT

      DATA TT / 'CONNECTIVITE NON LOCAL' /
C
C           CHAM2  Pointeur sur un MCHAML de ss-type indifferent
C           CHAM3  Pointeur sur un MCHAML de Connectivite
C           CHAM1  Pointeur sur le MCHAML moyenne

      segact mcoord
      IPCHM1 = 0
      IPCHM2 = 0
      IPCHMS = 0
      ICLE   = 0
      INODI  = 0
C
C     LECTURE DES 2 MCHAML
C
      CALL LIROBJ('MCHAML',IPCHM1,1,IRT1)
      IF (IERR.NE.0) RETURN
      CALL ACTOBJ('MCHAML',IPCHM1,1)
      IF (IERR.NE.0) RETURN
C
      CALL LIROBJ('MCHAML',IPCHM2,1,IRT1)
      IF (IERR.NE.0) RETURN
      CALL ACTOBJ('MCHAML',IPCHM2,1)
      IF (IERR.NE.0) RETURN
C
C  LECTURE EVENTUELLE DU MOT-CLE 'NODI'
C
      CALL LIRMOT(MONODI,1,ICLE,0)
      IF (IERR.NE.0) RETURN
      IF (ICLE.EQ.1) INODI = 1

C
C     RECHERCHE DU MCHAML DE CONNECTIVITE QUE L'ON PLACE
C     EN TETE DE IP
C
      CALL PLACHA(IPCHM1,TT,1,IPO)
      IF (IPO.NE.1) THEN
        CALL PLACHA(IPCHM2,TT,1,IPO)
        IF (IPO.NE.1) THEN
          CALL ERREUR(753)
          RETURN
        ENDIF
        III    = IPCHM2
        IPCHM2 = IPCHM1
        IPCHM1 = III
      ENDIF
C
C     CALCUL DE LA MOYENNE 'MOYE' OU 'SB'
C
      CALL NLOCA1(IPCHM2,IPCHM1,IPCHMS,INODI,IRET)
C
C     ECRITURE DU MCHAML
C
      IF(IRET.EQ.1) THEN
        CALL ACTOBJ('MCHAML',IPCHMS,1)
        CALL ECROBJ('MCHAML',IPCHMS)
      ENDIF
C
      RETURN
      END