C #SBRAY V1A 8-MAY-72. C LAST UPDATE: C SUBROUTINE SBRAY(B,C,A,N) DIMENSION B(N),C(N),A(N) C C *PURPOSE. C TO SUBTRACT A REAL VECTOR "C" FROM ONE "B" WITH THE RESULT C IN "A". C C *PARAMETERS: C C B - REAL ARRAY OF LENGTH "N" OR MORE BEING FIRST VECTOR. C C - REAL ARRAY OF LENGTH "N" OR MORE BEING SECOND VECTOR. C A - REAL ARRAY OF LENGTH "N" OR MORE RETURNING RESULT. C N - LOGICAL LENGTH OF THE VECTORS. C C INPUT PARAMETERS: C B, C, N C OUTPUT PARAMETERS: C A C C *METHOD. C STRAIGHTFORWARD. NOTE THAT ANY OR ALL OF THE VECTORS C MAY BE EQUIVALENT. 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 CALLING OVERHEAD MAY BE WORTHWHILE. C THE FORTRAN VERSION IS MAINLY FOR PORTABILITY AND AS A C LANGUAGE EXTENDING ROUTINE. C C #END. C DO 10 I=1,N 10 A(I)=B(I)-C(I) RETURN END