Hi Hazen, I will make the corrections. Yes, it should work correctly, as it is all well within the capabilities of FORTRAN 77 (just a few Fortran 90 features that slipped in ...)
Regards, Arjen On 2009-11-07 23:05, Hazen Babcock wrote: > > Hi Arjen, > > Since I just ran into exactly this problem myself (with mingw on > windows)... Should we fix example x19f.f to work with f77? It is in the > f77 examples folder so I think it is reasonable for the user to assume > that it should be possible to compile this example with a f77 compiler. > > best, > -Hazen > > Arjen Markus wrote: >> Hi Werner, >> >> the floor function does not exist in FORTRAN 77, so you need >> to implement it, for instance: >> >> *234567 >> REAL FUNCTION FLOOR(X) >> REAL X >> FLOOR = FLOAT(INT(X)) >> RETURN >> END >> >> The declaration "character*(length) label" is a Fortran 90 >> facility. Use: >> >> character*(*) label >> >> This should actually be handled by the C interface (the >> string length is passed as a hidden argument ...) I do not >> have time the coming days to look into it closely, but I >> will try. >> >> You can not pass a null pointer (0) in FORTRAN 77. To turn the >> labeller off, I am afraid you will have to use either a separate >> routine (call plslabelfuncoff) or use a dummy routine. >> >> Regards, >> >> Arjen >> >> On 2009-09-15 13:47, Werner Smekal wrote: >>> Hi, >>> >>> when I compile the latest revision of PLplot with MinGW 3.4.5 >>> including the g77 compiler I get the following compiler error: >>> >>> Scanning dependencies of target x19f >>> [ 88%] Building Fortran object examples/f77/CMakeFiles/x19f.dir/ >>> x19f.f.obj >>> E:\plbuild\examples\f77\x19f.f: In function `normalize_longitude': >>> E:\plbuild\examples\f77\x19f.f:80: warning: >>> times = floor ((abs(lon) + 180.0d0) / 360.0d0) >>> ^ >>> Reference to unimplemented intrinsic `FLOOR' at (^) (assumed EXTERNAL) >>> E:\plbuild\examples\f77\x19f.f:80: >>> times = floor ((abs(lon) + 180.0d0) / 360.0d0) >>> ^ >>> Invalid declaration of or reference to symbol `floor' at (^) >>> [initially seen at (^)] >>> E:\plbuild\examples\f77\x19f.f: In subroutine `geolocation_labeler': >>> E:\plbuild\examples\f77\x19f.f:91: >>> subroutine geolocation_labeler(axis, value, label, length) >>> 1 >>> E:\plbuild\examples\f77\x19f.f:95: (continued): >>> character*(length) label >>> 2 >>> Invalid declaration of or reference to symbol `length' at (2) >>> [initially seen at (1)] >>> E:\plbuild\examples\f77\x19f.f: In program `x19f': >>> E:\plbuild\examples\f77\x19f.f:161: warning: >>> call plslabelfunc(geolocation_labeler) >>> 1 >>> E:\plbuild\examples\f77\x19f.f:177: (continued): >>> call plslabelfunc(0) >>> 2 >>> Argument #1 of `plslabelfunc' is passed by reference at (2) but is a >>> procedure at (1) [info -f g77 M GLOBALS] >>> mingw32-make[2]: *** [examples/f77/CMakeFiles/x19f.dir/x19f.f.obj] >>> Error 1 >>> mingw32-make[1]: *** [examples/f77/CMakeFiles/x19f.dir/all] Error 2 >>> mingw32-make: *** [all] Error 2 >>> >>> Maybe someone who is more knowledgeable about Fortran can help me >>> out make this example work. >>> >>> Thanks, >>> Werner >>> >>> -- >>> Dr. Werner Smekal >>> Institut fuer Allgemeine Physik >>> Technische Universitaet Wien >>> Wiedner Hauptstr 8-10 >>> A-1040 Wien >>> Austria >>> DVR-Nr: 0005886 >>> >>> email: sme...@iap.tuwien.ac.at >>> web: http://www.iap.tuwien.ac.at/~smekal >>> phone: +43-(0)1-58801-13463 (office) >>> +43-(0)1-58801-13469 (laboratory) >>> fax: +43-(0)1-58801-13499 >>> >>> >>> ------------------------------------------------------------------------------ >>> >>> >>> Come build with us! The BlackBerry® Developer Conference in SF, CA >>> is the only developer event you need to attend this year. Jumpstart your >>> developing skills, take BlackBerry mobile applications to market and >>> stay ahead of the curve. Join us from November 9-12, 2009. >>> Register now! >>> http://p.sf.net/sfu/devconf >>> _______________________________________________ >>> Plplot-devel mailing list >>> Plplot-devel@lists.sourceforge.net >>> https://lists.sourceforge.net/lists/listinfo/plplot-devel >>> >> >> ------------------------------------------------------------------------------ >> >> >> Come build with us! The BlackBerry® Developer Conference in SF, CA >> is the only developer event you need to attend this year. Jumpstart your >> developing skills, take BlackBerry mobile applications to market and >> stay ahead of the curve. Join us from November 9-12, 2009. >> Register now! >> http://p.sf.net/sfu/devconf >> _______________________________________________ >> Plplot-devel mailing list >> Plplot-devel@lists.sourceforge.net >> https://lists.sourceforge.net/lists/listinfo/plplot-devel >> > > ------------------------------------------------------------------------------ Let Crystal Reports handle the reporting - Free Crystal Reports 2008 30-Day trial. Simplify your report design, integration and deployment - and focus on what you do best, core application coding. Discover what's new with Crystal Reports now. http://p.sf.net/sfu/bobj-july _______________________________________________ Plplot-devel mailing list Plplot-devel@lists.sourceforge.net https://lists.sourceforge.net/lists/listinfo/plplot-devel
