Commit 3b575d6947e4caa70b8217635f143f450bde7b19
1 parent
97d6b02a
Exists in
master
added empty help
Showing
1 changed file
with
59 additions
and
12 deletions
Show diff stats
src/idl/dustem_init_parinfo.pro
| @@ -3,6 +3,52 @@ PRO dustem_init_parinfo,pd,iv, $ | @@ -3,6 +3,52 @@ PRO dustem_init_parinfo,pd,iv, $ | ||
| 3 | up_limited=up_limited,lo_limited=lo_limited,up_limits=up_limits,lo_limits=lo_limits, $ | 3 | up_limited=up_limited,lo_limited=lo_limited,up_limits=up_limits,lo_limits=lo_limits, $ |
| 4 | relstep=relstep,step=step | 4 | relstep=relstep,step=step |
| 5 | 5 | ||
| 6 | +;+ | ||
| 7 | +; NAME: | ||
| 8 | +; dustem_init_parinfo | ||
| 9 | +; | ||
| 10 | +; PURPOSE: | ||
| 11 | +; | ||
| 12 | +; CATEGORY: | ||
| 13 | +; DustEMWrap, Distributed, Low-Level, Initialization | ||
| 14 | +; | ||
| 15 | +; CALLING SEQUENCE: | ||
| 16 | +; dustem_init_parinfo | ||
| 17 | +; | ||
| 18 | +; INPUTS: | ||
| 19 | +; | ||
| 20 | +; OPTIONAL INPUT PARAMETERS: | ||
| 21 | +; | ||
| 22 | +; OUTPUTS: | ||
| 23 | +; | ||
| 24 | +; OPTIONAL OUTPUT PARAMETERS: | ||
| 25 | +; | ||
| 26 | +; ACCEPTED KEY-WORDS: | ||
| 27 | +; | ||
| 28 | +; COMMON BLOCKS: | ||
| 29 | +; | ||
| 30 | +; SIDE EFFECTS: | ||
| 31 | +; | ||
| 32 | +; RESTRICTIONS: | ||
| 33 | +; The DustEM fortran code must be installed | ||
| 34 | +; The DustEMWrap IDL code must be installed | ||
| 35 | +; | ||
| 36 | +; PROCEDURES AND SUBROUTINES USED: | ||
| 37 | +; | ||
| 38 | +; EXAMPLES | ||
| 39 | +; | ||
| 40 | +; MODIFICATION HISTORY: | ||
| 41 | +; Written by | ||
| 42 | +; Evolution details on the DustEMWrap gitlab. | ||
| 43 | +; See http://dustemwrap.irap.omp.eu/ for FAQ and help. | ||
| 44 | +;- | ||
| 45 | + | ||
| 46 | +IF keyword_set(help) THEN BEGIN | ||
| 47 | + doc_library,'dustem_init_parinfo' | ||
| 48 | + goto,the_end | ||
| 49 | +END | ||
| 50 | + | ||
| 51 | + | ||
| 6 | (*!dustem_fit).param_descs=ptr_new(pd) | 52 | (*!dustem_fit).param_descs=ptr_new(pd) |
| 7 | 53 | ||
| 8 | (*!dustem_fit).param_init_values=ptr_new(iv) | 54 | (*!dustem_fit).param_init_values=ptr_new(iv) |
| @@ -46,21 +92,22 @@ IF keyword_set(up_limited) THEN BEGIN | @@ -46,21 +92,22 @@ IF keyword_set(up_limited) THEN BEGIN | ||
| 46 | ENDIF | 92 | ENDIF |
| 47 | suite1: | 93 | suite1: |
| 48 | IF keyword_set(lo_limited) THEN BEGIN | 94 | IF keyword_set(lo_limited) THEN BEGIN |
| 49 | - ind=where(lo_limited EQ 1,countlo) | ||
| 50 | - IF countlo EQ 0 THEN goto,suite2 | ||
| 51 | - IF NOT keyword_set(lo_limits) THEN BEGIN | ||
| 52 | - message,'lower limits must be provided with lo_limited', /info | ||
| 53 | - stop | ||
| 54 | - ENDIF | ||
| 55 | - IF countlo NE 0 THEN BEGIN | ||
| 56 | - FOR i=0L,countlo-1 DO BEGIN | ||
| 57 | - dustem_parinfo[ind(i)].limited[0]=1 | ||
| 58 | - dustem_parinfo[ind(i)].limits[0]=lo_limits[ind(i)]/(*(*!dustem_fit).param_init_values)(ind(i)) | ||
| 59 | - ENDFOR | ||
| 60 | - ENDIF | 95 | + ind=where(lo_limited EQ 1,countlo) |
| 96 | + IF countlo EQ 0 THEN goto,suite2 | ||
| 97 | + IF NOT keyword_set(lo_limits) THEN BEGIN | ||
| 98 | + message,'lower limits must be provided with lo_limited', /info | ||
| 99 | + stop | ||
| 100 | + ENDIF | ||
| 101 | + IF countlo NE 0 THEN BEGIN | ||
| 102 | + FOR i=0L,countlo-1 DO BEGIN | ||
| 103 | + dustem_parinfo[ind(i)].limited[0]=1 | ||
| 104 | + dustem_parinfo[ind(i)].limits[0]=lo_limits[ind(i)]/(*(*!dustem_fit).param_init_values)(ind(i)) | ||
| 105 | + ENDFOR | ||
| 106 | + ENDIF | ||
| 61 | ENDIF | 107 | ENDIF |
| 62 | suite2: | 108 | suite2: |
| 63 | 109 | ||
| 64 | defsysv,'!dustem_parinfo',ptr_new(dustem_parinfo) | 110 | defsysv,'!dustem_parinfo',ptr_new(dustem_parinfo) |
| 65 | ;stop | 111 | ;stop |
| 112 | +the_end: | ||
| 66 | END | 113 | END |