C ISOVA3    SOURCE    GOUNAND   08/12/18    21:15:11     6227           
      SUBROUTINE ISOVA3(XISO,VAL1,VAL2,NUM1,NUM2,MLENTI)
      IMPLICIT REAL*8 (A-H,O-Z)
      IMPLICIT INTEGER (I-N)
C***********************************************************************
C NOM         : ISOVA3
C DESCRIPTION : Construit le noeud correspondant à l'intersection
C               d'une isovaleur sur un segment.
C
C
C LANGAGE     : ESOPE
C AUTEUR      : Stéphane GOUNAND (CEA/DEN/DM2S/SFME/LTMF)
C               mél : gounand@semt2.smts.cea.fr
C***********************************************************************
C VERSION    : v1, 17/12/2008, version initiale
C HISTORIQUE : v1, 17/12/2008, création
C HISTORIQUE :
C HISTORIQUE :
C***********************************************************************
-INC CCOPTIO
-INC SMCOORD
-INC SMLENTI
*
      DVAL=VAL2-VAL1
      XBAR=(XISO-VAL1)/DVAL
      XMBAR=1.D0-XBAR
      IDIM1=IDIM+1
      NBPTS=XCOOR(/1)/IDIM1
      NBPTS=NBPTS+1
      SEGADJ,MCOORD
      DO II=1,IDIM+1
         XCOOR((NBPTS-1)*IDIM1+II)=
     $        (XCOOR((NUM2-1)*IDIM1+II)*XBAR)+
     $        (XCOOR((NUM1-1)*IDIM1+II)*XMBAR)
      ENDDO
      LECT(**)=NBPTS
      RETURN
*
* End of subroutine ISOVA3
*
      END