Esope source files

   1 : C EXCOO1    SOURCE    CHAT      05/01/12    23:50:02     5004           
   2 : 
   3 : ************************************************************************
   4 : *                             E X C O O 1
   5 : *                             -----------
   6 : *
   7 : * FONCTION:
   8 : * ---------
   9 : *     DONNER LES COORDONNEES ET LA DENSITE D'UN POINT.
  10 : *
  11 : * PARAMETRES:   (E)=ENTREE   (S)=SORTIE   (+ = CONTENU DANS UN COMMUN)
  12 : * -----------
  13 : *     NUMPT   (E)  NUMERO DU POINT CONSIDERE.
  14 : *     X,Y,Z   (S)  COORDONNEES DU POINT. "Z" EST MIS A "0" EN 2D (C'EST
  15 : *                  PRATIQUE POUR FAIRE DES CALCULS DE DISTANCES SANS
  16 : *                  TESTER LA DIMENSION DE L'ESPACE GEOMETRIQUE).
  17 : *     D       (S)  DENSITE ASSOCIEE AU POINT.
  18 : ************************************************************************
  19 : 
  20 :       SUBROUTINE EXCOO1 (NUMPT, X,Y,Z,D)
  21 : 
  22 :       IMPLICIT INTEGER(I-N)
  23 :       IMPLICIT REAL*8 (A-H,O-Z)
  24 : 
  25 : -INC CCOPTIO
  26 : -INC SMCOORD
  27 : 
  28 :       SEGACT,MCOORD
  29 :       IDIMP1 = IDIM + 1
  30 :       ICOEF = (NUMPT-1) * IDIMP1
  31 : 
  32 :       IF (IDIM .EQ. 3) THEN
  33 :         X = XCOOR(ICOEF + 1)
  34 :         Y = XCOOR(ICOEF + 2)
  35 :         Z = XCOOR(ICOEF + 3)
  36 :       ELSE IF (IDIM .EQ. 2) THEN
  37 :         X = XCOOR(ICOEF + 1)
  38 :         Y = XCOOR(ICOEF + 2)
  39 :         Z = 0.D0
  40 :       ELSE IF (IDIM.EQ.1) THEN
  41 :         X = XCOOR(ICOEF + 1)
  42 :         Y = 0.D0
  43 :         Z = 0.D0
  44 :       END IF
  45 :       D = XCOOR(NUMPT*IDIMP1)
  46 : 
  47 :       RETURN
  48 :       END
  49 :  
  50 :