Transcrire r du fortran au C++

Signaler
Messages postés
6
Date d'inscription
dimanche 19 novembre 2000
Statut
Membre
Dernière intervention
13 janvier 2011
-
Messages postés
6
Date d'inscription
dimanche 19 novembre 2000
Statut
Membre
Dernière intervention
13 janvier 2011
-
Bonjour ou bonsoir !
Je souhaite vivement que quelqu'un puisse transcrire ce programme écrit en Fortran en C++.Programme destiné à un T.P pour étudiants de terminale
Mille merci à tous celui ou ceux qui s'en donneraient la peine !
Cordiales salutations et par la même occasion Bonne année !

Program concentrator
real E0(3), Qin
data (E0(j),j=1,3) /300.,500.,866./
open(1,file='tache.txt')
pi=4.*atan(1.)
tetam=120.
c tetar=4.
f=0.8
Rr=0.9
Fa=0.9!(pi-pi*(0.05)**2)/pi
a =1.5
Rspot=0.015
sigma=5.67e-8
alfar=0.9
eps=1.
R=0.45

do j=1,3
do z=-4.5, 4.5,0.5
r=z*0.01

c E=f**2*Rr*E0(j)*Fa*((-cosd(tetam))**2+(cosd(tetar))**2)
E=f**2*Rr*E0(j)*Fa*cosd(tetam)**2
E=E*a*exp(-a*(r/Rspot)**2)/Rspot/Rspot/(1.-exp(-a))

Qin=E*alfar*Rr**2*pi

T=(E*alfar/(eps*sigma))**0.25

write(*,'(2x,f5.2,2x,f6.3,2x,f12.2,2x,f12.2)')z, r, E, T
write(1,'(2x,f5.2,2x,f6.3,2x,f12.2,2x,f12.2)')z, r, E, T

Tm=Tm+T
enddo
Tm=Tm/17.
Print*, 'Tmoyenne=',Tm
c write(1,*)'************************'
c write(*,*)'************************'

enddo
end

2 réponses

Messages postés
792
Date d'inscription
mardi 8 juillet 2003
Statut
Membre
Dernière intervention
12 juillet 2019
8
Bonjour,

Il y a un outil :
http://en.wikipedia.org/wiki/F2c

Je l'ai utilisé, mais je ne me rappelle plus s'il y avait la gestion des fichiers.

Bonne journée

louis
Messages postés
6
Date d'inscription
dimanche 19 novembre 2000
Statut
Membre
Dernière intervention
13 janvier 2011

Bonjour Louis
Merci d'avoir répondu si vite. je vais me pencher sur votre proposition
Bonne journée !