This function is a wrapper for the function ssclib/array_utils/getAnnularMaskAry (See the documentation of ssclib), accepting an input 2-dimensional FITS image, and returns a 2-dimensional logical mask array. The input FITS image just provides the size and axes of the returned mask.
interface getAnnularMask
function getAnnularMaskDoubleName(imageSetName, centX, centY &
, rOuter, rInner, extNum) result(arMask)
logical, allocatable :: arMask(:,:) ! result
character(*), intent(in) :: imageSetName
real(double), intent(in) :: centX, centY, rOuter
real(double), intent(in), optional :: rInner ! 0 in default.
integer(int32), intent(in), optional :: extNum ! Extention number of the image array in the input FITS file.
end function getAnnularMaskDoubleName
function getAnnularMaskDoubleSet(imageSet, centX, centY &
, rOuter, rInner, extNum) result(arMask)
logical, allocatable :: arMask(:,:) ! result
type(DataSetT), intent(in) :: imageSet
real(double), intent(in) :: centX, centY, rOuter
real(double), intent(in), optional :: rInner ! 0 in default.
integer(int32), intent(in), optional :: extNum ! Extention number of the image array in the input FITS file.
end function getAnnularMaskDoubleSet
function getAnnularMaskSingleName(imageSetName, centX, centY &
, rOuter, rInner, extNum) result(arMask)
logical, allocatable :: arMask(:,:) ! result
character(*), intent(in) :: imageSetName
real(single), intent(in) :: centX, centY, rOuter
real(single), intent(in), optional :: rInner ! 0 in default.
integer(int32), intent(in), optional :: extNum ! Extention number of the image array in the input FITS file.
end function getAnnularMaskSingleName
function getAnnularMaskSingleSet(imageSet, centX, centY &
, rOuter, rInner, extNum) result(arMask)
logical, allocatable :: arMask(:,:) ! result
type(DataSetT), intent(in) :: imageSet
real(single), intent(in) :: centX, centY, rOuter
real(single), intent(in), optional :: rInner ! 0 in default.
integer(int32), intent(in), optional :: extNum ! Extention number of the image array in the input FITS file.
end function getAnnularMaskSingleSet
end interface