Télécharger la plaquette Cast3M


fr en

Télécharger elccpo.eso

Retour à la liste

Numérotation des lignes : 

elccpo

  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