Esope source files

   1 : C ZEROR     SOURCE    CHAT      05/01/13    04:22:51     5004           
   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*4 n
  15 :       real*8    array (n)
  16 : c
  17 :       integer*4 i
  18 : c
  19 :       do 10 i = 1, n
  20 :          array (i) = 0.0 d0
  21 :    10 continue
  22 : c
  23 :       return
  24 :       end
  25 :  
  26 :