Télécharger nomcom.eso

Retour à la liste

Numérotation des lignes :

  1. C NOMCOM SOURCE CB215821 19/07/30 21:17:21 10273
  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. IRET = 1
  56.  
  57. 666 CONTINUE
  58. IF (IRET.NE.0) THEN
  59. IPCH2 = MCHPOI
  60. ELSE
  61. SEGSUP,MCHPOI
  62. IPCH2 = 0
  63. ENDIF
  64.  
  65. END
  66.  
  67.  
  68.  

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