Télécharger kinitb.eso

Retour à la liste

Numérotation des lignes :

  1. C KINITB SOURCE CHAT 05/01/13 00:56:35 5004
  2. SUBROUTINE KINITB(K,N1,N2,KG,NG) KPR04330
  3. IMPLICIT INTEGER(I-N)
  4. IMPLICIT REAL*8 (A-H,O-Z)
  5. C Calcul des facteurs de forme en 3D
  6. C Sp appele par la famille KREMxG
  7. C Initialisation de la bitmap
  8. C
  9. DIMENSION K(N1,N2),KG(2) KPR04340
  10. DO 1 I=1,N1 KPR04350
  11. DO 2 J=1,N2 KPR04360
  12. K(I,J) = 0 KPR04370
  13. 2 CONTINUE KPR04380
  14. 1 CONTINUE KPR04390
  15. KG(1) = 0 KPR04400
  16. KG(2) = 0 KPR04410
  17. NG = 0 KPR04420
  18. RETURN KPR04430
  19. END KPR04440
  20.  
  21.  
  22.  

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