From: <and...@us...> - 2012-01-24 11:31:22
|
Revision: 12150 http://plplot.svn.sourceforge.net/plplot/?rev=12150&view=rev Author: andrewross Date: 2012-01-24 11:31:12 +0000 (Tue, 24 Jan 2012) Log Message: ----------- Fix error in f95 string handling functions. Argument order was wrong for call to achar, which resulted in strings not being translated from C to fortran properly. Modified Paths: -------------- trunk/bindings/f95/strutil.f90 Modified: trunk/bindings/f95/strutil.f90 =================================================================== --- trunk/bindings/f95/strutil.f90 2012-01-24 05:39:57 UTC (rev 12149) +++ trunk/bindings/f95/strutil.f90 2012-01-24 11:31:12 UTC (rev 12150) @@ -57,7 +57,7 @@ string2 = string1 - limit = index( achar(0), string2 ) + limit = index( string2, achar(0) ) if ( limit > 0 ) then string2(limit:) = ' ' endif This was sent by the SourceForge.net collaborative development platform, the world's largest Open Source development site. |
From: <ai...@us...> - 2012-01-24 18:59:01
|
Revision: 12152 http://plplot.svn.sourceforge.net/plplot/?rev=12152&view=rev Author: airwin Date: 2012-01-24 18:58:55 +0000 (Tue, 24 Jan 2012) Log Message: ----------- Fix recent regression that no longer preserved trailing blanks in Fortran strings. Modified Paths: -------------- trunk/bindings/f95/strutil.f90 Modified: trunk/bindings/f95/strutil.f90 =================================================================== --- trunk/bindings/f95/strutil.f90 2012-01-24 15:28:48 UTC (rev 12151) +++ trunk/bindings/f95/strutil.f90 2012-01-24 18:58:55 UTC (rev 12152) @@ -37,9 +37,8 @@ integer :: limit string2 = string1 - limit = len_trim(string2) + limit = min(len(string2), len(string1)) string2(limit+1:limit+1) = char(0) - end subroutine plstrf2c This was sent by the SourceForge.net collaborative development platform, the world's largest Open Source development site. |
From: <ai...@us...> - 2012-01-27 22:17:39
|
Revision: 12159 http://plplot.svn.sourceforge.net/plplot/?rev=12159&view=rev Author: airwin Date: 2012-01-27 22:17:33 +0000 (Fri, 27 Jan 2012) Log Message: ----------- Revert previous change since that caused a run-time error for example 14, and because Arjen and Andrew have come to consensus on a better solution to the current example 20 and 28 differences for examples/f95. Modified Paths: -------------- trunk/bindings/f95/strutil.f90 Modified: trunk/bindings/f95/strutil.f90 =================================================================== --- trunk/bindings/f95/strutil.f90 2012-01-25 22:52:52 UTC (rev 12158) +++ trunk/bindings/f95/strutil.f90 2012-01-27 22:17:33 UTC (rev 12159) @@ -37,7 +37,8 @@ integer :: limit string2 = string1 - limit = min(len(string2), len(string1)) +! limit = min(len(string2), len(string1)) + limit = len_trim(string2) string2(limit+1:limit+1) = char(0) end subroutine plstrf2c This was sent by the SourceForge.net collaborative development platform, the world's largest Open Source development site. |