Télécharger kfalim.eso

Retour à la liste

Numérotation des lignes :

  1. C KFALIM SOURCE CHAT 05/01/13 00:55:02 5004
  2. SUBROUTINE KFALIM(NFACE,K1D,K1F)
  3. IMPLICIT INTEGER(I-N)
  4. IMPLICIT REAL*8 (A-H,O-Z)
  5. K1D = 1
  6. K1F = NFACE
  7. RETURN
  8. END
  9.  
  10.  

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