From: <arj...@us...> - 2009-11-16 15:14:35
|
Revision: 10601 http://plplot.svn.sourceforge.net/plplot/?rev=10601&view=rev Author: arjenmarkus Date: 2009-11-16 15:14:24 +0000 (Mon, 16 Nov 2009) Log Message: ----------- Corrected FORTRAN 77 example x19f so that the floor function is correctly recognised and the label formatting is turned on and off. The latter is done via a _separate_ routine as FORTRAN 77 can not deal with polymorphic argument lists. Modified Paths: -------------- trunk/examples/f77/x19f.fm4 Modified: trunk/examples/f77/x19f.fm4 =================================================================== --- trunk/examples/f77/x19f.fm4 2009-11-16 13:18:18 UTC (rev 10600) +++ trunk/examples/f77/x19f.fm4 2009-11-16 15:14:24 UTC (rev 10601) @@ -88,6 +88,9 @@ real*8 normalize_longitude real*8 lon, times + external floor + real*8 floor + if ((lon .ge. -180.0d0) .and. (lon .le. 180.0d0)) then normalize_longitude = lon else @@ -188,7 +191,9 @@ call plmap(ident, 'usaglobe', minx, maxx, miny, maxy) c Clear the labeling function - call plslabelfunc(0) +c (Note: FORTRAN 77 does not handle NULL pointers, so an +c alternative function is used) + call plslabelfunc_none c Polar, Northern hemisphere This was sent by the SourceForge.net collaborative development platform, the world's largest Open Source development site. |