IdentifiantMot de passe
Loading...
Mot de passe oublié ?Je m'inscris ! (gratuit)
Navigation

Inscrivez-vous gratuitement
pour pouvoir participer, suivre les réponses en temps réel, voter pour les messages, poser vos propres questions et recevoir la newsletter

Fortran Discussion :

déclaration d'une fonction dans une subroutine


Sujet :

Fortran

  1. #1
    Membre averti
    Inscrit en
    Février 2007
    Messages
    21
    Détails du profil
    Informations forums :
    Inscription : Février 2007
    Messages : 21
    Par défaut 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

  2. #2
    Membre émérite Avatar de genteur slayer
    Homme Profil pro
    Développeur informatique
    Inscrit en
    Juin 2002
    Messages
    710
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France, Rhône (Rhône Alpes)

    Informations professionnelles :
    Activité : Développeur informatique
    Secteur : High Tech - Éditeur de logiciels

    Informations forums :
    Inscription : Juin 2002
    Messages : 710
    Par défaut
    quelle erreur? donne un exemple de code qui ne marche pas... ta question est trop vague...

  3. #3
    Membre averti
    Inscrit en
    Février 2007
    Messages
    21
    Détails du profil
    Informations forums :
    Inscription : Février 2007
    Messages : 21
    Par défaut
    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

  4. #4
    Membre éclairé
    Profil pro
    Inscrit en
    Avril 2009
    Messages
    52
    Détails du profil
    Informations personnelles :
    Localisation : France

    Informations forums :
    Inscription : Avril 2009
    Messages : 52
    Par défaut
    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.

  5. #5
    Membre averti
    Inscrit en
    Février 2007
    Messages
    21
    Détails du profil
    Informations forums :
    Inscription : Février 2007
    Messages : 21
    Par défaut
    [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

  6. #6
    Membre averti
    Inscrit en
    Février 2007
    Messages
    21
    Détails du profil
    Informations forums :
    Inscription : Février 2007
    Messages : 21
    Par défaut
    oui je vois cet erreur et je l'ai corrigée,mais le problème est toujours

  7. #7
    Modérateur

    Profil pro
    Inscrit en
    Août 2006
    Messages
    974
    Détails du profil
    Informations personnelles :
    Localisation : Canada

    Informations forums :
    Inscription : Août 2006
    Messages : 974
    Par défaut
    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 ) »

  8. #8
    Membre émérite
    Profil pro
    Inscrit en
    Mars 2007
    Messages
    489
    Détails du profil
    Informations personnelles :
    Localisation : France

    Informations forums :
    Inscription : Mars 2007
    Messages : 489
    Par défaut
    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
    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.

  9. #9
    Membre averti
    Inscrit en
    Février 2007
    Messages
    21
    Détails du profil
    Informations forums :
    Inscription : Février 2007
    Messages : 21
    Par défaut
    Citation Envoyé par Sylvain Bergeron Voir le message
    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

  10. #10
    Membre averti
    Inscrit en
    Février 2007
    Messages
    21
    Détails du profil
    Informations forums :
    Inscription : Février 2007
    Messages : 21
    Par défaut
    Citation Envoyé par Ehouarn Voir le message
    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
    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.

  11. #11
    Modérateur

    Profil pro
    Inscrit en
    Août 2006
    Messages
    974
    Détails du profil
    Informations personnelles :
    Localisation : Canada

    Informations forums :
    Inscription : Août 2006
    Messages : 974
    Par défaut
    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...

  12. #12
    Membre averti
    Inscrit en
    Février 2007
    Messages
    21
    Détails du profil
    Informations forums :
    Inscription : Février 2007
    Messages : 21
    Par défaut
    salut,
    pour etre plus clair et précis mon^problème est la déclaration de la fonction dans une subroutine.

  13. #13
    Membre émérite
    Profil pro
    Inscrit en
    Mars 2007
    Messages
    489
    Détails du profil
    Informations personnelles :
    Localisation : France

    Informations forums :
    Inscription : Mars 2007
    Messages : 489
    Par défaut
    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.

Discussions similaires

  1. Appel d'une fonction dans une fonction d'une même classe
    Par script73 dans le forum Général Python
    Réponses: 3
    Dernier message: 06/03/2015, 10h18
  2. portée d'une variable dans une fonction dans une méthode
    Par laurentg2003 dans le forum Général JavaScript
    Réponses: 4
    Dernier message: 29/06/2009, 19h05
  3. [POO] dans une classe, appeler une fonction dans une méthode
    Par arnaudperfect dans le forum Langage
    Réponses: 3
    Dernier message: 26/08/2007, 23h04
  4. Réponses: 8
    Dernier message: 10/01/2007, 21h10
  5. [PHP-JS] une fonction dans une fonction
    Par lodan dans le forum Langage
    Réponses: 6
    Dernier message: 25/06/2006, 19h14

Partager

Partager
  • Envoyer la discussion sur Viadeo
  • Envoyer la discussion sur Twitter
  • Envoyer la discussion sur Google
  • Envoyer la discussion sur Facebook
  • Envoyer la discussion sur Digg
  • Envoyer la discussion sur Delicious
  • Envoyer la discussion sur MySpace
  • Envoyer la discussion sur Yahoo