interface subroutine gdf_get_baselines (mine,error) use image_def use gbl_message use gbl_format !--------------------------------------------------------------------- ! @ public ! GDF API ! Compute the baseline range from a Virtual Memory UV data (one with the ! appropriate address field). Note that the address field ! can have been set independently of the %getvm status !--------------------------------------------------------------------- type (gildas), intent(inout) :: mine ! logical, intent(out) :: error ! end subroutine gdf_get_baselines end interfaceComputes the min max of the baseline lengths. Used to update the header.
interface subroutine gdf_read_uvall (huv,array,error) use gio_interfaces use image_def use gio_image use gbl_message use gbl_format !--------------------------------------------------------------------- ! @ no-interface (because of argument type mismatch) ! Read data from a GILDAS UV structure and ! place it in the specified array !--------------------------------------------------------------------- type(gildas), intent(inout) :: huv ! Image descriptor real(kind=4), intent(inout) :: array(*) ! Data logical, intent(out) :: error ! Flag end subroutine gdf_read_uvall end interfaceRead the full UV data set (all channels included). Implicitely used by gdf_read_data when possible.
interface subroutine gdf_write_uvall(huv,array,error) use gio_interfaces use image_def use gio_image use gbl_message !--------------------------------------------------------------------- ! @ no-interface (Yet...) ! Write UV data to an image file specified ! by its image structure. The image must have been ! opened for write before !--------------------------------------------------------------------- type(gildas), intent(inout) :: huv ! Image descriptor real, intent(inout) :: array(*) ! Data logical, intent(out) :: error ! Flag end subroutine gdf_write_uvall end interfaceWrite the full UV data set (all channels included). Implicitely used by gdf_write_data when possible.
interface subroutine gdf_read_uvonly(huv,uv,error) use image_def use gio_image use gbl_message !--------------------------------------------------------------------- ! @ public ! GDF API ! Read the UV data of a GILDAS UV structure ! UVT and TUV order are allowed... !--------------------------------------------------------------------- type (gildas), intent(inout) :: huv ! UV table descriptor real(kind=4), intent(out) :: uv(huv%gil%nvisi,2) ! Return U,V coordinates logical, intent(out) :: error ! Flag end subroutine gdf_read_uvonly end interfaceRead only the U and V values.