utiniv
C UTINIV SOURCE CHAT 05/01/13 04:00:11 5004 IMPLICIT INTEGER(I-N) IMPLICIT REAL*8 (A-H,O-Z) DIMENSION B(N) C C INITIALISATION D'UN VECTEUR C DO 1 I = 1,N B(I) = 0. 1 CONTINUE RETURN END
© Cast3M 2003 - Tous droits réservés.
Mentions légales