Discussion :

[usag1e]

Bonjour,

Pour faire court je met le code et l'erreur que le compilateur m'affiche.
Merci d'avance pour votre aide !!

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
do i=2,n-1
	som=som+points_fonc(i)
end DO
 
resultat_t=h*(points_fonc(1)+2*som+points_fonc(n)) !! Formule d'approximation de l'intégrale de la fonction définie par les points entrées sur l'intervalle [a,b] par la méthode des trapèzes
 
 
Write(*,*)									
Write (*,"(' L''estimation de l''integrale sur l''intervalle [a,b] vaut :   ')")resultat_t
 
END subroutine resultat_trap

ERREUR :

At line 71 of file Méthode_trapeze.f90 (unit = 6, file = 'stdout')
Fortran runtime error: Insufficient data descriptors in format after reversion


Dernière précision : Le programme compile mais quand je demande d'afficher resultat_t il arrête le programme et affiche cette erreur.

[Marlan]

Write (*,"(' L''estimation de l''integrale sur l''intervalle [a,b] vaut : ')")resultat_t

Si je ne m'abuse, tu es entrain de lui preciser un format: (' L''estimation de l''integrale sur l''intervalle [a,b] vaut : ') ce qui n'existe pas.

Essayes avec:

Write (*,*)' L''estimation de l''integrale sur l''intervalle [a,b] vaut : ',resultat_t

En effet, le second nombre de la fonction WRITE est normalement reserve au format d'affichage l'* correspondant au format par defaut de ta variable.

Pour plus d'informations sur les formats:

http://www.developpez.net/forums/d10...t-sous-ubuntu/

[Sylvain Bergeron]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
do i=2,n-1
	som=som+points_fonc(i)
end DO
 
resultat_t=h*(points_fonc(1)+2*som+points_fonc(n)) !! Formule d'approximation de l'intégrale de la fonction définie par les points entrées sur l'intervalle [a,b] par la méthode des trapèzes
 
 
Write(*,*)									
Write (*,"(' L''estimation de l''integrale sur l''intervalle [a,b] vaut :   ')")resultat_t
 
END subroutine resultat_trap

ERREUR :

At line 71 of file Méthode_trapeze.f90 (unit = 6, file = 'stdout')
Fortran runtime error: Insufficient data descriptors in format after reversion

Contrairement à ce que dit Marlan, le problème est que le format ne prévoit pas masque pour la variable resultat_trap. Ton format ne prévoit que l'impression du texte qu'il contient. Tu dois utiliser la stratégie de Marlan avec le format libre pour imprimer une chaine de caractères et une variable numérique, ou ajouter un masque pour resultat_trap dans le format, comme suit :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
Write (*,"(' L''estimation de l''integrale sur l''intervalle [a,b] vaut : ',f0.4)")resultat_t

Dans une situation comme celle-ci, la méthode du format libre (*) est la plus intéresssante.