Blame view

fvn_test/test_det.f90 309 Bytes
27d3b84d6   daniau   git-svn-id: https...
1
  program test_det
2919a9e2d   daniau   git-svn-id: https...
2
  use fvn_linear
27d3b84d6   daniau   git-svn-id: https...
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
  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