Télécharger iface4.eso

Retour à la liste

Numérotation des lignes :

  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