From 3b575d6947e4caa70b8217635f143f450bde7b19 Mon Sep 17 00:00:00 2001
From: Annie Hughes <annie.hughes@irap.omp.eu>
Date: Tue, 22 Nov 2022 12:29:51 +0100
Subject: [PATCH] added empty help

---
 src/idl/dustem_init_parinfo.pro | 71 +++++++++++++++++++++++++++++++++++++++++++++++++++++++++++------------
 1 file changed, 59 insertions(+), 12 deletions(-)

diff --git a/src/idl/dustem_init_parinfo.pro b/src/idl/dustem_init_parinfo.pro
index 96ebf78..8cc398b 100755
--- a/src/idl/dustem_init_parinfo.pro
+++ b/src/idl/dustem_init_parinfo.pro
@@ -3,6 +3,52 @@ PRO dustem_init_parinfo,pd,iv, $
                         up_limited=up_limited,lo_limited=lo_limited,up_limits=up_limits,lo_limits=lo_limits, $
                         relstep=relstep,step=step
 
+;+
+; NAME:
+;    dustem_init_parinfo
+;
+; PURPOSE:
+;
+; CATEGORY:
+;    DustEMWrap, Distributed, Low-Level, Initialization
+;
+; CALLING SEQUENCE:
+;    dustem_init_parinfo
+;  
+; INPUTS:
+;
+; OPTIONAL INPUT PARAMETERS:
+;
+; OUTPUTS:
+;
+; OPTIONAL OUTPUT PARAMETERS:
+;
+; ACCEPTED KEY-WORDS:
+;
+; COMMON BLOCKS:
+;
+; SIDE EFFECTS:
+;
+; RESTRICTIONS:
+;    The DustEM fortran code must be installed
+;    The DustEMWrap IDL code must be installed
+;
+; PROCEDURES AND SUBROUTINES USED:
+;    
+; EXAMPLES
+;
+; MODIFICATION HISTORY:
+;    Written by 
+;    Evolution details on the DustEMWrap gitlab.
+;    See http://dustemwrap.irap.omp.eu/ for FAQ and help.  
+;-
+
+IF keyword_set(help) THEN BEGIN
+  doc_library,'dustem_init_parinfo'
+  goto,the_end
+END
+
+
 (*!dustem_fit).param_descs=ptr_new(pd)
 
 (*!dustem_fit).param_init_values=ptr_new(iv)
@@ -46,21 +92,22 @@ IF keyword_set(up_limited) THEN BEGIN
 ENDIF
 suite1:
 IF keyword_set(lo_limited) THEN BEGIN
-  ind=where(lo_limited EQ 1,countlo)
-  IF countlo EQ 0 THEN goto,suite2
-  IF NOT keyword_set(lo_limits) THEN BEGIN
-    message,'lower limits must be provided with lo_limited', /info
-    stop
-  ENDIF
-  IF countlo NE 0 THEN BEGIN
-    FOR i=0L,countlo-1 DO BEGIN
-      dustem_parinfo[ind(i)].limited[0]=1
-      dustem_parinfo[ind(i)].limits[0]=lo_limits[ind(i)]/(*(*!dustem_fit).param_init_values)(ind(i))
-    ENDFOR
-  ENDIF
+   ind=where(lo_limited EQ 1,countlo)
+   IF countlo EQ 0 THEN goto,suite2
+   IF NOT keyword_set(lo_limits) THEN BEGIN
+      message,'lower limits must be provided with lo_limited', /info
+      stop
+   ENDIF
+   IF countlo NE 0 THEN BEGIN
+      FOR i=0L,countlo-1 DO BEGIN
+         dustem_parinfo[ind(i)].limited[0]=1
+         dustem_parinfo[ind(i)].limits[0]=lo_limits[ind(i)]/(*(*!dustem_fit).param_init_values)(ind(i))
+      ENDFOR
+   ENDIF
 ENDIF
 suite2:
 
 defsysv,'!dustem_parinfo',ptr_new(dustem_parinfo)
 ;stop
+the_end:
 END
--
libgit2 0.21.2