From cd76e11071353f8e9f72f09ad24d1e8421175dec Mon Sep 17 00:00:00 2001
From: Annie Hughes <annie.hughes@irap.omp.eu>
Date: Tue, 21 Mar 2023 12:25:08 +0100
Subject: [PATCH] first commit

---
 src/idl/dustem_show_sysvar.pro | 17 +++++++++++++++++
 1 file changed, 17 insertions(+), 0 deletions(-)
 create mode 100644 src/idl/dustem_show_sysvar.pro

diff --git a/src/idl/dustem_show_sysvar.pro b/src/idl/dustem_show_sysvar.pro
new file mode 100644
index 0000000..cdfec17
--- /dev/null
+++ b/src/idl/dustem_show_sysvar.pro
@@ -0,0 +1,17 @@
+pro dustem_show_sysvar,file=file
+
+  if keyword_set(file) then OPENW, 2, file
+  
+  help,/sys,out=sysvar
+  for i=0,n_elements(sysvar)-1 do begin
+     this_line=strsplit(sysvar[i],"!",/ext)
+     for j=0,n_elements(this_line)-1 do begin
+        print,"!"+this_line[j]
+        if keyword_set(file) then printf,2,"!"+this_line[j]
+     endfor
+     
+  endfor
+
+     if keyword_set(file) then close, 2
+
+end
--
libgit2 0.21.2