At 6/27/00 10:20 AM, Malcolm Cohen wrote:
>
>The error message means what it says - it thinks the interface block was
>either missing or incorrect; the discrepancy is indicated - that dummy FUNC
>is a POINTER (and that the actual argument is not).
>
>If the interface block is correct and the actual argument really is a pointer
>you should submit a bug report!
Here is one of the "Func" specifications in the module BREAKPOINT:
FUNCTION Breakpoint_dKdW_tri( bp, Xm, Xp, mF, ScaleFactors) RESULT ( dKdW )
DOUBLE PRECISION, POINTER :: dKdW(:,:)
TYPE (Breakpoint_T), INTENT(IN) :: bp
DOUBLE PRECISION, INTENT(IN) :: xm(7), xp(7), mF
DOUBLE PRECISION, INTENT(IN), OPTIONAL :: ScaleFactors(3)
which matches the INTERFACE specification.
-------------------------------------------------------
Jack Hatfield
Sr. Software Engineer
Mission Analysis Software Team
Jet Propulsion Laboratory
4800 Oak Grove Dr
MS 301-140L
Pasadena, CA 91109-8099
Office: 301-140R
Email: [log in to unmask]
Phone: 818-354-2198
Fax: 818-393-9900
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
|