Télécharger la plaquette Cast3M


fr en

Télécharger un.eso

Retour à la liste

Numérotation des lignes : 

un

  1. C UN        SOURCE    FD218221  25/09/03    21:15:07     12351          
  2.       SUBROUTINE UN(W,N,M)
  3. c=====================================================================
  4. c     MET A 1. UN TABLEAU W(N,M)
  5. c=====================================================================
  6.       INTEGER I,J,N,M
  7.       REAL*8  W(N,M)
  8. C
  9.       DO I=1,N
  10.           DO J=1,M
  11.               W(I,J)=1.D0
  12.           ENDDO
  13.       ENDDO
  14.       RETURN
  15.       END
  16.  
  17.  
  18.  

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