Subroutine dans un code

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

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)

Citation:

---

Envoyé par genteur slayer

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.

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???

Citation:

---

Envoyé par solo12

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.

Citation:

---

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:

---

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:

---

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:

---

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:

---

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!

---

je vais essayer cette methode
merci