Discussion :

[jimino]

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 :

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

[Ehouarn]

Bonjour

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 :

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

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

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