Esope source files

   1 : C ISOVA3    SOURCE    GOUNAND   08/12/18    21:15:11     6227           
   2 :       SUBROUTINE ISOVA3(XISO,VAL1,VAL2,NUM1,NUM2,MLENTI)
   3 :       IMPLICIT REAL*8 (A-H,O-Z)
   4 :       IMPLICIT INTEGER (I-N)
   5 : C***********************************************************************
   6 : C NOM         : ISOVA3
   7 : C DESCRIPTION : Construit le noeud correspondant à l'intersection
   8 : C               d'une isovaleur sur un segment.
   9 : C
  10 : C
  11 : C LANGAGE     : ESOPE
  12 : C AUTEUR      : Stéphane GOUNAND (CEA/DEN/DM2S/SFME/LTMF)
  13 : C               mél : gounand@semt2.smts.cea.fr
  14 : C***********************************************************************
  15 : C VERSION    : v1, 17/12/2008, version initiale
  16 : C HISTORIQUE : v1, 17/12/2008, création
  17 : C HISTORIQUE :
  18 : C HISTORIQUE :
  19 : C***********************************************************************
  20 : -INC CCOPTIO
  21 : -INC SMCOORD
  22 : -INC SMLENTI
  23 : *
  24 :       DVAL=VAL2-VAL1
  25 :       XBAR=(XISO-VAL1)/DVAL
  26 :       XMBAR=1.D0-XBAR
  27 :       IDIM1=IDIM+1
  28 :       NBPTS=XCOOR(/1)/IDIM1
  29 :       NBPTS=NBPTS+1
  30 :       SEGADJ,MCOORD
  31 :       DO II=1,IDIM+1
  32 :          XCOOR((NBPTS-1)*IDIM1+II)=
  33 :      $        (XCOOR((NUM2-1)*IDIM1+II)*XBAR)+
  34 :      $        (XCOOR((NUM1-1)*IDIM1+II)*XMBAR)
  35 :       ENDDO
  36 :       LECT(**)=NBPTS
  37 :       RETURN
  38 : *
  39 : * End of subroutine ISOVA3
  40 : *
  41 :       END
  42 : 
  43 :