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 | 3 | up_limited=up_limited,lo_limited=lo_limited,up_limits=up_limits,lo_limits=lo_limits, $ |
| 4 | 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 | 52 | (*!dustem_fit).param_descs=ptr_new(pd) |
| 7 | 53 | |
| 8 | 54 | (*!dustem_fit).param_init_values=ptr_new(iv) |
| ... | ... | @@ -46,21 +92,22 @@ IF keyword_set(up_limited) THEN BEGIN |
| 46 | 92 | ENDIF |
| 47 | 93 | suite1: |
| 48 | 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 | 107 | ENDIF |
| 62 | 108 | suite2: |
| 63 | 109 | |
| 64 | 110 | defsysv,'!dustem_parinfo',ptr_new(dustem_parinfo) |
| 65 | 111 | ;stop |
| 112 | +the_end: | |
| 66 | 113 | END | ... | ... |