Télécharger prcha1.eso

Retour à la liste

Numérotation des lignes :

  1. C PRCHA1 SOURCE PV 09/03/12 21:30:28 6325
  2. SUBROUTINE PRCHA1(IPCHA1,IPCHA2,IPCHA3)
  3. ************************************************************************
  4. *
  5. * P R C H A 1
  6. * -----------
  7. *
  8. * FONCTION:
  9. * ---------
  10. *
  11. * PRODUIT TERME A TERME DE DEUX SEGMENTS "MELVAL" ,
  12. * AYANT MEME SUPPORT GEOMETRIQUE,ON OBTIENT UN SEGMENT MELVAL
  13. * ----------------------------
  14. * MODULES UTILISES:
  15. * -----------------
  16. *
  17. IMPLICIT INTEGER(I-N)
  18. -INC SMCHAML
  19. *
  20. * PARAMETRES: (E)=ENTREE (S)=SORTIE (+ = CONTENU DANS UN COMMUN)
  21. * -----------
  22. *
  23. * IPCHA1 (E) POINTEUR SUR UN SEGMENT MELVAL
  24. * IPCHA2 (E) POINTEUR SUR UN SEGMENT MELVAL
  25. * IPCHA3 (S) POINTEUR SUR LE SEGMENT MELVAL RESULTAT
  26. *
  27. * VARIABLES:
  28. * ----------
  29. *
  30. *
  31. * AUTEUR, DATE DE CREATION:
  32. * -------------------------
  33. *
  34. * DENIS ROBERT,LE 28 AVRIL 1988.
  35. *
  36. * LANGAGE:
  37. * --------
  38. *
  39. * ESOPE + FORTRAN77
  40. *
  41. ************************************************************************
  42. *
  43. MELVA1=IPCHA1
  44. MELVA2=IPCHA2
  45. *
  46. SEGACT,MELVA1,MELVA2
  47. N11=MELVA1.VELCHE(/1)
  48. N12=MELVA1.VELCHE(/2)
  49. N21=MELVA2.VELCHE(/1)
  50. N22=MELVA2.VELCHE(/2)
  51. *
  52. N1PTEL=MAX(N11,N21)
  53. N1EL=MAX(N12,N22)
  54. N2PTEL=0
  55. N2EL=0
  56. SEGINI,MELVAL
  57. IPCHA3=MELVAL
  58. *
  59. DO 10 IELE=1,N1EL
  60. DO 20 INOE=1,N1PTEL
  61. IEMN1=MIN(IELE,N12)
  62. INMN1=MIN(INOE,N11)
  63. IEMN2=MIN(IELE,N22)
  64. INMN2=MIN(INOE,N21)
  65. VELCHE(INOE,IELE)=MELVA1.VELCHE(INMN1,IEMN1)*
  66. & MELVA2.VELCHE(INMN2,IEMN2)
  67. 20 CONTINUE
  68. * END DO
  69. 10 CONTINUE
  70. * END DO
  71. SEGDES,MELVA1
  72. SEGDES MELVA2
  73. SEGDES,MELVAL
  74. *
  75. RETURN
  76. END
  77.  
  78.  
  79.  
  80.  
  81.  

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