1 subroutine clear (clr, n) 2c 3c---------------------------------------------------------------------- 4c 5c This routine clears a floating point array. 6c 7c input: 8c n : number of floating points to be zeroed 9c 10c output: 11c clr (n) : the array to be zeroed 12c 13c Farzin Shakib, Summer 1985. 14c---------------------------------------------------------------------- 15c 16 include "common.h" 17c 18 dimension clr(n) 19c 20 do i = 1, n 21 clr(i) = zero 22 enddo 23c 24 return 25 end 26