Hi

I have an error message about the following program (I use IMSL):

module aa

contains

!

SUBROUTINE ROSBRK (N, X, F)

INTEGER N

REAL(8) X(N), F <==== change to real(8)

!

F = 1.0E2*(X(2)-X(1)*X(1))**2 + (1.0E0-X(1))**2

!

RETURN

END SUBROUTINE ROSBRK

end module aa

program main

include 'link_fnl_static.h'

!DEC$ OBJCOMMENT LIB:"libguide.lib"

use aa

USE BCONF_INT

USE UMACH_INT

IMPLICIT NONE

INTEGER N

PARAMETER (N=2)

!

INTEGER IPARAM(7), ITP, L, NOUT

REAL(8) F, FSCALE, RPARAM(7), X(N), XGUESS(N), & <==== change to real(8)

XLB(N), XSCALE(N), XUB(N)

!

DATA XGUESS/-1.2E0, 1.0E0/

DATA XLB/-2.0E0, -1.0E0/, XUB/0.5E0, 2.0E0/

! All the bounds are provided

ITP = 0

! Default parameters are used

IPARAM(1) = 0

! Minimize Rosenbrock function using

! initial guesses of -1.2 and 1.0

CALL D_BCONF (ROSBRK, ITP, XLB, XUB, X, XGUESS=XGUESS, & !<== change from BCONF (IMSL)

iparam=iparam, FVALUE=F)

! Print results

CALL UMACH (2, NOUT)

WRITE (NOUT,99999) X, F, (IPARAM(L),L=3,5)

!

99999 FORMAT (' The solution is ', 6X, 2F8.3, //, ' The function ', &

'value is ', F8.3, //, ' The number of iterations is ', &

10X, I3, /, ' The number of function evaluations is ', &

I3, /, ' The number of gradient evaluations is ', I3)

!

END

Error: The characteristics of dummy argument 2 of the associated actual procedure differ from the characteristics of dummy argument 2 of the dummy procedure. (12.2) [ROSBRK]

Isn't "dummy argument 2 of the associated actual procedure " ITP?

Isn't "dummy argument 2 of the dummy procedure" X?

Thank you very much.

Mike