$$$$ LITEMPER
* LITEMPER  PROCEDUR  AURI      98/12/23    21:38:25     3391           
 DEBMETH LITEMPER MO1/MOT IND1/ENTIER ;
 SI (EXIS MO1) ;
    %TEMPERATURE=MOT MO1 ;
 SINON ;
    SI (EXIS IND1) ;
      %TEMPERATURE=IND1 ;
    SINON ;
     ERREUR(21) ;
    FINSI ;
 FINSI ;
 FINMETH ;