## [Plplot-cvs] SF.net SVN: plplot:[12091] trunk/examples/f95

 [Plplot-cvs] SF.net SVN: plplot:[12091] trunk/examples/f95 From: - 2011-12-02 13:21:20 ```Revision: 12091 http://plplot.svn.sourceforge.net/plplot/?rev=12091&view=rev Author: andrewross Date: 2011-12-02 13:21:14 +0000 (Fri, 02 Dec 2011) Log Message: ----------- Fix up two minor compiler warnings in fortran 95 examples Modified Paths: -------------- trunk/examples/f95/x04f.f90 trunk/examples/f95/x13f.f90 Modified: trunk/examples/f95/x04f.f90 =================================================================== --- trunk/examples/f95/x04f.f90 2011-12-02 13:19:39 UTC (rev 12090) +++ trunk/examples/f95/x04f.f90 2011-12-02 13:21:14 UTC (rev 12091) @@ -38,7 +38,7 @@ contains subroutine plot1(type) - integer :: i, type + integer :: type integer :: nlegend real(kind=plflt) :: legend_width, legend_height Modified: trunk/examples/f95/x13f.f90 =================================================================== --- trunk/examples/f95/x13f.f90 2011-12-02 13:19:39 UTC (rev 12090) +++ trunk/examples/f95/x13f.f90 2011-12-02 13:21:14 UTC (rev 12091) @@ -59,7 +59,7 @@ j = j + 1 ! n.b. the theta quantities multiplied by 2*pi/500 afterward so ! in fact per is interpreted as a percentage. - theta1 = theta0 + 5*per(i+1) + theta1 = int(theta0 + 5*per(i+1)) if (i .eq. 4) theta1 = 500 do theta = theta0, theta1, dthet x(j+1) = 5 + 3*cos((2._plflt*pi/500._plflt)*theta) This was sent by the SourceForge.net collaborative development platform, the world's largest Open Source development site. ```