Procedures | Cast3M

   1 : * LITEMPER  PROCEDUR  AURI      98/12/23    21:38:25     3391           
   2 :  DEBMETH LITEMPER MO1/MOT IND1/ENTIER ;
   3 :  SI (EXIS MO1) ;
   4 :     %TEMPERATURE=MOT MO1 ;
   5 :  SINON ;
   6 :     SI (EXIS IND1) ;
   7 :       %TEMPERATURE=IND1 ;
   8 :     SINON ;
   9 :      ERREUR(21) ;
  10 :     FINSI ;
  11 :  FINSI ;
  12 :  FINMETH ;
  13 :  
  14 :