Télécharger anchpo.eso

Retour à la liste

Numérotation des lignes :

  1. C ANCHPO SOURCE CHAT 05/01/12 21:22:13 5004
  2. SUBROUTINE ANCHPO(IPO1,NOCOM,IRET)
  3. C=======================================================================
  4. C
  5. C MISE A ZERO DES TERMES SUR UNE COMPOSANTE DONNEE
  6. C DANS UN CHPS PAR POINT
  7. C LE CHPS RESULTANT VOIT SON POINTEUR STOCKE DANS IRET
  8. C ENTREES
  9. C IPO1=POINTEUR SUR LE CHAMPOINT
  10. C NOCOM=NOM DE COMPOSANTE
  11. C SORTIES
  12. C IRET=POINTEUR SUR LE CHAMPS RESULTANT
  13. C
  14. C J BROCHARD NOVEMBRE 85
  15. C
  16. C=======================================================================
  17. IMPLICIT INTEGER(I-N)
  18. IMPLICIT REAL*8(A-H,O-Z)
  19. CHARACTER*4 NOCOM
  20. -INC SMCHPOI
  21. -INC CCOPTIO
  22. MCHPO1=IPO1
  23. SEGACT MCHPO1
  24. NSOUPO=MCHPO1.IPCHP(/1)
  25. NAT=MCHPO1.JATTRI(/1)
  26. SEGINI MCHPOI
  27. IRET=MCHPOI
  28. MTYPOI=MCHPO1.MTYPOI
  29. MOCHDE=MCHPO1.MOCHDE
  30. IFOPOI=MCHPO1.IFOPOI
  31. DO 72 IA=1,NSOUPO
  32. MSOUP1=MCHPO1.IPCHP(IA)
  33. SEGACT MSOUP1
  34. NC=MSOUP1.NOCOMP(/2)
  35. SEGINI MSOUPO
  36. IPCHP(IA)=MSOUPO
  37. IGEOC=MSOUP1.IGEOC
  38. DO 73 IB=1,NC
  39. NOCOMP(IB)=MSOUP1.NOCOMP(IB)
  40. NOHARM(IB)=MSOUP1.NOHARM(IB)
  41. 73 CONTINUE
  42. MPOVA1=MSOUP1.IPOVAL
  43. SEGACT MPOVA1
  44. N=MPOVA1.VPOCHA(/1)
  45. NC=MPOVA1.VPOCHA(/2)
  46. SEGINI MPOVAL
  47. IPOVAL=MPOVAL
  48. DO 75 IC=1,NC
  49. IF (NOCOMP(IC).NE.NOCOM) GOTO 755
  50. DO 751 IB=1,N
  51. VPOCHA(IB,IC)=0.D0
  52. 751 CONTINUE
  53. GOTO 75
  54. 755 CONTINUE
  55. DO 756 IB=1,N
  56. VPOCHA(IB,IC)=MPOVA1.VPOCHA(IB,IC)
  57. 756 CONTINUE
  58. 75 CONTINUE
  59. SEGDES MPOVAL,MPOVA1
  60. SEGDES MSOUPO,MSOUP1
  61. 72 CONTINUE
  62. SEGDES MCHPOI,MCHPO1
  63. RETURN
  64. END
  65.  
  66.  

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