MODULE modfile73a
PUBLIC re_alloc, defaults
integersp
integerselected_real_kind0
integer:: i8b = selected_int_kind(8)
interface
   subroutine alloc_error_report_interf(str,code)
   end
   subroutine alloc_memory_event_interf(bytes,name)
   end
end interface
procedure()alloc_error_report
procedure()alloc_memory_event
  interface de_alloc
  end interface
  charactercharacter, DEFAULT_ROUTINE
  type allocDefaults
    logical copy
    logical shrink
    integer imin
    characterroutine
  end type
  type(allocDefaults)DEFAULT
  integer IERR
  logical ASSOCIATED_ARRAY, NEEDS_ALLOC, NEEDS_COPY, NEEDS_DEALLOC
CONTAINS
  subroutine set_alloc_event_handler(func)
  end
  subroutine set_alloc_error_handler(func)
  end
  subroutine dummy_alloc_memory_event(bytes,name)
  end
  subroutine dummy_alloc_error_report(name,code)
  end
SUBROUTINE alloc_default( old, new, restore,          routine, copy, shrink, imin )
END
SUBROUTINE realloc_i1( array, i1min, i1max, name, routine, copy, shrink )
END
SUBROUTINE realloc_i2( array, i1min,i1max, i2min,i2max,       name, routine, copy, shrink )
END
SUBROUTINE realloc_i3( array, i1min,i1max, i2min,i2max, i3min,i3max, name, routine, copy, shrink )
END
SUBROUTINE realloc_i4( array, i1min,i1max, i2min,i2max, i3min,i3max, i4min,i4max, name, routine, copy, shrink )
END
SUBROUTINE realloc_i5( array, i1min,i1max, i2min,i2max, i3min,i3max, i4min, i4max, i5min, i5max, name, routine, copy, shrink )
END
SUBROUTINE realloc_E1( array, i1min, i1max, name, routine, copy, shrink )
END
SUBROUTINE realloc_r1( array, i1min, i1max,        name, routine, copy, shrink )
END
SUBROUTINE realloc_r2( array, i1min,i1max, i2min,i2max, name, routine, copy, shrink )
END
SUBROUTINE realloc_r3( array, i1min,i1max, i2min,i2max, i3min,i3max, name, routine, copy, shrink )
END
SUBROUTINE realloc_r4( array, i1min,i1max, i2min,i2max, i3min,i3max, i4min,i4max, name, routine, copy, shrink )
END
SUBROUTINE realloc_r5( array, i1min,i1max, i2min,i2max, i3min,i3max, i4min, i4max, i5min, i5max, name, routine, copy, shrink )
END
SUBROUTINE realloc_d1( array, i1min, i1max,        name, routine, copy, shrink )
END
SUBROUTINE realloc_d2( array, i1min,i1max, i2min,i2max, name, routine, copy, shrink )
END
SUBROUTINE realloc_d3( array, i1min,i1max, i2min,i2max, i3min,i3max, name, routine, copy, shrink )
END
SUBROUTINE realloc_d4( array, i1min,i1max, i2min,i2max, i3min,i3max, i4min,i4max, name, routine, copy, shrink )
END
SUBROUTINE realloc_d5( array, i1min,i1max, i2min,i2max, i3min,i3max, i4min,i4max, i5min,i5max, name, routine, copy, shrink )
END
SUBROUTINE realloc_c1( array, i1min, i1max,        name, routine, copy, shrink )
END
SUBROUTINE realloc_c2( array, i1min,i1max, i2min,i2max, name, routine, copy, shrink )
END
SUBROUTINE realloc_c3( array, i1min,i1max, i2min,i2max, i3min,i3max, name, routine, copy, shrink )
END
SUBROUTINE realloc_c4( array, i1min,i1max, i2min,i2max, i3min,i3max, i4min,i4max, name, routine, copy, shrink )
END
SUBROUTINE realloc_c5( array, i1min,i1max, i2min,i2max, i3min,i3max, i4min, i4max, i5min, i5max, name, routine, copy, shrink )
END
SUBROUTINE realloc_z1( array, i1min, i1max,        name, routine, copy, shrink )
END
SUBROUTINE realloc_z2( array, i1min,i1max, i2min,i2max, name, routine, copy, shrink )
END
SUBROUTINE realloc_z3( array, i1min,i1max, i2min,i2max, i3min,i3max, name, routine, copy, shrink )
END
SUBROUTINE realloc_z4( array, i1min,i1max, i2min,i2max, i3min,i3max, i4min,i4max, name, routine, copy, shrink )
END
SUBROUTINE realloc_z5( array, i1min,i1max, i2min,i2max, i3min,i3max, i4min, i4max, i5min, i5max, name, routine, copy, shrink )
END
SUBROUTINE realloc_l1( array, i1min,i1max,  name, routine, copy, shrink )
END
SUBROUTINE realloc_l2( array, i1min,i1max, i2min,i2max, name, routine, copy, shrink )
END
SUBROUTINE realloc_l3( array, i1min,i1max, i2min,i2max, i3min,i3max, name, routine, copy, shrink )
END
SUBROUTINE realloc_l4( array, i1min,i1max, i2min,i2max, i3min,i3max, i4min,i4max, name, routine, copy, shrink )
END
SUBROUTINE realloc_l5( array, i1min,i1max, i2min,i2max, i3min,i3max, i4min, i4max, i5min, i5max, name, routine, copy, shrink )
END
SUBROUTINE realloc_i1s( array, i1max, name, routine, copy, shrink )
END
SUBROUTINE realloc_i2s( array, i1max, i2max,  name, routine, copy, shrink )
END
SUBROUTINE realloc_i3s( array, i1max, i2max, i3max, name, routine, copy, shrink )
END
SUBROUTINE realloc_r1s( array, i1max, name, routine, copy, shrink )
END
SUBROUTINE realloc_r2s( array, i1max, i2max, name, routine, copy, shrink )
END
SUBROUTINE realloc_r3s( array, i1max, i2max, i3max, name, routine, copy, shrink )
END
SUBROUTINE realloc_r4s( array, i1max, i2max, i3max, i4max, name, routine, copy, shrink )
END
SUBROUTINE realloc_d1s( array, i1max, name, routine, copy, shrink )
END
SUBROUTINE realloc_d3s( array, i1max, i2max, i3max, name, routine, copy, shrink )
END
SUBROUTINE realloc_d4s( array, i1max, i2max, i3max, i4max, name, routine, copy, shrink )
END
SUBROUTINE realloc_l1s( array, i1max, name, routine, copy, shrink )
END
SUBROUTINE realloc_l2s( array, i1max, i2max, name, routine, copy, shrink )
END
SUBROUTINE realloc_l3s( array, i1max, i2max, i3max, name, routine, copy, shrink )
END
SUBROUTINE realloc_s1( array, i1min, i1max, name, routine, copy, shrink )
END
SUBROUTINE dealloc_i1( array, name, routine )
END
SUBROUTINE dealloc_i2( array, name, routine )
END
SUBROUTINE dealloc_i3( array, name, routine )
END
SUBROUTINE dealloc_i4( array, name, routine )
  END
SUBROUTINE dealloc_i5( array, name, routine )
  END
SUBROUTINE dealloc_E1( array, name, routine )
END
SUBROUTINE dealloc_r1( array, name, routine )
END
SUBROUTINE dealloc_r2( array, name, routine )
END
SUBROUTINE dealloc_r3( array, name, routine )
END
SUBROUTINE dealloc_r4( array, name, routine )
END
SUBROUTINE dealloc_r5( array, name, routine )
END
SUBROUTINE dealloc_d1( array, name, routine )
END
SUBROUTINE dealloc_d2( array, name, routine )
END
SUBROUTINE dealloc_d3( array, name, routine )
END
SUBROUTINE dealloc_d4( array, name, routine )
END
SUBROUTINE dealloc_d5( array, name, routine )
END
SUBROUTINE dealloc_c1( array, name, routine )
END
SUBROUTINE dealloc_c2( array, name, routine )
END
SUBROUTINE dealloc_c3( array, name, routine )
END
SUBROUTINE dealloc_c4( array, name, routine )
END
SUBROUTINE dealloc_c5( array, name, routine )
  END
SUBROUTINE dealloc_z1( array, name, routine )
END
SUBROUTINE dealloc_z2( array, name, routine )
END
SUBROUTINE dealloc_z3( array, name, routine )
END
SUBROUTINE dealloc_z4( array, name, routine )
END
SUBROUTINE dealloc_z5( array, name, routine )
  END
SUBROUTINE dealloc_l1( array, name, routine )
END
SUBROUTINE dealloc_l2( array, name, routine )
END
SUBROUTINE dealloc_l3( array, name, routine )
END
SUBROUTINE dealloc_l4( array, name, routine )
  END
SUBROUTINE dealloc_l5( array, name, routine )
  END
SUBROUTINE dealloc_s1( array, name, routine )
END
SUBROUTINE options( final_bounds, common_bounds, old_bounds, new_bounds, copy, shrink )
END
SUBROUTINE alloc_err( ierr, name, routine, bounds )
END
SUBROUTINE alloc_count( delta_size, type, name, routine )
END
END