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
