1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
194
195
196
197
198
199
200
201
202
203
204
205
206
207
208
209
210
211
212
213
214
215
216
217
218
219
220
221
222
223
224
225
226
227
228
229
230
231
232
233
234
235
236
237
238
239
240
241
242
243
244
245
246
247
248
249
250
251
252
253
254
255
256
257
258
259
260
261
262
263
264
265
266
267
268
269
270
271
272
273
274
275
276
277
278
279
280
281
282
283
284
285
286
287
288
289
290
291
292
293
294
295
296
297
298
299
300
301
302
303
304
305
306
307
308
309
310
311
312
313
314
315
316
317
318
319
320
321
322
323
324
325
326
327
328
329
330
331
332
333
334
335
336
337
338
339
340
341
342
343
344
345
346
347
348
349
350
351
352
353
354
355
356
357
358
359
360
361
362
363
364
365
366
367
368
369
370
371
372
373
374
375
376
377
378
379
380
381
382
383
384
385
386
387
388
389
390
391
392
393
394
395
396
397
398
399
400
401
402
403
404
405
406
407
408
409
410
411
412
413
414
415
416
417
418
419
420
421
422
423
424
425
426
427
428
429
430
431
432
433
434
435
436
437
438
439
440
441
442
443
444
445
446
447
448
449
450
451
452
453
454
455
456
457
458
459
460
461
462
463
464
465
466
467
468
469
470
471
472
473
474
475
476
477
478
479
480
481
482
483
484
485
486
487
488
489
490
491
492
493
494
495
496
497
498
499
500
501
502
503
504
505
506
507
508
509
510
511
512
513
514
515
516
517
518
519
520
521
522
523
524
525
526
527
528
529
530
531
532
533
534
535
536
537
538
539
540
541
542
543
544
545
546
547
548
549
550
551
552
553
554
555
556
557
558
559
560
561
562
563
564
565
566
567
568
569
570
571
572
573
574
575
576
577
578
579
580
581
582
583
584
585
586
587
588
589
590
591
592
593
594
595
596
597
598
599
600
601
602
603
604
605
606
607
608
609
610
611
612
613
614
615
616
617
618
619
620
621
622
623
624
625
626
627
628
629
630
631
632
633
634
635
636
637
638
639
640
641
642
643
644
645
646
647
648
649
650
651
652
653
654
655
656
657
658
659
660
661
662
663
664
665
666
667
668
669
670
671
672
673
674
675
676
677
678
679
680
681
682
683
684
685
686
687
688
689
690
691
692
693
694
695
696
697
698
699
700
701
702
703
704
705
706
707
708
709
710
711
712
713
714
715
716
717
718
719
720
721
722
723
724
725
726
727
728
729
730
731
732
733
734
735
736
737
738
739
740
741
742
743
744
745
746
747
748
749
750
751
752
753
754
755
756
757
758
759
760
761
762
763
764
765
766
767
768
769
770
771
772
773
774
775
776
777
778
779
780
781
782
783
784
785
786
787
788
789
790
791
792
793
794
795
796
797
798
799
800
801
802
803
804
805
806
807
808
809
810
811
812
813
814
815
816
817
818
819
820
821
822
823
824
825
826
827
828
829
830
831
832
833
834
835
836
837
838
839
840
841
842
843
844
845
846
847
848
849
850
851
852
853
854
855
856
857
858
859
860
861
862
863
864
865
866
867
868
869
870
871
872
873
874
875
876
877
878
879
880
881
882
883
884
885
886
887
888
889
890
891
892
893
894
895
896
897
898
899
900
901
902
903
904
905
906
|
!output.f90, for writing out the linelist and results
!(C) Roger Wesson
module mod_output
use mod_functions
use mod_globals
implicit none
contains
subroutine write_output(runs,listlength,ncols,all_linelists,all_results,verbosity,nbins,subtract_recombination)
type(line), dimension(:,:) :: all_linelists
type(resultarray), dimension(:) :: all_results
real(kind=dp), dimension(:), allocatable :: quantity_result
real(kind=dp), dimension(:,:), allocatable :: resultprocessingarray
character(len=40), dimension(:,:), allocatable :: resultprocessingtext
integer :: runs,listlength,ncols,verbosity
real(kind=dp), dimension(3) :: uncertainty_array=0d0
type(arraycount), dimension (:), allocatable :: binned_quantity_result
logical :: unusual
integer :: nbins,subtract_recombination
integer :: i,j
#ifdef CO
print *,"subroutine: write_output"
#endif
print *
print *,gettime(),"Writing line list"
allocate(quantity_result(runs))
quantity_result=0d0
open (650,file=trim(filename)//"_linelist", status='replace', access='sequential', action='write')
open (651,file=trim(filename)//"_linelist.tex", status='replace', access='sequential', action='write')
if (ncols .ge. 4) then
write (650,*) " Lambda (Rest) Ion F(line) I(line) Abundance"
write (651,*) "\begin{longtable}{llrrlllllll}"
write (651,*) "\hline"
write (651,*) "$\lambda_{obs}$ & $\lambda_{rest}$ & $F \left( \lambda \right) $ & $I \left( \lambda \right) $ & Ion & Multiplet & Lower term & Upper term & g$_1$ & g$_2$ \\"
else
write (650,*) " Lambda Ion F(line) I(line) Abundance"
write (651,*) "\begin{longtable}{lrrlllllll}"
write (651,*) "\hline"
write (651,*) "$\lambda_{rest}$ & $F \left( \lambda \right) $ & $I \left( \lambda \right) $ & Ion & Multiplet & Lower term & Upper term & g$_1$ & g$_2$ \\"
endif
write (651,*) "\hline"
if (runs .gt. 1) then
do j=1, listlength
!observed wavelength if known
if (ncols .ge. 4) then
if (all_linelists(j,1)%wavelength_observed .gt. 0.) then
write (650,"(X,F8.2,X)", advance='no') all_linelists(j,1)%wavelength_observed
write (651,"(X,F8.2,' & ')", advance='no') all_linelists(j,1)%wavelength_observed
else
write (650,"(X,A,X)", advance='no') " *"
write (651,"(X,A,' & ')", advance='no') " *"
endif
endif
!rest wavelength, ion name for plain text file
write (650,"(X,F8.2,X,A11)", advance='no') all_linelists(j,1)%wavelength,all_linelists(j,1)%ion
write (651,"(X,F8.2,' & ',A15,' & ')", advance='no') all_linelists(j,1)%wavelength
!line flux
if (all_linelists(j,1)%intensity .eq. 0.d0 .and. all_linelists(j,1)%blend_intensity .eq. 0.d0) then
write (650,"(A)", advance='no') " * "
write (651,"(A)", advance='no') " * & &"
else
write (650,"(F8.3,A,F8.3,3X)", advance='no') all_linelists(j,1)%intensity," +-",all_linelists(j,1)%int_err
write (651,"(F8.3,'& $\pm$',F8.3, '&')", advance='no') all_linelists(j,1)%intensity,all_linelists(j,1)%int_err
endif
!dereddened flux
quantity_result = all_linelists(j,:)%int_dered
call get_uncertainties(quantity_result, binned_quantity_result, uncertainty_array, unusual,nbins)
if (all_linelists(j,1)%intensity .ne. 0.d0 .or. all_linelists(j,1)%blend_intensity .ne. 0.d0) then
if (uncertainty_array(1) .ne. uncertainty_array(3)) then
write (650,"(F8.3,SP,F8.3,SP,F8.3)", advance='no') uncertainty_array(2),uncertainty_array(1),-uncertainty_array(3)
write (651,"(F8.3,'& $^{',SP,F8.3,'}_{',SP,F8.3,'}$')", advance='no') uncertainty_array(2),uncertainty_array(1),-uncertainty_array(3)
else
write (650,"(F8.3,A,F8.3,4X)", advance='no') uncertainty_array(2)," +-",uncertainty_array(1)
write (651,"(F8.3,'& $\pm$',F8.3)", advance='no') uncertainty_array(2),uncertainty_array(1)
endif
else
write (650,"(A)", advance='no') " * "
write (651,"(A)", advance='no') " * & "
endif
! transition data
! write (650,*)
write (651,*) all_linelists(j,1)%ion,all_linelists(j,1)%multiplet,all_linelists(j,1)%lowerterm,all_linelists(j,1)%upperterm,all_linelists(j,1)%g1,all_linelists(j,1)%g2, "\\"
!abundance - write out if there is an abundance for the line, don't write
!anything except a line break if there is no abundance for the line.
!todo: add an option to choose whether or not to put abundances in the line list table
quantity_result = all_linelists(j,:)%abundance
call get_uncertainties(quantity_result, binned_quantity_result, uncertainty_array, unusual,nbins)
if (uncertainty_array(2) .ne. 0.D0) then
if (uncertainty_array(1) .ne. uncertainty_array(3)) then
write (650,"(ES10.2,SP,ES10.2,SP,ES10.2)") uncertainty_array(2),uncertainty_array(1),-uncertainty_array(3)
! write (651,"(' & ${',A,'}$ & $^{+',A,'}_{',A,'}$ \\')") trim(latex_number(uncertainty_array(2))),trim(latex_number(uncertainty_array(1))),trim(latex_number(-uncertainty_array(3)))
else
write (650,"(ES10.2,A,ES10.2)") uncertainty_array(2)," +-",uncertainty_array(1)
! write (651,"(' & $',A,'$ & $\pm',A,'$\\')") trim(latex_number(uncertainty_array(2))),trim(latex_number(uncertainty_array(1)))
endif
else
write (650,*)
! write (651,*) "\\"
endif
enddo
else ! runs == 1, no uncertainties to write out
do i=1,listlength
if (ncols .ge. 4) then
if (all_linelists(i,1)%wavelength_observed .gt. 0.) then
write (650,"(X,F8.2,X)", advance='no') all_linelists(i,1)%wavelength_observed
write (651,"(X,F8.2,' & ')", advance='no') all_linelists(i,1)%wavelength_observed
else
write (650,"(X,A,X)", advance='no') " *"
write (651,"(X,A,' & ')", advance='no') " *"
endif
endif
if (all_linelists(i,1)%intensity .ne. 0.d0) then
if (all_linelists(i,1)%abundance .gt. 0.0) then
write (650,"(X,F8.2,X,A11,F8.3,X,F8.3,X,ES14.3)") all_linelists(i,1)%wavelength,all_linelists(i,1)%ion,all_linelists(i,1)%intensity,all_linelists(i,1)%int_dered, all_linelists(i,1)%abundance
write (651,"(X,F8.2,X,'&',X,F8.3,X,'&',X,F8.3,X,'&',A,'&',A,'&',A,'&',A,'&',I4,'&',I4,'\\')") all_linelists(i,1)%wavelength,all_linelists(i,1)%intensity,all_linelists(i,1)%int_dered,all_linelists(i,1)%ion,all_linelists(i,1)%multiplet,all_linelists(i,1)%lowerterm,all_linelists(i,1)%upperterm,all_linelists(i,1)%g1,all_linelists(i,1)%g2
else
write (650,"(X,F8.2,X,A11,F8.3,X,F8.3)") all_linelists(i,1)%wavelength,all_linelists(i,1)%ion,all_linelists(i,1)%intensity,all_linelists(i,1)%int_dered
write (651,"(X,F8.2,X,'&',X,F8.3,X,'&',X,F8.3,X,'&',A,'&',A,'&',A,'&',A,'&',I4,'&',I4,'\\')") all_linelists(i,1)%wavelength,all_linelists(i,1)%intensity,all_linelists(i,1)%int_dered,all_linelists(i,1)%ion,all_linelists(i,1)%multiplet,all_linelists(i,1)%lowerterm,all_linelists(i,1)%upperterm,all_linelists(i,1)%g1,all_linelists(i,1)%g2
endif
else
write (650,"(X,F8.2,X,A11,A7,X,A7)") all_linelists(i,1)%wavelength,all_linelists(i,1)%ion,"* ","* "
write (651,"(X,F8.2,X,'&',X,A7,X,'&',X,A7,X,'&',A,'&',A,'&',A,'&',A,'&',I4,'&',I4,'\\')") all_linelists(i,1)%wavelength,"* ","* ",all_linelists(i,1)%ion,all_linelists(i,1)%multiplet,all_linelists(i,1)%lowerterm,all_linelists(i,1)%upperterm,all_linelists(i,1)%g1,all_linelists(i,1)%g2
endif
enddo
endif
write (651,*) "\hline"
!write (651,*) "\caption{}"
write (651,*) "\label{tab:",trim(filename)//"_linelist}"
write (651,*) "\end{longtable}"
close(650)
close(651)
print *,gettime(),"Linelist written to files:"
print *," ",trim(filename),"_linelist"
print *," ",trim(filename),"_linelist.tex"
!now write out the summary files and all the binned data
if (verbosity .eq. 1) then
print *,gettime(),"Writing summary files, binned results and complete results"
elseif (verbosity .eq. 2) then
print *,gettime(),"Writing summary files and binned results"
else
print *,gettime(),"Writing summary files"
endif
!get the arrays of output quantities
call create_output_arrays(all_results,runs,resultprocessingarray,resultprocessingtext)
!open the files and write the headers
open (650,file=trim(filename)//"_results", status='replace', access='sequential', action='write')
open (651,file=trim(filename)//"_results.tex", status='replace', access='sequential', action='write')
write (650,*) "NEAT (nebular empirical analysis tool)"
write (650,*) "======================================"
write (650,*) "Version ",VERSION
write (650,*)
write (650,*) "Analysis of file ",trim(filename)
write (650,*) "Command line: ",trim(commandline)
write (650,*)
write (651,*) "\noindent{\Large {\sc neat} (nebular empirical analysis tool)}"
write (651,*) "\noindent Version ",VERSION
write (651,*) "\hrule"
write (651,*) "\vspace{0.3cm}"
write (651,*) "\noindent Analysis of file {\tt ",trim(filename),"}\newline"
write (651,*) "\noindent Command line: {\tt ",trim(commandline),"}\newline"
write (651,*) "\begin{longtable}[l]{ll}"
!next, loop through the results, processing and printing
do j=1,166
! here we put some if statements to put things into conveniently separate bits
if (j .eq. 1) then
write (650,"(/A,/A/)") "Extinction","=========="
write (651,*) "\multicolumn{2}{l}{Extinction}\\ \hline"
elseif (j .eq. 5) then
write (650,"(/A,/A)") "Diagnostics","==========="
write (651,*) "\vspace{0.2cm}\\\multicolumn{2}{l}{Diagnostics}\\ \hline"
write (650,"(/A,/A/)") "Low ionisation densities","-----------"
write (651,*) "\vspace{0.2cm}\\\multicolumn{2}{l}{Low ionisation densities}\\ \hline"
elseif (j .eq. 10) then
write (650,"(/A,/A/)") "Low ionisation temperatures","-----------"
write (651,*) "\vspace{0.2cm}\\\multicolumn{2}{l}{Low ionisation temperatures}\\ \hline"
elseif (j .eq. 21) then
write (650,"(/A,/A/)") "Medium ionisation densities","-----------"
write (651,*) "\vspace{0.2cm}\\\multicolumn{2}{l}{Medium ionisation densities}\\ \hline"
elseif (j .eq. 36) then
write (650,"(/A,/A/)") "Medium ionisation temperatures","-----------"
write (651,*) "\vspace{0.2cm}\\\multicolumn{2}{l}{Medium ionisation temperatures}\\ \hline"
elseif (j .eq. 51) then
write (650,"(/A,/A/)") "High ionisation densities","-----------"
write (651,*) "\vspace{0.2cm}\\\multicolumn{2}{l}{High ionisation densities}\\ \hline"
elseif (j .eq. 54) then
write (650,"(/A,/A/)") "High ionisation temperatures","-----------"
write (651,*) "\vspace{0.2cm}\\\multicolumn{2}{l}{High ionisation temperatures}\\ \hline"
elseif (j .eq. 59) then
write (650,"(/A,/A/)") "Recombination line diagnostics","-----------"
write (651,*) "\vspace{0.2cm}\\\multicolumn{2}{l}{Recombination line diagnostics}\\ \hline"
elseif (j .eq. 73) then
if (subtract_recombination .eq. 2) then
write (650,"(/A,/A/)") "Recombination contribution to CELs (%) (RL value has been subtracted from line fluxes)","-----------"
write (651,*) "\vspace{0.2cm}\\\multicolumn{2}{l}{Recombination contribution to CELs (\%)}\\ \hline"
else
write (650,"(/A,/A/)") "Recombination contribution to CELs (%) (for information only, not subtracted from line fluxes)","-----------"
write (651,*) "\vspace{0.2cm}\\\multicolumn{2}{l}{Recombination contribution to CELs (\%)}\\ \hline"
endif
elseif (j .eq. 79) then
write (650,"(/A,/A/)") "CEL abundances","=============="
write (651,*) "\vspace{0.2cm}\\\multicolumn{2}{l}{CEL abundances}\\ \hline"
elseif (j .eq. 117) then
write (650,"(/A,/A/)") "ORL abundances","=============="
write (651,*) "\vspace{0.2cm}\\\multicolumn{2}{l}{ORL abundances}\\ \hline"
elseif (j .eq. 85 .or. j .eq. 91 .or. j .eq. 97 .or. j .eq. 103 .or. j .eq. 108 .or. j .eq. 112 .or. j .eq. 117 .or. j .eq. 120 .or. j .eq. 124 .or. j .eq. 135 .or. j .eq. 150) then
if (j .eq. 135 .and. any(all_results%niiRLreliable .eqv. .false.)) then
write (650,*) "(multiplet abundances do not agree - abundance may be unreliable)"
endif
if (j .eq. 150 .and. any(all_results%oiiRLreliable .eqv. .false.)) then
write (650,*) "(multiplet abundances do not agree and/or V1 and V10 not detected - abundance may be unreliable)"
endif
write (650,"(/A,/A/)")
write (651,*) "\\"
elseif (j .eq. 153) then
write (650,"(/A,/A/)") "Strong line abundances","======================"
write (651,*) "\vspace{0.2cm}\\\multicolumn{2}{l}{Strong line abundances}\\ \hline"
elseif (j .eq. 159) then
write (650,"(/A,/A/)") "Abundance discrepancy factors","============================="
write (651,*) "\vspace{0.2cm}\\\multicolumn{2}{l}{Abundance discrepancy factors}\\ \hline"
endif
! this writes the results to the plain text and latex summary files
quantity_result=resultprocessingarray(j,:)
call write_uncertainties(quantity_result,uncertainty_array,resultprocessingtext(j,1),resultprocessingtext(j,2),resultprocessingtext(j,3),filename, resultprocessingtext(j,4), verbosity,nbins)
enddo
!write ends of files, close
write (651,*) "\end{longtable}"
close(650)
close(651)
print *,gettime(),"Results written to files:"
print *," ",trim(filename),"_results"
print *," ",trim(filename),"_results.tex"
end subroutine write_output
subroutine write_fits(runs,listlength,ncols,all_linelists,all_results,nbins)
! fits output. requires input to have been ALFA-generated FITS, which will have four columns.
implicit none
type(line), dimension(:,:) :: all_linelists
type(resultarray), dimension(:) :: all_results
real(kind=dp), dimension(:), allocatable :: quantity_result
integer :: runs,listlength,ncols
integer :: nbins
real(kind=dp), dimension(:,:), allocatable :: resultprocessingarray
character(len=40), dimension(:,:), allocatable :: resultprocessingtext
integer :: i,j
real(kind=dp), dimension(3) :: uncertainty_array=0d0
type(arraycount), dimension (:), allocatable :: binned_quantity_result
logical :: unusual,file_exists
!cfitsio variables
integer :: status,unit,readwrite,blocksize,tfields,varidat
character(len=16) :: extname
character(len=16),dimension(12) :: ttype_lines,tform_lines,tunit_lines
character(len=16),dimension(6) :: ttype_lines_analysis,tform_lines_analysis,tunit_lines_analysis
character(len=16),dimension(4) :: ttype_results,tform_results,tunit_results
character(len=16),dimension(2) :: ttype_qc,tform_qc,tunit_qc
character(len=30) :: cfitsioerror
#ifdef CO
print *,"subroutine: write_fits"
#endif
status=0
readwrite=1
varidat=0
! get a unit number
call ftgiou(unit,status)
inquire(file=outputfilename, exist=file_exists)
if (.not.file_exists) then
print *,gettime(),"creating output file ",trim(outputfilename)
call ftinit(unit,trim(outputfilename),blocksize,status)
call ftphps(unit,16,0,0,status)
call ftpdat(unit,status)
call ftphis(unit,trim(commandline),status)
extname="LINES"
tfields=12
ttype_lines=(/"WlenObserved ","WlenRest ","Flux ","Uncertainty ","Peak ","FWHM ","Ion ","Multiplet ","LowerTerm ","UpperTerm ","g1 ","g2 "/)
tform_lines=(/"1E ","1E ","1E ","1E ","1E ","1E ","16A","16A","16A","16A","1I ","1I "/)
tunit_lines=(/"Angstrom ","Angstrom ","Flux ","Flux ","Flux ","Angstrom "," "," "," "," "," "," "/)
call ftibin(unit,listlength,tfields,ttype_lines,tform_lines,tunit_lines,extname,varidat,status)
call ftpcld(unit,1,1,1,listlength,all_linelists(:,1)%wavelength,status)
call ftpcld(unit,2,1,1,listlength,all_linelists(:,1)%wavelength_observed,status)
call ftpcld(unit,3,1,1,listlength,all_linelists(:,1)%intensity,status)
call ftpcld(unit,4,1,1,listlength,all_linelists(:,1)%int_err,status)
call ftpcnd(unit,5,1,1,listlength,0.d0,status)
call ftpcnd(unit,6,1,1,listlength,0.d0,status)
call ftpcls(unit,7,1,1,listlength,all_linelists(:,1)%ion,status)
call ftpcls(unit,8,1,1,listlength,all_linelists(:,1)%multiplet,status)
call ftpcls(unit,9,1,1,listlength,all_linelists(:,1)%lowerterm,status)
call ftpcls(unit,10,1,1,listlength,all_linelists(:,1)%upperterm,status)
call ftpclj(unit,11,1,1,listlength,all_linelists(:,1)%g1,status)
call ftpclj(unit,12,1,1,listlength,all_linelists(:,1)%g2,status)
else
! we are writing to an existing FITS file
print *,gettime(),"writing results to ",trim(outputfilename)
call ftopen(unit,trim(outputfilename),readwrite,blocksize,status)
call ftpdat(unit,status)
call ftphis(unit,trim(commandline),status)
endif
! go to extension LINES to update linelist
call ftmnhd(unit,-1,"LINES",0,status)
! check if column DereddenedFlux exists. If not, file has not been analysed by NEAT, so create the necessary columns
call ftgcno(unit,.true.,"DereddenedFlux ",ncols,status)
if (status.eq.219) then
status=0
print *,gettime(),"adding NEAT analysis to LINES extension"
call ftgncl(unit,ncols,status)
ttype_lines_analysis=(/"DereddenedFlux ","DereddenedFluxLo","DereddenedFluxHi","Abundance ","AbundanceLow ","AbundanceHigh "/)
tform_lines_analysis=(/"1E ","1E ","1E ","1E ","1E ","1E "/)
tunit_lines_analysis=(/" "," "," "," "," "," "/)
call fticls(unit,ncols+1,6,ttype_lines_analysis,tform_lines_analysis,status)
else
print *,gettime(),"overwriting previous analysis in LINES extension"
endif
! loop to get uncertainties
! todo: maybe quicker to add property to type in the loop, then write to FITS in one go afterwards?
! allocate quantity result?
do i=1,listlength
quantity_result = all_linelists(i,:)%int_dered
call get_uncertainties(quantity_result, binned_quantity_result, uncertainty_array, unusual,nbins)
call ftpcld(unit,13,i,1,1,(/uncertainty_array(2)/),status)
call ftpcld(unit,14,i,1,1,(/uncertainty_array(2)+uncertainty_array(1)/),status)
call ftpcld(unit,15,i,1,1,(/uncertainty_array(2)-uncertainty_array(3)/),status)
quantity_result = all_linelists(i,:)%abundance
call get_uncertainties(quantity_result, binned_quantity_result, uncertainty_array, unusual,nbins)
call ftpcld(unit,16,i,1,1,uncertainty_array(2),status)
call ftpcld(unit,17,i,1,1,(/uncertainty_array(2)+uncertainty_array(1)/),status)
call ftpcld(unit,18,i,1,1,(/uncertainty_array(2)-uncertainty_array(3)/),status)
enddo
! if RESULTS extension does not exist, create it, otherwise overwrite
! columns for quantity name, value, upper and lower uncertainties
! 162 quantities calculated
tfields=4
extname="RESULTS"
ttype_results=(/"Quantity ","Value ","UpperUncertainty","LowerUncertainty"/)
tform_results=(/"40A","1E ","1E ","1E "/)
tunit_results=(/" "," "," "," "/)
call ftmnhd(unit,-1,"RESULTS",0,status)
if (status.eq.301) then
print *,gettime(),"created RESULTS extension"
status=0
call ftmnhd(unit,-1,"LINES",0,status) ! get the number of the LINES extension to put RESULTS after it
status=0
call ftibin(unit,166,tfields,ttype_results,tform_results,tunit_results,extname,varidat,status)
else
print *,gettime(),"overwriting previous analysis in RESULTS extension"
endif
! add header comments
call ftpcom(unit,"Produced by neat version "//VERSION,status)
call ftpcom(unit,"Command line: '"//trim(commandline)//"'",status)
call ftpcom(unit,"input file: "//trim(outputfilename),status)
! todo: record extinction law, helium data, ICF
! get the result arrays
call create_output_arrays(all_results,runs,resultprocessingarray,resultprocessingtext)
! write out
! get_uncertainties returns array with (-,value,+)
do j=1,166
quantity_result=resultprocessingarray(j,:)
call get_uncertainties(quantity_result, binned_quantity_result, uncertainty_array, unusual,nbins)
call ftpcls(unit,1,j,1,1,resultprocessingtext(j,1),status)
call ftpcld(unit,2,j,1,1,uncertainty_array(2),status)
call ftpcld(unit,3,j,1,1,(/uncertainty_array(2)+uncertainty_array(1)/),status)
call ftpcld(unit,4,j,1,1,(/uncertainty_array(2)-uncertainty_array(3)/),status)
enddo
! if QC extension does not exist, create it, otherwise overwrite
! contains reliability of O and N RL abundances
tfields=2
extname="QC"
ttype_qc=(/"NIIRLsReliable ","OIIRLsReliable "/)
tform_qc=(/"1L ","1L "/)
tunit_qc=(/" "," "/)
ncols=1
status=0
call ftmnhd(unit,-1,"QC",0,status)
if (status.eq.301) then
print *,gettime(),"created QC extension"
status=0
call ftibin(unit,1,tfields,ttype_qc,tform_qc,tunit_qc,extname,varidat,status)
else
print *,gettime(),"updating QC extension"
call ftgcno(unit,.false.,"NIIRLsReliable ",ncols,status)
if (status.eq.219) then
! get number of columns already present
status=0
call ftgncl(unit,ncols,status)
! add the new ones
ncols=ncols+1
call fticls(unit,ncols,2,ttype_qc,tform_qc,status)
endif
status=0
endif
! write out the flags
call ftpcll(unit,ncols,1,1,1,all(all_results%niiRLreliable .eqv. .true.),status)
call ftpcll(unit,ncols+1,1,1,1,all(all_results%oiiRLreliable .eqv. .true.),status)
! break if there were errors
if (status.ne.0) then
call ftgerr(status,cfitsioerror)
print *,gettime(),"FITS output error: ",trim(outputfilename),": ",status,cfitsioerror
call exit(108)
endif
! close
call ftclos(unit, status)
call ftfiou(unit, status)
end subroutine write_fits
subroutine create_output_arrays(all_results,runs,resultprocessingarray,resultprocessingtext)
!define arrays with links to all the data that needs processing.
!extinction, diagnostics, cel abundances, orl abundances, strong line
!abundances, adfs
implicit none
real(kind=dp), dimension(:,:), allocatable :: resultprocessingarray
character(len=40), dimension(:,:), allocatable :: resultprocessingtext
character(len=35) :: extinction_format, diagnostic_format, diagnostic_ratio_format, abundances_format, adf_format
type(resultarray), dimension(:) :: all_results
integer :: runs
extinction_format = "(X,A,F9.3,SP,F9.3,F9.3,S)"
diagnostic_format = "(X,A,F9.1,SP,F9.1,F9.1,S)"
diagnostic_ratio_format = "(X,A,F9.3,SP,F9.3,F9.3,S)"
abundances_format = "(X,A,ES14.3,SP,ES14.3,ES14.3,S)"
adf_format = "(X,A,F8.2,SP,F8.2,F8.2,S)"
allocate(resultprocessingarray(166,runs))
resultprocessingarray=0d0
allocate(resultprocessingtext(166,4))
!extinction
resultprocessingarray(1,:) = all_results%cHb_ha
resultprocessingtext(1,:) = (/"c(Hb) (Ha/Hb) ","c(H$\beta)$ (H$\alpha/H$\beta) ", extinction_format, "chb_ha_hb "/)
resultprocessingarray(2,:) = all_results%cHb_hg
resultprocessingtext(2,:) = (/"c(Hb) (Hg/Hb) ","c(H$\beta)$ (H$\gamma/H$\beta) ", extinction_format, "chb_hg_hb "/)
resultprocessingarray(3,:) = all_results%cHb_hd
resultprocessingtext(3,:) = (/"c(Hb) (Hd/Hb) ","c(H$\beta)$ (H$\delta/H$\beta) ", extinction_format, "chb_hd_hb "/)
resultprocessingarray(4,:) = all_results%mean_cHb
resultprocessingtext(4,:) = (/"mean c(Hb) ","c(H$\beta)$ ", extinction_format, "mean_chb "/)
!diagnostics
!low density
resultprocessingarray(5,:) = all_results%oii_density
resultprocessingtext(5,:) = (/"[OII] density ","{}[O~{\sc ii}] density ", diagnostic_format, "density_oii "/)
resultprocessingarray(6,:) = all_results%oii_density_ratio
resultprocessingtext(6,:) = (/"[OII] 3729/3726 ratio ","{}[O~{\sc ii}] 3729/3726 ratio ", diagnostic_ratio_format, "density_oii_ratio "/)
resultprocessingarray(7,:) = all_results%SII_density
resultprocessingtext(7,:) = (/"[SII] density ","{}[S~{\sc ii}] density ", diagnostic_format, "density_sii "/)
resultprocessingarray(8,:) = all_results%sii_density_ratio
resultprocessingtext(8,:) = (/"[SII] 6731/6717 ratio ","{}[S~{\sc ii}] 6731/6717 ratio ", diagnostic_ratio_format, "density_sii_ratio "/)
resultprocessingarray(9,:) = all_results%low_density
resultprocessingtext(9,:) = (/"Low ionisation density ","Low ionisation density ", diagnostic_format, "density_low "/)
!low temperature
resultprocessingarray(10,:) = all_results%oii_temp
resultprocessingtext(10,:) = (/"[OII] temperature ","{}[O~{\sc ii}] temperature ", diagnostic_format, "temp_oii "/)
resultprocessingarray(11,:) = all_results%oii_temp_ratio
resultprocessingtext(11,:) = (/"[OII] (7320+7330)/(3726+3729) ratio","{}[O~{\sc ii}] 7320+7330/3726+3729 ", diagnostic_ratio_format, "temp_oii_ratio "/)
resultprocessingarray(12,:) = all_results%SII_temp
resultprocessingtext(12,:) = (/"[SII] temperature ","{}[S~{\sc ii}] temperature ", diagnostic_format, "temp_sii "/)
resultprocessingarray(13,:) = all_results%sii_temp_ratio
resultprocessingtext(13,:) = (/"[SII] (6717+6731)/(4068+4076) ratio","{}[S~{\sc ii}] 6717+6731/4068+4076 ", diagnostic_ratio_format, "temp_sii_ratio "/)
resultprocessingarray(14,:) = all_results%NII_temp
resultprocessingtext(14,:) = (/"[NII] temperature ","{}[N~{\sc ii}] temperature ", diagnostic_format, "temp_nii "/)
resultprocessingarray(15,:) = all_results%nii_temp_ratio
resultprocessingtext(15,:) = (/"[NII] (6548+6584)/5754 ratio ","{}[N~{\sc ii}] 6548+6584/5754 ratio", diagnostic_ratio_format, "temp_nii_ratio "/)
resultprocessingarray(16,:) = all_results%OI_temp
resultprocessingtext(16,:) = (/"[OI] temperature ","{}[O~{\sc i}] temperature ", diagnostic_format, "temp_oi "/)
resultprocessingarray(17,:) = all_results%oi_temp_ratio
resultprocessingtext(17,:) = (/"[OI] (6300+6363)/5577 ratio ","{}[O~{\sc i}] 6300+6363/5577 ratio ", diagnostic_ratio_format, "temp_oi_ratio "/)
resultprocessingarray(18,:) = all_results%CI_temp
resultprocessingtext(18,:) = (/"[CI] temperature ","{}[C~{\sc i}] temperature ", diagnostic_format, "temp_ci "/)
resultprocessingarray(19,:) = all_results%ci_temp_ratio
resultprocessingtext(19,:) = (/"[CI] (9824+9850)/8727 ratio ","{}[C~{\sc i}] 9824+9850/8727 ratio ", diagnostic_ratio_format, "temp_ci_ratio "/)
resultprocessingarray(20,:) = all_results%low_temp
resultprocessingtext(20,:) = (/"Low ionisation temperature ","Low ionisation temperature ", diagnostic_format, "temp_low "/)
!medium density
resultprocessingarray(21,:) = all_results%cliii_density
resultprocessingtext(21,:) = (/"[ClIII] density ","{}[Cl~{\sc iii}] density ", diagnostic_format, "density_cliii "/)
resultprocessingarray(22,:) = all_results%cliii_density_ratio
resultprocessingtext(22,:) = (/"[ClIII] 5537/5517 ratio ","{}[Cl~{\sc iii}] 5537/5517 ratio ", diagnostic_ratio_format, "density_cliii_ratio "/)
resultprocessingarray(23,:) = all_results%ArIV_density
resultprocessingtext(23,:) = (/"[ArIV] density ","{}[Ar~{\sc iv}] density ", diagnostic_format, "density_ariv "/)
resultprocessingarray(24,:) = all_results%ariv_density_ratio
resultprocessingtext(24,:) = (/"[ArIV] 4740/4711 ratio ","{}[Ar~{\sc iv}] 4740/4711 ratio ", diagnostic_ratio_format, "density_sii_ratio "/)
resultprocessingarray(25,:) = all_results%CIII_density
resultprocessingtext(25,:) = (/"[CIII] density ","{}[C~{\sc iii}] density ", diagnostic_format, "density_ciii "/)
resultprocessingarray(26,:) = all_results%ciii_density_ratio
resultprocessingtext(26,:) = (/"[CIII] 1909/1907 ratio ","{}[C~{\sc iii}] 1909/1907 ratio ", diagnostic_ratio_format, "density_ciii_ratio "/)
resultprocessingarray(27,:) = all_results%OIII_IR_density
resultprocessingtext(27,:) = (/"[OIII] IR density ","{}[O~{\sc iii}] IR density ", diagnostic_format, "density_oiii_ir "/)
resultprocessingarray(28,:) = all_results%oiii_ir_density_ratio
resultprocessingtext(28,:) = (/"[OIII] IR 88um/52um ratio ","{}[O~{\sc iii}] IR 88um/52um ratio ", diagnostic_ratio_format, "density_oiii_ir_ratio "/)
resultprocessingarray(29,:) = all_results%SIII_IR_density
resultprocessingtext(29,:) = (/"[SIII] IR density ","{}[S~{\sc iii}] IR density ", diagnostic_format, "density_siii_ir "/)
resultprocessingarray(30,:) = all_results%siii_ir_density_ratio
resultprocessingtext(30,:) = (/"[SIII] IR 33um/18um ratio ","{}[S~{\sc iii}] IR 33um/18um ratio ", diagnostic_ratio_format, "density_siii_ir_ratio "/)
resultprocessingarray(31,:) = all_results%ArIII_IR_density
resultprocessingtext(31,:) = (/"[ArIII] IR density ","{}[Ar~{\sc iii}] IR density ", diagnostic_format, "density_ariii_ir "/)
resultprocessingarray(32,:) = all_results%ariii_ir_density_ratio
resultprocessingtext(32,:) = (/"[ArIII] 9um/22um ratio ","{}[Ar~{\sc iii}] IR 9um/22um ratio ", diagnostic_ratio_format, "density_ariii_ir_ratio "/)
resultprocessingarray(33,:) = all_results%NeIII_IR_density
resultprocessingtext(33,:) = (/"[NeIII] IR density ","{}[Ne~{\sc iii}] IR density ", diagnostic_format, "density_neiii_ir "/)
resultprocessingarray(34,:) = all_results%neiii_ir_density_ratio
resultprocessingtext(34,:) = (/"[Ne III] 15um/36um ratio ","{}[Ne~{\sc iii}] IR 15um/36um ratio", diagnostic_ratio_format, "density_neiii_ir_ratio "/)
resultprocessingarray(35,:) = all_results%med_density
resultprocessingtext(35,:) = (/"Medium ionisation density ","Medium ionisation density ", diagnostic_format, "density_med "/)
! medium temperature
resultprocessingarray(36,:) = all_results%OIII_temp
resultprocessingtext(36,:) = (/"[OIII] temperature ","{}[O~{\sc iii}] temperature ", diagnostic_format, "temp_oiii "/)
resultprocessingarray(37,:) = all_results%oiii_temp_ratio
resultprocessingtext(37,:) = (/"[OIII] (4959+5007)/4363 ratio ","{}[O~{\sc iii}] 4959+5007/4363 ", diagnostic_ratio_format, "temp_oiii_ratio "/)
resultprocessingarray(38,:) = all_results%OIII_IR_temp
resultprocessingtext(38,:) = (/"[OIII] IR temperature ","{}[O~{\sc iii}] IR temperature ", diagnostic_format, "temp_oiii_ir "/)
resultprocessingarray(39,:) = all_results%oiii_ir_temp_ratio
resultprocessingtext(39,:) = (/"[OIII] (4959+5007)/52um ratio ","{}[O~{\sc iii}] 4959+5007/52um ", diagnostic_ratio_format, "temp_oiii_ir_ratio "/)
resultprocessingarray(40,:) = all_results%OIII_UV_temp
resultprocessingtext(40,:) = (/"[OIII] UV temperature ","{}[O~{\sc iii}] UV temperature ", diagnostic_format, "temp_oiii_uv "/)
resultprocessingarray(41,:) = all_results%oiii_uv_temp_ratio
resultprocessingtext(41,:) = (/"[OIII] (4959+5007)/1666 ratio ","{}[O~{\sc iii}] 4959+5007/1666 ", diagnostic_ratio_format, "temp_oiii_uv_ratio "/)
resultprocessingarray(42,:) = all_results%NeIII_temp
resultprocessingtext(42,:) = (/"[NeIII] temperature ","{}[Ne~{\sc iii}] temperature ", diagnostic_format, "temp_neiii "/)
resultprocessingarray(43,:) = all_results%neiii_temp_ratio
resultprocessingtext(43,:) = (/"[NeIII] (3868+3967)/3342 ratio ","{}[Ne~{\sc iii}] 3868+3967/3342 ", diagnostic_ratio_format, "temp_neiii_ratio "/)
resultprocessingarray(44,:) = all_results%NeIII_IR_temp
resultprocessingtext(44,:) = (/"[NeIII] IR temperature ","{}[Ne~{\sc iii}] IR temperature ", diagnostic_format, "temp_neiii_ir "/)
resultprocessingarray(45,:) = all_results%neiii_ir_temp_ratio
resultprocessingtext(45,:) = (/"[NeIII] (3868+3967)/15um ratio ","{}[Ne~{\sc iii}] 3868+3967/15um ", diagnostic_ratio_format, "temp_neiii_ir_ratio "/)
resultprocessingarray(46,:) = all_results%ArIII_temp
resultprocessingtext(46,:) = (/"[ArIII] temperature ","{}[Ar~{\sc iii}] temperature ", diagnostic_format, "temp_ariii "/)
resultprocessingarray(47,:) = all_results%ariii_temp_ratio
resultprocessingtext(47,:) = (/"[ArIII] (7135+7751)/5192 ratio ","{}[Ar~{\sc iii}] 7135+7751/5192 ", diagnostic_ratio_format, "temp_ariii_ratio "/)
resultprocessingarray(48,:) = all_results%SIII_temp
resultprocessingtext(48,:) = (/"[SIII] temperature ","{}[S~{\sc iii}] temperature ", diagnostic_format, "temp_siii "/)
resultprocessingarray(49,:) = all_results%siii_temp_ratio
resultprocessingtext(49,:) = (/"[SIII] (9069+9531)/6312 ratio ","{}[S~{\sc iii}] 9069+9531/6312 ", diagnostic_ratio_format, "temp_siii_ratio "/)
resultprocessingarray(50,:) = all_results%med_temp
resultprocessingtext(50,:) = (/"Medium ionisation temperature ","Medium ionisation temperature ", diagnostic_format, "temp_med "/)
!high density
resultprocessingarray(51,:) = all_results%neiv_density
resultprocessingtext(51,:) = (/"[NeIV] density ","{}[Ne~{\sc iv}] density ", diagnostic_format, "density_neiv "/)
resultprocessingarray(52,:) = all_results%neiv_density_ratio
resultprocessingtext(52,:) = (/"[NeIV] 2425/2423 ratio ","{}[Ne~{\sc iv}] 2425/2423 ratio ", diagnostic_ratio_format, "density_neiv_ratio "/)
resultprocessingarray(53,:) = all_results%high_density
resultprocessingtext(53,:) = (/"High ionisation density ","High ionisation density ", diagnostic_format, "density_high "/)
!high temperature
resultprocessingarray(54,:) = all_results%ArV_temp
resultprocessingtext(54,:) = (/"[ArV] temperature ","{}[Ar~{\sc v}] temperature ", diagnostic_format, "temp_arv "/)
resultprocessingarray(55,:) = all_results%arv_temp_ratio
resultprocessingtext(55,:) = (/"[ArV] (6435+7005)/4625 ratio ","{}[Ar~{\sc v}] 6435+7005/4625 ratio", diagnostic_ratio_format, "temp_arv_ratio "/)
resultprocessingarray(56,:) = all_results%NeV_temp
resultprocessingtext(56,:) = (/"[NeV] temperature ","{}[Ne~{\sc v}] temperature ", diagnostic_format, "temp_nev "/)
resultprocessingarray(57,:) = all_results%nev_temp_ratio
resultprocessingtext(57,:) = (/"[NeV] (3426+3345)/2975 ratio ","{}[Ne~{\sc v}] 3426+3345/2975 ratio", diagnostic_ratio_format, "temp_nev_ratio "/)
resultprocessingarray(58,:) = all_results%high_temp
resultprocessingtext(58,:) = (/"High temperature ","High temperature ", diagnostic_format, "temp_high "/)
!Recombination line diagnostics
resultprocessingarray(59,:) = all_results%Balmer_jump_temp
resultprocessingtext(59,:) = (/"Balmer jump temperature ","Balmer jump temperature ", diagnostic_format, "temp_balmerjump "/)
resultprocessingarray(60,:) = all_results%Paschen_jump_temp
resultprocessingtext(60,:) = (/"Paschen jump temperature ","Paschen jump temperature ", diagnostic_format, "temp_paschenjump "/)
resultprocessingarray(61,:) = all_results%Balmerdec_density
resultprocessingtext(61,:) = (/"Balmer decrement density ","Balmer decrement density ", diagnostic_format, "density_balmerdec "/)
resultprocessingarray(62,:) = all_results%Paschendec_density
resultprocessingtext(62,:) = (/"Paschen decrement density ","Paschen decrement density ", diagnostic_format, "density_paschendec "/)
resultprocessingarray(63,:) = all_results%te_5876_4471
resultprocessingtext(63,:) = (/"He I temperature (5876/4471) ","He I temperature (5876/4471) ", diagnostic_format, "temp_he_5876_4471 "/)
resultprocessingarray(64,:) = all_results%ratio_5876_4471
resultprocessingtext(64,:) = (/"He I 5876/4471 ratio ","He I 5876/4471 ratio ", diagnostic_ratio_format, "temp_he_5876_4471_ratio "/)
resultprocessingarray(65,:) = all_results%te_6678_4471
resultprocessingtext(65,:) = (/"He I temperature (6678/4471) ","He I temperature (6678/4471) ", diagnostic_format, "temp_he_6678_4471 "/)
resultprocessingarray(66,:) = all_results%ratio_6678_4471
resultprocessingtext(66,:) = (/"He I 6678/4471 ratio ","He I 6678/4471 ratio ", diagnostic_ratio_format, "temp_he_6678_4471_ratio "/)
resultprocessingarray(67,:) = all_results%te_7281_6678
resultprocessingtext(67,:) = (/"He I temperature (7281/6678) ","He I temperature (7281/6678) ", diagnostic_format, "temp_he_7281_6678 "/)
resultprocessingarray(68,:) = all_results%ratio_7281_6678
resultprocessingtext(68,:) = (/"He I 7281/6678 ratio ","He I 7281/6678 ratio ", diagnostic_ratio_format, "temp_he_7281_6678_ratio "/)
resultprocessingarray(69,:) = all_results%oii_rl_R1
resultprocessingtext(69,:) = (/"OII 4649/4089 ratio ","OII 4649/4089 ratio ", diagnostic_ratio_format, "temp_oiirls_R1 "/)
resultprocessingarray(70,:) = all_results%oii_rl_R2
resultprocessingtext(70,:) = (/"OII 4649/4662 ratio ","OII 4649/4662 ratio ", diagnostic_ratio_format, "temp_oiirls_R2 "/)
resultprocessingarray(71,:) = all_results%oii_te
resultprocessingtext(71,:) = (/"OII temperature ","OII temperature ", diagnostic_format, "temp_oiirls "/)
resultprocessingarray(72,:) = all_results%oii_ne
resultprocessingtext(72,:) = (/"OII density ","OII density ", diagnostic_format, "density_oiirls "/)
! recombination contribution to CELs
resultprocessingarray(73,:) = all_results%nii5754recCEL
resultprocessingtext(73,:) = (/"NII 5754 assuming N2+ from CELs ","N~{\sc ii}5754$_R$ (N$^{2+}$ CELs) ", adf_format, "recombination_5754_CELabund "/)
resultprocessingarray(74,:) = all_results%nii5754recRL
resultprocessingtext(74,:) = (/"NII 5754 assuming N2+ from RLs ","N~{\sc ii}5754$_R$ (N$^{2+}$ CELs) ", adf_format, "recombination_5754_RLabund "/)
resultprocessingarray(75,:) = all_results%oii7325recCEL
resultprocessingtext(75,:) = (/"OII 7320,30 assuming O2+ from CELs ","O~{\sc ii}7325$_R$ (O$^{2+}$ CELs) ", adf_format, "recombination_7325_CELabund "/)
resultprocessingarray(76,:) = all_results%oii7325recRL
resultprocessingtext(76,:) = (/"OII 7320,30 assuming O2+ from RLs ","O~{\sc ii}7325$_R$ (O$^{2+}$ CELs) ", adf_format, "recombination_7325_RLabund "/)
resultprocessingarray(77,:) = all_results%oiii4363recCEL
resultprocessingtext(77,:) = (/"OIII 4363 assuming O3+ from CELs ","O~{\sc ii}4363$_R$ (O$^{3+}$ CELs) ", adf_format, "recombination_4363_CELabund "/)
resultprocessingarray(78,:) = all_results%oiii4363recRL
resultprocessingtext(78,:) = (/"OIII 4363 assuming O3+ from RLs ","O~{\sc ii}4363$_R$ (O$^{3+}$ CELs) ", adf_format, "recombination_4363_RLabund "/)
!CEL abundances
resultprocessingarray(79,:) = all_results%NC_abund_CEL
resultprocessingtext(79,:) = (/"C0/H ","C$^{0}$/H ", abundances_format, "abund_cel_nc "/)
resultprocessingarray(80,:) = all_results%cii_abund_CEL
resultprocessingtext(80,:) = (/"C+/H ","C$^{+}$/H ", abundances_format, "abund_cel_cii "/)
resultprocessingarray(81,:) = all_results%ciii_abund_CEL
resultprocessingtext(81,:) = (/"C2+/H ","C$^{2+}$/H ", abundances_format, "abund_cel_ciii "/)
resultprocessingarray(82,:) = all_results%civ_abund_CEL
resultprocessingtext(82,:) = (/"C3+/H ","C$^{3+}$/H ", abundances_format, "abund_cel_civ "/)
resultprocessingarray(83,:) = all_results%c_icf_CEL
resultprocessingtext(83,:) = (/"icf(C) ","icf(C) ", abundances_format, "icf_cel_c "/)
resultprocessingarray(84,:) = all_results%C_abund_CEL
resultprocessingtext(84,:) = (/"C/H ","C$^{}$/H ", abundances_format, "abund_cel_c "/)
resultprocessingarray(85,:) = all_results%nii_abund_CEL
resultprocessingtext(85,:) = (/"N+/H ","N$^{+}$/H ", abundances_format, "abund_cel_nii "/)
resultprocessingarray(86,:) = all_results%niii_abund_CEL
resultprocessingtext(86,:) = (/"N2+/H ","N$^{2+}$/H ", abundances_format, "abund_cel_niii "/)
resultprocessingarray(87,:) = all_results%niv_abund_CEL
resultprocessingtext(87,:) = (/"N3+/H ","N$^{3+}$/H ", abundances_format, "abund_cel_niv "/)
resultprocessingarray(88,:) = all_results%nv_abund_CEL
resultprocessingtext(88,:) = (/"N4+/H ","N$^{4+}$/H ", abundances_format, "abund_cel_nv "/)
resultprocessingarray(89,:) = all_results%n_icf_CEL
resultprocessingtext(89,:) = (/"icf(N) ","icf(N) ", abundances_format, "icf_cel_n "/)
resultprocessingarray(90,:) = all_results%N_abund_CEL
resultprocessingtext(90,:) = (/"N/H ","N$^{}$/H ", abundances_format, "abund_cel_n "/)
resultprocessingarray(91,:) = all_results%NO_abund_CEL
resultprocessingtext(91,:) = (/"O0/H ","O$^{0}$/H ", abundances_format, "abund_cel_no "/)
resultprocessingarray(92,:) = all_results%Oii_abund_CEL
resultprocessingtext(92,:) = (/"O+/H ","O$^{+}$/H ", abundances_format, "abund_cel_oii "/)
resultprocessingarray(93,:) = all_results%Oiii_abund_CEL
resultprocessingtext(93,:) = (/"O2+/H ","O$^{2+}$/H ", abundances_format, "abund_cel_oiii "/)
resultprocessingarray(94,:) = all_results%Oiv_abund_CEL
resultprocessingtext(94,:) = (/"O3+/H ","O$^{3+}$/H ", abundances_format, "abund_cel_oiv "/)
resultprocessingarray(95,:) = all_results%o_icf_CEL
resultprocessingtext(95,:) = (/"icf(O) ","icf(O) ", abundances_format, "icf_cel_o "/)
resultprocessingarray(96,:) = all_results%O_abund_CEL
resultprocessingtext(96,:) = (/"O/H ","O$^{}$/H ", abundances_format, "abund_cel_o "/)
resultprocessingarray(97,:) = all_results%NeII_abund_CEL
resultprocessingtext(97,:) = (/"Ne+/H ","Ne$^{+}$/H ", abundances_format, "abund_cel_neii "/)
resultprocessingarray(98,:) = all_results%NeIII_abund_CEL
resultprocessingtext(98,:) = (/"Ne2+/H ","Ne$^{2+}$/H ", abundances_format, "abund_cel_neiii "/)
resultprocessingarray(99,:) = all_results%NeIV_abund_CEL
resultprocessingtext(99,:) = (/"Ne3+/H ","Ne$^{3+}$/H ", abundances_format, "abund_cel_neiv "/)
resultprocessingarray(100,:) = all_results%NeV_abund_CEL
resultprocessingtext(100,:) = (/"Ne4+/H ","Ne$^{4+}$/H ", abundances_format, "abund_cel_nev "/)
resultprocessingarray(101,:) = all_results%ne_icf_CEL
resultprocessingtext(101,:) = (/"icf(Ne) ","icf(Ne) ", abundances_format, "icf_cel_ne "/)
resultprocessingarray(102,:) = all_results%Ne_abund_CEL
resultprocessingtext(102,:) = (/"Ne/H ","Ne$^{}$/H ", abundances_format, "abund_cel_ne "/)
resultprocessingarray(103,:) = all_results%ArIII_abund_CEL
resultprocessingtext(103,:) = (/"Ar2+/H ","Ar$^{2+}$/H ", abundances_format, "abund_cel_ariii "/)
resultprocessingarray(104,:) = all_results%ArIV_abund_CEL
resultprocessingtext(104,:) = (/"Ar3+/H ","Ar$^{3+}$/H ", abundances_format, "abund_cel_ariv "/)
resultprocessingarray(105,:) = all_results%ArV_abund_CEL
resultprocessingtext(105,:) = (/"Ar4+/H ","Ar$^{4+}$/H ", abundances_format, "abund_cel_arv "/)
resultprocessingarray(106,:) = all_results%ar_icf_CEL
resultprocessingtext(106,:) = (/"icf(Ar) ","icf(Ar) ", abundances_format, "icf_cel_ar "/)
resultprocessingarray(107,:) = all_results%Ar_abund_CEL
resultprocessingtext(107,:) = (/"Ar/H ","Ar$^{}$/H ", abundances_format, "abund_cel_ar "/)
resultprocessingarray(108,:) = all_results%SII_abund_CEL
resultprocessingtext(108,:) = (/"S+/H ","S$^{+}$/H ", abundances_format, "abund_cel_sii "/)
resultprocessingarray(109,:) = all_results%SIII_abund_CEL
resultprocessingtext(109,:) = (/"S2+/H ","S$^{2+}$/H ", abundances_format, "abund_cel_siii "/)
resultprocessingarray(110,:) = all_results%s_icf_CEL
resultprocessingtext(110,:) = (/"icf(S) ","icf(S) ", abundances_format, "icf_cel_s "/)
resultprocessingarray(111,:) = all_results%S_abund_CEL
resultprocessingtext(111,:) = (/"S/H ","S$^{}$/H ", abundances_format, "abund_cel_s "/)
resultprocessingarray(112,:) = all_results%ClII_abund_CEL
resultprocessingtext(112,:) = (/"Cl+/H ","Cl$^{+}$/H ", abundances_format, "abund_cel_clii "/)
resultprocessingarray(113,:) = all_results%ClIII_abund_CEL
resultprocessingtext(113,:) = (/"Cl2+/H ","Cl$^{2+}$/H ", abundances_format, "abund_cel_cliii "/)
resultprocessingarray(114,:) = all_results%ClIV_abund_CEL
resultprocessingtext(114,:) = (/"Cl3+/H ","Cl$^{3+}$/H ", abundances_format, "abund_cel_cliv "/)
resultprocessingarray(115,:) = all_results%cl_icf_CEL
resultprocessingtext(115,:) = (/"icf(Cl) ","icf(Cl) ", abundances_format, "icf_cel_cl "/)
resultprocessingarray(116,:) = all_results%Cl_abund_CEL
resultprocessingtext(116,:) = (/"Cl/H ","Cl$^{}$/H ", abundances_format, "abund_cel_cl "/)
!ORL abundances
resultprocessingarray(117,:) = all_results%Hei_abund_ORL
resultprocessingtext(117,:) = (/"He+/H ","He$^{+}$/H ", abundances_format, "abund_orl_hei "/)
resultprocessingarray(118,:) = all_results%Heii_abund_ORL
resultprocessingtext(118,:) = (/"He2+/H ","He$^{2+}$/H ", abundances_format, "abund_orl_heii "/)
resultprocessingarray(119,:) = all_results%He_abund_ORL
resultprocessingtext(119,:) = (/"He/H ","He/H ", abundances_format, "abund_orl_he "/)
resultprocessingarray(120,:) = all_results%Cii_abund_ORL
resultprocessingtext(120,:) = (/"C2+/H (RL) ","C$^{2+}$/H (RL) ", abundances_format, "abund_orl_cii "/)
resultprocessingarray(121,:) = all_results%Ciii_abund_ORL
resultprocessingtext(121,:) = (/"C3+/H (RL) ","C$^{3+}$/H (RL) ", abundances_format, "abund_orl_ciii "/)
resultprocessingarray(122,:) = all_results%c_icf_ORL
resultprocessingtext(122,:) = (/"icf(C) (RL) ","icf(C) (RL) ", abundances_format, "icf_orl_c "/)
resultprocessingarray(123,:) = all_results%C_abund_ORL
resultprocessingtext(123,:) = (/"C/H (RL) ","C/H (RL) ", abundances_format, "abund_orl_c "/)
resultprocessingarray(124,:) = all_results%Nii_v3_abund_ORL
resultprocessingtext(124,:) = (/"N2+/H (V3) ","N$^{2+}$/H (V3) ", abundances_format, "abund_orl_nii_v3 "/)
resultprocessingarray(125,:) = all_results%Nii_v5_abund_ORL
resultprocessingtext(125,:) = (/"N2+/H (V5) ","N$^{2+}$/H (V5) ", abundances_format, "abund_orl_nii_v5 "/)
resultprocessingarray(126,:) = all_results%Nii_v8_abund_ORL
resultprocessingtext(126,:) = (/"N2+/H (V8) ","N$^{2+}$/H (V8) ", abundances_format, "abund_orl_nii_v8 "/)
resultprocessingarray(127,:) = all_results%Nii_v12_abund_ORL
resultprocessingtext(127,:) = (/"N2+/H (V12) ","N$^{2+}$/H (V12) ", abundances_format, "abund_orl_nii_v12 "/)
resultprocessingarray(128,:) = all_results%Nii_v20_abund_ORL
resultprocessingtext(128,:) = (/"N2+/H (V20) ","N$^{2+}$/H (V20) ", abundances_format, "abund_orl_nii_v20 "/)
resultprocessingarray(129,:) = all_results%Nii_v28_abund_ORL
resultprocessingtext(129,:) = (/"N2+/H (V28) ","N$^{2+}$/H (V28) ", abundances_format, "abund_orl_nii_v28 "/)
resultprocessingarray(130,:) = all_results%Nii_3d4f_abund_ORL
resultprocessingtext(130,:) = (/"N2+/H (3d-4f) ","N$^{2+}$/H (3d-4f) ", abundances_format, "abund_orl_nii_3d4f "/)
resultprocessingarray(131,:) = all_results%Nii_abund_ORL
resultprocessingtext(131,:) = (/"N2+/H (RL) ","N$^{2+}$/H (RL) ", abundances_format, "abund_orl_nii "/)
resultprocessingarray(132,:) = all_results%Niii_abund_ORL
resultprocessingtext(132,:) = (/"N3+/H (RL) ","N$^{3+}$/H (RL) ", abundances_format, "abund_orl_niii "/)
resultprocessingarray(133,:) = all_results%n_icf_ORL
resultprocessingtext(133,:) = (/"icf(N) (RL) ","icf(N) (RL) ", abundances_format, "icf_orl_n "/)
resultprocessingarray(134,:) = all_results%N_abund_ORL
resultprocessingtext(134,:) = (/"N/H (RL) ","N/H (RL) ", abundances_format, "abund_orl_n "/)
resultprocessingarray(135,:) = all_results%Oii_v1_abund_ORL
resultprocessingtext(135,:) = (/"O2+/H (V1) ","O$^{2+}$/H (V1) ", abundances_format, "abund_orl_oii_v1 "/)
resultprocessingarray(136,:) = all_results%Oii_v2_abund_ORL
resultprocessingtext(136,:) = (/"O2+/H (V2) ","O$^{2+}$/H (V2) ", abundances_format, "abund_orl_oii_v2 "/)
resultprocessingarray(137,:) = all_results%Oii_v5_abund_ORL
resultprocessingtext(137,:) = (/"O2+/H (V5) ","O$^{2+}$/H (V5) ", abundances_format, "abund_orl_oii_v5 "/)
resultprocessingarray(138,:) = all_results%Oii_v10_abund_ORL
resultprocessingtext(138,:) = (/"O2+/H (V10) ","O$^{2+}$/H (V10) ", abundances_format, "abund_orl_oii_v10 "/)
resultprocessingarray(139,:) = all_results%Oii_v11_abund_ORL
resultprocessingtext(139,:) = (/"O2+/H (V11) ","O$^{2+}$/H (V11) ", abundances_format, "abund_orl_oii_v11 "/)
resultprocessingarray(140,:) = all_results%Oii_v12_abund_ORL
resultprocessingtext(140,:) = (/"O2+/H (V12) ","O$^{2+}$/H (V12) ", abundances_format, "abund_orl_oii_v12 "/)
resultprocessingarray(141,:) = all_results%Oii_v19_abund_ORL
resultprocessingtext(141,:) = (/"O2+/H (V19) ","O$^{2+}$/H (V19) ", abundances_format, "abund_orl_oii_v19 "/)
resultprocessingarray(142,:) = all_results%Oii_v20_abund_ORL
resultprocessingtext(142,:) = (/"O2+/H (V20) ","O$^{2+}$/H (V20) ", abundances_format, "abund_orl_oii_v20 "/)
resultprocessingarray(143,:) = all_results%Oii_v25_abund_ORL
resultprocessingtext(143,:) = (/"O2+/H (V25) ","O$^{2+}$/H (V25) ", abundances_format, "abund_orl_oii_v25 "/)
resultprocessingarray(144,:) = all_results%Oii_v28_abund_ORL
resultprocessingtext(144,:) = (/"O2+/H (V28) ","O$^{2+}$/H (V28) ", abundances_format, "abund_orl_oii_v28 "/)
resultprocessingarray(145,:) = all_results%Oii_v33_abund_ORL
resultprocessingtext(145,:) = (/"O2+/H (V33) ","O$^{2+}$/H (V33) ", abundances_format, "abund_orl_oii_v33 "/)
resultprocessingarray(146,:) = all_results%Oii_3d4f_abund_ORL
resultprocessingtext(146,:) = (/"O2+/H (3d-4f) ","O$^{2+}$/H (3d-4f) ", abundances_format, "abund_orl_oii_3d4f "/)
resultprocessingarray(147,:) = all_results%Oii_abund_ORL
resultprocessingtext(147,:) = (/"O2+/H (RL) ","O$^{2+}$/H (RL) ", abundances_format, "abund_orl_oii "/)
resultprocessingarray(148,:) = all_results%O_icf_ORL
resultprocessingtext(148,:) = (/"icf(O) (RL) ","icf(O) (RL) ", abundances_format, "icf_orl_o "/)
resultprocessingarray(149,:) = all_results%O_abund_ORL
resultprocessingtext(149,:) = (/"O/H (RL) ","O/H (RL) ", abundances_format, "abund_orl_o "/)
resultprocessingarray(150,:) = all_results%Neii_abund_ORL
resultprocessingtext(150,:) = (/"Ne2+/H (RL) ","Ne$^{2+}$/H (RL) ", abundances_format, "abund_orl_neii "/)
resultprocessingarray(151,:) = all_results%ne_icf_ORL
resultprocessingtext(151,:) = (/"icf(Ne) (RL) ","icf(Ne) (RL) ", abundances_format, "icf_orl_ne "/)
resultprocessingarray(152,:) = all_results%Ne_abund_ORL
resultprocessingtext(152,:) = (/"Ne/H (RL) ","Ne/H (RL) ", abundances_format, "abund_orl_ne "/)
!strong line abundances
resultprocessingarray(153,:) = all_results%O_R23_upper
resultprocessingtext(153,:) = (/"O/H (R23 upper) ","O/H (R23 upper) ", abundances_format, "abund_o_r23_upper "/)
resultprocessingarray(154,:) = all_results%O_R23_lower
resultprocessingtext(154,:) = (/"O/H (R23 lower) ","O/H (R23 lower) ", abundances_format, "abund_o_r23_lower "/)
resultprocessingarray(155,:) = all_results%O_N2
resultprocessingtext(155,:) = (/"O/H (N2) ","O/H (N2) ", abundances_format, "abund_o_n2 "/)
resultprocessingarray(156,:) = all_results%O_O3N2
resultprocessingtext(156,:) = (/"O/H (O3N2) ","O/H (O3N2) ", abundances_format, "abund_o_o3n2 "/)
resultprocessingarray(157,:) = all_results%O_Ar3O3
resultprocessingtext(157,:) = (/"O/H (Ar3O3) ","O/H (Ar3O3) ", abundances_format, "abund_o_ar3o3 "/)
resultprocessingarray(158,:) = all_results%O_S3O3
resultprocessingtext(158,:) = (/"O/H (S3O3) ","O/H (S3O3) ", abundances_format, "abund_o_s3o3 "/)
!adfs
resultprocessingarray(159,:) = all_results%adf_o2plus
resultprocessingtext(159,:) = (/"adf (O2+/H) ","adf (O$^{2+}$/H) ", adf_format, "adf_o2plus "/)
resultprocessingarray(160,:) = all_results%adf_o
resultprocessingtext(160,:) = (/"adf (O/H) ","adf (O/H) ", adf_format, "adf_o "/)
resultprocessingarray(161,:) = all_results%adf_n2plus
resultprocessingtext(161,:) = (/"adf (N2+/H) ","adf (N$^{2+}$/H) ", adf_format, "adf_n2plus "/)
resultprocessingarray(162,:) = all_results%adf_n
resultprocessingtext(162,:) = (/"adf (N/H) ","adf (N/H) ", adf_format, "adf_n "/)
resultprocessingarray(163,:) = all_results%adf_c2plus
resultprocessingtext(163,:) = (/"adf (C2+/H) ","adf (C$^{2+}$/H) ", adf_format, "adf_c2plus "/)
resultprocessingarray(164,:) = all_results%adf_c
resultprocessingtext(164,:) = (/"adf (C/H) ","adf (C/H) ", adf_format, "adf_c "/)
resultprocessingarray(165,:) = all_results%adf_ne2plus
resultprocessingtext(165,:) = (/"adf (Ne2+/H) ","adf (Ne$^{2+}$/H) ", adf_format, "adf_ne2plus "/)
resultprocessingarray(166,:) = all_results%adf_ne
resultprocessingtext(166,:) = (/"adf (Ne/H) ","adf (Ne/H) ", adf_format, "adf_ne "/)
end subroutine create_output_arrays
end module mod_output
|
