Télécharger divise.eso

Retour à la liste

Numérotation des lignes :

  1. C DIVISE SOURCE CHAT 05/01/12 22:52:05 5004
  2. CVERROU SOURCE 91/07/16 16:22:43
  3. CVERROU SOURCE 88/10/05 16:58:48
  4. SUBROUTINE DIVISE(N,R,B,D)
  5. IMPLICIT INTEGER(I-N)
  6. IMPLICIT REAL*8 (A-H,O-Z)
  7. REAL*8 R(N),B(N),D(N)
  8. C
  9. DO 1 I=1,N
  10. R(I)=(B(I)/D(I))
  11. 1 CONTINUE
  12. RETURN
  13. END
  14.  
  15.  

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