dxcommon.pro
951 Bytes
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
;+
; NAME:
; DXCOMMON
;
; AUTHOR:
; Craig B. Markwardt, NASA/GSFC Code 662, Greenbelt, MD 20770
; craigm@lheamail.gsfc.nasa.gov
;
; PURPOSE:
; Defines DEBUG_LEVEL common block (INTERNAL)
;
; DESCRIPTION:
;
; This code fragment defines the DEBUG_LEVEL common block. This
; common is internal to the debugging procedures.
;
; $Id: dxcommon.pro,v 1.2 2001/02/09 04:57:15 craigm Exp $
;
;-
; Copyright (C) 2000, Craig Markwardt
; This software is provided as is without any warranty whatsoever.
; Permission to use, copy, modify, and distribute modified or
; unmodified copies is granted, provided this copyright and disclaimer
; are included unchanged.
;-
;
; Define function names just to be sure
;
forward_function routine_names, routine_info
;
; Define DEBUG_LEVEL common block
;
common debug_level, dblevel, dbtraceback
;
; Set common block values
;
if n_elements(dblevel) EQ 0 then begin
dblevel = 0L
dbtraceback = ['']
endif