Manual pages | Cast3M

$$$$ DEBP     NOTICE  CHAT      11/09/12    21:15:45     7124           
                                             DATE     11/09/12

    Operateur DEBPROC                        Voir aussi : FINP ARGU
    -----------------                                     RESP  QUIT   
    DEBPROC   PROC1 (OBJ1?TYP1  OBJ2?TYP2  .... ) ;


    Description :
    -----------

    The DEBPROC operator creates a PROCEDUR type object which
 is composed of a set of elementary instructions : the first
 instruction is DEBPROC (beginning of procedure) and the last is
 FINPROC (end of procedure).

    Contents :
    ----------

    This procedure can have a list of arguments with their types
  (OBJ1,OBJ2,...).
  The question mark ? may be replaced by two values :

                *  means that the argument is necessary when 
                   the procedure is called on.
                /  means that the argument is optional when
                   the procedure is called on.

  The different possible type of objects are:

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

  Note that when several arguments have the same type, only the order 
 enables the differentiation between them.

           
    Notes :
    ---------
  A procedure knows all the existing objects before its call but
 cannot modify them. Every object the name of which begins by an ! 
 will not be initialized by another object of same name defined
 outside the procedure.
  The objects defined inside a procedure are lost outside the procedure
 except those listed in the FINPRO instruction.




    Example of a procedure which computes the MODULO function :
    ---------------------------------------------------------

                  DEBPROC  MODULO   I*ENTIER  J*ENTIER ;
                  MODERR='$$$$$';

                  SI (J EGA 0) :
                  MESSAGE  ' ON NE PEUT FAIRE I MODULO ZERO ';
                  RESPRO MODERR;
                  QUITTER MODULO ; FINSI;
                  K*ENTIER = I / J ;
                  MOD = I - ( K * J ) ;
                  FINPROC MOD;

    Example of use of the MODULO procedure :
    ----------------------------------------


                  K = 8  MODULO 3 ;
                  SI ( K NEG 2 ) ;
                  MESSAGE ' ERREUR DANS LA RECOPIE DE L EXEMPLE |' ;
                  FINSI;