Télécharger kinbu2.eso

Retour à la liste

Numérotation des lignes :

  1. C KINBU2 SOURCE CHAT 05/01/13 00:56:30 5004
  2. SUBROUTINE KINBU2 (SKBUF2,SKRESO)
  3. IMPLICIT INTEGER(I-N)
  4. IMPLICIT REAL*8 (A-H,O-Z)
  5. C
  6. C INITIALISATION DU BUFFER
  7. C ------------------------
  8. C
  9. C-----------------------------------------------------------------------
  10. SEGMENT SKRESO
  11. INTEGER KFC,NRES,KES,KIMP
  12. ENDSEGMENT
  13. C KFC : NOMBRE DE FACES H.C
  14. C NRES: RESOLUTION
  15. C KES : DIM ESPACE
  16. C KIMP: IMPRESSION
  17. C-----------------------------------------------------------------------
  18. C-----------------------------------------------------------------------
  19. SEGMENT SKBUF2
  20. INTEGER NUMF(NFC,NOC,NR),NTYP(NFC,NR)
  21. REAL*8 ZB(NFC,NR),PSC(NFC,NR)
  22. ENDSEGMENT
  23. C
  24. C BUFFER ASSOCIE AU H.C
  25. C ---------------------
  26. C NUMF : INDICE DE LE DERNIERE FACE RENCONTREE
  27. C NTYP : TYPES ASSOCIES
  28. C ZB : PROFONDEUR
  29. C PSC : PRODUIT SCALAIRE (NORMALE.DIRECTION CELLULE)
  30. C-----------------------------------------------------------------------
  31. C
  32. DO 1 NF = 1,KFC
  33. DO 2 I = 1,NRES
  34. ZB(NF,I) = 1000.
  35. NUMF(NF,1,I) = 0
  36. NTYP(NF,I) = 0
  37. 2 CONTINUE
  38. 1 CONTINUE
  39. RETURN
  40. END
  41.  
  42.  

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