Télécharger la plaquette Cast3M


fr en

Télécharger zeror.eso

Retour à la liste

Numérotation des lignes : 

zeror

  1. C ZEROR     SOURCE    CB215821  17/07/21    21:15:37     9513           
  2. c---------------------------------------------------------------------
  3. c
  4.       SUBROUTINE ZEROR (ARRAY, N)
  5. c
  6. c=====================================================================
  7. c                                                                    =
  8. c  Sets to zero real arrays.                                         =
  9. c                                                                    =
  10. c   Author: Rui Faria                           Version: 93.04.20    =
  11. c                                               --------             =
  12. c=====================================================================
  13.       IMPLICIT INTEGER(I-N)
  14.       integer   n,i
  15.       real*8    array (n)
  16. c
  17.       do i = 1, n
  18.          array (i) = 0.d0
  19.       enddo
  20. c
  21.       return
  22.       end
  23.  
  24.  
  25.  

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