probleme d'affichage des résultats en fortran

[invite5b8ffc78]

salut
j'ai un programme en fortan il fonctionn bien sauf a l'affichage des résultat en étoiles ?

	   DIMENSION VAL(4)
	open(unit=10,file='bmat.dat',status='old')
	open(unit=12,file='cmat.txt',status='unknown')
      read(10,*) EL,W,E,EI
      R=1/(E*EI)
	I=0
	DO  10 X=3,6
	S=S+1
	A=(X**3)*(EL*W)/48.0
	B=(X-(EL/2))**4*(W/24.)
	C=((EL)**3)*X*(7./384.)
	VAL(I)=R*(A-B-C)
  10	CONTINUE
	WRITE (12,30)(VAL(I),I=1,4)
  30  format(4(2X,E8.4,1X))
	STOP
	END

comment je doi déclarer le format ?
merci d'avance
-----

[Calvert]

Essaye write(12,*), et regarde ce que ça donne.

Ensuite :
- C'est au moins le 4ème fil que tu ouvres sur exactement le même sujet. Ce serait plus simple pour tout le monde d'utiliser le même fil pour le même problème...

- Si tu veux faire du fortran, il faudra apprendre, un jour ou l'autre. Ca inclut aussi la déclaration des formats.

[invite5b8ffc78]

oui merci de votre réponse
mais j'essayer le format libre et tjr le meme probleme des étoiles !!!

[Calvert]

C'est dnc qu'il y a un autre problème ! Essaye d'afficher les résultats pour S,A,B et C en cours d'itération, pour vérifier qu'ils sont calculés correctement.

[A voir en vidéo sur Futura]

[JPL]

Tu es prié de continuer tout ce qui concerne ce programme et ses corrections sur le même fil parce que plus personne ne saura plus à quoi il doit répondre.
Le B-A-BA de la programmation c 'est de construire des choses logiques donc des morceaux qui ne se perdent pas dans d'autres sujet.

[invite437e5c40]

les résultats veulent pas s afficher aidez moi svp
! merci

 program tp1 
	real dx, T(100),p(100), q(100), a(100),b(100),c(100),d(100)	,k,l

	open(5,file='resutat.dat',status='unknown')

	write (*,*) "donner la valeur de n"
	read(*,*) n 


c****** "declaration des constantes" 

	T(1)=120
	T(n)=25
	h=200
	l=0.04
	s=10000
	k=10


c*************** "declaration des variables de calculs "
	dx=l/(n-1)
	a(1)=1
	b(1)=0
	c(1)=0
	d(1)=T(1)
	p(1)=b(1)/a(1)
	q(1)=d(1)/a(1)
	a(n)=((k/dx)+h)
	b(n)=0
	c(n)=k/dx
	d(n)=h*t(n)

	
	do i=2,n-1 
	a(i)=(2*k)/dx
	b(i)=k/dx
	c(i)=k/dx 
	d(i)=s*dx
	p(i)=(b(i))/(a(i)-c(i)*p(i-1))
	q(i)=(a(i)+c(i)*q(i-1))/(a(i)-c(i)*p(i-1))
	
	enddo 
	write(5,'(2(e12.5, 1x))')(T(i),i=1,n)
	do i=1,n 
	write(5,'(2(e12.5, 1x))')(T(i),i=1,n)
	write (*,*) T(i)
	enddo

end