Télécharger elccpo.eso

Retour à la liste

Numérotation des lignes :

  1. C ELCCPO SOURCE CHAT 06/03/29 21:19:54 5360
  2. C
  3. C
  4.  
  5. SUBROUTINE ELCCPO(XYZ1,XYZ2,IDIMC,ICODE,INDAR,INO,NBNO,XYZ,iarr)
  6. C *****************************************************************
  7. C OBJET ELCCPO : CALCUL LES COORDONNEES DES NOEUDS MILIEU
  8. C
  9. C EN ENTREE :
  10. C ---------- LES NOEUDS --------
  11. C XYZ1,XYZ2 : LES COORDONNEES DES SOMMETS
  12. C IDIMC : DIMENSION DE L'ESPACE
  13. C ---------- L'ELEMENT ---------------------------
  14. C ICODE : CODE DE L'ELEMENT
  15. C INDAR : INDICE DE L'ARETE
  16. C NBNO : NOMBRE DE NOEUD SUR L'ARETE
  17. C INO : INDICE DU NOEUD A CALCULER
  18. C
  19. C EN SORTIE :
  20. C XYZ : LES COORDONNEES DU NOEUD MILIEU
  21. C iarr : CODE D'ERREUR
  22. C *****************************************************************
  23. IMPLICIT INTEGER(I-N)
  24. REAL*8 XYZ1(*),XYZ2(*)
  25. INTEGER IDIMC,ICODE,INDAR,INO,NBNO
  26. REAL*8 XYZ(*)
  27. INTEGER iarr
  28. C
  29. REAL*8 COEF
  30. INTEGER I
  31. C
  32. COEF = NBNO + 1.
  33. IF( NBNO.LE.0 ) THEN
  34. iarr = -1
  35. GOTO 9999
  36. ENDIF
  37. COEF = INO / COEF
  38. DO 10 I=1,IDIMC
  39. XYZ(I) = (1.-COEF)*XYZ1(I) + COEF*XYZ2(I)
  40. 10 CONTINUE
  41. C
  42. 9999 END
  43.  
  44.  
  45.  
  46.  

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