Télécharger ipred.eso

Retour à la liste

Numérotation des lignes :

  1. C IPRED SOURCE JC220346 16/11/29 21:15:24 9221
  2. C---------------------------------------------------------------------|
  3. C |
  4. INTEGER FUNCTION IPRED(JF,JP)
  5. C |
  6. C CETTE FONCTION RENVOIE LE PREDECESSEUR DU POINT JP DANS |
  7. C LA FACETTE JF |
  8. C |
  9. C---------------------------------------------------------------------|
  10. C
  11. IMPLICIT INTEGER(I-N)
  12. IMPLICIT REAL*8(A-H,O-Z)
  13. -INC TDEMAIT
  14. -INC CCOPTIO
  15. C
  16. DO 100 I=1,4
  17. IF (NFC(I,JF).EQ.JP) GOTO 110
  18. 100 CONTINUE
  19. IF (IVERB.EQ.1) WRITE (6,*) ' IPRED PAS DE PREDECESSEUR A ',JP,
  20. & ' DANS ',JF
  21. IF (IVERB.EQ.1) write (6,*) ' liste des facettes restantes '
  22. DO 444 I=1,NFCMAX
  23. IF (IFAT(I).EQ.1) GOTO 444
  24. IF (IVERB.EQ.1)
  25. & WRITE (6,*) I,NFC(1,I),NFC(2,I),NFC(3,I),NFC(4,I)
  26. 444 CONTINUE
  27. IF (IVERB.EQ.1) THEN
  28. write (6,*) ' liste de NPF '
  29. DO 445 I=1,Nptmax
  30. WRITE (6,*) I,(npf(j,i),j=1,40)
  31. 445 CONTINUE
  32. write (6,*) ' liste de ifat et ifut'
  33. DO 446 I=1,ifat(/1)
  34. WRITE (6,*) I,ifat(i),ifut(i)
  35. 446 CONTINUE
  36. ENDIF
  37. i=100000000
  38. nfc(1,i)=1
  39. * CALL ERRTRA
  40. C
  41. STOP
  42. 110 I=I-1
  43. IF (I.EQ.0) I=4
  44. IPR=NFC(I,JF)
  45. IF (IPR.EQ.0) IPR=NFC(3,JF)
  46. IPRED=IPR
  47. C
  48. RETURN
  49. END
  50.  
  51.  
  52.  
  53.  

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