C #CLRAY V1A 8-MAY-72. C LAST UPDATE: C SUBROUTINE CLRAY(A,N) DIMENSION A(N) C C *PURPOSE. C TO CLEAR (TO ZERO) A REAL ARRAY. C C *PARAMETERS: C C A - THE REAL ARRAY OF LENGTH "N" OR MORE TO BE CLEARED. C N - THE LOGICAL LENGTH OF THE ARRAY TO BE CLEARED. C C INPUT PARAMETERS: C N C OUTPUT PARAMETERS: C A C C *METHOD. C STRAIGHTFORWARD. C C *ACCURACY. C C *RESTRICTIONS. C C *ERROR CONDITIONS. C C *NON STANDARD ROUTINES CALLED. C C *TYPICAL TIMES. C C *ORIGIN. M.R.MANNING. C C *COMMENTS. C THIS ROUTINE WILL OFTEN BE REPLACED BY A MACHINE LANGUAGE C ONE IN WHICH CASE THE CALLLING VERHEAD MAY BE WORTHWHILE. C THE FORTRAN VERSION IS MAINLY FOR PORTABILITY ANS AS A C LANGUAGE EXTENDING ROUTINE. C C #END. C DO 10 I= 1, N 10 A(I)= 0. RETURN END