mirror of
https://github.com/HongjianFang/DSurfTomo.git
synced 2025-05-08 00:01:14 +08:00
25 lines
947 B
Fortran
25 lines
947 B
Fortran
|
!+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
|
||
|
|
! File lsmrDataModule.f90
|
||
|
|
!
|
||
|
|
! Defines real(dp) and a few constants for use in other modules.
|
||
|
|
!
|
||
|
|
! 24 Oct 2007: Allows floating-point precision dp to be defined
|
||
|
|
! in exactly one place (here). Note that we need
|
||
|
|
! use lsmrDataModule
|
||
|
|
! at the beginning of modules AND inside interfaces.
|
||
|
|
! zero and one are not currently used by LSMR,
|
||
|
|
! but this shows how they should be declared
|
||
|
|
! by a user routine that does need them.
|
||
|
|
! 16 Jul 2010: LSMR version derived from LSQR equivalent.
|
||
|
|
!+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
|
||
|
|
|
||
|
|
module lsmrDataModule
|
||
|
|
|
||
|
|
implicit none
|
||
|
|
|
||
|
|
intrinsic :: selected_real_kind
|
||
|
|
integer, parameter, public :: dp = selected_real_kind(4)
|
||
|
|
real(dp), parameter, public :: zero = 0.0_dp, one = 1.0_dp
|
||
|
|
|
||
|
|
end module lsmrDataModule
|