ports/openmpi
ports/openmpi
1
1
Форкнуть 0
Код Релизы Активность

Added counter to output macro name

Просмотр исходного кода 
This commit was SVN r9675.
Этот коммит содержится в:
Craig E Rasmussen 2006-04-20 21:30:28 +00:00
родитель 8646604497
Коммит 6de9755919
1 изменённых файлов: 14 добавлений и 8 удалений
Показать статистику Скачать Patch файл Скачать Diff файл Показать все файлы Свернуть все файлы

22
ompi/mpi/f90/xml/chasm-mpi.i.f90.xsl
Просмотреть файл

@ -99,7 +99,7 @@
<xsl:text> <xsl:text>
#------------------------------------------------------------------------ #------------------------------------------------------------------------
output</xsl:text> <xsl:text>() { output_</xsl:text> <xsl:number/> <xsl:text>() {
if test "$output" = "0"; then if test "$output" = "0"; then
return 0 return 0
fi fi
@ -144,7 +144,8 @@ start </xsl:text>
<xsl:text> </xsl:text> <xsl:text> </xsl:text>
<xsl:call-template name="interface-size"/> <xsl:call-template name="interface-size"/>
<xsl:text> <xsl:text>
output </xsl:text> <xsl:value-of select="@name"/> <xsl:text> output_</xsl:text> <xsl:number/> <xsl:text> </xsl:text>
<xsl:value-of select="@name"/> <xsl:text>
end </xsl:text> end </xsl:text>
<xsl:choose> <xsl:choose>
<xsl:when test="@interface != ''"> <xsl:when test="@interface != ''">
@ -167,7 +168,7 @@ end </xsl:text>
<xsl:text> <xsl:text>
#------------------------------------------------------------------------ #------------------------------------------------------------------------
output</xsl:text> <xsl:text>() { output_</xsl:text> <xsl:number/> <xsl:text>() {
if test "$output" = "0"; then if test "$output" = "0"; then
return 0 return 0
fi fi
@ -220,23 +221,28 @@ do
case "$rank" in 6) dim=', dimension(:,:,:,:,:,:)' ; esac case "$rank" in 6) dim=', dimension(:,:,:,:,:,:)' ; esac
case "$rank" in 7) dim=', dimension(:,:,:,:,:,:,:)' ; esac case "$rank" in 7) dim=', dimension(:,:,:,:,:,:,:)' ; esac
output </xsl:text> <xsl:value-of select="@name"/> output_</xsl:text> <xsl:number/> <xsl:text> </xsl:text>
<xsl:value-of select="@name"/>
<xsl:text> ${rank} CH "character${dim}" <xsl:text> ${rank} CH "character${dim}"
output </xsl:text> <xsl:value-of select="@name"/> output_</xsl:text> <xsl:number/> <xsl:text> </xsl:text>
<xsl:value-of select="@name"/>
<xsl:text> ${rank} L "logical${dim}" <xsl:text> ${rank} L "logical${dim}"
for kind in $ikinds for kind in $ikinds
do do
output </xsl:text> <xsl:value-of select="@name"/> output_</xsl:text> <xsl:number/> <xsl:text> </xsl:text>
<xsl:value-of select="@name"/>
<xsl:text> ${rank} I${kind} "integer*${kind}${dim}" <xsl:text> ${rank} I${kind} "integer*${kind}${dim}"
done done
for kind in $rkinds for kind in $rkinds
do do
output </xsl:text> <xsl:value-of select="@name"/> output_</xsl:text> <xsl:number/> <xsl:text> </xsl:text>
<xsl:value-of select="@name"/>
<xsl:text> ${rank} R${kind} "real*${kind}${dim}" <xsl:text> ${rank} R${kind} "real*${kind}${dim}"
done done
for kind in $ckinds for kind in $ckinds
do do
output </xsl:text> <xsl:value-of select="@name"/> output_</xsl:text> <xsl:number/> <xsl:text> </xsl:text>
<xsl:value-of select="@name"/>
<xsl:text> ${rank} C${kind} "complex*${kind}${dim}" <xsl:text> ${rank} C${kind} "complex*${kind}${dim}"
done done
done done