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

5d9219ec · Peter Eastman · 0dd32915 · 5d9219ec
Commit 5d9219ec authored Feb 28, 2012 by Peter Eastman
Show whitespace changes
Inline Side-by-side

Showing with 4 additions and 4 deletions

wrappers/FortranWrapper_Source.xslt wrappers/FortranWrapper_Source.xslt +4 -4

No files found.
--- a/wrappers/FortranWrapper_Source.xslt
+++ b/wrappers/FortranWrapper_Source.xslt
@@ -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) {
    <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);
 }
-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);
 }
-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);
 }
-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);
 }
 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) {