déclaration d'une fonction dans une subroutine

Version imprimable

04/10/2009, 08h08
solo12

déclaration d'une fonction dans une subroutine

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
06/10/2009, 16h15
genteur slayer

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

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:

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

08/10/2009, 14h39
mipicard

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.

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

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

08/10/2009, 18h28
solo12

oui je vois cet erreur et je l'ai corrigée,mais le problème est toujours
08/10/2009, 18h33
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 ) »
09/10/2009, 08h25
Ehouarn
Bonjour,

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

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:

1 2 real function x( xi,eta )
doit se terminer par un
Code:

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.
09/10/2009, 20h17
solo12

Citation:

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
09/10/2009, 20h29
solo12
Citation:
Envoyé par Ehouarn

Bonjour,

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

Code:

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:

1 2 real function x( xi,eta )

doit se terminer par un

Code:

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.

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:

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

11/10/2009, 19h15
solo12

salut,
pour etre plus clair et précis mon^problème est la déclaration de la fonction dans une subroutine.
13/10/2009, 08h25
Ehouarn

Bonjour,

Citation:

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.