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.