Télécharger la plaquette Cast3M


fr en

Télécharger nomcom.eso

Retour à la liste

Numérotation des lignes : 

nomcom

  1. C NOMCOM    SOURCE    CB215821  21/11/25    21:15:12     11201          
  2.  
  3. C=======================================================================
  4. C
  5. C     NOMME UN CHPOINT A UNE COMPOSANTE
  6. C
  7. C  ENTREE
  8. C     IPCH1=POINTEUR SUR UN CHPOINT
  9. C     MOT  =NOM DE LA COMPOSANTE
  10. C  SORTIE
  11. C     IPCH2=POINTEUR SUR LE CHPOINT RENOMME (0 EN CAS D'ERREUR)
  12. C     IRET =1   SI SUCCES
  13. C          =0   SINON  ( MESSAGE D ERREUR IMPRIME  DANS CE  CAS )
  14. C
  15. C     DECEMBRE 84    EBERSOLT
  16. C=======================================================================
  17.  
  18.       SUBROUTINE NOMCOM(IPCH1,MOT,IPCH2,IRET)
  19.  
  20.       IMPLICIT INTEGER(I-N)
  21.       IMPLICIT REAL*8(A-H,O-Z)
  22.  
  23.  
  24. -INC PPARAM
  25. -INC CCOPTIO
  26. -INC SMCHPOI
  27.  
  28.       CHARACTER*(*) MOT
  29. *
  30.       IRET = 0
  31.       MCHPO1 = IPCH1
  32.       SEGINI,MCHPOI=MCHPO1
  33. *
  34. *  VERIFICATION CHAMP NON VIDE A UNE PARTITION
  35.       IF (IPCHP(/1).NE.1) THEN
  36.         CALL ERREUR(180)
  37.         GOTO 666
  38.       ENDIF
  39. *
  40.       MSOUP1 = IPCHP(1)
  41.       SEGINI,MSOUPO=MSOUP1
  42.       IPCHP(1) = MSOUPO
  43. *
  44. *  VERFICATION SUR LA PRESENCE D'UNE SEULE COMPOSANTE
  45.       IF (NOCOMP(/2).NE.1) THEN
  46.         SEGSUP,MSOUPO
  47.         CALL ERREUR(180)
  48.         GOTO 666
  49.       ENDIF
  50. *
  51.       NOCOMP(1) = MOT
  52.       IRET = 1
  53.  
  54.  666  CONTINUE
  55.       IF (IRET.NE.0) THEN
  56.         IPCH2 = MCHPOI
  57.       ELSE
  58.         SEGSUP,MCHPOI
  59.         IPCH2 = 0
  60.       ENDIF
  61.  
  62.       END
  63.  
  64.  
  65.  
  66.  
  67.  

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