mirror of
https://github.com/HongjianFang/DSurfTomo.git
synced 2025-05-07 15:41:14 +08:00
fb7b81711f
change 1e-2 to 'ftol' in CalSurfG.f90, which may cause problem with small study region (~2 km)
42 lines
1.3 KiB
Fortran
42 lines
1.3 KiB
Fortran
!+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
|
|
! File lsmrblasInterface.f90
|
|
!
|
|
! BLAS1 Interfaces: ddot dnrm2 dscal
|
|
!
|
|
! Maintained by Michael Saunders <saunders@stanford.edu>.
|
|
!
|
|
! 19 Dec 2008: lsqrblasInterface module implemented.
|
|
! Metcalf and Reid recommend putting interfaces in a module.
|
|
! 16 Jul 2010: LSMR version derived from LSQR equivalent.
|
|
!+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
|
|
|
|
module lsmrblasInterface
|
|
|
|
implicit none
|
|
public :: ddot, dnrm2, dscal
|
|
|
|
interface ! Level 1 BLAS
|
|
function ddot (n,dx,incx,dy,incy)
|
|
use lsmrDataModule, only : dp
|
|
integer, intent(in) :: n,incx,incy
|
|
real(dp), intent(in) :: dx(*),dy(*)
|
|
real(dp) :: ddot
|
|
end function ddot
|
|
|
|
function dnrm2 (n,dx,incx)
|
|
use lsmrDataModule, only : dp
|
|
integer, intent(in) :: n,incx
|
|
real(dp), intent(in) :: dx(*)
|
|
real(dp) :: dnrm2
|
|
end function dnrm2
|
|
|
|
subroutine dscal (n,sa,x,incx)
|
|
use lsmrDataModule, only : dp
|
|
integer, intent(in) :: n,incx
|
|
real(dp), intent(in) :: sa
|
|
real(dp), intent(inout) :: x(*)
|
|
end subroutine dscal
|
|
end interface
|
|
|
|
end module lsmrblasInterface
|