diff --git a/src/idl/dustemwrap_plot.pro b/src/idl/dustemwrap_plot.pro index 5f2cd82..bb7403e 100755 --- a/src/idl/dustemwrap_plot.pro +++ b/src/idl/dustemwrap_plot.pro @@ -15,14 +15,24 @@ PRO dustemwrap_plot,p_dim,st, $ ;+ ; NAME: +; dustemwrap_plot +; ; PURPOSE: -; plots dustemwrap observed sed, predicted sed, predicted spectra for total Intensity, polarization in emission and extinction +; plots dustemwrap observed sed, predicted sed, predicted spectra for total intensity, polarization in emission and extinction +; ; CATEGORY: -; DustEMWrap +; DustEMWrap, Distributed, Plotting, Mid-Level +; ; CALLING SEQUENCE: -; dustemwrap_plot,p_dim,st,dustem_sed,SED_spec,dustem_qsed,Q_spec,dustem_used,U_spec,dustem_polsed,P_spec,dustem_polfrac,SP_spec,dustem_psi_em,PSI_spec,dustem_ext,EXT_spec,dustem_qext,QEXT_spec,dustem_uext,UEXT_spec,dustem_polext,POLEXT_spec,dustem_fpolext,SPEXT_spec,dustem_psi_ext,PSIEXT_spec,_extra=_extra +; dustemwrap_plot,p_dim,st,dustem_sed,SED_spec,dustem_qsed,Q_spec,dustem_used,U_spec $ +; ,dustem_polsed,P_spec,dustem_polfrac,SP_spec,dustem_psi_em,PSI_spec $ +; ,dustem_ext,EXT_spec,dustem_qext,QEXT_spec,dustem_uext,UEXT_spec $ +; ,dustem_polext,POLEXT_spec,dustem_fpolext,SPEXT_spec,dustem_psi_ext,PSIEXT_spec $ +; ,_extra=_extra +; ; INPUTS: ; p_dim +; ; OPTIONAL INPUT PARAMETERS: ; st ; dustem_sed @@ -37,6 +47,7 @@ PRO dustemwrap_plot,p_dim,st, $ ; dustem_polext ; dustem_fpolext ; dustem_psi_ext +; ; OUTPUTS: ; dustem_sed ; dustem_qsed @@ -62,24 +73,30 @@ PRO dustemwrap_plot,p_dim,st, $ ; POLEXT_spec ; SPEXT_spec ; PSIEXT_spec +; ; OPTIONAL OUTPUT PARAMETERS: ; ; ACCEPTED KEY-WORDS: ; help +; ; COMMON BLOCKS: ; None +; ; SIDE EFFECTS: -; Does a plot +; Generates plots! +; ; RESTRICTIONS: ; The DustEM fortran code must be installed ; The DustEMWrap IDL code must be installed +; ; PROCEDURES AND SUBROUTINES USED: ; -; EXAMPLES +; EXAMPLES: ; ; MODIFICATION HISTORY: -; Written by Ilyes Choubani +; Written by Ilyes Choubani 2022 ; Evolution details on the DustEMWrap gitlab. +; See http://dustemwrap.irap.omp.eu/ for FAQ and help. ;- IF keyword_set(help) THEN BEGIN @@ -104,7 +121,6 @@ IF not keyword_set(st) THEN BEGIN toto = dustem_compute_stokes(p_dim,st=st,Q_spec=Q_spec,U_spec=U_spec,PSI_spec=PSI_spec,dustem_psi_em=dustem_psi_em) dustem_qsed = toto[0] dustem_used = toto[1] - ;stop endif endif -- libgit2 0.21.2