real(kind=single), dimension(:,:), pointer &
:: PSFmap
end subroutine
function CAL_omNaturalMagnitude(naturalRate, &
naturalRateErrorMinus, &
naturalRateErrorPlus, &
magnitudeErrorMinus, &
magnitiudeErrorPlus) result(result)
use types
real(kind=double), intent(in) :: naturalRate
real(kind=double), intent(in), optional :: naturalRateErrorMinus, &
naturalRateErrorPlus
real(kind=double), intent(out), optional:: magnitudeErrorMinus, &
magnitiudeErrorPlus
real(kind=double) :: result
end function