interface telCoordToDetXY
subroutine telCoordToDetXYScalar(thetaArcsec, phi, detX, detY)
real(double), intent(in) :: phi, thetaArcsec
real(single), intent(out) :: detX, detY
end subroutine telCoordToDetXYScalar
subroutine telCoordToDetXYVector(thetaArcsec, phi, detX, detY)
real(double), intent(in) :: phi(:), thetaArcsec(size(phi))
real(single), intent(out) :: detX(size(phi)), detY(size(phi))
end subroutine telCoordToDetXYVector
end interface
Takes a position in the TELCOORD system and returns it in DETXY (ie, in CAMCOORD2 multiplied by a factor to convert mm at the focal plane (the unit of CAMCOORD2) to units of 0.05 arcsec (the unit of DETXY)).