1 : C PELPO SOURCE FANDEUR 10/12/14 21:18:39 6812 2 : C 3 : C ===> SOUS-PROGRAMME PELPO PLUS UTILISE <=== 4 : C ===> SUBROUTINE NO LONGER USED <=== 5 : C 6 : SUBROUTINE PELPO 7 : 8 : IMPLICIT INTEGER(I-N) 9 : IMPLICIT REAL*8(A-H,O-Z) 10 : 11 : RETURN 12 : END 13 : 14 :
© Cast3M 2003 - All rights reserved.
Disclaimer