Procédures | Cast3M

* @RRST     PROCEDUR  CB215821  19/11/18    21:15:01     10383          
*----------------------------------------------------------------------
*      CETTE METHODE A ETE MISE GRACIEUSEMENT
*      A DISPOSITION DE  LA COMMUNAUTE CAST3M
*      PAR TAMASKOVICS N.
*     (Freiberg Institut für Geotechnik )
*----------------------------------------------------------------------
'DEBM' @RRST  R*'TABLE'  DBG/'ENTIER' ;
*----------------------------------------------------------------------
* La methode @RRST fait partie de l'objet @RSTH et est appelee avec
*    l'abbreviation %'RST'.
*----------------------------------------------------------------------
 'SI' ('EXIS' DBG ) ;
  !DBG = DBG ;
 'SINO' ;
  !DBG = 0 ;
 'FINS' ;
*
 %'RT' = R ;
*
 %'IR' ='INDE' %'RT' ;
 %'IX' ='DIME' %'IR' ;
*
 'REPE' I %IX ;
  !NM ='DIME' %'RT'.(%'IR'.&I).'MIN' ;
  !NX ='DIME' %'RT'.(%'IR'.&I).'MAX' ;
  !NC ='DIME' %'RT'.(%'IR'.&I).'CPB' ;
  !JX = !NM + !NX ;
  %'RT'.(%'IR'.&I).'N' = !JX ;
  %'RT'.(%'IR'.&I).'V' = 'PROG' !JX * 0.0 ;
  %'RT'.(%'IR'.&I).'P' = 'PROG' !JX * 0.0 ;
  !JV = 0 ;
  !JX = !NM ;
  'REPE' J !JX ;
   !JV = ( !JV + 1 ) ;
   'REMP' %'RT'.(%'IR'.&I).'V' !JV ('EXTR' %'RT'.(%'IR'.&I).'MIN' &J) ;
   'REMP' %'RT'.(%'IR'.&I).'P' !JV ('EXTR' %'RT'.(%'IR'.&I).'CPB' &J) ;
   !JV = !JV + 1 ;
   'REMP' %'RT'.(%'IR'.&I).'V' !JV ('EXTR' %'RT'.(%'IR'.&I).'MAX' &J) ;
   'REMP' %'RT'.(%'IR'.&I).'P' !JV ('EXTR' %'RT'.(%'IR'.&I).'CPB' &J) ;
  'FIN' J ;
 'FIN' I ;
*
 !NN = 1 ;
 !NX = 1 ;
 !PN = 1 ;
 !PX = 1 ;
 !CX = 1 ;
 !RX = 1 ;
*
 'REPE' I %'IX' ;
  !RX = 2 * !RX ;
  !II = %'IX' - &I + 1 ;
  !NX = !NN * !NX ;
  %'RT'.(%'IR'.!II).'NX' = !NX ;
  !PX = !PN * !PX ;
  %'RT'.(%'IR'.!II).'PX' = !PX ;
  !NN = %'RT'.(%'IR'.!II).'N' ;
  !PN = !NN / 2 ;
  !CX = !CX * !NN ;
  %'RT'.(%'IR'.!II).'CX' = !CX ;
 'FIN' I ;
 %'NX'  = !NX ;
 %'CX'  = !CX ;
 %'RX'  = !RX ;
 %'PX'  = %'CX' / %'RX' ;
 %'MIN' ='PROG' %'PX' * 0.0 ;
 %'CPN' ='PROG' %'PX' * 0.0 ;
 %'MAX' ='PROG' %'PX' * 0.0 ;
 %'CPX' ='PROG' %'PX' * 0.0 ;
*
'FINM' ;