pro math_debug,code,message

if code ne 0 then if n_params() eq 1 then print,'ERROR(S):' else print,message
;if code ge 128 then begin
while code ge 128 do begin
  code=code-128
  print,'Floating point operand error'
endwhile
while code ge 64 do begin
  code=code-64
  print,'Floating point overflow'
endwhile
while code ge 32 do begin
  code=code-32
  print,'Floating point underflow'
endwhile
while code ge 16 do begin
  code=code-16
  print,'Floating point divide by zero'
endwhile
while code ge 2 do begin
  code=code-2
  print,'Integer overflow'
endwhile
while code ge 1 do begin
  code=code-1
  print,'Integer divide by zero'
endwhile

end