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
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
|