PROGRAM TESTV2
C
C	  PROGRAM TO TEST FOLLOWING ROUTINES ON MATLIB
C	  CROSSD, DOTD, PRODD
C	  (ALL ARE DOUBLE PRECISION ROUTINES)
C
	REAL*8 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 *,' DOUBLE PRECISON VECTOR TEST'
	TYPE 20,A,B,P,Q
20	FORMAT(' A=',5F5.1,/' B=',5F5.1,/' P='F5.1,' Q='F5.1)
	CALL CROSSD(C,A,B)
	TYPE *,' CROSSD ',C
	CALL DOTD(C,A,B,4)
	TYPE *,' DOTD ',C
	CALL PRODD(C,A,B,4)
	TYPE *,' PRODD ',C
	DO 30 I=1,5
 30	C(I) = 0.
	STOP
	END