first commit

Annie Hughes
1 parent 84cabbe5
Showing 1 changed file with 76 additions and 0 deletions Show diff stats
src/idl/dustem_fill_ext_dependent_columns.pro
@@ -0,0 +1,76 @@
+FUNCTION dustem_fill_ext_dependent_columns,ext,help=help
+
+;+
+; NAME:
+;    dustem_fill_ext_dependent_columns
+;
+; PURPOSE:
+;    fill up columns of a DustEMWrap EXT that are dependent on I,Q,U and associated (co-)variances
+;
+; CATEGORY:
+;    DustEMWrap, Distributed, High-Level, User-convenience
+;
+; CALLING SEQUENCE:
+;    output=dustem_fill_ext_dependent_columns(ext[,/help])
+;
+; INPUTS:
+;    ext    : a valid DustEMWrap ext
+;
+; OPTIONAL INPUT PARAMETERS:
+;    None
+;
+; OUTPUTS:
+;    None
+;
+; OPTIONAL OUTPUT PARAMETERS:
+;    None
+;
+; ACCEPTED KEY-WORDS:
+;    help      = If set print this help
+;
+; COMMON BLOCKS:
+;    None
+;
+; SIDE EFFECTS:
+;    None
+;
+; RESTRICTIONS:
+;    The DustEMWrap IDL code must be installed
+;
+; PROCEDURE:
+;    None
+;
+; EXAMPLES
+;    filled_ext=dustem_fill_ext_dependent_columns(ext)
+;
+; MODIFICATION HISTORY:
+;    Written by AH Nov-2022
+;    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_fill_ext_dependent_columns'
+  output=0
+  goto,the_end
+ENDIF
+
+output=ext
+
+polar_iqu2ippsi,ext.ext_I,ext.ext_Q,ext.ext_U,p,psi,p2=p2,/lac
+output.ext_smallp=p
+output.psi=psi
+output.ext_p=la_mul(output.ext_smallp,output.ext_I)
+
+polar_variance_iqu2ippsi,ext.ext_I,ext.ext_Q,ext.ext_U,ext.SIGEXTII,ext.SIGEXTQQ,ext.SIGEXTUU,ext.SIGEXTIQ,ext.SIGEXTIU,ext.SIGEXTQU, $
+						variance_smallp,variance_psi,variance_largep,/lac
+
+output.SIGEXTp=variance_largep
+output.SIGEXTsmallp=variance_smallp
+output.SIGEXT_psi=variance_psi
+
+the_end:
+
+RETURN,output
+END