Discussion :

[solo12]

Bonjour;
j'ai un code principal en Fortran constitué bien sûr de plusieurs subroutines. Ma question est : est-il possible de changer une de ces subroutine par une qui est semblable mais cette dernière contient des subroutines c-à-d des call .. Si c'est possible comment l'introduire dans mon code.

Merci d'avance

[genteur slayer]

copier coller de toutes les subroutines à la fin de ton fichier....

ou alors plus moderne, avec un module (c.f. un cours de fortran 90/95)

[DaZumba]

copier coller de toutes les subroutines à la fin de ton fichier....

C'est la methode barbare. La methode propre est "compilation separee" via un Makefile. Il y au tutoriel ici. L'exemple montre la compilation d'un projet ecrit en C, mais il est facile d'adapter les Makefiles pour le Fortran.

[solo12]

un makefile comment ça?j'y connais rien en c je sais copier coller mais les commons de ma soubroutine doivent etre semblables à ceux du programme principal cad indiquent les mêmes variables???

[DaZumba]

j'y connais rien en c

Comme je l'ai ecrit dans mon message precedent, les Makefile sont independants du langage utilise. C'est juste que le tutoriel utilise le C.

les commons de ma soubroutine doivent etre semblables à ceux du programme principal cad indiquent les mêmes variables???

Bon. Un exemple simple. J'ai ces deux fichiers sources. Le premier definit le point d'entree du programme:

Code main.f90 :

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

1
2
3
4
5
6
7
8
9
10
11
 
program main
implicit none
 
character (len=13) :: hello
common /CMM/ hello
 
hello = 'Hello, world!'
call print_hello
 
end program main

Le second definit la sous-routine print_hello. Pour une raison inconnue, au lieu de passer hello comme argument, il fait partie d'un common block:

Code print_hello.f90 :

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

1
2
3
4
5
6
7
8
9
 
subroutine print_hello
 
character (len=13) :: hello
common /CMM/ hello
 
write(6,'(a13)') hello
 
end subroutine print_hello

J'ai bien lu le tutoriel sur les Makefiles, et j'ai donc ecrit ce Makefile, qui fait appel au compilateur Fortran Intel pour compiler chacun des fichiers sources en l'objet correspondant, puis assemble les deux objets pour creer l'executable final, appele main:

Code Makefile :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
 
PROG=main
 
SRCE=main.f90 print_hello.f90
OBJS=${SRCE:%.f90=%.o}
 
FC=ifort
FFLAGS=-check all
 
all: ${PROG}
 
${PROG}: ${OBJS}
	${FC} ${FFLAGS} -o $@ $^
 
%.o: %.f90
	${FC} ${FFLAGS} -c $<
 
clean:
	rm -f ${PROG} ${OBJS}

Il suffit maintenant de demander:

Code :

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

1
2
3
4
5
6
7
 
shell> make all
ifort -check all -c main.f90
ifort -check all -c print_hello.f90
ifort -check all -o main main.o print_hello.o
shell> ./main
Hello, world!

[solo12]

je vais essayer cette methode
merci