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.  
  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. *
  53. MPOVA1 = IPOVAL
  54. SEGINI,MPOVAL=MPOVA1
  55. IPOVAL = MPOVAL
  56. *
  57. IRET = 1
  58.  
  59. 666 CONTINUE
  60. IF (IRET.NE.0) THEN
  61. IPCH2 = MCHPOI
  62. ELSE
  63. SEGSUP,MCHPOI
  64. IPCH2 = 0
  65. ENDIF
  66.  
  67. END
  68.  
  69.  
  70.  

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