Télécharger kinbuf.eso

Retour à la liste

Numérotation des lignes :

  1. C KINBUF SOURCE CHAT 05/01/13 00:56:32 5004
  2. SUBROUTINE KINBUF (SKBUFF)
  3. IMPLICIT INTEGER(I-N)
  4. IMPLICIT REAL*8 (A-H,O-Z)
  5. C
  6. C Calcul des facteurs de forme en 3D
  7. C Sp appele par FACGEN
  8. C INITIALISATION DU Z-BUFFER
  9. C --------------------------
  10. -INC TFFOR3D
  11. C
  12. DO 1 NF = 1,KFC
  13. DO 2 I = 1,NRES
  14. DO 3 J = 1,NRES
  15. ZB(NF,I,J) = 1000.
  16. NUMF(NF,1,I,J) = 0
  17. NTYP(NF,I,J) = 0
  18. 3 CONTINUE
  19. 2 CONTINUE
  20. 1 CONTINUE
  21. RETURN
  22. END
  23.  
  24.  
  25.  

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