PROGRAM TESTV2
C
C	  PROGRAM TO TEST FOLLOWING ROUTINES ON MATLIB
C	  CROSS, DOT, PROD
C	  (ALL ARE SINGLE PRECISION ROUTINES)
C
	REAL A(5),B(5),C(5),P,Q
	DATA P,Q/ 5.,2./
C
	DO 10 I=1,5
	A(I) = I
	B(I) = I+2
10	CONTINUE
	TYPE *,' SINGLE PRECISON VECTOR TEST'
	TYPE 20,A,B,P,Q
20	FORMAT(' A=',5F5.1,/' B=',5F5.1,/' P='F5.1,' Q='F5.1)
	CALL CROSS(C,A,B)
	TYPE *,' CROSS ',C
	CALL DOT(C,A,B,4)
	TYPE *,' DOT ',C
	CALL PROD(C,A,B,4)
	TYPE *,' PROD ',C
	DO 30 I=1,5
 30	C(I) = 0.
	STOP
	END