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

On Thu, 26 May 2005 22:10:49 +0100, Gojko Magazinovic wrote:
> Hi,

> I tried to compile the following example program (copy/pasted from the
> original Visual Numerics user's manual):

> ! Declare variables
> USE IMSL
> INTEGER LDA, N
> PARAMETER (N=4, LDA=N)
> REAL A(LDA,N)
> COMPLEX EVAL(N)
> EXTERNAL EVLRG, WRCRN
> ! Set values of A
> ! A = ( -2.0 2.0 2.0 2.0 )
> ! ( -3.0 3.0 2.0 2.0 )
> ! ( -2.0 0.0 4.0 2.0 )
> ! ( -1.0 0.0 0.0 5.0 )
> DATA A/-2.0, -3.0, -2.0, -1.0, 2.0, 3.0, 0.0, 0.0, 2.0, 2.0, &
> 4.0, 0.0, 2.0, 2.0, 2.0, 5.0/
> ! Find eigenvalues of A
> CALL EVLRG (N, A, LDA, EVAL)
> ! Print results
> CALL WRCRN ('EVAL', 1, N, EVAL, 1, 0)
> END

> The following error messages appear:

> --------------------Configuration: IMSL_Test - Win32
> Debug--------------------
> Compiling Fortran...
> E:\Work\IMSL_Test\RealSvojstvene1.F90
> E:\Work\IMSL_Test\RealSvojstvene1.F90(30) : Error: The attributes of
> this name conflict with those made accessible by a USE statement.
> [EVLRG]
> CALL EVLRG (N, A, LDA, EVAL)
> -----------^
> E:\Work\IMSL_Test\RealSvojstvene1.F90(32) : Error: The attributes of
> this name conflict with those made accessible by a USE statement.
> [WRCRN]
> CALL WRCRN ('EVAL', 1, N, EVAL, 1, 0)
> -----------^
> Error executing df.exe.

> IMSL_Test.exe - 2 error(s), 0 warning(s)


> Oh, yes, the system is CVF 6.6C Pro under PC Win2000. The IMSL library
> is a part of a system. I contacted Visual Numerics but to date nobody
> replied.

> Have you any suggestion to resolve the problem? Thanks in advance.

You should remove the EXTERNAL EVLRG, WRCRN declaration. It conflicts with the
USE IMSL statement, and host association is preferable because it gives the
compiler an opportunity to check argument compatibility.


--
Dave Seaman
Judge Yohn's mistakes revealed in Mumia Abu-Jamal ruling.
<http://www.commoncouragepress.com/index.cfm?action=book&bookid=228>
.