Sources Esope | Cast3M

iface3
C IFACE3    SOURCE    JC220346  16/11/29    21:15:17     9221           
C---------------------------------------------------------------------|
C                                                                     |
       FUNCTION IFACE3(IP,JP,KP)
C                                                                     |
C      CETTE SUBROUTINE RECHERCHE LA FACETTE IFC QUI CONTIENT         |
C      LES TROIS POINTS IP, JP ET KP. CETTE FACETTE PEUT ETRE         |
C      CARREE OU TRIANGULAIRE.                                        |
C      - IRET=1 SI IFC EXISTE                                         |
C      - IRET=0 SI IFC N'EXISTE PAS                                   |
C      - IRET=-1 SI IFC a existe et n'existe plus                     |
C                                                                     |
C---------------------------------------------------------------------|
C
      IMPLICIT INTEGER(I-N)
      IMPLICIT REAL*8(A-H,O-Z)
-INC TDEMAIT
 
-INC PPARAM
-INC CCOPTIO
C
       DO 100 I=1,40
          IF=NPF(I,IP)
              IF (IF.EQ.0) GOTO 130
              DO 110 J=1,40
                     IF (NPF(J,JP).EQ.0) GOTO 100
                     IF (IF.NE.NPF(J,JP)) GOTO 110
                     DO 120 K=1,40
                            IF (NPF(K,KP).EQ.0) GOTO 100
                            IF (IF.NE.NPF(K,KP)) GOTO 120
                            GOTO 130
120                  CONTINUE
                GOTO 100
110           CONTINUE
100    CONTINUE
        IF=0
130    CONTINUE
*       if (if.eq.0) then
*        do 200 jf=1,nfcmax
*         do 201 j=1,4
*          lp=nfc(j,jf)
*          if (lp.eq.0) goto 201
*          if (ip.ne.lp.and.jp.ne.lp.and.jp.ne.kp) goto 200
*201       continue
*          write (6,*) ' tentative de reutilisation d''une facette '
*          stop
*200      continue
*        endif
       IFACE3=IF
C      FIN DE LA SUBROUTINE FACE3
       END