Télécharger la plaquette Cast3M


fr en

Télécharger prcha1.eso

Retour à la liste

Numérotation des lignes : 

prcha1

  1. C PRCHA1    SOURCE    CB215821  21/02/11    21:15:25     10886          
  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.       N11=MELVA1.VELCHE(/1)
  47.       N12=MELVA1.VELCHE(/2)
  48.       N21=MELVA2.VELCHE(/1)
  49.       N22=MELVA2.VELCHE(/2)
  50. *
  51.       N1PTEL=MAX(N11,N21)
  52.       N1EL  =MAX(N12,N22)
  53.       N2PTEL=0
  54.       N2EL  =0
  55.       SEGINI,MELVAL
  56.       IPCHA3=MELVAL
  57. *
  58.       DO 10 IELE=1,N1EL
  59.          DO 20 INOE=1,N1PTEL
  60.             IEMN1=MIN(IELE,N12)
  61.             INMN1=MIN(INOE,N11)
  62.             IEMN2=MIN(IELE,N22)
  63.             INMN2=MIN(INOE,N21)
  64.             VELCHE(INOE,IELE)=MELVA1.VELCHE(INMN1,IEMN1)*
  65.      &                        MELVA2.VELCHE(INMN2,IEMN2)
  66.  20         CONTINUE
  67.  10      CONTINUE
  68.       END
  69.  
  70.  
  71.  
  72.  

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