Discussion :

[solo12]

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]

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

[solo12]

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]

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]

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

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

[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 ) »