99 lines
2.7 KiB
Fortran
99 lines
2.7 KiB
Fortran
subroutine getAffineVector(affineVec)
|
|
use fitoffState
|
|
implicit none
|
|
double precision, dimension(*)::affineVec
|
|
|
|
affineVec(1:6) = x(1:6)
|
|
end
|
|
|
|
subroutine getNumberOfRefinedOffsets(varInt)
|
|
use fitoffState
|
|
implicit none
|
|
integer varInt
|
|
varInt = imax
|
|
end
|
|
|
|
|
|
subroutine getRefinedLocationAcross(loc)
|
|
use fitoffState
|
|
implicit none
|
|
double precision, dimension(*)::loc
|
|
integer i
|
|
do i=1,imax
|
|
loc(i) = x1o(i)
|
|
enddo
|
|
end
|
|
|
|
subroutine getRefinedLocationDown(loc)
|
|
use fitoffState
|
|
implicit none
|
|
double precision, dimension(*)::loc
|
|
integer i
|
|
do i=1,imax
|
|
loc(i)=y1o(i)
|
|
enddo
|
|
end
|
|
|
|
subroutine getRefinedLocationAcrossOffset(loc)
|
|
use fitoffState
|
|
implicit none
|
|
double precision, dimension(*)::loc
|
|
integer i
|
|
do i=1,imax
|
|
loc(i)=x2o(i) - x1o(i)
|
|
enddo
|
|
end
|
|
|
|
subroutine getRefinedLocationDownOffset(loc)
|
|
use fitoffState
|
|
implicit none
|
|
double precision, dimension(*)::loc
|
|
integer i
|
|
do i=1,imax
|
|
loc(i)=y2o(i) - y1o(i)
|
|
enddo
|
|
end
|
|
|
|
|
|
subroutine getRefinedSNR(loc)
|
|
use fitoffState
|
|
implicit none
|
|
double precision, dimension(*)::loc
|
|
integer i
|
|
do i=1,imax
|
|
loc(i) = snr(i)
|
|
enddo
|
|
end
|
|
|
|
subroutine getRefinedCovAcross(loc)
|
|
use fitoffState
|
|
implicit none
|
|
double precision, dimension(*)::loc
|
|
integer i
|
|
do i=1,imax
|
|
loc(i) = r_covac(i)
|
|
enddo
|
|
end
|
|
|
|
subroutine getRefinedCovDown(loc)
|
|
use fitoffState
|
|
implicit none
|
|
double precision, dimension(*)::loc
|
|
integer i
|
|
do i=1,imax
|
|
loc(i) = r_covdn(i)
|
|
enddo
|
|
end
|
|
|
|
subroutine getRefinedCovCross(loc)
|
|
use fitoffState
|
|
implicit none
|
|
double precision, dimension(*)::loc
|
|
integer i
|
|
do i=1,imax
|
|
loc(i) = r_covx(i)
|
|
enddo
|
|
end
|
|
|
|
|