Télécharger kfinso.eso

Retour à la liste

Numérotation des lignes :

  1. C KFINSO SOURCE CHAT 05/01/13 00:55:21 5004
  2. SUBROUTINE KFINSO(NF1,NF2,KA,IM,KG) KFI00020
  3. IMPLICIT INTEGER(I-N)
  4. IMPLICIT REAL*8 (A-H,O-Z)
  5. C Calcul des facteurs de forme en 3D
  6. DIMENSION KG(2),KA(1),IM(1) KFI00030
  7. KK1 = KA(NF1) KFI00050
  8. KK2 = KA(NF2) KFI00060
  9. IF (KK1.LT.KK2) THEN KFI00070
  10. KG(1) = IM(NF1) KFI00080
  11. KG(2) = IM(NF2) KFI00090
  12. ELSE KFI00100
  13. KG(1) = IM(NF2) KFI00110
  14. KG(2) = IM(NF1) KFI00120
  15. ENDIF KFI00130
  16. END KFI00140
  17.  
  18.  
  19.  

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