Télécharger nomcom.eso

Retour à la liste

Numérotation des lignes :

  1. C NOMCOM SOURCE FANDEUR 11/07/19 21:16:51 7039
  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. -INC CCOPTIO
  24. -INC SMCHPOI
  25.  
  26. CHARACTER*(*) MOT
  27. *
  28. IRET = 0
  29. MCHPO1 = IPCH1
  30. SEGINI,MCHPOI=MCHPO1
  31. *
  32. * VERIFICATION CHAMP NON VIDE A UNE PARTITION
  33. IF (IPCHP(/1).NE.1) THEN
  34. CALL ERREUR(180)
  35. GOTO 666
  36. ENDIF
  37. *
  38. MSOUP1 = IPCHP(1)
  39. SEGINI,MSOUPO=MSOUP1
  40. IPCHP(1) = MSOUPO
  41. *
  42. * VERFICATION SUR LA PRESENCE D'UNE SEULE COMPOSANTE
  43. IF (NOCOMP(/2).NE.1) THEN
  44. SEGSUP,MSOUPO
  45. CALL ERREUR(180)
  46. GOTO 666
  47. ENDIF
  48. *
  49. NOCOMP(1) = MOT
  50. *
  51. MPOVA1 = IPOVAL
  52. SEGINI,MPOVAL=MPOVA1
  53. IPOVAL = MPOVAL
  54. *
  55. SEGDES,MPOVAL,MSOUPO
  56. IRET = 1
  57.  
  58. 666 CONTINUE
  59. IF (IRET.NE.0) THEN
  60. SEGDES,MCHPOI
  61. IPCH2 = MCHPOI
  62. ELSE
  63. SEGSUP,MCHPOI
  64. IPCH2 = 0
  65. ENDIF
  66.  
  67. RETURN
  68. END
  69.  
  70.  
  71.  

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