Télécharger ktypks.eso

Retour à la liste

Numérotation des lignes :

  1. C KTYPKS SOURCE CHAT 05/01/13 01:11:25 5004
  2. SUBROUTINE KTYPKS(NPATCH,KS1D,KS1F)
  3. IMPLICIT INTEGER(I-N)
  4. IMPLICIT REAL*8 (A-H,O-Z)
  5. KS1D = 1
  6. KS1F = NPATCH
  7. RETURN
  8. END
  9.  
  10.  

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