Télécharger la plaquette Cast3M


fr en

Télécharger iface4.eso

Retour à la liste

Numérotation des lignes : 

iface4

  1. C IFACE4    SOURCE    JC220346  16/11/29    21:15:18     9221           
  2. C---------------------------------------------------------------------|
  3. C                                                                     |
  4.        FUNCTION IFACE4(IP,JP,KP,LP)
  5. C                                                                     |
  6. C      CETTE FONCTION   RECHERCHE LA FACETTE IFC QUI CONTIENT         |
  7. C      LES POINTS IP, JP, KP ET LP.                                   |
  8. C      SI JFC N'EXISTE PAS, ON RECHERCHE L'EXISTENCE EVENTUELLE       |
  9. C      D'UNE FACETTE TRIANGULAIRE (OU CARRE) CONTENANT 3 DES 4 POINTS |
  10. C      ELLE EST RAMENEE EN NEGATIF                                    |
  11. C      - IRET=0 SI AUCUNE FACETTE N'EXISTE                            |
  12. C                                                                     |
  13. C---------------------------------------------------------------------|
  14. C
  15.       IMPLICIT INTEGER(I-N)
  16.       IMPLICIT REAL*8(A-H,O-Z)
  17. -INC TDEMAIT
  18.  
  19. -INC PPARAM
  20. -INC CCOPTIO
  21. C
  22.        DO 100 I=1,40
  23.            IF=NPF(I,IP)
  24.               IF (IF.EQ.0) GOTO 140
  25.               DO 110 J=1,40
  26.                      IF (NPF(J,JP).EQ.0) GOTO 100
  27.                      IF (IF.NE.NPF(J,JP)) GOTO 110
  28.                      DO 120 K=1,40
  29.                             IF (NPF(K,KP).EQ.0) GOTO 100
  30.                             IF (IF.NE.NPF(K,KP)) GOTO 120
  31.                             DO 130 L=1,40
  32.                                    IF (NPF(L,LP).EQ.0) GOTO 200
  33.                                    IF (IF.NE.NPF(L,LP)) GOTO 130
  34.                                    IFACE4=IF
  35.                                    RETURN
  36. 130                         CONTINUE
  37.                          GOTO 200
  38. 120                  CONTINUE
  39. 110           CONTINUE
  40. 100    CONTINUE
  41. C
  42. 140    IFC=IFACE3(IP,JP,KP)
  43.        IF (IFC.EQ.0) GOTO 150
  44.          IFACE4=-IFC
  45.        RETURN
  46. C
  47. 150    IFC=IFACE3(IP,JP,LP)
  48.        IF (IFC.EQ.0) GOTO 160
  49.          IFACE4=-IFC
  50.        RETURN
  51. C
  52. 160    IFC=IFACE3(IP,KP,LP)
  53.        IF (IFC.EQ.0) GOTO 170
  54.          IFACE4=-IFC
  55.        RETURN
  56. C
  57. 170    IFC=IFACE3(JP,KP,LP)
  58.        IF (IFC.EQ.0) GOTO 180
  59.          IFACE4=-IFC
  60.        RETURN
  61. C
  62.  180   IFACE4=0
  63.        RETURN
  64. C
  65. 200    CONTINUE
  66.          IFACE4=-IF
  67.        RETURN
  68. C
  69. C      FIN DE LA SUBROUTINE FACE4
  70.        END
  71.  
  72.  
  73.  
  74.  

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