Line 38 should be
PUBLIC :: OPERATOR(.CROSS.)
-Kurt
At 12:09 PM 11/6/00 +0100, Goeran Klose wrote:
>Hello again,
>
>I have one more specific question. We try to use PUBLIC and
>PRIVATE attributes for user defined operators (see the ".cross."
>operator in the example given below).
>Unfortunately our Fujitsu Compiler does not accept the syntax
>we use.
>
>=============================================================
>MODULE Vector__tools
> !!
> !! General modules for constants and portability
> !!
> ...
> !!
> IMPLICIT NONE
> !!
> PRIVATE
> !!
> !! Operator overloading for dot and cross products
> !!
> INTERFACE OPERATOR (.DOT.)
> MODULE PROCEDURE DotProduct
> END INTERFACE ! (.DOT.)
> !!
> INTERFACE OPERATOR (.CROSS.)
> MODULE PROCEDURE CrossProduct3D
> END INTERFACE ! (.CROSS.)
> !!
> PUBLIC :: .CROSS. !! line 38
> !!
>CONTAINS
> ...
>END MODULE Vector__tools
>===========================================================
>
>Our compiler generates the following error message.
>
>===========================================================
>Fortran diagnostic messages: program
>name(Vector__tools)
> jwd1302i-s "Vector.f90", line 38: Missing name
>===========================================================
>
>
>Does anybody know how to resolve this problem.
>
>Regards,
>
>Göran
>
--
Kurt W Hirchert [log in to unmask]
UIUC Department of Atmospheric Sciences +1-217-265-0327
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
|