Discussion :

[noomane]

Bonjour à tous,

Je cherche à déterminer le minimum d’une fonction, j’ai trouvé un exemple sur le net, mais quand je compile il me sort l’erreur suivante :
C:\MSDEV\samples\fps\tutorial\Code.f90(8): error FOR1531: cannot find module UMPOL_INT

Je n’arrive pas à charger la bibliothèque IMSL pour pouvoir utiliser UMPOL et UMACH.

Sachant que je travail avec fortran Power station 4.

Voici le code en complet :

USE UMPOL_INT
USE UMACH_INT
IMPLICIT NONE

! Variable declarations
INTEGER N
PARAMETER (N=2)
!
INTEGER K, NOUT
REAL FTOL, FVALUE, S, X(N), XGUESS(N)
EXTERNAL FCN
!
! Initializations
! XGUESS = ( -1.2, 1.0)
DATA XGUESS/-1.2, 1.0/
FTOL = 1.0E-10
S = 1.0
!
CALL UMPOL (FCN, X, xguess=xguess, s=s, ftol=ftol,&
fvalue=fvalue)
!
CALL UMACH (2, NOUT)
WRITE (NOUT,99999) (X(K),K=1,N), FVALUE
99999 FORMAT (' The best estimate for the minimum value of the', /, &
' function is X = (', 2(2X,F4.2), ')', /, ' with ', &
'function value FVALUE = ', E12.6)
!
END
! External function to be minimized
SUBROUTINE FCN (N, X, F)
INTEGER N
REAL X(N), F
!
F = 100.0*(X(1)*X(1)-X(2))**2 + (1.0-X(1))**2
RETURN
END

Merci.

[noomane]

Personne ne connait la réponse svp ?

[FR119492]

Salut!
Désolé, mais ça fait près de 25 ans que je n'ai plus travaillé avec la bibliothèque IMSL, dont j'avais une copie des programmes sources sur bande magnétique. Comme tout a changé depuis lors, je serais bien mal pris pour essayer de t'aider.
Jean-Marc Blanc