OV-GSO-DC / dustem-wrapper_idl

Commit 8e55ab4dbde2561f7a85ba48b6845cfc853fde66

Authored by Jean-Philippe Bernard
1 parent d86a4188
Exists in master

removed frequency axis when run under fawlty

Showing 3 changed files with 48 additions and 25 deletions   Show diff stats
Inline Side-by-side
src/idl/dustem_plot_dataset.pro
  Diff comments   View file @8e55ab4
... ... @@ -117,8 +117,10 @@ if keyword_set(dataset) then begin
117 117  
118 118 if not keyword_set(norm) then begin
119 119 ;/NODATA
120   - cgplot,wavs,wavs,/nodata,/ylog,/xlog,/ys,xs=9,pos=position,noerase=1,charsize=1.15,xtickformat='(A1)',color='Powder Blue',xr=xr,xtit='',yr=yr,psym=8,syms=0.8
121   - axis, xaxis=1 ,xlog=1 ,xrange=((!const.c*1E6/xr)*1E-9),charsize=1.15,xtitle=textoidl('\nu (GHz)'),xticklen=0.05,xminor=10,color='black'
  120 + cgplot,wavs,wavs,/nodata,/ylog,/xlog,/ys,xs=9,pos=position,noerase=1,charsize=1.15,xtickformat='(A1)',color='Powder Blue',xr=xr,xtit='',yr=yr,psym=8,syms=0.8
  121 + IF !dustemwrap_which_language NE 'fawlty' THEN BEGIN
  122 + axis, xaxis=1 ,xlog=1 ,xrange=((!const.c*1E6/xr)*1E-9),charsize=1.15,xtitle=textoidl('\nu (GHz)'),xticklen=0.05,xminor=10,color='black'
  123 + ENDIF
122 124 xyouts,pospltxt[0],pospltxt[1],textoidl('I_{\nu} (MJy/sr)'),color=0,/normal,charsize=1.3;,charthick=2.0
123 125  
124 126 ;endelse
... ... @@ -326,7 +328,9 @@ if keyword_set(dataset) then begin
326 328 if not keyword_set(norm) then begin
327 329 ;/NODATA
328 330 cgplot,wavs,wavs,/nodata,/ylog,/xlog,/ys,xs=9,pos=position,noerase=1,charsize=1.15,xtickformat='(A1)',color='Powder Blue',xr=xr,xtit='',yr=yr,psym=8,syms=0.8
329   - axis, xaxis=1 ,xlog=1 ,xrange=((!const.c*1E6*xr)*1E-9),charsize=1.15,xtitle=textoidl('\nu (GHz)'),xticklen=0.05,xminor=10,color='black'
  331 + IF !dustemwrap_which_language NE 'fawlty' THEN BEGIN
  332 + axis, xaxis=1 ,xlog=1 ,xrange=((!const.c*1E6*xr)*1E-9),charsize=1.15,xtitle=textoidl('\nu (GHz)'),xticklen=0.05,xminor=10,color='black'
  333 + ENDIF
330 334 xyouts,pospltxt[0],pospltxt[1],textoidl('\tau_{EXT}'),color=0,/normal,charsize=1.3;,charthick=2.0
331 335  
332 336 ;endelse
... ... @@ -457,8 +461,9 @@ if keyword_set(dataset) then begin
457 461  
458 462  
459 463 ;Plotting of frequency axis
460   - axis, xaxis=1, xlog=1, xs=1, xminor=10, xticklen=0.05, xrange=((!const.c*1E6*xr)*1E-9),charsize=1.15,xtitle=textoidl('\nu (GHz)'),color=0
461   -
  464 + IF !dustemwrap_which_language NE 'fawlty' THEN BEGIN
  465 + axis, xaxis=1, xlog=1, xs=1, xminor=10, xticklen=0.05, xrange=((!const.c*1E6*xr)*1E-9),charsize=1.15,xtitle=textoidl('\nu (GHz)'),color=0
  466 + ENDIF
462 467 xyouts,pospltxt[0],pospltxt[1],textoidl('\tau_{EXT}'),color=0,/normal,charsize=1.3;,charthick=2.0
463 468  
464 469 ;Locating all the hidden data points (spectrum+filter)
... ... @@ -533,7 +538,9 @@ if keyword_set(dataset) then begin
533 538 endif else begin ;normal plot
534 539 ;/NODATA
535 540 cgplot,wavs,wavs,/nodata,/ylog,/xlog,/ys,xs=9,pos=position,noerase=1,charsize=1.15,xtickformat='(A1)',color='Powder Blue',xr=xr,xtit='',yr=yr,psym=8,syms=0.8
536   - axis, xaxis=1 ,xlog=1 ,xrange=((!const.c*1E6*xr)*1E-9),charsize=1.15,xtitle=textoidl('\nu (GHz)'),xticklen=0.05,xminor=10,color='black'
  541 + IF !dustemwrap_which_language NE 'fawlty' THEN BEGIN
  542 + axis, xaxis=1 ,xlog=1 ,xrange=((!const.c*1E6*xr)*1E-9),charsize=1.15,xtitle=textoidl('\nu (GHz)'),xticklen=0.05,xminor=10,color='black'
  543 + ENDIF
537 544 xyouts,pospltxt[0],pospltxt[1],textoidl('\tau_{PEXT}'),color=0,/normal,charsize=1.3;,charthick=2.0
538 545  
539 546 endelse
... ... @@ -655,8 +662,9 @@ if keyword_set(dataset) then begin
655 662  
656 663  
657 664 ;Plotting of frequency axis
658   - axis, xaxis=1, xlog=1, xs=1, xminor=10, xticklen=0.05, xrange=((!const.c*1E6*xr)*1E-9),charsize=1.15,xtitle=textoidl('\nu (GHz)'),color=0
659   -
  665 + IF !dustemwrap_which_language NE 'fawlty' THEN BEGIN
  666 + axis, xaxis=1, xlog=1, xs=1, xminor=10, xticklen=0.05, xrange=((!const.c*1E6*xr)*1E-9),charsize=1.15,xtitle=textoidl('\nu (GHz)'),color=0
  667 + ENDIF
660 668 xyouts,pospltxt[0],pospltxt[1],textoidl('\tau_{PEXT}'),color=0,/normal,charsize=1.3;,charthick=2.0
661 669  
662 670 ;Locating all the hidden data points (spectrum+filter)
... ... @@ -734,7 +742,9 @@ if keyword_set(dataset) then begin
734 742 endif else begin ;normal plot
735 743  
736 744 cgplot,wavs,wavs,/nodata,/ylog,/xlog,/ys,xs=9,pos=position,noerase=1,charsize=1.15,xtickformat='(A1)',color='Powder Blue',xr=xr,xtit='',yr=yr,psym=8,syms=0.8
737   - axis, xaxis=1 ,xlog=1 ,xrange=((!const.c*1E6/xr)*1E-9),charsize=1.15,xtitle=textoidl('\nu (GHz)'),xticklen=0.05,xminor=10,color='black'
  745 + IF !dustemwrap_which_language NE 'fawlty' THEN BEGIN
  746 + axis, xaxis=1 ,xlog=1 ,xrange=((!const.c*1E6/xr)*1E-9),charsize=1.15,xtitle=textoidl('\nu (GHz)'),xticklen=0.05,xminor=10,color='black'
  747 + ENDIF
738 748 xyouts,pospltxt[0],pospltxt[1],textoidl('P_{\nu} (MJy/sr)'),color=0,/normal,charsize=1.3;,charthick=2.0
739 749  
740 750 endelse
... ... @@ -849,8 +859,9 @@ if keyword_set(dataset) then begin
849 859  
850 860  
851 861 ;Plotting of frequency axis
852   - axis, xaxis=1, xlog=1, xs=1, xminor=10, xticklen=0.05, xrange=((!const.c*1E6/(xr))*1E-9),charsize=1.15,xtitle=textoidl('\nu (GHz)'),color=0
853   -
  862 + IF !dustemwrap_which_language NE 'fawlty' THEN BEGIN
  863 + axis, xaxis=1, xlog=1, xs=1, xminor=10, xticklen=0.05, xrange=((!const.c*1E6/(xr))*1E-9),charsize=1.15,xtitle=textoidl('\nu (GHz)'),color=0
  864 + ENDIF
854 865 xyouts,pospltxt[0],pospltxt[1],textoidl('P_{\nu} (MJy/sr)'),color=0,/normal,charsize=1.3;,charthick=2.0
855 866  
856 867 ;Locating all the hidden data points (spectrum+filter)
... ...
src/idl/dustem_show_file_dependencies.pro
  Diff comments   View file @8e55ab4
... ... @@ -71,6 +71,7 @@ dustem_fit_polarization_example,Nitermax=1,fits_save_and_restore='/tmp/mysavefil
71 71 dustem_fit_ext_pol_example,Nitermax=1,fits_save_and_restore='/tmp/mysavefile3.fits'
72 72 dustem_fit_sed_ext_pol_example,Nitermax=1,fits_save_and_restore='/tmp/mysavefile4.fits'
73 73 dustem_fit_intensity_mbb_example,Nitermax=1,postscript='/tmp/dustemwrap_postcript_example.ps'
  74 +;=== for some reason plot goes red here under fawlty
74 75 dustem_myisrf_example,Nitermax=1,fits_save_and_restore='/tmp/mysavefile5.fits'
75 76 dustem_stellarpopisrf_example,Nitermax=1,fits_save_and_restore='/tmp/mysavefile6.fits'
76 77 dustem_fit_intensity_example,Nitermax=1,/noobj
... ...
src/idl/dustemcgwin_dataset.pro
  Diff comments   View file @8e55ab4
... ... @@ -105,8 +105,10 @@ if keyword_set(dataset) then begin
105 105  
106 106 if not keyword_set(norm) then begin
107 107 ;/NODATA
108   - cgplot,wavs,wavs,/nodata,/ylog,/xlog,/ys,xs=9,pos=position,noerase=1,charsize=1.15,xtickformat='(A1)',color='Powder Blue',xr=xr,xtit='',yr=yr,psym=8,syms=0.8
109   - axis, xaxis=1 ,xlog=1 ,xrange=((!const.c*1E6/xr)*1E-9),charsize=1.15,xtitle=textoidl('\nu (GHz)'),xticklen=0.05,xminor=10,color='black'
  108 + cgplot,wavs,wavs,/nodata,/ylog,/xlog,/ys,xs=9,pos=position,noerase=1,charsize=1.15,xtickformat='(A1)',color='Powder Blue',xr=xr,xtit='',yr=yr,psym=8,syms=0.8
  109 + IF !dustemwrap_which_language NE 'fawlty' THEN BEGIN
  110 + axis, xaxis=1 ,xlog=1 ,xrange=((!const.c*1E6/xr)*1E-9),charsize=1.15,xtitle=textoidl('\nu (GHz)'),xticklen=0.05,xminor=10,color='black'
  111 + ENDIF
110 112 xyouts,pospltxt[0],pospltxt[1],textoidl('I_{\nu} (MJy/sr)'),color=0,/normal,charsize=1.3;,charthick=2.0
111 113  
112 114 ;endelse
... ... @@ -322,8 +324,10 @@ if keyword_set(dataset) then begin
322 324  
323 325 if not keyword_set(norm) then begin
324 326 ;/NODATA
325   - cgplot,wavs,wavs,/nodata,/ylog,/xlog,/ys,xs=9,pos=position,noerase=1,charsize=1.15,xtickformat='(A1)',color='Powder Blue',xr=xr,xtit='',yr=yr,psym=8,syms=0.8
326   - axis, xaxis=1 ,xlog=1 ,xrange=((!const.c*1E6*xr)*1E-9),charsize=1.15,xtitle=textoidl('\nu (GHz)'),xticklen=0.05,xminor=10,color='black'
  327 + cgplot,wavs,wavs,/nodata,/ylog,/xlog,/ys,xs=9,pos=position,noerase=1,charsize=1.15,xtickformat='(A1)',color='Powder Blue',xr=xr,xtit='',yr=yr,psym=8,syms=0.8
  328 + IF !dustemwrap_which_language NE 'fawlty' THEN BEGIN
  329 + axis, xaxis=1 ,xlog=1 ,xrange=((!const.c*1E6*xr)*1E-9),charsize=1.15,xtitle=textoidl('\nu (GHz)'),xticklen=0.05,xminor=10,color='black'
  330 + ENDIF
327 331 xyouts,pospltxt[0],pospltxt[1],textoidl('\tau_{EXT}'),color=0,/normal,charsize=1.3;,charthick=2.0
328 332  
329 333 ;endelse
... ... @@ -454,8 +458,9 @@ if keyword_set(dataset) then begin
454 458  
455 459  
456 460 ;Plotting of frequency axis
457   - axis, xaxis=1, xlog=1, xs=1, xminor=10, xticklen=0.05, xrange=((!const.c*1E6*xr)*1E-9),charsize=1.15,xtitle=textoidl('\nu (GHz)'),color=0
458   -
  461 + IF !dustemwrap_which_language NE 'fawlty' THEN BEGIN
  462 + axis, xaxis=1, xlog=1, xs=1, xminor=10, xticklen=0.05, xrange=((!const.c*1E6*xr)*1E-9),charsize=1.15,xtitle=textoidl('\nu (GHz)'),color=0
  463 + ENDIF
459 464 xyouts,pospltxt[0],pospltxt[1],textoidl('\tau_{EXT}'),color=0,/normal,charsize=1.3;,charthick=2.0
460 465  
461 466 ;Locating all the hidden data points (spectrum+filter)
... ... @@ -530,8 +535,10 @@ if keyword_set(dataset) then begin
530 535  
531 536 endif else begin ;normal plot
532 537 ;/NODATA
533   - cgplot,wavs,wavs,/nodata,/ylog,/xlog,/ys,xs=9,pos=position,noerase=1,charsize=1.15,xtickformat='(A1)',color='Powder Blue',xr=xr,xtit='',yr=yr,psym=8,syms=0.8
534   - axis, xaxis=1 ,xlog=1 ,xrange=((!const.c*1E6*xr)*1E-9),charsize=1.15,xtitle=textoidl('\nu (GHz)'),xticklen=0.05,xminor=10,color='black'
  538 + cgplot,wavs,wavs,/nodata,/ylog,/xlog,/ys,xs=9,pos=position,noerase=1,charsize=1.15,xtickformat='(A1)',color='Powder Blue',xr=xr,xtit='',yr=yr,psym=8,syms=0.8
  539 + IF !dustemwrap_which_language NE 'fawlty' THEN BEGIN
  540 + axis, xaxis=1 ,xlog=1 ,xrange=((!const.c*1E6*xr)*1E-9),charsize=1.15,xtitle=textoidl('\nu (GHz)'),xticklen=0.05,xminor=10,color='black'
  541 + ENDIF
535 542 xyouts,pospltxt[0],pospltxt[1],textoidl('\tau_{PEXT}'),color=0,/normal,charsize=1.3;,charthick=2.0
536 543  
537 544 endelse
... ... @@ -653,8 +660,9 @@ if keyword_set(dataset) then begin
653 660  
654 661  
655 662 ;Plotting of frequency axis
656   - axis, xaxis=1, xlog=1, xs=1, xminor=10, xticklen=0.05, xrange=((!const.c*1E6*xr)*1E-9),charsize=1.15,xtitle=textoidl('\nu (GHz)'),color=0
657   -
  663 + IF !dustemwrap_which_language NE 'fawlty' THEN BEGIN
  664 + axis, xaxis=1, xlog=1, xs=1, xminor=10, xticklen=0.05, xrange=((!const.c*1E6*xr)*1E-9),charsize=1.15,xtitle=textoidl('\nu (GHz)'),color=0
  665 + ENDIF
658 666 xyouts,pospltxt[0],pospltxt[1],textoidl('\tau_{PEXT}'),color=0,/normal,charsize=1.3;,charthick=2.0
659 667  
660 668 ;Locating all the hidden data points (spectrum+filter)
... ... @@ -730,8 +738,10 @@ if keyword_set(dataset) then begin
730 738  
731 739 endif else begin ;normal plot
732 740  
733   - cgplot,wavs,wavs,/nodata,/ylog,/xlog,/ys,xs=9,pos=position,noerase=1,charsize=1.15,xtickformat='(A1)',color='Powder Blue',xr=xr,xtit='',yr=yr,psym=8,syms=0.8
734   - axis, xaxis=1 ,xlog=1 ,xrange=((!const.c*1E6/xr)*1E-9),charsize=1.15,xtitle=textoidl('\nu (GHz)'),xticklen=0.05,xminor=10,color='black'
  741 + cgplot,wavs,wavs,/nodata,/ylog,/xlog,/ys,xs=9,pos=position,noerase=1,charsize=1.15,xtickformat='(A1)',color='Powder Blue',xr=xr,xtit='',yr=yr,psym=8,syms=0.8
  742 + IF !dustemwrap_which_language NE 'fawlty' THEN BEGIN
  743 + axis, xaxis=1 ,xlog=1 ,xrange=((!const.c*1E6/xr)*1E-9),charsize=1.15,xtitle=textoidl('\nu (GHz)'),xticklen=0.05,xminor=10,color='black'
  744 + ENDIF
735 745 xyouts,pospltxt[0],pospltxt[1],textoidl('P_{\nu} (MJy/sr)'),color=0,/normal,charsize=1.3;,charthick=2.0
736 746  
737 747 endelse
... ... @@ -846,8 +856,9 @@ if keyword_set(dataset) then begin
846 856  
847 857  
848 858 ;Plotting of frequency axis
849   - axis, xaxis=1, xlog=1, xs=1, xminor=10, xticklen=0.05, xrange=((!const.c*1E6/(xr))*1E-9),charsize=1.15,xtitle=textoidl('\nu (GHz)'),color=0
850   -
  859 + IF !dustemwrap_which_language NE 'fawlty' THEN BEGIN
  860 + axis, xaxis=1, xlog=1, xs=1, xminor=10, xticklen=0.05, xrange=((!const.c*1E6/(xr))*1E-9),charsize=1.15,xtitle=textoidl('\nu (GHz)'),color=0
  861 + ENDIF
851 862 xyouts,pospltxt[0],pospltxt[1],textoidl('P_{\nu} (MJy/sr)'),color=0,/normal,charsize=1.3;,charthick=2.0
852 863  
853 864 ;Locating all the hidden data points (spectrum+filter)
... ...