Accueil | Cast3M

$$$$ ARGU     NOTICE  SP204843  24/11/04    21:15:02     12063          
                                             DATE     24/11/04

  Directive ARGUMENT                       Voir aussi : DEBP FINP
    ------------------                                    RESP  QUIT  
                                                          DEBM  FINM  
    ARGUMENT  OBJET1?TYP1  OBJET2?TYP2  .....;



    Objet :
    _______

    La directive ARGUMENT permet de lire des arguments OBJETi,
    de type TYPi, depuis l'interieur d'une procedure.

    Pour des raisons de performances, il est preferable de recuperer
    les arguments directement dans DEBPROC quand c'est possible.


    Commentaire :
    _____________

    L'ensemble ?TYPi est facultatif. S'il est omis, ARGU essaie de
    recuperer un objet de n'importe quel type. Les objets de type 
    inconnu doivent etre place a la fin de la liste des arguments
    a lire.

    Le caractere ? vaut :

    - soit *  si la lecture est imperative
    - soit /  sinon

    Les types d'objet possibles sont:

        'MAILLAGE'     'AFFECTE '    'DEFORME '
        'CHPOINT '     'CHAMELEM'    'LISTREEL'
        'RIGIDITE'     'BLOQSTRU'    'LISTENTI'
        'ELEMSTRU'     'SOLUTION'    'CHARGEME'
        'STRUCTUR'     'TABLE   '    'MODELE  '
        'MAFFEC  '     'MSOSTU  '    'EVOLUTIO'
        'IMATRI  '     'MJONCT  '    'SUPERELE'
        'ATTACHE '     'MMATRI  '    'LOGIQUE '
        'FLOTTANT'     'ENTIER  '    'MOT     '
        'TEXTE   '     'LISTMOTS'    'VECTEUR '
        'VECTDOUB'     'POINT   '    'CONFIGUR'
        'LISTCHPO'     'BASEMODA'    'PROCEDUR'
        'BLOC    '     'MMODEL  '    'MCHAML  '
        'MINTE   '     'NUAGE   '    'MATRIK  '
        'LISTOBJE'


    Exemple :
    _________

    Procedure faisant l'addition de n entiers avec n plus grand ou
    egal a 2.


             DEBP ADDI ;
             ARGU  I*ENTIER  J*ENTIER  ;
             K = I + J ;
             REPETER NFOI;
             ARGU L/ENTIER;
             SI ( EXISTE L) ;
             K = K + L ;
             SINON;
             QUITTER NFOI;
             FINSI;
             FIN NFOI;
             FINPROC K;
             X = ADDI 2 5  4;