test_det.f90 309 Bytes
program test_det
use fvn_linear
implicit none
real(8),dimension(3,3) :: a
real(8) :: deta
integer :: status,i

call init_random_seed()
call random_number(a)
a=a*100
deta=fvn_det(3,a,status)
do i=1,3
    write (*,'(3(f15.5))') a(i,:)
end do
write (*,*)
write (*,*) "Det = ",deta,"Status = ",status
end program