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 :
© Cast3M 2003 - All rights reserved.
Disclaimer