lxsd / fvn

Blame view

fvn_test/test_det.f90 331 Bytes
edit raw normal view history
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
 
  implicit none
f6bacaf83   cwaterkeyn   ChW 11/09: ANSI c... 
4
5
 
  real(kind=dp_kind),dimension(3,3) :: a
  real(kind=dp_kind) :: deta
27d3b84d6   daniau   git-svn-id: https... 
6
7
8
9
10
11
12
13
14
15
16
17
 
  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