1 subroutine iclear (iclr, n) 2c 3c---------------------------------------------------------------------- 4c 5c This routine clears an integer array. 6c 7c input: 8c n : number of integers to be zeroed 9c 10c output: 11c iclr (n) : the array to be zeroed 12c 13c 14c Farzin Shakib, Summer 1985. 15c---------------------------------------------------------------------- 16c 17 dimension iclr(n) 18c 19 do i = 1, n 20 iclr(i) = 0 21 enddo 22c 23 return 24 end 25