blob: 45a93f6c1b09799b12477085a61a8233d4561ea8 [file] [log] [blame] [edit]
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