C POSPT     SOURCE    BP208322  12/10/03    21:15:10     7517           
      SUBROUTINE POSPT (IPT1, POS1, IPT2, POS2)
      IMPLICIT INTEGER(I-N)
      IMPLICIT REAL*8 (A-H,O-Z)
*
************************************************************************
*              RECHERCHE LA POSITION DU NOEUD POS1 DE IPT1 DANS IPT2   *
* _____________________________________________________________________*
*                                                                      *
*     DATE : 19 avril 1995                                             *
*     AUTEUR : Nicolas BENECH                                          *
* _____________________________________________________________________*
*                                                                      *
*     MODULE(S) APPELANT(S) : QZADRG, COPMAT                           *
*                                                                      *
*     MODULE(S) APPELE(S) :                                            *
* _____________________________________________________________________*
*                                                                      *
*     EN ENTREE :                                                      *
*            -IPT1 : maillage (actif)                                  *
*            -POS1 : numero du point dans IPT1                         *
*            -IPT2 : maillage a scruter (actif)                        *
* _____________________________________________________________________*
*                                                                      *
*     EN SORTIE :                                                      *
*            -POS2 : position du noeud ou 0 s'il n'a pas ete trouve    *
************************************************************************
*
-INC CCOPTIO
-INC SMELEME
*
      LOGICAL TROUVE
      INTEGER I, LONG, POS1, POS2
*
*
      TROUVE =.FALSE.
c       SEGACT, IPT1
        POINT = IPT1.NUM(POS1,1)
c       SEGDES, IPT1
c       SEGACT, IPT2
        LONG = IPT2.NUM(/1)
        I=1
 20     IF ((TROUVE) .OR. (I.GT.LONG)) GOTO 10
          TROUVE = (POINT.EQ.(IPT2.NUM(I,1)))
          I=I+1
        GOTO 20
c       SEGDES, IPT2
*
 10   IF (TROUVE) THEN
        POS2 = I-1
      ELSE
        POS2 = 0
      ENDIF
*
      RETURN
      END