Transformation d'une subroutine en function

Bonjour, j'ai un programme utilisant une subroutine qui fonctionne. J'aimerais la transformer en fonction pour pouvoir stocker le résultat dans une variable. Le programme modifie juste une matrice A. La structure du code est la suivante :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28

program phonetransport implicit none complex :: A(2,2)   A=...   call change(2,2,A,-1)   end program phonetransport     subroutine change(N,M,CP,IS) implicit none integer :: N,M,IS,i1,i2 complex :: CP(n1,n2)   do i2= 1,n2 .... end do   do i1= 1,n1 ... end do print*,ABS(cp) return   end subroutine change

---

Dans le subroutine, la matrice CP est modifiée. J'utilise alors la fonction print pour la visualiser. Comment transformer ma subroutine en function ?

Bonjour

Citation:

---

Envoyé par jimino

Dans le subroutine, la matrice CP est modifiée. J'utilise alors la fonction print pour la visualiser. Comment transformer ma subroutine en function ?

---

Une fonction, tout comme une subroutine, agit sur (et donc potentiellement modifie) les arguments qui lui sont transmis.
La seule différence est que la fonction renvoie en plus une valeur à l'appelant. Il faut donc savoir quelle est cette valeur supplémentaire que tu souhaites "faire remonter" à l'appelant.

Si par exemple c'est juste un entier pour signifier que tout va bien (si ==0) ou non (!=0):

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23

integer function change(N,M,CP,IS) implicit none integer :: change integer :: N,M,IS,i1,i2 complex :: CP(N,M) ! J'imagine que c'est plutôt ça que le CP(n1,n2) de ton exemple   do i2= 1,M .... end do   do i1= 1,N ... end do print*,ABS(cp)   if (...) ! contitions pour évaluer si tout s'est bien passé change = 0 else change = 1 endif   end function change

---

Et dans le programme principal:

Code:

---

1 2 3 4 5 6 7 8 9 10 11

program phonetransport implicit none complex :: A(2,2) integer :: ok   A=...   ok=change(2,2,A,-1)   end program phonetransport

---