Télécharger la plaquette Cast3M


fr en

Télécharger combna.eso

Retour à la liste

Numérotation des lignes : 

combna

  1. C COMBNA    SOURCE    GOUNAND   25/11/12    21:15:07     12399          
  2.       SUBROUTINE COMBNA(MCHPO1,MCHPO2,INAT,IATTR)
  3.       IMPLICIT REAL*8 (A-H,O-Z)
  4.       IMPLICIT INTEGER (I-N)
  5. C***********************************************************************
  6. C NOM         : COMBNA
  7. C DESCRIPTION : Regarde si les natures des champs par points en
  8. C               entree existent et sont identiques.
  9. C
  10. C
  11. C
  12. C LANGAGE     : ESOPE
  13. C AUTEUR      : Stephane GOUNAND (CEA/DES/ISAS/DM2S/SEMT/LTA)
  14. C               mel : gounand@semt2.smts.cea.fr
  15. C***********************************************************************
  16. C SYNTAXE GIBIANE    :
  17. C ENTREES            : MCHPO1, MCHPO2
  18. C ENTREES/SORTIES    :
  19. C SORTIES            : INAT, IATTR
  20. C***********************************************************************
  21. C VERSION    : v1, 09/10/2025, version initiale
  22. C HISTORIQUE : v1, 09/10/2025, creation
  23. C HISTORIQUE :
  24. C HISTORIQUE :
  25. C***********************************************************************
  26. -INC PPARAM
  27. -INC CCOPTIO
  28.  
  29. -INC SMCHPOI
  30. *
  31. * Executable statements
  32. *
  33.       NAT1=0
  34.       IATTR1=0
  35.       IF (MCHPO1.NE.0) THEN
  36.          SEGACT MCHPO1
  37.          NAT1 = MCHPO1.JATTRI(/1)
  38.          IF (NAT1.GE.1) THEN
  39.             IATTR1=MCHPO1.JATTRI(1)
  40.          ENDIF
  41.       ENDIF
  42.       NAT2=0
  43.       IATTR2=0
  44.       IF (MCHPO2.NE.0) THEN
  45.          SEGACT MCHPO2
  46.          NAT2 = MCHPO2.JATTRI(/1)
  47.          IF (NAT2.GE.1) THEN
  48.             IATTR2=MCHPO2.JATTRI(1)
  49.          ENDIF
  50.       ENDIF
  51.       INAT=MAX(NAT1,NAT2,1)
  52.       IF (MIN(NAT1,NAT2) .GE. 1) THEN
  53.          IF (IATTR1 .EQ. IATTR2) THEN
  54.             IATTR= IATTR1
  55.          ENDIF
  56.       ELSEIF (NAT1 .GE. 1) THEN
  57.          IATTR=IATTR1
  58.       ELSEIF (NAT2 .GE. 1) THEN
  59.          IATTR=IATTR2
  60.       ELSE
  61.          IATTR=0
  62.       ENDIF
  63. *
  64. * Normal termination
  65. *
  66.       RETURN
  67. *
  68. * End of subroutine COMBNA
  69. *
  70.       END
  71.  
  72.  

© Cast3M 2003 - Tous droits réservés.
Mentions légales