Skip to content

GitLab

Commit 5a4103d7 authored by Michael Sherman's avatar Michael Sherman
Browse files

Fix typo if Fortran wrapper generation.

parent 657a4eed
Show whitespace changes
Inline Side-by-side
Showing with 2 additions and 2 deletions
wrappers/FortranWrapper_Source.xslt
View file @ 5a4103d7
...@@ -288,10 +288,10 @@ void <xsl:value-of select="$name_lower"/>_set_(<xsl:value-of select="$name"/>* c ...@@ -288,10 +288,10 @@ void <xsl:value-of select="$name_lower"/>_set_(<xsl:value-of select="$name"/>* c
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) { 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) {
<xsl:value-of select="$name"/>_set(array, index-1, value); <xsl:value-of select="$name"/>_set(array, index-1, value);
} }
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"/> value&amp; result) { 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) {
result = <xsl:value-of select="$name"/>_get(array, index-1); result = <xsl:value-of select="$name"/>_get(array, index-1);
} }
void <xsl:value-of select="$name_upper"/>_GET(const <xsl:value-of select="$name"/>* const&amp; array, const int&amp; index, <xsl:value-of select="$element_type"/> value&amp; result) { void <xsl:value-of select="$name_upper"/>_GET(const <xsl:value-of select="$name"/>* const&amp; array, const int&amp; index, <xsl:value-of select="$element_type"/>&amp; result) {
result = <xsl:value-of select="$name"/>_get(array, index-1); result = <xsl:value-of select="$name"/>_get(array, index-1);
} }
</xsl:template> </xsl:template>
......
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