Re: Troubles with some IMSL routines (eg EVLRG, and some other)

On Thu, 26 May 2005 21:48:52 +0000 (UTC), Dave Seaman
<dseaman@xxxxxxxxxxxx> wrote:


>The easy way would be to drop the USE IMSL and put back the EXTERNAL
>declarations, which would cause the compiler to be less stringent in its
>argument checking.
>
>But if you prefer to get the Fortran 90 interface right, you should be
>able to use the USE IMSL specification with a call that looks something
>like the following:
>
> CALL WRCRN( 'EVAL', EVAL(1:N) )
>
>or if EVAL is correctly dimensioned, you can even shorten that to
>
> CALL WRCRN( 'EVAL', EVAL )
>
>This makes use of optional arguments that are available when you use the
>Fortran 90 interface:
>
> NRA number of rows (default = size(EVAL,1))
> NCA number of columns (default = size(EVAL,2))
> LDA leading dimension of EVAL (default = size(EVAL,1))
> ITRING triangle option (default = 0)
>
>If you want to specify a nondefault value for one of these arguments, you
>can do so using keyword form:
>
> CALL WRCRN( 'EVAL', EVAL, NCA=N )


Thank you very much for a kind cooperation. Unfortunately, neither
suggestions resolved the problem on my system:

a) If I drop the USE IMSL, a lot of "unresolved external symbol"
errors appear

b) If I use CALL WRCRN( 'EVAL', EVAL ), the following appears:

Compiling Fortran...
E:\Work\IMSL_Test\RealSvojstvene1.F90
E:\Work\IMSL_Test\RealSvojstvene1.F90(32) : Error: The type of the
actual argument differs from the type of the dummy argument. [EVAL]
CALL WRCRN ('EVAL', EVAL)
--------------------------^
E:\Work\IMSL_Test\RealSvojstvene1.F90(32) : Error: A non-optional
actual argument must be present when invoking a procedure with an
explicit interface. [NCA]
CALL WRCRN ('EVAL', EVAL)
-----------^
E:\Work\IMSL_Test\RealSvojstvene1.F90(32) : Error: A non-optional
actual argument must be present when invoking a procedure with an
explicit interface. [A]
CALL WRCRN ('EVAL', EVAL)
-----------^
E:\Work\IMSL_Test\RealSvojstvene1.F90(32) : Error: A non-optional
actual argument must be present when invoking a procedure with an
explicit interface. [LDA]
CALL WRCRN ('EVAL', EVAL)
-----------^
E:\Work\IMSL_Test\RealSvojstvene1.F90(32) : Error: A non-optional
actual argument must be present when invoking a procedure with an
explicit interface. [ITRING]
CALL WRCRN ('EVAL', EVAL)
-----------^
E:\Work\IMSL_Test\RealSvojstvene1.F90(32) : Error: If the actual
argument is scalar, the corresponding dummy argument shall be scalar
unless the actual argument is an element of an array that is not an
assumed-shape or pointer array, or a substring
of such an element. [TITLE]
CALL WRCRN ('EVAL', EVAL)
-----------^
E:\Work\IMSL_Test\RealSvojstvene1.F90(32) : Error: The shape matching
rules of actual arguments and dummy arguments have been violated.
[EVAL]
CALL WRCRN ('EVAL', EVAL)
--------------------------^
Error executing df.exe.

IMSL_Test.exe - 7 error(s), 0 warning(s)


What I am doing wrong?

Gojko Magazinovic

---------------------------------------------------------
CADEA d.o.o. E-mail:
Split, Croatia gmag AT cadea DOT hr
.