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
