;******************************************************************************
;* File name: ql_multp_trt.pro                                                *
;*                                                                            *
;* Content  : 	ql_multp_trt                                                  *
;*                                                                            *
;*                                                                            *
;* Date		Author		Comment                                       *
;* -------------------------------------------------------------------------- *
;* 08-03-95	E.PETIT		Creation                                      *
;*                                                                            *
;******************************************************************************


;***
;##############################################################################
;#Function  name   : ql_multp_trt                                             #
;#Author           : Emmanuel PETIT                                           #
;#Purpose          : profiles multiplication                                  #
;##############################################################################
;*** 

PRO ql_multp_trt, ev

  ;============================================================================
  ;                       Common Block in use
  ;============================================================================
  COMMON stack_com
  COMMON curr_data_p_com
  COMMON const_com
  COMMON load_flg_com
  COMMON flag_com

  ;============================================================================
  ;                       Initialization
  ;============================================================================
  index   = INTARR (STACK_SZ)
  nb_op   = 0
  err     = 0
  ;============================================================================
  ;                       Processing 
  ;============================================================================
  WIDGET_CONTROL, /HOURGLASS 

  ; -----------------------------
  ; Locate the selected operandes
  ; -----------------------------
  FOR i=0, STACK_SZ-1 DO BEGIN
    IF (stack_hd.p(i).selected EQ 1) THEN BEGIN
      index(nb_op) = i
      nb_op = nb_op+1
    ENDIF
  ENDFOR

  ; -----------------
  ; Perform  addition 
  ; -----------------
  ql_operation,curr_header_p, $
               curr_data_p  , $
               curr_dctrl_p , $
               curr_banner_p, $
               nb_op        , $
               index        , $
               MULTIPLICATION , $ 
               PROFILE      , $ 
               err
  ; -------------
  ; Display Result 
  ; --------------
  IF (err EQ 0 ) THEN BEGIN
    ret = ql_display_data(curr_data_p, 100, curr_dctrl_p, err)
    load_flag_p = 1
  ENDIF ELSE BEGIN
    ql_err_msg, err
  ENDELSE
                   
END