Esope source files

   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 :