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