Go to the source code of this file.
|
| subroutine | set_increments |
| |
| subroutine | re_index_arrays |
| |
| subroutine | record_new_ijk_cell (I, J, K, IJK, NEW_IJK, TEMP_IJK_ARRAY_OF |
| |
| subroutine | bubble_sort_1d_int_array (ARRAY, I1, I2) |
| |
| subroutine | shift_dp_array (ARRAY) |
| |
| subroutine | shift_int_array (ARRAY, DEFAULT_VALUE) |
| |
| subroutine | shift_log_array (ARRAY, DEFAULT_VALUE) |
| |
| subroutine | unshift_dp_array (ARRAY_1, ARRAY_2) |
| |
| subroutine | shift_connectivity_for_bdist_io |
| |
| subroutine | write_int_table (FILE_UNIT, ARRAY, ARRAY_SIZE, LSTART, LE |
| |
| subroutine | write_ijk_values |
| |
| subroutine bubble_sort_1d_int_array |
( |
integer, dimension(i1:i2) |
ARRAY, |
|
|
integer |
I1, |
|
|
integer |
I2 |
|
) |
| |
| subroutine re_index_arrays |
( |
| ) |
|
| subroutine record_new_ijk_cell |
( |
integer |
I, |
|
|
integer |
J, |
|
|
integer |
K, |
|
|
integer |
IJK, |
|
|
integer |
NEW_IJK, |
|
|
integer, dimension(istart3-1:iend3+1,jstart3-1:jend3+1,kstart3-1:k! end3+1) |
TEMP_IJK_ARRAY_OF |
|
) |
| |
| subroutine set_increments |
( |
| ) |
|
| subroutine shift_connectivity_for_bdist_io |
( |
| ) |
|
| subroutine shift_dp_array |
( |
double precision, dimension(dimension_3) |
ARRAY | ) |
|
| subroutine shift_int_array |
( |
integer, dimension(dimension_3) |
ARRAY, |
|
|
integer |
DEFAULT_VALUE |
|
) |
| |
| subroutine shift_log_array |
( |
logical, dimension(dimension_3) |
ARRAY, |
|
|
logical |
DEFAULT_VALUE |
|
) |
| |
| subroutine unshift_dp_array |
( |
double precision, dimension(dimension_3) |
ARRAY_1, |
|
|
double precision, dimension(dimension_3) |
ARRAY_2 |
|
) |
| |
| subroutine write_ijk_values |
( |
| ) |
|
| subroutine write_int_table |
( |
integer |
FILE_UNIT, |
|
|
integer, dimension(array_size) |
ARRAY, |
|
|
integer |
ARRAY_SIZE, |
|
|
integer |
LSTART, |
|
|
|
LE |
|
) |
| |