PRO dustem_define_la_common

;+

; NAME:
;   dustem_define_la_common

;

; PURPOSE:
;   Defines common blocks needed by the la_ routines

;

; CATEGORY:
;    DustEMWrap, Distributed, Low-Level, Initialization

;

; CALLING SEQUENCE:
;   dustem_define_la_common

;

; INPUTS:
;    None

;

; OPTIONAL INPUT PARAMETERS:
;    None

;

; OUTPUTS:
;    None

;

; OPTIONAL OUTPUT PARAMETERS:
;    None

;

; ACCEPTED KEY-WORDS:
;   None

;

; COMMON BLOCKS:
;    ERROR_CURRENT; SESSION_MODE; STATUS_BOOL

;

; SIDE EFFECTS:
;    Initializes common blocks

;

; RESTRICTIONS:
;    None

;

; PROCEDURES AND SUBROUTINES USED:
;    None

;

; EXAMPLES
;    dustem_define_la_common

;

; MODIFICATION HISTORY:
;    Written 2007
;    Evolution details on the DustEMWrap gitlab.
;    See http://dustemwrap.irap.omp.eu/ for FAQ and help.  
;-

COMMON SESSION_BLOCK, SESSION_MODE, ERROR_CURRENT, STATUS_BOOL
ERROR_CURRENT=0                                               
SESSION_MODE=0                                                
STATUS_BOOL=0                                                 

END