interface instToTan
subroutine instToTanScalar(tanX, tanY, refRaDeg, refDecDeg, scAttitude&
, timeStamp, detX, detY, thetaArcsec, phi)
real(double), intent(out) :: tanX,&
tanY
real(double), intent(in) :: refRaDeg,&
refDecDeg
type(SpacecraftAttitudeType), intent(in) :: scAttitude
real(double), intent(in) :: timeStamp
real(single), optional, intent(in) :: detX,&
detY
real(double), optional, intent(in) :: thetaArcsec,&
phi
end subroutine instToTanScalar
subroutine instToTanVector(tanX, tanY, refRaDeg, refDecDeg, scAttitude&
, timeStamp, detX, detY, thetaArcsec, phi)
real(double), intent(out) :: tanX(:),&
tanY(size(tanX))
real(double), intent(in) :: refRaDeg,&
refDecDeg
type(SpacecraftAttitudeType), intent(in) :: scAttitude
real(double), intent(in) :: timeStamp
real(single), optional, intent(in) :: detX(size(tanX)),&
detY(size(tanX))
real(double), optional, intent(in) :: thetaArcsec(size(tanX)),&
phi(size(tanX))
end subroutine instToTanVector
subroutine instToTanArray(tanX, tanY, refRaDeg, refDecDeg, scAttitude&
, timeStamp, detX, detY, thetaArcsec, phi)
real(double), intent(out) :: tanX(:,:),&
tanY(size(tanX,1),&
size(tanX,2))
real(double), intent(in) :: refRaDeg,&
refDecDeg
type(SpacecraftAttitudeType), intent(in) :: scAttitude
real(double), intent(in) :: timeStamp
real(single), optional, intent(in) :: detX(size(tanX,1),&
size(tanX,2)),&
detY(size(tanX,1),&
size(tanX,2))
real(double), optional, intent(in) :: thetaArcsec(size(tanX,1),&
size(tanX,2)),&
phi(size(tanX,1),&
size(tanX,2))
end subroutine instToTanArray
end interface
Effectively this is just instToRaDec (section
) followed by raDecToTan (section
).
NOTE this function requires the cal to have been set to the correct instrument before the call.