| 2013 | // |
| 2014 | |
| 2015 | static void stuff_sdl_element(ref* reference, const gpre_fld* field) |
| 2016 | { |
| 2017 | reference->add_byte(isc_sdl_element); |
| 2018 | reference->add_byte(1); |
| 2019 | reference->add_byte(isc_sdl_scalar); |
| 2020 | reference->add_byte(0); |
| 2021 | |
| 2022 | reference->add_byte(field->fld_array_info->ary_dimension_count); |
| 2023 | |
| 2024 | // Fortran needs the array in column-major order |
| 2025 | |
| 2026 | if (gpreGlob.sw_language == lang_fortran) |
| 2027 | { |
| 2028 | for (SSHORT i = field->fld_array_info->ary_dimension_count - 1; i >= 0; i--) |
| 2029 | { |
| 2030 | reference->add_byte(isc_sdl_variable); |
| 2031 | reference->add_byte(i); |
| 2032 | } |
| 2033 | } |
| 2034 | else |
| 2035 | { |
| 2036 | for (SSHORT i = 0; i < field->fld_array_info->ary_dimension_count; i++) |
| 2037 | { |
| 2038 | reference->add_byte(isc_sdl_variable); |
| 2039 | reference->add_byte(i); |
| 2040 | } |
| 2041 | } |
| 2042 | } |
| 2043 | |
| 2044 | |
| 2045 | //____________________________________________________________ |