mirror of
https://github.com/saitohirga/WSJT-X.git
synced 2024-10-31 23:57:10 -04:00
d6fdc3971d
git-svn-id: svn+ssh://svn.code.sf.net/p/wsjt/wsjt/branches/wsjtx@3623 ab8295b8-cf94-4d9e-aec4-7959e3be5d79
33 lines
646 B
Fortran
33 lines
646 B
Fortran
real*8 function determ(array,norder)
|
|
implicit real*8 (a-h,o-z)
|
|
real*8 array(10,10)
|
|
|
|
determ=1.
|
|
do k=1,norder
|
|
if (array(k,k).ne.0) go to 41
|
|
do j=k,norder
|
|
if(array(k,j).ne.0) go to 31
|
|
enddo
|
|
determ=0.
|
|
go to 60
|
|
|
|
31 do i=k,norder
|
|
s8=array(i,j)
|
|
array(i,j)=array(i,k)
|
|
array(i,k)=s8
|
|
enddo
|
|
determ=-1.*determ
|
|
41 determ=determ*array(k,k)
|
|
if(k.lt.norder) then
|
|
k1=k+1
|
|
do i=k1,norder
|
|
do j=k1,norder
|
|
array(i,j)=array(i,j)-array(i,k)*array(k,j)/array(k,k)
|
|
enddo
|
|
enddo
|
|
end if
|
|
enddo
|
|
|
|
60 return
|
|
end function determ
|