Numérotation des lignes :

C IFACE4    SOURCE    JC220346  16/11/29    21:15:18     9221           C---------------------------------------------------------------------|C                                                                     |       FUNCTION IFACE4(IP,JP,KP,LP)C                                                                     |C      CETTE FONCTION   RECHERCHE LA FACETTE IFC QUI CONTIENT         |C      LES POINTS IP, JP, KP ET LP.                                   |C      SI JFC N'EXISTE PAS, ON RECHERCHE L'EXISTENCE EVENTUELLE       |C      D'UNE FACETTE TRIANGULAIRE (OU CARRE) CONTENANT 3 DES 4 POINTS |C      ELLE EST RAMENEE EN NEGATIF                                    |C      - IRET=0 SI AUCUNE FACETTE N'EXISTE                            |C                                                                     |C---------------------------------------------------------------------|C      IMPLICIT INTEGER(I-N)      IMPLICIT REAL*8(A-H,O-Z)-INC TDEMAIT -INC PPARAM-INC CCOPTIOC       DO 100 I=1,40           IF=NPF(I,IP)              IF (IF.EQ.0) GOTO 140              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                            DO 130 L=1,40                                   IF (NPF(L,LP).EQ.0) GOTO 200                                   IF (IF.NE.NPF(L,LP)) GOTO 130                                   IFACE4=IF                                   RETURN130                         CONTINUE                         GOTO 200120                  CONTINUE110           CONTINUE100    CONTINUEC140    IFC=IFACE3(IP,JP,KP)       IF (IFC.EQ.0) GOTO 150         IFACE4=-IFC       RETURNC150    IFC=IFACE3(IP,JP,LP)       IF (IFC.EQ.0) GOTO 160         IFACE4=-IFC       RETURNC160    IFC=IFACE3(IP,KP,LP)       IF (IFC.EQ.0) GOTO 170         IFACE4=-IFC       RETURNC170    IFC=IFACE3(JP,KP,LP)       IF (IFC.EQ.0) GOTO 180         IFACE4=-IFC       RETURNC 180   IFACE4=0       RETURNC200    CONTINUE         IFACE4=-IF       RETURNCC      FIN DE LA SUBROUTINE FACE4       END

© Cast3M 2003 - Tous droits réservés.
Mentions légales