Procedures | Cast3M

   1 : * SGE       PROCEDUR  MAGN      04/09/16    21:15:05     4909           
   2 : 'DEBPROC' SGE ;
   3 : ARGU RX*TABLE ;
   4 : *mess 'Debut SGE ' ;
   5 : rv=rx.'EQEX' ;
   6 : iarg=rx.'IARG' ;
   7 : 
   8 :  Si(Non (ega iarg 3));
   9 :  Mess '*********************************************************' ;
  10 :  Mess ' ERREUR   ERREUR   ERREUR   ERREUR   ERREUR   ERREUR     ' ;
  11 :  Mess '                                                         ' ;
  12 :  Mess 'Le nombre d arguments de SGE (' iarg ')  est incorect    ' ;
  13 :  Mess '*********************************************************' ;
  14 :  erreur 21 ;
  15 :  quitter SGE ;
  16 :  Finsi ;
  17 : 
  18 : NASTOK = rv.'NAVISTOK' ;
  19 : 
  20 : MRO=rx.'ARG1' ;
  21 : Si (EGA (TYPE MRO) 'MOT');
  22 : ro=rv.inco.mro;
  23 : Sinon ;
  24 : ro = mro ;
  25 : Finsi ;
  26 : 
  27 : Si (EGA (TYPE MMU) 'MOT');
  28 : MMU=rx.'ARG3' ;
  29 : mu=rv.inco.mmu;
  30 : Sinon ;
  31 : mu = mmu ;
  32 : Finsi ;
  33 : 
  34 : MIU=rx.'ARG2' ;
  35 : UN=rv.inco.miu;
  36 : 
  37 : P = PRODT UN $mod ;
  38 : 
  39 : IDIM = 'VALE' 'DIME'    ;
  40 : Dg=doma $mod 'XXDIAGSI' ;
  41 : lms=Dg**(1./IDIM);
  42 : cs=0.01;
  43 : muts=Ro*2.*cs*lms*lms*(P**0.5);
  44 : muts=kcht $mod scal sommet muts;
  45 : mut= noel $mod muts ;
  46 : 
  47 : rv.inco.'MUT'=(mut + mu) ;
  48 : 
  49 : *mess 'Fin SGE' ;
  50 : as2 ama1  = 'KOPS' 'MATRIK' ;
  51 : RESPRO as2 ama1 ;
  52 : FINPROC ;
  53 :