## GDF_TRIM_HEADER

Subroutine GDF_TRIM_HEADER changes the rank of an image header. See GDF_READ_HEADER for interpretation of the rank.

    subroutine gdf_trim_header(imag,rank,error)
      use gio_dependencies_interfaces
      use gio_interfaces, only : gio_message
      use image_def
      use gbl_message
      !---------------------------------------------------------------------
      ! @ public
      ! GDF API
      !       Read an image header from the requested file
      !---------------------------------------------------------------------
      type(gildas), intent(inout) :: imag    ! Image structure
      integer(4),   intent(in)    :: rank    ! Requested Rank
      logical,      intent(out)   :: error   ! Error flag