198 lines · plain
1MODULE modfile73a2PUBLIC re_alloc, defaults3integersp 4integerselected_real_kind05integer:: i8b = selected_int_kind(8)6interface7 subroutine alloc_error_report_interf(str,code)8 end 9 subroutine alloc_memory_event_interf(bytes,name)10 end 11end interface12procedure()alloc_error_report 13procedure()alloc_memory_event 14 interface de_alloc15 end interface16 charactercharacter, DEFAULT_ROUTINE 17 type allocDefaults18 logical copy19 logical shrink20 integer imin21 characterroutine22 end type 23 type(allocDefaults)DEFAULT24 integer IERR25 logical ASSOCIATED_ARRAY, NEEDS_ALLOC, NEEDS_COPY, NEEDS_DEALLOC26CONTAINS27 subroutine set_alloc_event_handler(func)28 end 29 subroutine set_alloc_error_handler(func)30 end 31 subroutine dummy_alloc_memory_event(bytes,name)32 end 33 subroutine dummy_alloc_error_report(name,code)34 end 35SUBROUTINE alloc_default( old, new, restore, routine, copy, shrink, imin )36END 37SUBROUTINE realloc_i1( array, i1min, i1max, name, routine, copy, shrink )38END 39SUBROUTINE realloc_i2( array, i1min,i1max, i2min,i2max, name, routine, copy, shrink )40END 41SUBROUTINE realloc_i3( array, i1min,i1max, i2min,i2max, i3min,i3max, name, routine, copy, shrink )42END 43SUBROUTINE realloc_i4( array, i1min,i1max, i2min,i2max, i3min,i3max, i4min,i4max, name, routine, copy, shrink )44END 45SUBROUTINE realloc_i5( array, i1min,i1max, i2min,i2max, i3min,i3max, i4min, i4max, i5min, i5max, name, routine, copy, shrink )46END 47SUBROUTINE realloc_E1( array, i1min, i1max, name, routine, copy, shrink )48END 49SUBROUTINE realloc_r1( array, i1min, i1max, name, routine, copy, shrink )50END 51SUBROUTINE realloc_r2( array, i1min,i1max, i2min,i2max, name, routine, copy, shrink )52END 53SUBROUTINE realloc_r3( array, i1min,i1max, i2min,i2max, i3min,i3max, name, routine, copy, shrink )54END 55SUBROUTINE realloc_r4( array, i1min,i1max, i2min,i2max, i3min,i3max, i4min,i4max, name, routine, copy, shrink )56END 57SUBROUTINE realloc_r5( array, i1min,i1max, i2min,i2max, i3min,i3max, i4min, i4max, i5min, i5max, name, routine, copy, shrink )58END 59SUBROUTINE realloc_d1( array, i1min, i1max, name, routine, copy, shrink )60END 61SUBROUTINE realloc_d2( array, i1min,i1max, i2min,i2max, name, routine, copy, shrink )62END 63SUBROUTINE realloc_d3( array, i1min,i1max, i2min,i2max, i3min,i3max, name, routine, copy, shrink )64END 65SUBROUTINE realloc_d4( array, i1min,i1max, i2min,i2max, i3min,i3max, i4min,i4max, name, routine, copy, shrink )66END 67SUBROUTINE realloc_d5( array, i1min,i1max, i2min,i2max, i3min,i3max, i4min,i4max, i5min,i5max, name, routine, copy, shrink )68END 69SUBROUTINE realloc_c1( array, i1min, i1max, name, routine, copy, shrink )70END 71SUBROUTINE realloc_c2( array, i1min,i1max, i2min,i2max, name, routine, copy, shrink )72END 73SUBROUTINE realloc_c3( array, i1min,i1max, i2min,i2max, i3min,i3max, name, routine, copy, shrink )74END 75SUBROUTINE realloc_c4( array, i1min,i1max, i2min,i2max, i3min,i3max, i4min,i4max, name, routine, copy, shrink )76END 77SUBROUTINE realloc_c5( array, i1min,i1max, i2min,i2max, i3min,i3max, i4min, i4max, i5min, i5max, name, routine, copy, shrink )78END 79SUBROUTINE realloc_z1( array, i1min, i1max, name, routine, copy, shrink )80END 81SUBROUTINE realloc_z2( array, i1min,i1max, i2min,i2max, name, routine, copy, shrink )82END 83SUBROUTINE realloc_z3( array, i1min,i1max, i2min,i2max, i3min,i3max, name, routine, copy, shrink )84END 85SUBROUTINE realloc_z4( array, i1min,i1max, i2min,i2max, i3min,i3max, i4min,i4max, name, routine, copy, shrink )86END 87SUBROUTINE realloc_z5( array, i1min,i1max, i2min,i2max, i3min,i3max, i4min, i4max, i5min, i5max, name, routine, copy, shrink )88END 89SUBROUTINE realloc_l1( array, i1min,i1max, name, routine, copy, shrink )90END 91SUBROUTINE realloc_l2( array, i1min,i1max, i2min,i2max, name, routine, copy, shrink )92END 93SUBROUTINE realloc_l3( array, i1min,i1max, i2min,i2max, i3min,i3max, name, routine, copy, shrink )94END 95SUBROUTINE realloc_l4( array, i1min,i1max, i2min,i2max, i3min,i3max, i4min,i4max, name, routine, copy, shrink )96END 97SUBROUTINE realloc_l5( array, i1min,i1max, i2min,i2max, i3min,i3max, i4min, i4max, i5min, i5max, name, routine, copy, shrink )98END 99SUBROUTINE realloc_i1s( array, i1max, name, routine, copy, shrink )100END 101SUBROUTINE realloc_i2s( array, i1max, i2max, name, routine, copy, shrink )102END 103SUBROUTINE realloc_i3s( array, i1max, i2max, i3max, name, routine, copy, shrink )104END 105SUBROUTINE realloc_r1s( array, i1max, name, routine, copy, shrink )106END 107SUBROUTINE realloc_r2s( array, i1max, i2max, name, routine, copy, shrink )108END 109SUBROUTINE realloc_r3s( array, i1max, i2max, i3max, name, routine, copy, shrink )110END 111SUBROUTINE realloc_r4s( array, i1max, i2max, i3max, i4max, name, routine, copy, shrink )112END 113SUBROUTINE realloc_d1s( array, i1max, name, routine, copy, shrink )114END 115SUBROUTINE realloc_d3s( array, i1max, i2max, i3max, name, routine, copy, shrink )116END 117SUBROUTINE realloc_d4s( array, i1max, i2max, i3max, i4max, name, routine, copy, shrink )118END 119SUBROUTINE realloc_l1s( array, i1max, name, routine, copy, shrink )120END 121SUBROUTINE realloc_l2s( array, i1max, i2max, name, routine, copy, shrink )122END 123SUBROUTINE realloc_l3s( array, i1max, i2max, i3max, name, routine, copy, shrink )124END 125SUBROUTINE realloc_s1( array, i1min, i1max, name, routine, copy, shrink )126END 127SUBROUTINE dealloc_i1( array, name, routine )128END 129SUBROUTINE dealloc_i2( array, name, routine )130END 131SUBROUTINE dealloc_i3( array, name, routine )132END 133SUBROUTINE dealloc_i4( array, name, routine )134 END 135SUBROUTINE dealloc_i5( array, name, routine )136 END 137SUBROUTINE dealloc_E1( array, name, routine )138END 139SUBROUTINE dealloc_r1( array, name, routine )140END 141SUBROUTINE dealloc_r2( array, name, routine )142END 143SUBROUTINE dealloc_r3( array, name, routine )144END 145SUBROUTINE dealloc_r4( array, name, routine )146END 147SUBROUTINE dealloc_r5( array, name, routine )148END 149SUBROUTINE dealloc_d1( array, name, routine )150END 151SUBROUTINE dealloc_d2( array, name, routine )152END 153SUBROUTINE dealloc_d3( array, name, routine )154END 155SUBROUTINE dealloc_d4( array, name, routine )156END 157SUBROUTINE dealloc_d5( array, name, routine )158END 159SUBROUTINE dealloc_c1( array, name, routine )160END 161SUBROUTINE dealloc_c2( array, name, routine )162END 163SUBROUTINE dealloc_c3( array, name, routine )164END 165SUBROUTINE dealloc_c4( array, name, routine )166END 167SUBROUTINE dealloc_c5( array, name, routine )168 END 169SUBROUTINE dealloc_z1( array, name, routine )170END 171SUBROUTINE dealloc_z2( array, name, routine )172END 173SUBROUTINE dealloc_z3( array, name, routine )174END 175SUBROUTINE dealloc_z4( array, name, routine )176END 177SUBROUTINE dealloc_z5( array, name, routine )178 END 179SUBROUTINE dealloc_l1( array, name, routine )180END 181SUBROUTINE dealloc_l2( array, name, routine )182END 183SUBROUTINE dealloc_l3( array, name, routine )184END 185SUBROUTINE dealloc_l4( array, name, routine )186 END 187SUBROUTINE dealloc_l5( array, name, routine )188 END 189SUBROUTINE dealloc_s1( array, name, routine )190END 191SUBROUTINE options( final_bounds, common_bounds, old_bounds, new_bounds, copy, shrink )192END 193SUBROUTINE alloc_err( ierr, name, routine, bounds )194END 195SUBROUTINE alloc_count( delta_size, type, name, routine )196END 197END198