déclaration d'une fonction dans une subroutine

**solo12** · 04/10/2009, 08h08

Bonjour à tous;
J'ai un programme principal contenant plusieurs subroutines dans l'une je voudrais inserer deux certaines fonctions (x,y),le problème est comment dois je déclarer ces fonctions dans cette subroutine?
(j'ai toujours une erreur de syntaxe dans la déclaration de la fonction) .
merci

**genteur slayer** · 06/10/2009, 16h15

quelle erreur? donne un exemple de code qui ne marche pas... ta question est trop vague...

**solo12** · 08/10/2009, 07h08

bonjour,
merci gentleur slayer en réalité ma subroutine est une subroutine maillage qui doit se faire par ces fonctions .
dans la compilation de mon prog j'ai toujours erreur 3852,erreur de syntaxe.
en voici un exemple:

Subroutine maille
Common :où sont déclarées toutes mes variables et coefficients

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
29
30
31
32
33
34
35
36
37
38
39
m =20
n=20  
dx = 1./m
      dy = 1./n
      do 1 i = 1,m+1
      xi(i) = (i-1)*dx
      do 3 j = 1,n+1
      eta(j) = (j-1)*dy
      xg(i,j) = xi(i)
      yg(i,j) = y(xi(i),eta(j))
3    continue
 1    continue      
      real function x( xi,eta )
       implicit none
      real xi,eta
 
      d = 3.5
      xo = 0.5
      a = exp(d*(xi/xo))-1.
      b = exp(d)-1.
         x = xo*a/b
 
      end function x(xi,eta)
c
      real function y( xi,eta )
         implicit none
      real xi,eta
 
      d = 3.5
      yo = 0.5
      h1 = -(2.*xi*xi )
      h2 = (2.*xi*xi )
      a = exp(d*(eta/yo))-1.
      b = exp(d)-1.
         y =(h2-h1)*yo*a/b +h1     
 
      end function y(xi,eta)
      end 
      return

**mipicard** · 08/10/2009, 14h39

Il y a end avant l'ordre return !

Si c'est le cas, le compilateur croit que tu veux définir une autre fonction après l'ordre end. Il ne trouve que la ligne return et ne comprend pas.

**solo12** · 08/10/2009, 18h24

[QUOTE=solo12;4699762]bonjour,
merci gentleur slayer en réalité ma subroutine est une subroutine maillage qui doit se faire par ces fonctions .
dans la compilation de mon prog j'ai toujours erreur 3852,erreur de syntaxe.
en voici un exemple:

Subroutine maille
Common :où sont déclarées toutes mes variables et coefficients

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
29
30
31
32
33
34
35
36
37
38
m =20
n=20  
dx = 1./m
      dy = 1./n
      do 1 i = 1,m+1
      xi(i) = (i-1)*dx
      do 3 j = 1,n+1
      eta(j) = (j-1)*dy
      xg(i,j) = xi(i)
      yg(i,j) = y(xi(i),eta(j))
3    continue
 1    continue      
      real function x( xi,eta )
       implicit none
      real xi,eta
 
      d = 3.5
      xo = 0.5
      a = exp(d*(xi/xo))-1.
      b = exp(d)-1.
         x = xo*a/b
 
      end function y(xi,eta)
c
      real function y( xi,eta )
         implicit none
      real xi,eta
 
      d = 3.5
      yo = 0.5
      h1 = -(2.*xi*xi )
      h2 = (2.*xi*xi )
      a = exp(d*(eta/yo))-1.
      b = exp(d)-1.
         y =(h2-h1)*yo*a/b +h1     
 
      end function y(xi,eta)
      end

**solo12** · 08/10/2009, 18h28

oui je vois cet erreur et je l'ai corrigée,mais le problème est toujours

**Sylvain Bergeron** · 08/10/2009, 18h33

J'ai lu très rapidement la discussion et j'espère donc ne pas t'envoyer sur une fausse piste...

Tu dois ajouter la ligne « contains » entre les lignes « 1 continue » et « real function x( xi,eta ) »

**Ehouarn** · 09/10/2009, 08h25

Bonjour,

Comme l'indique le compilateur, il y a erreur de syntaxe...

Code :

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

1
2
 
      end function y(xi,eta)

Il ne faut pas répéter les arguments de la fonction sur le 'end'.

D'autre part, ta fonction x:

Code :

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

1
2
 
      real function x( xi,eta )

doit se terminer par un

Code :

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

1
2
 
      end function x

alors que tu la termine par un "end function y".
Et il manque aussi plein de déclaration de variables (d,x0,a,...) dans tes fonctions.

Pense à utiliser des options de compilation (e.g. -Wall avec gfortran ou g95) qui te renseignent sur ce genre de maladresses.

Bonne continuation.

**solo12** · 09/10/2009, 20h17

Envoyé par Sylvain Bergeron

J'ai lu très rapidement la discussion et j'espère donc ne pas t'envoyer sur une fausse piste...

Tu dois ajouter la ligne « contains » entre les lignes « 1 continue » et « real function x( xi,eta ) »

merci bien Sylvain Bergeron , en réalité je ne sais pas le rôle de la ligne "contains" dans un programme mais je l'ai insérée mais cet erreur de syntaxe reste toujours

**solo12** · 09/10/2009, 20h29

Envoyé par Ehouarn

Bonjour,

Comme l'indique le compilateur, il y a erreur de syntaxe...

Code :

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

1
2
 
      end function y(xi,eta)

Il ne faut pas répéter les arguments de la fonction sur le 'end'.

D'autre part, ta fonction x:

Code :

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

1
2
 
      real function x( xi,eta )

doit se terminer par un

Code :

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

1
2
 
      end function x

alors que tu la termine par un "end function y".
Et il manque aussi plein de déclaration de variables (d,x0,a,...) dans tes fonctions.

Pense à utiliser des options de compilation (e.g. -Wall avec gfortran ou g95) qui te renseignent sur ce genre de maladresses.

Bonne continuation.

Merci Ehouarn,j'ai essayer de déclarer ces variables en leurs donnant aussi des valeurs je ne comprends pas pourquoi cette erreur?j'utilise le fortran powerstation pour la compilation.

**Sylvain Bergeron** · 09/10/2009, 20h35

Les commentaires et suggestions de cette discussion sont un peu incohérents. Le problème vient de la description un peu imprécise de ce que tu veux faire.

En Fortran (90 et +), il est effectivement possible de définir une fonction (ou une subroutine) dans une autre fonction (ou subroutine). Cette fonction interne est privée à la fonction la contenant. Est-ce que c'est ce que tu veux faire ?

L'alternative est d'utiliser une fonction « ordinaire », externe à la fonction appelante.

Si tu veux la première approche, tu dois utiliser la structure 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
 
function Appelante(...)
   implicit none
   déclarations
   ...
   instruction
   ...
contains
   function Appelée(...)
   ...
   end function Appelée
   function Appelée2(...)
   ...
   end function Appelée2
end function Appelante

Notes :

Je ne crois pas que tu puisse utiliser implicit none dans les fonctions appelées. Le implicit none est hérité de la fonction appelante.
Tu peux utiliser les variables de la fonction appelante dans la fonction appelée. Le commentaire de Ehouarn sur les déclarations n'est donc pas valable si les variables en question sont des variables de l'appelant et que c'est bien à ces variables que tu fais référence.

L'autre approche est très classique. Mon commentaire sur le contains n'est alors pas approprié.

Pour que les réponses soient meilleures, tu dois donc nous préciser ce que tu veux faire...

**solo12** · 11/10/2009, 19h15

salut,
pour etre plus clair et précis mon^problème est la déclaration de la fonction dans une subroutine.

**Ehouarn** · 13/10/2009, 08h25

Bonjour,

pour etre plus clair et précis mon^problème est la déclaration de la fonction dans une subroutine.

Hélas, tu n'es là ni plus précis ni plus clair qu'auparavant...

Donne un exemple simple (aussi minimal que possible) de ce que tu souhaites faire, en précisant bien où ça coince. Tu auras bien plus de chance d'obtenir une réponse précise et appropriée.

déclaration d'une fonction dans une subroutine

Fortran

Discussions similaires

Partager

Partager