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.  
  22. -INC PPARAM
  23. -INC CCOPTIO
  24. MCHPO1=IPO1
  25. SEGACT MCHPO1
  26. NSOUPO=MCHPO1.IPCHP(/1)
  27. NAT=MCHPO1.JATTRI(/1)
  28. SEGINI MCHPOI
  29. IRET=MCHPOI
  30. MTYPOI=MCHPO1.MTYPOI
  31. MOCHDE=MCHPO1.MOCHDE
  32. IFOPOI=MCHPO1.IFOPOI
  33. DO 72 IA=1,NSOUPO
  34. MSOUP1=MCHPO1.IPCHP(IA)
  35. SEGACT MSOUP1
  36. NC=MSOUP1.NOCOMP(/2)
  37. SEGINI MSOUPO
  38. IPCHP(IA)=MSOUPO
  39. IGEOC=MSOUP1.IGEOC
  40. DO 73 IB=1,NC
  41. NOCOMP(IB)=MSOUP1.NOCOMP(IB)
  42. NOHARM(IB)=MSOUP1.NOHARM(IB)
  43. 73 CONTINUE
  44. MPOVA1=MSOUP1.IPOVAL
  45. SEGACT MPOVA1
  46. N=MPOVA1.VPOCHA(/1)
  47. NC=MPOVA1.VPOCHA(/2)
  48. SEGINI MPOVAL
  49. IPOVAL=MPOVAL
  50. DO 75 IC=1,NC
  51. IF (NOCOMP(IC).NE.NOCOM) GOTO 755
  52. DO 751 IB=1,N
  53. VPOCHA(IB,IC)=0.D0
  54. 751 CONTINUE
  55. GOTO 75
  56. 755 CONTINUE
  57. DO 756 IB=1,N
  58. VPOCHA(IB,IC)=MPOVA1.VPOCHA(IB,IC)
  59. 756 CONTINUE
  60. 75 CONTINUE
  61. SEGDES MPOVAL,MPOVA1
  62. SEGDES MSOUPO,MSOUP1
  63. 72 CONTINUE
  64. SEGDES MCHPOI,MCHPO1
  65. RETURN
  66. END
  67.  
  68.  

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