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