Skip to content

GitLab

Commit 5d9219ec authored by Peter Eastman's avatar Peter Eastman
Browse files

Mike Garrahan's fix to bug 1594 (set and get not working on Fortran arrays)

parent 0dd32915
Show whitespace changes
Inline Side-by-side
Showing with 4 additions and 4 deletions
wrappers/FortranWrapper_Source.xslt
View file @ 5d9219ec
...@@ -299,16 +299,16 @@ OPENMM_EXPORT void <xsl:value-of select="$name_lower"/>_resize_(<xsl:value-of se ...@@ -299,16 +299,16 @@ OPENMM_EXPORT void <xsl:value-of select="$name_lower"/>_resize_(<xsl:value-of se
OPENMM_EXPORT void <xsl:value-of select="$name_upper"/>_RESIZE(<xsl:value-of select="$name"/>* const&amp; array, const int&amp; size) { OPENMM_EXPORT void <xsl:value-of select="$name_upper"/>_RESIZE(<xsl:value-of select="$name"/>* const&amp; array, const int&amp; size) {
<xsl:value-of select="$name"/>_resize(array, size); <xsl:value-of select="$name"/>_resize(array, size);
} }
OPENMM_EXPORT void <xsl:value-of select="$name_lower"/>_append_(<xsl:value-of select="$name"/>* const&amp; array, <xsl:value-of select="$element_type"/> value) { OPENMM_EXPORT void <xsl:value-of select="$name_lower"/>_append_(<xsl:value-of select="$name"/>* const&amp; array, const <xsl:value-of select="$element_type"/>&amp; value) {
<xsl:value-of select="$name"/>_append(array, value); <xsl:value-of select="$name"/>_append(array, value);
} }
OPENMM_EXPORT void <xsl:value-of select="$name_upper"/>_APPEND(<xsl:value-of select="$name"/>* const&amp; array, <xsl:value-of select="$element_type"/> value) { OPENMM_EXPORT void <xsl:value-of select="$name_upper"/>_APPEND(<xsl:value-of select="$name"/>* const&amp; array, const <xsl:value-of select="$element_type"/>&amp; value) {
<xsl:value-of select="$name"/>_append(array, value); <xsl:value-of select="$name"/>_append(array, value);
} }
OPENMM_EXPORT void <xsl:value-of select="$name_lower"/>_set_(<xsl:value-of select="$name"/>* const&amp; array, const int&amp; index, <xsl:value-of select="$element_type"/> value) { OPENMM_EXPORT void <xsl:value-of select="$name_lower"/>_set_(<xsl:value-of select="$name"/>* const&amp; array, const int&amp; index, const <xsl:value-of select="$element_type"/>&amp; value) {
<xsl:value-of select="$name"/>_set(array, index-1, value); <xsl:value-of select="$name"/>_set(array, index-1, value);
} }
OPENMM_EXPORT void <xsl:value-of select="$name_upper"/>_SET(<xsl:value-of select="$name"/>* const&amp; array, const int&amp; index, <xsl:value-of select="$element_type"/> value) { OPENMM_EXPORT void <xsl:value-of select="$name_upper"/>_SET(<xsl:value-of select="$name"/>* const&amp; array, const int&amp; index, const <xsl:value-of select="$element_type"/>&amp; value) {
<xsl:value-of select="$name"/>_set(array, index-1, value); <xsl:value-of select="$name"/>_set(array, index-1, value);
} }
OPENMM_EXPORT void <xsl:value-of select="$name_lower"/>_get_(const <xsl:value-of select="$name"/>* const&amp; array, const int&amp; index, <xsl:value-of select="$element_type"/>&amp; result) { OPENMM_EXPORT void <xsl:value-of select="$name_lower"/>_get_(const <xsl:value-of select="$name"/>* const&amp; array, const int&amp; index, <xsl:value-of select="$element_type"/>&amp; result) {
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment