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 interface
Computes 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 interface
Read 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 interface
Write 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 interface
Read only the U and V values.