C COMBNA    SOURCE    GOUNAND   25/11/12    21:15:07     12399          
      SUBROUTINE COMBNA(MCHPO1,MCHPO2,INAT,IATTR)
      IMPLICIT REAL*8 (A-H,O-Z)
      IMPLICIT INTEGER (I-N)
C***********************************************************************
C NOM         : COMBNA
C DESCRIPTION : Regarde si les natures des champs par points en
C               entree existent et sont identiques.
C
C
C
C LANGAGE     : ESOPE
C AUTEUR      : Stephane GOUNAND (CEA/DES/ISAS/DM2S/SEMT/LTA)
C               mel : gounand@semt2.smts.cea.fr
C***********************************************************************
C SYNTAXE GIBIANE    :
C ENTREES            : MCHPO1, MCHPO2
C ENTREES/SORTIES    :
C SORTIES            : INAT, IATTR
C***********************************************************************
C VERSION    : v1, 09/10/2025, version initiale
C HISTORIQUE : v1, 09/10/2025, creation
C HISTORIQUE :
C HISTORIQUE :
C***********************************************************************
-INC PPARAM
-INC CCOPTIO

-INC SMCHPOI
*
* Executable statements
*
      NAT1=0
      IATTR1=0
      IF (MCHPO1.NE.0) THEN
         SEGACT MCHPO1
         NAT1 = MCHPO1.JATTRI(/1)
         IF (NAT1.GE.1) THEN
            IATTR1=MCHPO1.JATTRI(1)
         ENDIF
      ENDIF
      NAT2=0
      IATTR2=0
      IF (MCHPO2.NE.0) THEN
         SEGACT MCHPO2
         NAT2 = MCHPO2.JATTRI(/1)
         IF (NAT2.GE.1) THEN
            IATTR2=MCHPO2.JATTRI(1)
         ENDIF
      ENDIF
      INAT=MAX(NAT1,NAT2,1)
      IF (MIN(NAT1,NAT2) .GE. 1) THEN
         IF (IATTR1 .EQ. IATTR2) THEN
            IATTR= IATTR1
         ENDIF
      ELSEIF (NAT1 .GE. 1) THEN
         IATTR=IATTR1
      ELSEIF (NAT2 .GE. 1) THEN
         IATTR=IATTR2
      ELSE
         IATTR=0
      ENDIF
*
* Normal termination
*
      RETURN
*
* End of subroutine COMBNA
*
      END