diff options
Diffstat (limited to 'synthe')
31 files changed, 41393 insertions, 0 deletions
diff --git a/synthe/Makefile.am b/synthe/Makefile.am new file mode 100644 index 0000000..468bf57 --- /dev/null +++ b/synthe/Makefile.am @@ -0,0 +1,38 @@ +AM_FFLAGS=-double-size 64 -save +bin_PROGRAMS = xnfpelsyn \ + rgfall \ + rgfalllinesnew \ + rmolecasc \ + synthe \ + spectrv \ + rotate \ + broaden \ + plotsynimcol \ + plotobsimcol \ + mergeplotcol \ + psplotcol \ + ascibinxyatonm \ + converfsynnmtoa \ + rschwenk \ + synbeg \ + rh2ofast \ + nltelinesasctobin +xnfpelsyn_SOURCES = xnfpelsyn.for atlas7v.for +rgfall_SOURCES = rgfall.for +rgfalllinesnew_SOURCES = rgfalllinesnew.for +rmolecasc_SOURCES = rmolecasc.for +synthe_SOURCES = synthe.for +spectrv_SOURCES = spectrv.for atlas7v.for +rotate_SOURCES = rotate.for +broaden_SOURCES = broaden.for +plotsynimcol_SOURCES = plotsynimcol.for plotpackcol.for +plotobsimcol_SOURCES = plotobsimcol.for plotpackcol.for +mergeplotcol_SOURCES = mergeplotcol.for +psplotcol_SOURCES = psplotcol.for +ascibinxyatonm_SOURCES = ascibinxyatonm.for +converfsynnmtoa_SOURCES = converfsynnmtoa.for +rschwenk_SOURCES = rschwenk.for +synbeg_SOURCES = synbeg.for +rh2ofast_SOURCES = rh2ofast.for +nltelinesasctobin_SOURCES = nltelinesasctobin.for +SUBDIRS = . diff --git a/synthe/Makefile.in b/synthe/Makefile.in new file mode 100644 index 0000000..59e28f3 --- /dev/null +++ b/synthe/Makefile.in @@ -0,0 +1,810 @@ +# Makefile.in generated by automake 1.15 from Makefile.am. +# @configure_input@ + +# Copyright (C) 1994-2014 Free Software Foundation, Inc. + +# This Makefile.in is free software; the Free Software Foundation +# gives unlimited permission to copy and/or distribute it, +# with or without modifications, as long as this notice is preserved. + +# This program is distributed in the hope that it will be useful, +# but WITHOUT ANY WARRANTY, to the extent permitted by law; without +# even the implied warranty of MERCHANTABILITY or FITNESS FOR A +# PARTICULAR PURPOSE. + +@SET_MAKE@ + +VPATH = @srcdir@ +am__is_gnu_make = { \ + if test -z '$(MAKELEVEL)'; then \ + false; \ + elif test -n '$(MAKE_HOST)'; then \ + true; \ + elif test -n '$(MAKE_VERSION)' && test -n '$(CURDIR)'; then \ + true; \ + else \ + false; \ + fi; \ +} +am__make_running_with_option = \ + case $${target_option-} in \ + ?) ;; \ + *) echo "am__make_running_with_option: internal error: invalid" \ + "target option '$${target_option-}' specified" >&2; \ + exit 1;; \ + esac; \ + has_opt=no; \ + sane_makeflags=$$MAKEFLAGS; \ + if $(am__is_gnu_make); then \ + sane_makeflags=$$MFLAGS; \ + else \ + case $$MAKEFLAGS in \ + *\\[\ \ ]*) \ + bs=\\; \ + sane_makeflags=`printf '%s\n' "$$MAKEFLAGS" \ + | sed "s/$$bs$$bs[$$bs $$bs ]*//g"`;; \ + esac; \ + fi; \ + skip_next=no; \ + strip_trailopt () \ + { \ + flg=`printf '%s\n' "$$flg" | sed "s/$$1.*$$//"`; \ + }; \ + for flg in $$sane_makeflags; do \ + test $$skip_next = yes && { skip_next=no; continue; }; \ + case $$flg in \ + *=*|--*) continue;; \ + -*I) strip_trailopt 'I'; skip_next=yes;; \ + -*I?*) strip_trailopt 'I';; \ + -*O) strip_trailopt 'O'; skip_next=yes;; \ + -*O?*) strip_trailopt 'O';; \ + -*l) strip_trailopt 'l'; skip_next=yes;; \ + -*l?*) strip_trailopt 'l';; \ + -[dEDm]) skip_next=yes;; \ + -[JT]) skip_next=yes;; \ + esac; \ + case $$flg in \ + *$$target_option*) has_opt=yes; break;; \ + esac; \ + done; \ + test $$has_opt = yes +am__make_dryrun = (target_option=n; $(am__make_running_with_option)) +am__make_keepgoing = (target_option=k; $(am__make_running_with_option)) +pkgdatadir = $(datadir)/@PACKAGE@ +pkgincludedir = $(includedir)/@PACKAGE@ +pkglibdir = $(libdir)/@PACKAGE@ +pkglibexecdir = $(libexecdir)/@PACKAGE@ +am__cd = CDPATH="$${ZSH_VERSION+.}$(PATH_SEPARATOR)" && cd +install_sh_DATA = $(install_sh) -c -m 644 +install_sh_PROGRAM = $(install_sh) -c +install_sh_SCRIPT = $(install_sh) -c +INSTALL_HEADER = $(INSTALL_DATA) +transform = $(program_transform_name) +NORMAL_INSTALL = : +PRE_INSTALL = : +POST_INSTALL = : +NORMAL_UNINSTALL = : +PRE_UNINSTALL = : +POST_UNINSTALL = : +bin_PROGRAMS = xnfpelsyn$(EXEEXT) rgfall$(EXEEXT) \ + rgfalllinesnew$(EXEEXT) rmolecasc$(EXEEXT) synthe$(EXEEXT) \ + spectrv$(EXEEXT) rotate$(EXEEXT) broaden$(EXEEXT) \ + plotsynimcol$(EXEEXT) plotobsimcol$(EXEEXT) \ + mergeplotcol$(EXEEXT) psplotcol$(EXEEXT) \ + ascibinxyatonm$(EXEEXT) converfsynnmtoa$(EXEEXT) \ + rschwenk$(EXEEXT) synbeg$(EXEEXT) rh2ofast$(EXEEXT) \ + nltelinesasctobin$(EXEEXT) +subdir = synthe +ACLOCAL_M4 = $(top_srcdir)/aclocal.m4 +am__aclocal_m4_deps = $(top_srcdir)/configure.ac +am__configure_deps = $(am__aclocal_m4_deps) $(CONFIGURE_DEPENDENCIES) \ + $(ACLOCAL_M4) +DIST_COMMON = $(srcdir)/Makefile.am $(am__DIST_COMMON) +mkinstalldirs = $(install_sh) -d +CONFIG_CLEAN_FILES = +CONFIG_CLEAN_VPATH_FILES = +am__installdirs = "$(DESTDIR)$(bindir)" +PROGRAMS = $(bin_PROGRAMS) +am_ascibinxyatonm_OBJECTS = ascibinxyatonm.$(OBJEXT) +ascibinxyatonm_OBJECTS = $(am_ascibinxyatonm_OBJECTS) +ascibinxyatonm_LDADD = $(LDADD) +am_broaden_OBJECTS = broaden.$(OBJEXT) +broaden_OBJECTS = $(am_broaden_OBJECTS) +broaden_LDADD = $(LDADD) +am_converfsynnmtoa_OBJECTS = converfsynnmtoa.$(OBJEXT) +converfsynnmtoa_OBJECTS = $(am_converfsynnmtoa_OBJECTS) +converfsynnmtoa_LDADD = $(LDADD) +am_mergeplotcol_OBJECTS = mergeplotcol.$(OBJEXT) +mergeplotcol_OBJECTS = $(am_mergeplotcol_OBJECTS) +mergeplotcol_LDADD = $(LDADD) +am_nltelinesasctobin_OBJECTS = nltelinesasctobin.$(OBJEXT) +nltelinesasctobin_OBJECTS = $(am_nltelinesasctobin_OBJECTS) +nltelinesasctobin_LDADD = $(LDADD) +am_plotobsimcol_OBJECTS = plotobsimcol.$(OBJEXT) plotpackcol.$(OBJEXT) +plotobsimcol_OBJECTS = $(am_plotobsimcol_OBJECTS) +plotobsimcol_LDADD = $(LDADD) +am_plotsynimcol_OBJECTS = plotsynimcol.$(OBJEXT) plotpackcol.$(OBJEXT) +plotsynimcol_OBJECTS = $(am_plotsynimcol_OBJECTS) +plotsynimcol_LDADD = $(LDADD) +am_psplotcol_OBJECTS = psplotcol.$(OBJEXT) +psplotcol_OBJECTS = $(am_psplotcol_OBJECTS) +psplotcol_LDADD = $(LDADD) +am_rgfall_OBJECTS = rgfall.$(OBJEXT) +rgfall_OBJECTS = $(am_rgfall_OBJECTS) +rgfall_LDADD = $(LDADD) +am_rgfalllinesnew_OBJECTS = rgfalllinesnew.$(OBJEXT) +rgfalllinesnew_OBJECTS = $(am_rgfalllinesnew_OBJECTS) +rgfalllinesnew_LDADD = $(LDADD) +am_rh2ofast_OBJECTS = rh2ofast.$(OBJEXT) +rh2ofast_OBJECTS = $(am_rh2ofast_OBJECTS) +rh2ofast_LDADD = $(LDADD) +am_rmolecasc_OBJECTS = rmolecasc.$(OBJEXT) +rmolecasc_OBJECTS = $(am_rmolecasc_OBJECTS) +rmolecasc_LDADD = $(LDADD) +am_rotate_OBJECTS = rotate.$(OBJEXT) +rotate_OBJECTS = $(am_rotate_OBJECTS) +rotate_LDADD = $(LDADD) +am_rschwenk_OBJECTS = rschwenk.$(OBJEXT) +rschwenk_OBJECTS = $(am_rschwenk_OBJECTS) +rschwenk_LDADD = $(LDADD) +am_spectrv_OBJECTS = spectrv.$(OBJEXT) atlas7v.$(OBJEXT) +spectrv_OBJECTS = $(am_spectrv_OBJECTS) +spectrv_LDADD = $(LDADD) +am_synbeg_OBJECTS = synbeg.$(OBJEXT) +synbeg_OBJECTS = $(am_synbeg_OBJECTS) +synbeg_LDADD = $(LDADD) +am_synthe_OBJECTS = synthe.$(OBJEXT) +synthe_OBJECTS = $(am_synthe_OBJECTS) +synthe_LDADD = $(LDADD) +am_xnfpelsyn_OBJECTS = xnfpelsyn.$(OBJEXT) atlas7v.$(OBJEXT) +xnfpelsyn_OBJECTS = $(am_xnfpelsyn_OBJECTS) +xnfpelsyn_LDADD = $(LDADD) +AM_V_P = $(am__v_P_@AM_V@) +am__v_P_ = $(am__v_P_@AM_DEFAULT_V@) +am__v_P_0 = false +am__v_P_1 = : +AM_V_GEN = $(am__v_GEN_@AM_V@) +am__v_GEN_ = $(am__v_GEN_@AM_DEFAULT_V@) +am__v_GEN_0 = @echo " GEN " $@; +am__v_GEN_1 = +AM_V_at = $(am__v_at_@AM_V@) +am__v_at_ = $(am__v_at_@AM_DEFAULT_V@) +am__v_at_0 = @ +am__v_at_1 = +DEFAULT_INCLUDES = -I.@am__isrc@ +F77COMPILE = $(F77) $(AM_FFLAGS) $(FFLAGS) +AM_V_F77 = $(am__v_F77_@AM_V@) +am__v_F77_ = $(am__v_F77_@AM_DEFAULT_V@) +am__v_F77_0 = @echo " F77 " $@; +am__v_F77_1 = +F77LD = $(F77) +F77LINK = $(F77LD) $(AM_FFLAGS) $(FFLAGS) $(AM_LDFLAGS) $(LDFLAGS) -o \ + $@ +AM_V_F77LD = $(am__v_F77LD_@AM_V@) +am__v_F77LD_ = $(am__v_F77LD_@AM_DEFAULT_V@) +am__v_F77LD_0 = @echo " F77LD " $@; +am__v_F77LD_1 = +SOURCES = $(ascibinxyatonm_SOURCES) $(broaden_SOURCES) \ + $(converfsynnmtoa_SOURCES) $(mergeplotcol_SOURCES) \ + $(nltelinesasctobin_SOURCES) $(plotobsimcol_SOURCES) \ + $(plotsynimcol_SOURCES) $(psplotcol_SOURCES) $(rgfall_SOURCES) \ + $(rgfalllinesnew_SOURCES) $(rh2ofast_SOURCES) \ + $(rmolecasc_SOURCES) $(rotate_SOURCES) $(rschwenk_SOURCES) \ + $(spectrv_SOURCES) $(synbeg_SOURCES) $(synthe_SOURCES) \ + $(xnfpelsyn_SOURCES) +DIST_SOURCES = $(ascibinxyatonm_SOURCES) $(broaden_SOURCES) \ + $(converfsynnmtoa_SOURCES) $(mergeplotcol_SOURCES) \ + $(nltelinesasctobin_SOURCES) $(plotobsimcol_SOURCES) \ + $(plotsynimcol_SOURCES) $(psplotcol_SOURCES) $(rgfall_SOURCES) \ + $(rgfalllinesnew_SOURCES) $(rh2ofast_SOURCES) \ + $(rmolecasc_SOURCES) $(rotate_SOURCES) $(rschwenk_SOURCES) \ + $(spectrv_SOURCES) $(synbeg_SOURCES) $(synthe_SOURCES) \ + $(xnfpelsyn_SOURCES) +RECURSIVE_TARGETS = all-recursive check-recursive cscopelist-recursive \ + ctags-recursive dvi-recursive html-recursive info-recursive \ + install-data-recursive install-dvi-recursive \ + install-exec-recursive install-html-recursive \ + install-info-recursive install-pdf-recursive \ + install-ps-recursive install-recursive installcheck-recursive \ + installdirs-recursive pdf-recursive ps-recursive \ + tags-recursive uninstall-recursive +am__can_run_installinfo = \ + case $$AM_UPDATE_INFO_DIR in \ + n|no|NO) false;; \ + *) (install-info --version) >/dev/null 2>&1;; \ + esac +RECURSIVE_CLEAN_TARGETS = mostlyclean-recursive clean-recursive \ + distclean-recursive maintainer-clean-recursive +am__recursive_targets = \ + $(RECURSIVE_TARGETS) \ + $(RECURSIVE_CLEAN_TARGETS) \ + $(am__extra_recursive_targets) +AM_RECURSIVE_TARGETS = $(am__recursive_targets:-recursive=) TAGS CTAGS \ + distdir +am__tagged_files = $(HEADERS) $(SOURCES) $(TAGS_FILES) $(LISP) +# Read a list of newline-separated strings from the standard input, +# and print each of them once, without duplicates. Input order is +# *not* preserved. +am__uniquify_input = $(AWK) '\ + BEGIN { nonempty = 0; } \ + { items[$$0] = 1; nonempty = 1; } \ + END { if (nonempty) { for (i in items) print i; }; } \ +' +# Make sure the list of sources is unique. This is necessary because, +# e.g., the same source file might be shared among _SOURCES variables +# for different programs/libraries. +am__define_uniq_tagged_files = \ + list='$(am__tagged_files)'; \ + unique=`for i in $$list; do \ + if test -f "$$i"; then echo $$i; else echo $(srcdir)/$$i; fi; \ + done | $(am__uniquify_input)` +ETAGS = etags +CTAGS = ctags +DIST_SUBDIRS = $(SUBDIRS) +am__DIST_COMMON = $(srcdir)/Makefile.in +DISTFILES = $(DIST_COMMON) $(DIST_SOURCES) $(TEXINFOS) $(EXTRA_DIST) +am__relativize = \ + dir0=`pwd`; \ + sed_first='s,^\([^/]*\)/.*$$,\1,'; \ + sed_rest='s,^[^/]*/*,,'; \ + sed_last='s,^.*/\([^/]*\)$$,\1,'; \ + sed_butlast='s,/*[^/]*$$,,'; \ + while test -n "$$dir1"; do \ + first=`echo "$$dir1" | sed -e "$$sed_first"`; \ + if test "$$first" != "."; then \ + if test "$$first" = ".."; then \ + dir2=`echo "$$dir0" | sed -e "$$sed_last"`/"$$dir2"; \ + dir0=`echo "$$dir0" | sed -e "$$sed_butlast"`; \ + else \ + first2=`echo "$$dir2" | sed -e "$$sed_first"`; \ + if test "$$first2" = "$$first"; then \ + dir2=`echo "$$dir2" | sed -e "$$sed_rest"`; \ + else \ + dir2="../$$dir2"; \ + fi; \ + dir0="$$dir0"/"$$first"; \ + fi; \ + fi; \ + dir1=`echo "$$dir1" | sed -e "$$sed_rest"`; \ + done; \ + reldir="$$dir2" +ACLOCAL = @ACLOCAL@ +AMTAR = @AMTAR@ +AM_DEFAULT_VERBOSITY = @AM_DEFAULT_VERBOSITY@ +AUTOCONF = @AUTOCONF@ +AUTOHEADER = @AUTOHEADER@ +AUTOMAKE = @AUTOMAKE@ +AWK = @AWK@ +CYGPATH_W = @CYGPATH_W@ +DEFS = @DEFS@ +ECHO_C = @ECHO_C@ +ECHO_N = @ECHO_N@ +ECHO_T = @ECHO_T@ +EXEEXT = @EXEEXT@ +F77 = @F77@ +FFLAGS = @FFLAGS@ +INSTALL = @INSTALL@ +INSTALL_DATA = @INSTALL_DATA@ +INSTALL_PROGRAM = @INSTALL_PROGRAM@ +INSTALL_SCRIPT = @INSTALL_SCRIPT@ +INSTALL_STRIP_PROGRAM = @INSTALL_STRIP_PROGRAM@ +LDFLAGS = @LDFLAGS@ +LIBOBJS = @LIBOBJS@ +LIBS = @LIBS@ +LTLIBOBJS = @LTLIBOBJS@ +MAKEINFO = @MAKEINFO@ +MKDIR_P = @MKDIR_P@ +OBJEXT = @OBJEXT@ +PACKAGE = @PACKAGE@ +PACKAGE_BUGREPORT = @PACKAGE_BUGREPORT@ +PACKAGE_NAME = @PACKAGE_NAME@ +PACKAGE_STRING = @PACKAGE_STRING@ +PACKAGE_TARNAME = @PACKAGE_TARNAME@ +PACKAGE_URL = @PACKAGE_URL@ +PACKAGE_VERSION = @PACKAGE_VERSION@ +PATH_SEPARATOR = @PATH_SEPARATOR@ +SET_MAKE = @SET_MAKE@ +SHELL = @SHELL@ +STRIP = @STRIP@ +VERSION = @VERSION@ +abs_builddir = @abs_builddir@ +abs_srcdir = @abs_srcdir@ +abs_top_builddir = @abs_top_builddir@ +abs_top_srcdir = @abs_top_srcdir@ +ac_ct_F77 = @ac_ct_F77@ +am__leading_dot = @am__leading_dot@ +am__tar = @am__tar@ +am__untar = @am__untar@ +bindir = @bindir@ +build_alias = @build_alias@ +builddir = @builddir@ +datadir = @datadir@ +datarootdir = @datarootdir@ +docdir = @docdir@ +dvidir = @dvidir@ +exec_prefix = @exec_prefix@ +host_alias = @host_alias@ +htmldir = @htmldir@ +includedir = @includedir@ +infodir = @infodir@ +install_sh = @install_sh@ +libdir = @libdir@ +libexecdir = @libexecdir@ +localedir = @localedir@ +localstatedir = @localstatedir@ +mandir = @mandir@ +mkdir_p = @mkdir_p@ +oldincludedir = @oldincludedir@ +pdfdir = @pdfdir@ +prefix = @prefix@ +program_transform_name = @program_transform_name@ +psdir = @psdir@ +sbindir = @sbindir@ +sharedstatedir = @sharedstatedir@ +srcdir = @srcdir@ +sysconfdir = @sysconfdir@ +target_alias = @target_alias@ +top_build_prefix = @top_build_prefix@ +top_builddir = @top_builddir@ +top_srcdir = @top_srcdir@ +AM_FFLAGS = -double-size 64 -save +xnfpelsyn_SOURCES = xnfpelsyn.for atlas7v.for +rgfall_SOURCES = rgfall.for +rgfalllinesnew_SOURCES = rgfalllinesnew.for +rmolecasc_SOURCES = rmolecasc.for +synthe_SOURCES = synthe.for +spectrv_SOURCES = spectrv.for atlas7v.for +rotate_SOURCES = rotate.for +broaden_SOURCES = broaden.for +plotsynimcol_SOURCES = plotsynimcol.for plotpackcol.for +plotobsimcol_SOURCES = plotobsimcol.for plotpackcol.for +mergeplotcol_SOURCES = mergeplotcol.for +psplotcol_SOURCES = psplotcol.for +ascibinxyatonm_SOURCES = ascibinxyatonm.for +converfsynnmtoa_SOURCES = converfsynnmtoa.for +rschwenk_SOURCES = rschwenk.for +synbeg_SOURCES = synbeg.for +rh2ofast_SOURCES = rh2ofast.for +nltelinesasctobin_SOURCES = nltelinesasctobin.for +SUBDIRS = . +all: all-recursive + +.SUFFIXES: +.SUFFIXES: .for .o .obj +$(srcdir)/Makefile.in: $(srcdir)/Makefile.am $(am__configure_deps) + @for dep in $?; do \ + case '$(am__configure_deps)' in \ + *$$dep*) \ + ( cd $(top_builddir) && $(MAKE) $(AM_MAKEFLAGS) am--refresh ) \ + && { if test -f $@; then exit 0; else break; fi; }; \ + exit 1;; \ + esac; \ + done; \ + echo ' cd $(top_srcdir) && $(AUTOMAKE) --gnu synthe/Makefile'; \ + $(am__cd) $(top_srcdir) && \ + $(AUTOMAKE) --gnu synthe/Makefile +Makefile: $(srcdir)/Makefile.in $(top_builddir)/config.status + @case '$?' in \ + *config.status*) \ + cd $(top_builddir) && $(MAKE) $(AM_MAKEFLAGS) am--refresh;; \ + *) \ + echo ' cd $(top_builddir) && $(SHELL) ./config.status $(subdir)/$@ $(am__depfiles_maybe)'; \ + cd $(top_builddir) && $(SHELL) ./config.status $(subdir)/$@ $(am__depfiles_maybe);; \ + esac; + +$(top_builddir)/config.status: $(top_srcdir)/configure $(CONFIG_STATUS_DEPENDENCIES) + cd $(top_builddir) && $(MAKE) $(AM_MAKEFLAGS) am--refresh + +$(top_srcdir)/configure: $(am__configure_deps) + cd $(top_builddir) && $(MAKE) $(AM_MAKEFLAGS) am--refresh +$(ACLOCAL_M4): $(am__aclocal_m4_deps) + cd $(top_builddir) && $(MAKE) $(AM_MAKEFLAGS) am--refresh +$(am__aclocal_m4_deps): +install-binPROGRAMS: $(bin_PROGRAMS) + @$(NORMAL_INSTALL) + @list='$(bin_PROGRAMS)'; test -n "$(bindir)" || list=; \ + if test -n "$$list"; then \ + echo " $(MKDIR_P) '$(DESTDIR)$(bindir)'"; \ + $(MKDIR_P) "$(DESTDIR)$(bindir)" || exit 1; \ + fi; \ + for p in $$list; do echo "$$p $$p"; done | \ + sed 's/$(EXEEXT)$$//' | \ + while read p p1; do if test -f $$p \ + ; then echo "$$p"; echo "$$p"; else :; fi; \ + done | \ + sed -e 'p;s,.*/,,;n;h' \ + -e 's|.*|.|' \ + -e 'p;x;s,.*/,,;s/$(EXEEXT)$$//;$(transform);s/$$/$(EXEEXT)/' | \ + sed 'N;N;N;s,\n, ,g' | \ + $(AWK) 'BEGIN { files["."] = ""; dirs["."] = 1 } \ + { d=$$3; if (dirs[d] != 1) { print "d", d; dirs[d] = 1 } \ + if ($$2 == $$4) files[d] = files[d] " " $$1; \ + else { print "f", $$3 "/" $$4, $$1; } } \ + END { for (d in files) print "f", d, files[d] }' | \ + while read type dir files; do \ + if test "$$dir" = .; then dir=; else dir=/$$dir; fi; \ + test -z "$$files" || { \ + echo " $(INSTALL_PROGRAM_ENV) $(INSTALL_PROGRAM) $$files '$(DESTDIR)$(bindir)$$dir'"; \ + $(INSTALL_PROGRAM_ENV) $(INSTALL_PROGRAM) $$files "$(DESTDIR)$(bindir)$$dir" || exit $$?; \ + } \ + ; done + +uninstall-binPROGRAMS: + @$(NORMAL_UNINSTALL) + @list='$(bin_PROGRAMS)'; test -n "$(bindir)" || list=; \ + files=`for p in $$list; do echo "$$p"; done | \ + sed -e 'h;s,^.*/,,;s/$(EXEEXT)$$//;$(transform)' \ + -e 's/$$/$(EXEEXT)/' \ + `; \ + test -n "$$list" || exit 0; \ + echo " ( cd '$(DESTDIR)$(bindir)' && rm -f" $$files ")"; \ + cd "$(DESTDIR)$(bindir)" && rm -f $$files + +clean-binPROGRAMS: + -test -z "$(bin_PROGRAMS)" || rm -f $(bin_PROGRAMS) + +ascibinxyatonm$(EXEEXT): $(ascibinxyatonm_OBJECTS) $(ascibinxyatonm_DEPENDENCIES) $(EXTRA_ascibinxyatonm_DEPENDENCIES) + @rm -f ascibinxyatonm$(EXEEXT) + $(AM_V_F77LD)$(F77LINK) $(ascibinxyatonm_OBJECTS) $(ascibinxyatonm_LDADD) $(LIBS) + +broaden$(EXEEXT): $(broaden_OBJECTS) $(broaden_DEPENDENCIES) $(EXTRA_broaden_DEPENDENCIES) + @rm -f broaden$(EXEEXT) + $(AM_V_F77LD)$(F77LINK) $(broaden_OBJECTS) $(broaden_LDADD) $(LIBS) + +converfsynnmtoa$(EXEEXT): $(converfsynnmtoa_OBJECTS) $(converfsynnmtoa_DEPENDENCIES) $(EXTRA_converfsynnmtoa_DEPENDENCIES) + @rm -f converfsynnmtoa$(EXEEXT) + $(AM_V_F77LD)$(F77LINK) $(converfsynnmtoa_OBJECTS) $(converfsynnmtoa_LDADD) $(LIBS) + +mergeplotcol$(EXEEXT): $(mergeplotcol_OBJECTS) $(mergeplotcol_DEPENDENCIES) $(EXTRA_mergeplotcol_DEPENDENCIES) + @rm -f mergeplotcol$(EXEEXT) + $(AM_V_F77LD)$(F77LINK) $(mergeplotcol_OBJECTS) $(mergeplotcol_LDADD) $(LIBS) + +nltelinesasctobin$(EXEEXT): $(nltelinesasctobin_OBJECTS) $(nltelinesasctobin_DEPENDENCIES) $(EXTRA_nltelinesasctobin_DEPENDENCIES) + @rm -f nltelinesasctobin$(EXEEXT) + $(AM_V_F77LD)$(F77LINK) $(nltelinesasctobin_OBJECTS) $(nltelinesasctobin_LDADD) $(LIBS) + +plotobsimcol$(EXEEXT): $(plotobsimcol_OBJECTS) $(plotobsimcol_DEPENDENCIES) $(EXTRA_plotobsimcol_DEPENDENCIES) + @rm -f plotobsimcol$(EXEEXT) + $(AM_V_F77LD)$(F77LINK) $(plotobsimcol_OBJECTS) $(plotobsimcol_LDADD) $(LIBS) + +plotsynimcol$(EXEEXT): $(plotsynimcol_OBJECTS) $(plotsynimcol_DEPENDENCIES) $(EXTRA_plotsynimcol_DEPENDENCIES) + @rm -f plotsynimcol$(EXEEXT) + $(AM_V_F77LD)$(F77LINK) $(plotsynimcol_OBJECTS) $(plotsynimcol_LDADD) $(LIBS) + +psplotcol$(EXEEXT): $(psplotcol_OBJECTS) $(psplotcol_DEPENDENCIES) $(EXTRA_psplotcol_DEPENDENCIES) + @rm -f psplotcol$(EXEEXT) + $(AM_V_F77LD)$(F77LINK) $(psplotcol_OBJECTS) $(psplotcol_LDADD) $(LIBS) + +rgfall$(EXEEXT): $(rgfall_OBJECTS) $(rgfall_DEPENDENCIES) $(EXTRA_rgfall_DEPENDENCIES) + @rm -f rgfall$(EXEEXT) + $(AM_V_F77LD)$(F77LINK) $(rgfall_OBJECTS) $(rgfall_LDADD) $(LIBS) + +rgfalllinesnew$(EXEEXT): $(rgfalllinesnew_OBJECTS) $(rgfalllinesnew_DEPENDENCIES) $(EXTRA_rgfalllinesnew_DEPENDENCIES) + @rm -f rgfalllinesnew$(EXEEXT) + $(AM_V_F77LD)$(F77LINK) $(rgfalllinesnew_OBJECTS) $(rgfalllinesnew_LDADD) $(LIBS) + +rh2ofast$(EXEEXT): $(rh2ofast_OBJECTS) $(rh2ofast_DEPENDENCIES) $(EXTRA_rh2ofast_DEPENDENCIES) + @rm -f rh2ofast$(EXEEXT) + $(AM_V_F77LD)$(F77LINK) $(rh2ofast_OBJECTS) $(rh2ofast_LDADD) $(LIBS) + +rmolecasc$(EXEEXT): $(rmolecasc_OBJECTS) $(rmolecasc_DEPENDENCIES) $(EXTRA_rmolecasc_DEPENDENCIES) + @rm -f rmolecasc$(EXEEXT) + $(AM_V_F77LD)$(F77LINK) $(rmolecasc_OBJECTS) $(rmolecasc_LDADD) $(LIBS) + +rotate$(EXEEXT): $(rotate_OBJECTS) $(rotate_DEPENDENCIES) $(EXTRA_rotate_DEPENDENCIES) + @rm -f rotate$(EXEEXT) + $(AM_V_F77LD)$(F77LINK) $(rotate_OBJECTS) $(rotate_LDADD) $(LIBS) + +rschwenk$(EXEEXT): $(rschwenk_OBJECTS) $(rschwenk_DEPENDENCIES) $(EXTRA_rschwenk_DEPENDENCIES) + @rm -f rschwenk$(EXEEXT) + $(AM_V_F77LD)$(F77LINK) $(rschwenk_OBJECTS) $(rschwenk_LDADD) $(LIBS) + +spectrv$(EXEEXT): $(spectrv_OBJECTS) $(spectrv_DEPENDENCIES) $(EXTRA_spectrv_DEPENDENCIES) + @rm -f spectrv$(EXEEXT) + $(AM_V_F77LD)$(F77LINK) $(spectrv_OBJECTS) $(spectrv_LDADD) $(LIBS) + +synbeg$(EXEEXT): $(synbeg_OBJECTS) $(synbeg_DEPENDENCIES) $(EXTRA_synbeg_DEPENDENCIES) + @rm -f synbeg$(EXEEXT) + $(AM_V_F77LD)$(F77LINK) $(synbeg_OBJECTS) $(synbeg_LDADD) $(LIBS) + +synthe$(EXEEXT): $(synthe_OBJECTS) $(synthe_DEPENDENCIES) $(EXTRA_synthe_DEPENDENCIES) + @rm -f synthe$(EXEEXT) + $(AM_V_F77LD)$(F77LINK) $(synthe_OBJECTS) $(synthe_LDADD) $(LIBS) + +xnfpelsyn$(EXEEXT): $(xnfpelsyn_OBJECTS) $(xnfpelsyn_DEPENDENCIES) $(EXTRA_xnfpelsyn_DEPENDENCIES) + @rm -f xnfpelsyn$(EXEEXT) + $(AM_V_F77LD)$(F77LINK) $(xnfpelsyn_OBJECTS) $(xnfpelsyn_LDADD) $(LIBS) + +mostlyclean-compile: + -rm -f *.$(OBJEXT) + +distclean-compile: + -rm -f *.tab.c + +.for.o: + $(AM_V_F77)$(F77COMPILE) -c -o $@ $< + +.for.obj: + $(AM_V_F77)$(F77COMPILE) -c -o $@ `$(CYGPATH_W) '$<'` + +# This directory's subdirectories are mostly independent; you can cd +# into them and run 'make' without going through this Makefile. +# To change the values of 'make' variables: instead of editing Makefiles, +# (1) if the variable is set in 'config.status', edit 'config.status' +# (which will cause the Makefiles to be regenerated when you run 'make'); +# (2) otherwise, pass the desired values on the 'make' command line. +$(am__recursive_targets): + @fail=; \ + if $(am__make_keepgoing); then \ + failcom='fail=yes'; \ + else \ + failcom='exit 1'; \ + fi; \ + dot_seen=no; \ + target=`echo $@ | sed s/-recursive//`; \ + case "$@" in \ + distclean-* | maintainer-clean-*) list='$(DIST_SUBDIRS)' ;; \ + *) list='$(SUBDIRS)' ;; \ + esac; \ + for subdir in $$list; do \ + echo "Making $$target in $$subdir"; \ + if test "$$subdir" = "."; then \ + dot_seen=yes; \ + local_target="$$target-am"; \ + else \ + local_target="$$target"; \ + fi; \ + ($(am__cd) $$subdir && $(MAKE) $(AM_MAKEFLAGS) $$local_target) \ + || eval $$failcom; \ + done; \ + if test "$$dot_seen" = "no"; then \ + $(MAKE) $(AM_MAKEFLAGS) "$$target-am" || exit 1; \ + fi; test -z "$$fail" + +ID: $(am__tagged_files) + $(am__define_uniq_tagged_files); mkid -fID $$unique +tags: tags-recursive +TAGS: tags + +tags-am: $(TAGS_DEPENDENCIES) $(am__tagged_files) + set x; \ + here=`pwd`; \ + if ($(ETAGS) --etags-include --version) >/dev/null 2>&1; then \ + include_option=--etags-include; \ + empty_fix=.; \ + else \ + include_option=--include; \ + empty_fix=; \ + fi; \ + list='$(SUBDIRS)'; for subdir in $$list; do \ + if test "$$subdir" = .; then :; else \ + test ! -f $$subdir/TAGS || \ + set "$$@" "$$include_option=$$here/$$subdir/TAGS"; \ + fi; \ + done; \ + $(am__define_uniq_tagged_files); \ + shift; \ + if test -z "$(ETAGS_ARGS)$$*$$unique"; then :; else \ + test -n "$$unique" || unique=$$empty_fix; \ + if test $$# -gt 0; then \ + $(ETAGS) $(ETAGSFLAGS) $(AM_ETAGSFLAGS) $(ETAGS_ARGS) \ + "$$@" $$unique; \ + else \ + $(ETAGS) $(ETAGSFLAGS) $(AM_ETAGSFLAGS) $(ETAGS_ARGS) \ + $$unique; \ + fi; \ + fi +ctags: ctags-recursive + +CTAGS: ctags +ctags-am: $(TAGS_DEPENDENCIES) $(am__tagged_files) + $(am__define_uniq_tagged_files); \ + test -z "$(CTAGS_ARGS)$$unique" \ + || $(CTAGS) $(CTAGSFLAGS) $(AM_CTAGSFLAGS) $(CTAGS_ARGS) \ + $$unique + +GTAGS: + here=`$(am__cd) $(top_builddir) && pwd` \ + && $(am__cd) $(top_srcdir) \ + && gtags -i $(GTAGS_ARGS) "$$here" +cscopelist: cscopelist-recursive + +cscopelist-am: $(am__tagged_files) + list='$(am__tagged_files)'; \ + case "$(srcdir)" in \ + [\\/]* | ?:[\\/]*) sdir="$(srcdir)" ;; \ + *) sdir=$(subdir)/$(srcdir) ;; \ + esac; \ + for i in $$list; do \ + if test -f "$$i"; then \ + echo "$(subdir)/$$i"; \ + else \ + echo "$$sdir/$$i"; \ + fi; \ + done >> $(top_builddir)/cscope.files + +distclean-tags: + -rm -f TAGS ID GTAGS GRTAGS GSYMS GPATH tags + +distdir: $(DISTFILES) + @srcdirstrip=`echo "$(srcdir)" | sed 's/[].[^$$\\*]/\\\\&/g'`; \ + topsrcdirstrip=`echo "$(top_srcdir)" | sed 's/[].[^$$\\*]/\\\\&/g'`; \ + list='$(DISTFILES)'; \ + dist_files=`for file in $$list; do echo $$file; done | \ + sed -e "s|^$$srcdirstrip/||;t" \ + -e "s|^$$topsrcdirstrip/|$(top_builddir)/|;t"`; \ + case $$dist_files in \ + */*) $(MKDIR_P) `echo "$$dist_files" | \ + sed '/\//!d;s|^|$(distdir)/|;s,/[^/]*$$,,' | \ + sort -u` ;; \ + esac; \ + for file in $$dist_files; do \ + if test -f $$file || test -d $$file; then d=.; else d=$(srcdir); fi; \ + if test -d $$d/$$file; then \ + dir=`echo "/$$file" | sed -e 's,/[^/]*$$,,'`; \ + if test -d "$(distdir)/$$file"; then \ + find "$(distdir)/$$file" -type d ! -perm -700 -exec chmod u+rwx {} \;; \ + fi; \ + if test -d $(srcdir)/$$file && test $$d != $(srcdir); then \ + cp -fpR $(srcdir)/$$file "$(distdir)$$dir" || exit 1; \ + find "$(distdir)/$$file" -type d ! -perm -700 -exec chmod u+rwx {} \;; \ + fi; \ + cp -fpR $$d/$$file "$(distdir)$$dir" || exit 1; \ + else \ + test -f "$(distdir)/$$file" \ + || cp -p $$d/$$file "$(distdir)/$$file" \ + || exit 1; \ + fi; \ + done + @list='$(DIST_SUBDIRS)'; for subdir in $$list; do \ + if test "$$subdir" = .; then :; else \ + $(am__make_dryrun) \ + || test -d "$(distdir)/$$subdir" \ + || $(MKDIR_P) "$(distdir)/$$subdir" \ + || exit 1; \ + dir1=$$subdir; dir2="$(distdir)/$$subdir"; \ + $(am__relativize); \ + new_distdir=$$reldir; \ + dir1=$$subdir; dir2="$(top_distdir)"; \ + $(am__relativize); \ + new_top_distdir=$$reldir; \ + echo " (cd $$subdir && $(MAKE) $(AM_MAKEFLAGS) top_distdir="$$new_top_distdir" distdir="$$new_distdir" \\"; \ + echo " am__remove_distdir=: am__skip_length_check=: am__skip_mode_fix=: distdir)"; \ + ($(am__cd) $$subdir && \ + $(MAKE) $(AM_MAKEFLAGS) \ + top_distdir="$$new_top_distdir" \ + distdir="$$new_distdir" \ + am__remove_distdir=: \ + am__skip_length_check=: \ + am__skip_mode_fix=: \ + distdir) \ + || exit 1; \ + fi; \ + done +check-am: all-am +check: check-recursive +all-am: Makefile $(PROGRAMS) +installdirs: installdirs-recursive +installdirs-am: + for dir in "$(DESTDIR)$(bindir)"; do \ + test -z "$$dir" || $(MKDIR_P) "$$dir"; \ + done +install: install-recursive +install-exec: install-exec-recursive +install-data: install-data-recursive +uninstall: uninstall-recursive + +install-am: all-am + @$(MAKE) $(AM_MAKEFLAGS) install-exec-am install-data-am + +installcheck: installcheck-recursive +install-strip: + if test -z '$(STRIP)'; then \ + $(MAKE) $(AM_MAKEFLAGS) INSTALL_PROGRAM="$(INSTALL_STRIP_PROGRAM)" \ + install_sh_PROGRAM="$(INSTALL_STRIP_PROGRAM)" INSTALL_STRIP_FLAG=-s \ + install; \ + else \ + $(MAKE) $(AM_MAKEFLAGS) INSTALL_PROGRAM="$(INSTALL_STRIP_PROGRAM)" \ + install_sh_PROGRAM="$(INSTALL_STRIP_PROGRAM)" INSTALL_STRIP_FLAG=-s \ + "INSTALL_PROGRAM_ENV=STRIPPROG='$(STRIP)'" install; \ + fi +mostlyclean-generic: + +clean-generic: + +distclean-generic: + -test -z "$(CONFIG_CLEAN_FILES)" || rm -f $(CONFIG_CLEAN_FILES) + -test . = "$(srcdir)" || test -z "$(CONFIG_CLEAN_VPATH_FILES)" || rm -f $(CONFIG_CLEAN_VPATH_FILES) + +maintainer-clean-generic: + @echo "This command is intended for maintainers to use" + @echo "it deletes files that may require special tools to rebuild." +clean: clean-recursive + +clean-am: clean-binPROGRAMS clean-generic mostlyclean-am + +distclean: distclean-recursive + -rm -f Makefile +distclean-am: clean-am distclean-compile distclean-generic \ + distclean-tags + +dvi: dvi-recursive + +dvi-am: + +html: html-recursive + +html-am: + +info: info-recursive + +info-am: + +install-data-am: + +install-dvi: install-dvi-recursive + +install-dvi-am: + +install-exec-am: install-binPROGRAMS + +install-html: install-html-recursive + +install-html-am: + +install-info: install-info-recursive + +install-info-am: + +install-man: + +install-pdf: install-pdf-recursive + +install-pdf-am: + +install-ps: install-ps-recursive + +install-ps-am: + +installcheck-am: + +maintainer-clean: maintainer-clean-recursive + -rm -f Makefile +maintainer-clean-am: distclean-am maintainer-clean-generic + +mostlyclean: mostlyclean-recursive + +mostlyclean-am: mostlyclean-compile mostlyclean-generic + +pdf: pdf-recursive + +pdf-am: + +ps: ps-recursive + +ps-am: + +uninstall-am: uninstall-binPROGRAMS + +.MAKE: $(am__recursive_targets) install-am install-strip + +.PHONY: $(am__recursive_targets) CTAGS GTAGS TAGS all all-am check \ + check-am clean clean-binPROGRAMS clean-generic cscopelist-am \ + ctags ctags-am distclean distclean-compile distclean-generic \ + distclean-tags distdir dvi dvi-am html html-am info info-am \ + install install-am install-binPROGRAMS install-data \ + install-data-am install-dvi install-dvi-am install-exec \ + install-exec-am install-html install-html-am install-info \ + install-info-am install-man install-pdf install-pdf-am \ + install-ps install-ps-am install-strip installcheck \ + installcheck-am installdirs installdirs-am maintainer-clean \ + maintainer-clean-generic mostlyclean mostlyclean-compile \ + mostlyclean-generic pdf pdf-am ps ps-am tags tags-am uninstall \ + uninstall-am uninstall-binPROGRAMS + +.PRECIOUS: Makefile + + +# Tell versions [3.59,3.63) of GNU make to not export all variables. +# Otherwise a system limit (for SysV at least) may be exceeded. +.NOEXPORT: diff --git a/synthe/airtovac.for b/synthe/airtovac.for new file mode 100644 index 0000000..67f78a2 --- /dev/null +++ b/synthe/airtovac.for @@ -0,0 +1,30 @@ + FUNCTION AIRTOVAC(W) + IMPLICIT REAL*8 (A-H,O-Z) +C W IS AIR WAVELENGTH IN NM +C WAVEN IS AIR WAVENUMBER WHICH IS USUALLY GOOD ENOUGH +c +c Edlen, B. 1966. Metrologia 2, 71. +c quoted by +c Peck, E.R. and Reeder, K. 1972. JOSA 62, 958-962. +c +C MUST ITERATE FOR EXACT SOLUTION + WAVEN=1.D7/W + WNEW=W*(1.0000834213D0+ + 1 2406030.D0/(1.30D10-WAVEN**2.)+15997.D0/(3.89D9-WAVEN**2.)) +C 1(1.000064328+2949810./(1.46E10-WAVEN**2)+25540./(4.1E9-WAVEN**2)) + WAVEN=1.D7/WNEW + WNEW=W*(1.0000834213D0+ + 1 2406030.D0/(1.30D10-WAVEN**2.)+15997.D0/(3.89D9-WAVEN**2.)) + WAVEN=1.D7/WNEW + AIRTOVAC=W*(1.0000834213D0+ + 1 2406030.D0/(1.30D10-WAVEN**2.)+15997.D0/(3.89D9-WAVEN**2.)) + RETURN + END + FUNCTION VACTOAIR(W) + IMPLICIT REAL*8 (A-H,O-Z) +C W IS VACUUM WAVELENGTH IN NM + WAVEN=1.D7/W + VACTOAIR=W/(1.0000834213D0+ + 1 2406030.D0/(1.30D10-WAVEN**2)+15997.D0/(3.89D9-WAVEN**2)) + RETURN + END diff --git a/synthe/ap04t4970g46k1at12.mod b/synthe/ap04t4970g46k1at12.mod new file mode 100644 index 0000000..a0b489b --- /dev/null +++ b/synthe/ap04t4970g46k1at12.mod @@ -0,0 +1,104 @@ +SURFACE INTENSI 17 1.,.9,.8,.7,.6,.5,.4,.3,.25,.2,.15,.125,.1,.075,.05,.025,.01 +ITERATIONS 1 PRINT 2 PUNCH 2 +CORRECTION OFF +PRESSURE OFF +MOLECULES ON +READ MOLECULES +TEFF 4970. GRAVITY 4.60000 LTE +TITLE ATLAS12 + OPACITY IFOP 1 1 1 1 1 1 1 1 1 1 1 1 1 0 1 0 1 0 0 0 + CONVECTION ON 1.25 TURBULENCE OFF 0.00 0.00 0.00 0.00 +ABUNDANCE SCALE 1.00000 ABUNDANCE CHANGE 1 0.91870 2 0.07819 + ABUNDANCE CHANGE 3 -11.54 4 -10.24 5 -9.09 6 -3.02 7 -3.62 8 -2.76 + ABUNDANCE CHANGE 9 -7.08 10 -3.56 11 -5.11 12 -4.01 13 -4.97 14 -4.09 + ABUNDANCE CHANGE 15 -6.19 16 -4.31 17 -6.14 18 -5.24 19 -6.52 20 -5.28 + ABUNDANCE CHANGE 21 -8.57 22 -6.62 23 -7.44 24 -5.97 25 -6.15 26 -4.14 + ABUNDANCE CHANGE 27 -6.72 28 -5.39 29 -7.23 30 -7.14 31 -8.76 32 -8.23 + ABUNDANCE CHANGE 33 -9.27 34 -8.23 35 -9.01 36 -8.33 37 -9.04 38 -8.67 + ABUNDANCE CHANGE 39 -9.80 40 -9.04 41 -10.22 42 -9.72 43 -19.60 44 -9.80 + ABUNDANCE CHANGE 45 -10.52 46 -9.95 47 -10.70 48 -9.87 49 -9.98 50 -9.64 + ABUNDANCE CHANGE 51 -10.64 52 -9.40 53 -10.13 54 -9.47 55 -10.51 56 -9.71 + ABUNDANCE CHANGE 57 -10.47 58 -10.06 59 -10.93 60 -10.14 61 -19.60 62 -10.63 + ABUNDANCE CHANGE 63 -11.13 64 -10.52 65 -11.29 66 -10.50 67 -11.38 68 -10.71 + ABUNDANCE CHANGE 69 -11.64 70 -10.56 71 -11.58 72 -10.76 73 -11.77 74 -10.53 + ABUNDANCE CHANGE 75 -11.36 76 -10.19 77 -10.29 78 -9.84 79 -10.63 80 -10.51 + ABUNDANCE CHANGE 81 -10.74 82 -9.69 83 -10.93 84 -19.60 85 -19.60 86 -19.60 + ABUNDANCE CHANGE 87 -19.60 88 -19.60 89 -19.60 90 -11.55 91 -19.60 92 -12.14 + ABUNDANCE CHANGE 93 -19.60 94 -19.60 95 -19.60 96 -19.60 97 -19.60 98 -19.60 + ABUNDANCE CHANGE 99 -19.60 + ABUNDANCE CHANGE 27 -10.72 +READ DECK6 72 RHOX,T,P,XNE,ABROSS,ACCRAD,VTURB + 6.83773557E-04 3038.7 2.724E+01 2.449E+09 1.948E-04 8.367E-02 1.000E+05 0.000E+00 0.000E+00 + 8.87359824E-04 3080.4 3.534E+01 3.292E+09 2.417E-04 8.331E-02 1.000E+05 0.000E+00 0.000E+00 + 1.11184242E-03 3108.1 4.428E+01 4.149E+09 2.867E-04 8.230E-02 1.000E+05 0.000E+00 0.000E+00 + 1.36459020E-03 3136.7 5.434E+01 5.162E+09 3.393E-04 8.150E-02 1.000E+05 0.000E+00 0.000E+00 + 1.65004198E-03 3164.7 6.570E+01 6.340E+09 3.999E-04 8.035E-02 1.000E+05 0.000E+00 0.000E+00 + 1.97362944E-03 3192.4 7.859E+01 7.714E+09 4.696E-04 7.911E-02 1.000E+05 0.000E+00 0.000E+00 + 2.34158303E-03 3219.7 9.323E+01 9.315E+09 5.500E-04 7.782E-02 1.000E+05 0.000E+00 0.000E+00 + 2.76094999E-03 3246.7 1.099E+02 1.118E+10 6.429E-04 7.649E-02 1.000E+05 0.000E+00 0.000E+00 + 3.23988398E-03 3273.5 1.290E+02 1.336E+10 7.500E-04 7.519E-02 1.000E+05 0.000E+00 0.000E+00 + 3.78783769E-03 3300.1 1.508E+02 1.591E+10 8.735E-04 7.395E-02 1.000E+05 0.000E+00 0.000E+00 + 4.41559098E-03 3326.4 1.758E+02 1.887E+10 1.016E-03 7.271E-02 1.000E+05 0.000E+00 0.000E+00 + 5.13571703E-03 3352.5 2.045E+02 2.231E+10 1.181E-03 7.163E-02 1.000E+05 0.000E+00 0.000E+00 + 5.96269160E-03 3378.5 2.374E+02 2.633E+10 1.370E-03 7.059E-02 1.000E+05 0.000E+00 0.000E+00 + 6.91350945E-03 3404.2 2.752E+02 3.099E+10 1.588E-03 6.974E-02 1.000E+05 0.000E+00 0.000E+00 + 8.00768334E-03 3429.9 3.188E+02 3.642E+10 1.840E-03 6.904E-02 1.000E+05 0.000E+00 0.000E+00 + 9.26792989E-03 3455.3 3.690E+02 4.272E+10 2.129E-03 6.843E-02 1.000E+05 0.000E+00 0.000E+00 + 1.07206619E-02 3480.7 4.268E+02 5.005E+10 2.462E-03 6.807E-02 1.000E+05 0.000E+00 0.000E+00 + 1.23960355E-02 3506.2 4.935E+02 5.858E+10 2.847E-03 6.783E-02 1.000E+05 0.000E+00 0.000E+00 + 1.43290370E-02 3531.7 5.705E+02 6.849E+10 3.290E-03 6.779E-02 1.000E+05 0.000E+00 0.000E+00 + 1.65601417E-02 3557.3 6.593E+02 8.003E+10 3.800E-03 6.790E-02 1.000E+05 0.000E+00 0.000E+00 + 1.91360122E-02 3583.0 7.618E+02 9.347E+10 4.389E-03 6.820E-02 1.000E+05 0.000E+00 0.000E+00 + 2.21103721E-02 3609.0 8.802E+02 1.091E+11 5.068E-03 6.861E-02 1.000E+05 0.000E+00 0.000E+00 + 2.55457928E-02 3635.1 1.017E+03 1.273E+11 5.850E-03 6.919E-02 1.000E+05 0.000E+00 0.000E+00 + 2.95148442E-02 3661.5 1.175E+03 1.485E+11 6.752E-03 6.992E-02 1.000E+05 0.000E+00 0.000E+00 + 3.41026093E-02 3687.9 1.358E+03 1.731E+11 7.787E-03 7.081E-02 1.000E+05 0.000E+00 0.000E+00 + 3.94076331E-02 3714.4 1.569E+03 2.017E+11 8.978E-03 7.189E-02 1.000E+05 0.000E+00 0.000E+00 + 4.55458330E-02 3740.9 1.813E+03 2.349E+11 1.034E-02 7.320E-02 1.000E+05 0.000E+00 0.000E+00 + 5.26538720E-02 3767.4 2.096E+03 2.733E+11 1.191E-02 7.476E-02 1.000E+05 0.000E+00 0.000E+00 + 6.08905257E-02 3793.7 2.424E+03 3.177E+11 1.370E-02 7.663E-02 1.000E+05 0.000E+00 0.000E+00 + 7.04426881E-02 3820.1 2.804E+03 3.692E+11 1.575E-02 7.884E-02 1.000E+05 0.000E+00 0.000E+00 + 8.15276356E-02 3846.4 3.246E+03 4.288E+11 1.809E-02 8.144E-02 1.000E+05 0.000E+00 0.000E+00 + 9.44013407E-02 3872.5 3.758E+03 4.977E+11 2.076E-02 8.448E-02 1.000E+05 0.000E+00 0.000E+00 + 1.09360637E-01 3898.8 4.354E+03 5.775E+11 2.382E-02 8.799E-02 1.000E+05 0.000E+00 0.000E+00 + 1.26753983E-01 3924.9 5.046E+03 6.698E+11 2.731E-02 9.206E-02 1.000E+05 0.000E+00 0.000E+00 + 1.46986232E-01 3951.1 5.852E+03 7.766E+11 3.131E-02 9.671E-02 1.000E+05 0.000E+00 0.000E+00 + 1.70531556E-01 3977.2 6.789E+03 9.001E+11 3.586E-02 1.021E-01 1.000E+05 0.000E+00 0.000E+00 + 1.97941927E-01 4003.5 7.880E+03 1.043E+12 4.108E-02 1.082E-01 1.000E+05 0.000E+00 0.000E+00 + 2.29860370E-01 4030.0 9.151E+03 1.209E+12 4.703E-02 1.153E-01 1.000E+05 0.000E+00 0.000E+00 + 2.67028382E-01 4056.8 1.063E+04 1.402E+12 5.387E-02 1.235E-01 1.000E+05 0.000E+00 0.000E+00 + 3.10299950E-01 4084.2 1.235E+04 1.625E+12 6.172E-02 1.331E-01 1.000E+05 0.000E+00 0.000E+00 + 3.60640285E-01 4112.7 1.436E+04 1.888E+12 7.078E-02 1.442E-01 1.000E+05 0.000E+00 0.000E+00 + 4.19127414E-01 4142.6 1.669E+04 2.196E+12 8.130E-02 1.573E-01 1.000E+05 0.000E+00 0.000E+00 + 4.86955019E-01 4174.8 1.939E+04 2.563E+12 9.360E-02 1.727E-01 1.000E+05 0.000E+00 0.000E+00 + 5.65389893E-01 4210.0 2.251E+04 3.002E+12 1.081E-01 1.907E-01 1.000E+05 0.000E+00 0.000E+00 + 6.55763978E-01 4249.3 2.611E+04 3.533E+12 1.254E-01 2.122E-01 1.000E+05 0.000E+00 0.000E+00 + 7.59388331E-01 4294.2 3.023E+04 4.186E+12 1.462E-01 2.377E-01 1.000E+05 0.000E+00 0.000E+00 + 8.77532849E-01 4345.6 3.494E+04 4.994E+12 1.714E-01 2.676E-01 1.000E+05 0.000E+00 0.000E+00 + 1.01192240E+00 4400.6 4.029E+04 5.969E+12 2.010E-01 3.032E-01 1.000E+05 0.000E+00 0.000E+00 + 1.16367207E+00 4472.2 4.633E+04 7.270E+12 2.392E-01 3.483E-01 1.000E+05 0.000E+00 0.000E+00 + 1.33326044E+00 4556.3 5.308E+04 8.937E+12 2.859E-01 4.009E-01 1.000E+05 0.000E+00 0.000E+00 + 1.52243309E+00 4651.9 6.061E+04 1.104E+13 3.416E-01 4.614E-01 1.000E+05 0.000E+00 0.000E+00 + 1.73381042E+00 4761.3 6.903E+04 1.369E+13 4.071E-01 5.313E-01 1.000E+05 0.000E+00 0.000E+00 + 1.97084717E+00 4889.6 7.846E+04 1.706E+13 4.829E-01 6.107E-01 1.000E+05 0.000E+00 0.000E+00 + 2.23873310E+00 5039.4 8.912E+04 2.130E+13 5.669E-01 6.964E-01 1.000E+05 0.000E+00 0.000E+00 + 2.54534410E+00 5211.6 1.013E+05 2.654E+13 6.551E-01 7.844E-01 1.000E+05 0.000E+00 0.000E+00 + 2.90212321E+00 5408.8 1.155E+05 3.304E+13 7.460E-01 8.774E-01 1.000E+05 0.000E+00 0.000E+00 + 3.32077915E+00 5641.2 1.322E+05 4.169E+13 8.473E-01 9.838E-01 1.000E+05 0.000E+00 0.000E+00 + 3.80582727E+00 5906.1 1.515E+05 5.485E+13 9.951E-01 1.147E+00 1.000E+05 1.138E+05 0.000E+00 + 4.33301517E+00 6213.9 1.725E+05 7.971E+13 1.288E+00 1.478E+00 1.000E+05 1.052E+07 1.165E+04 + 4.83965388E+00 6568.5 1.927E+05 1.320E+14 1.916E+00 2.139E+00 1.000E+05 9.194E+07 5.102E+04 + 5.26712369E+00 6945.0 2.097E+05 2.333E+14 3.167E+00 3.180E+00 1.000E+05 3.470E+08 9.504E+04 + 5.61199851E+00 7296.0 2.234E+05 3.938E+14 5.174E+00 4.192E+00 1.000E+05 8.084E+08 1.298E+05 + 5.90087985E+00 7604.8 2.349E+05 6.118E+14 7.980E+00 4.710E+00 1.000E+05 1.334E+09 1.541E+05 + 6.16135619E+00 7859.9 2.453E+05 8.663E+14 1.137E+01 4.715E+00 1.000E+05 1.756E+09 1.629E+05 + 6.41084034E+00 8086.6 2.552E+05 1.165E+15 1.549E+01 4.607E+00 1.000E+05 2.046E+09 1.683E+05 + 6.66046711E+00 8287.0 2.651E+05 1.500E+15 2.025E+01 4.396E+00 1.000E+05 2.231E+09 1.678E+05 + 6.91825048E+00 8473.8 2.754E+05 1.884E+15 2.587E+01 4.251E+00 1.000E+05 2.363E+09 1.675E+05 + 7.18997377E+00 8651.4 2.862E+05 2.326E+15 3.250E+01 4.078E+00 1.000E+05 2.455E+09 1.658E+05 + 7.47669155E+00 8822.2 2.976E+05 2.830E+15 4.107E+01 3.907E+00 1.000E+05 2.522E+09 1.624E+05 + 7.78491056E+00 8983.9 3.099E+05 3.394E+15 5.019E+01 3.749E+00 1.000E+05 2.582E+09 1.615E+05 + 8.12082858E+00 9152.4 3.233E+05 4.077E+15 6.148E+01 3.569E+00 1.000E+05 2.607E+09 1.566E+05 + 8.49072737E+00 9306.7 3.380E+05 4.812E+15 7.375E+01 3.601E+00 1.000E+05 2.646E+09 1.543E+05 +PRADK 8.1455E-01 +BEGIN ITERATION 15 COMPLETED diff --git a/synthe/ascibinxyatonm.for b/synthe/ascibinxyatonm.for new file mode 100644 index 0000000..6ed4d01 --- /dev/null +++ b/synthe/ascibinxyatonm.for @@ -0,0 +1,61 @@ + PROGRAM ASCIBIN + DIMENSION X(2000000),Y(2000000) + CHARACTER*80 NOME,NOMEFUORI +c WRITE(5,10) + type 10 +10 FORMAT(2X,'ASCII INPUT FILE NAME ?',/,2X,'#--> ',$) + accept 11, NOME +c WRITE(5,12) + type 12 +12 FORMAT(2X,'BINARY OUTPUT FILE NAME ?',/,2X,'#-->',$) + accept 11, NOMEFUORI + CALL READASCII(X,Y,N,NOME) + CALL SAVEBIN(X,Y,1,N,NOMEFUORI) + STOP' DONE !' +11 FORMAT(80A) + END + SUBROUTINE READASCII(X,Y,N,NAME) + CHARACTER*80 NAME + DIMENSION X(1),Y(1) + NMAX=2000000 + OPEN(UNIT=1,FILE=NAME,STATUS='OLD',READONLY,ERR=20) +c READ(1,*)NPTI +C TYPE*,NPTI + DO I=1,NMAX + READ(1,*,END=10,ERR=30) X(I),Y(I) +c TYPE*,I,X(I),Y(I) + ENDDO +10 N=I-1 + READ(1,*,END=15,ERR=30) W,F + WRITE(5,40)NMAX,NMAX + READ(5,50)J + IF(J.EQ.1HC.OR.J.EQ.1Hc)GOTO 15 + STOP'READASCII..==> TOO MANY POINTS STOP' +15 CLOSE(1) + RETURN +20 STOP' READASCII..==> ERROR OPENING YOUR FILE' +30 STOP' READASCII..==> ERROR READING YOUR FILE' +40 FORMAT(1X,'READASCII..==> WARNING !!!',/,16X,'YOUR FILE + 1 CONTAINS MORE THAN ',I5,' POINTS.',/,16X'ONLY THE FIRST + 2 ',I5,' POINTS HAVE BEEN READ.',/,16X,'CONTINUE OR QUIT ? + 3 (C/Q)',/,1X,'READASCII..==> ',$) +50 FORMAT(A) + END + SUBROUTINE SAVEBIN(W,YCONV,NPT0,NPT1,NOME) + CHARACTER*80 NOME + REAL*8 WBIN(2000000) + DIMENSION W(1),YCONV(1) +C CONVERTS THE ASCII DATA FROM NORMA IN +C BINARY FORM TO BE READ FROM SYNTHE + OPEN(UNIT=22,FILE=NOME,FORM='UNFORMATTED',STATUS='NEW') + DO 500 I=NPT0,NPT1 +C WAVELENGTHS ARE EXPRESSED NOW IN NANOMETERS TO CONFORM TO +C THE USE OF SYNTHE + WBIN(I)=0.1*W(I) +c wbin(i)=w(i) + WRITE(22) WBIN(I),YCONV(I) +c TYPE*,I,WBIN(I),YCONV(I) +500 CONTINUE + CLOSE(22) + RETURN + END diff --git a/synthe/atlas7v.for b/synthe/atlas7v.for new file mode 100644 index 0000000..486ff9b --- /dev/null +++ b/synthe/atlas7v.for @@ -0,0 +1,17086 @@ + subroutine ATLAS7V +C PROGRAM ATLAS7V +c 04nov14 constants given D exponents and new IONPOTS +c 27jul08 cutoff at low temperatures is obsolete PFSAHA statement 20 +c 22jun05 error found by Bischof in 43.02 PF +C revised 31jul04 + IMPLICIT REAL*8 (A-H,O-Z) + PARAMETER (kw=99) + COMMON /ABROSS/ABROSS(kw),TAUROS(kw) + COMMON /ABTOT/ABTOT(kw),ALPHA(kw) + COMMON /BAL/BAL1(kw,9),AAL1(kw),SAL1(kw),XNFPAL(kw,2),BAL2(kw,1) + COMMON /BB/BB1(kw,7),XNFPB(kw,1) + COMMON /BC/BC1(kw,14),AC1(kw),SC1(kw),XNFPC(kw,2),BC2(kw,6) + COMMON /BCA/BCA1(kw,8),BCA2(kw,5),XNFPCA(kw,2) + COMMON /BFE/BFE1(kw,15),AFE1(kw),SFE1(kw),XNFPFE(kw,1) + COMMON /BHE/BHE1(kw,29),AHE1(kw),SHE1(kw),BHE2(kw,6),AHE2(kw), + 1 SHE2(kw),AHEMIN(kw),SIGHE(kw),XNFPHE(kw,3),XNFHE(kw,2) + COMMON /BHYD/BHYD(kw,8),AHYD(kw),SHYD(kw),AH2P(kw),BMIN(kw), + 1 AHMIN(kw),SHMIN(kw),SIGH(kw),SIGH2(kw),AHLINE(kw), + 2 SHLINE(kw),XNFPH(kw,2),XNFH(kw) + COMMON /BK/BK1(kw,8),XNFPK(kw,1) + COMMON /BMG/BMG1(kw,11),AMG1(kw),SMG1(kw),XNFPMG(kw,2),BMG2(kw,6) + COMMON /BNA/BNA1(kw,8),XNFPNA(kw,1) + COMMON /BO/BO1(kw,13),XNFPO(kw,1),BO2(kw,4) + COMMON /BSI/BSI1(kw,11),ASI1(kw),SSI1(kw),XNFPSI(kw,2),BSI2(kw,10) + COMMON /CHOH/XNFPCH(kw),XNFPOH(kw),ACH(kw),AOH(kw) + COMMON /CONT/ABTOTC(kw),ALPHAC(kw),TAUNUC(kw),SNUC(kw),HNUC(kw), + 1 JNUC(kw),JMINSC(kw),RESIDC(kw) + REAL*8 JNUC,JMINSC + COMMON /CONV/DLTDLP(kw),HEATCP(kw),DLRDLT(kw),VELSND(kw), + 1 GRDADB(kw),HSCALE(kw),FLXCNV(kw),VCONV(kw),MIXLTH, + 2 IFCONV + REAL*8 MIXLTH + COMMON /ELEM/ABUND(99),ATMASS(99),ELEM(99),XABUND(99),WTMOLE + COMMON /FLUX/FLUX,FLXERR(kw),FLXDRV(kw),FLXRAD(kw) + COMMON /FREQ/FREQ,FREQLG,EHVKT(kw),STIM(kw),BNU(kw),WAVENO + COMMON /FRESET/FRESET(500),RCOSET(500),NULO,NUHI,NUMNU,IFWAVE, + 1 WBEGIN,DELTAW + COMMON /HEIGHT/HEIGHT(kw) + COMMON /IF/IFCORR,IFPRES,IFSURF,IFSCAT,IFMOL,NLTEON,IFOP(20) + COMMON /ITER/ITER,IFPRNT(15),IFPNCH(15),NUMITS + COMMON /JUNK/TITLE(74),FREQID(6),WLTE,XSCALE + COMMON /MUS/ANGLE(20),SURFI(20),NMU + COMMON /OPS/ACOOL(kw),ALUKE(kw),AHOT(kw),SIGEL(kw),ALINES(kw), + 1 SIGLIN(kw),AXLINE(kw),SIGXL(kw),AXCONT(kw),SIGX(kw), + 2 SXLINE(kw),SXCONT(kw) + COMMON /OPTOT/ACONT(kw),SCONT(kw),ALINE(kw),SLINE(kw),SIGMAC(kw), + 1 SIGMAL(kw) + COMMON /PUT/PUT,IPUT + COMMON /PZERO/PZERO,PCON,PRADK0,PTURB0,KNU(kw),PRADK(kw),EDENS(kw) + REAL*8 KNU + COMMON /RAD/ACCRAD(kw),PRAD(kw) + COMMON /RHOX/RHOX(kw),NRHOX + COMMON /STATE/P(kw),XNE(kw),XNATOM(kw),RHO(kw),PTOTAL(kw) + COMMON /TAUSHJ/TAUNU(kw),SNU(kw),HNU(kw),JNU(kw),JMINS(kw) + REAL*8 JNU,JMINS + COMMON /TEFF/TEFF,GRAV,GLOG + COMMON /TEMP/T(kw),TKEV(kw),TK(kw),HKT(kw),TLOG(kw),HCKT(kw),ITEMP + COMMON /TURBPR/VTURB(kw),PTURB(kw),TRBFDG,TRBCON,TRBPOW,TRBSND, + 1 IFTURB +C K=1.38054D-16 +C H=6.6256D-27 +C C=2.99792458D10 +C E=1.60210D-19 +C ATMASS=1.660D-24 +C +C +C INPUT SECTION +C PREFIX P PRESSURE +C PREFIX T TEMPERATURE +C PREFIX X ABUNDANCE FRACTION +C PREFIX F IONIZATION FRACTION +C PREFIX R FREQUENCY INTEGRAL OR INTEGRATION COEFFICIENT +C PREFIX A OR AB MASS ABSORPTION COEFFICIENT +C PREFIX XNFP NUMBER DENSITY OVER PARTITION FUNCTION +C ALPHA IS THE FRACTION OF OPACITY CAUSED BY SCATTERING +C NLTEON=0 LTE +C NLTEON=1 NLTE +C BHYD STATISTICAL EQUILIBRIUM FACTOR FOR HYDROGEN +C BMIN STATISTICAL EQUILIBRIUM FACTOR FOR HMINUS +C ABUND CONTAINS THE NORMALLY ASSUMED ABUNDANCES +C ELEM CONTAINS THE LETTER CODES FOR ELEMENTS +C RCOSET HAS INTEGRATION COEFFICIENTS FOR THE FREQUENCIES IN FRESET +C NUMNU NUMBER OF FREQUENCIES IN THE FREQUENCY SET +C NULO NUMBER OF THE FREQUENCY AT WHICH INTEGRATION STARTS +C NUHI NUMBER OF THE FREQUENCY AT WHICH INTEGRATION STOPS +C IFCORR TEMPERATURE CORRECTION ON OR OFF +C IFPRES PRESSURE INTEGRATION ON OR OFF +C IFSURF=0 CALCULATE FLUX FOR EVERY DEPTH +C IFSURF=1 CALCULATE FLUX AT SURFACE ONLY +C IFSURF=2 CALCULATE INTENSITY AT SURFACE +C IFSCAT=0 NO SCATTERING IN SOURCE FUNCTION SNU=BNU +C IFSCAT=1 SCATTERING IN SOURCE FUNCTION SOLVE MATRIX EQUATION +C IFMOL=1 SET UP EQUILIBRIUM EQUATIONS FOR NUMBER DENSITIES +C IFMOL=0 ASSUME NO MOLECULES AND ITERATE FOR NUMBER DENSITIES +C NUMITS NUMBER OF ITERATIONS +C FREQID IS A LABEL FOR THE FREQUENCY SET +C XSCALE IS A SCALING FACTOR FOR METAL ABUNDANCES +C IFPRNT(I)=0 DO NOT PRINT ANYTHING FOR ITERATION I +C IFPRNT(I)=1 PRINT MINIMAL SUMMARY TABLE AT END OF ITERATION +C IFPRNT(I)=2 PRINT ALL FREQUENCY INDEPENDENT DATA +C IFPRNT(I)=3 PRINT SNU,TAUNU,JNU,ETC. +C IFPRNT(I)=4 PRINT OPACITIES +C IFPNCH(I)=0 DO NOT PUNCH FOR ITERATION I +C IFPNCH(I)=1 PUNCH STRUCTURE +C IFPNCH(I)=2 PUNCH STRUCTURE AND SURFACE FLUX OR INTENSITY +C IFPNCH(I)=5 PUNCH 2 AND MOLECULAR NUMBER DENSITIES/PART FNS +C FOR IFSURF=2 HAVE NMU ANGLES +C IFWAVE=1 STEP NUMNU WAVELENGTHS STARTING AT WBEGIN BY WSTEP +C XABUND ARE THE ABUNDANCES USED IN THE MODEL + ITEMP=0 + 1 CALL READIN(1) +C +C ITERATION SECTION + DO 100 ITERAT=1,NUMITS + ITER=ITERAT +C CHANGING ITEMP TELLS THE SUBROUTINES THEY HAVE A NEW TEMPERATURE + ITEMP=ITEMP+ITER +C + IF(IFPRES.EQ.0)GO TO 12 +C INTEGRATE EQUATION OF HYDROSTATIC EQUILIBRIUM + PZERO=PCON+PRADK0+PTURB0 + DO 11 J=1,NRHOX +C PTOTAL(J)=GRAV*RHOX(J) + PTOTAL(J)=GRAV*RHOX(J)+PZERO + P(J)=GRAV*RHOX(J)-PRAD(J)-PTURB(J)-PCON + IF(P(J).GT.0.)GO TO 11 + CALL W(6HJ ,DBLE(J),1) + CALL W(6HP ,P,J) + CALL W(6HPZERO ,PZERO,1) + CALL W(6HACCRAD,ACCRAD,NRHOX) + CALL W(6HPRAD ,PRAD,NRHOX) + CALL EXIT + 11 CONTINUE +C 11 P(J)=PTOTAL(J)-PRAD(J)-PTURB(J) + CALL POPS(0.,1,XNE) + 12 CONTINUE + CALL POPS(1.00D0,12,XNFH) + CALL POPS(2.01D0,12,XNFHE) + CALL POPS(1.01D0,11,XNFPH) + CALL POPS(2.02D0,11,XNFPHE) + CALL POPS(5.00D0,11,XNFPB) + CALL POPS(6.01D0,11,XNFPC) + CALL POPS(8.00D0,11,XNFPO) + CALL POPS(11.00D0,11,XNFPNA) + CALL POPS(12.01D0,11,XNFPMG) + CALL POPS(13.01D0,11,XNFPAL) + CALL POPS(14.01D0,11,XNFPSI) + CALL POPS(20.01D0,11,XNFPCA) + CALL POPS(26.00D0,11,XNFPFE) + IF(IFMOL.EQ.1)CALL POPS(106.00D0,11,XNFPCH) + IF(IFMOL.EQ.1)CALL POPS(108.00D0,11,XNFPOH) +C CALL W(6HXNFPH ,XNFPH ,80) +C CALL W(6HXNFPHE,XNFPHE,120) +C CALL W(6HXNFPC ,XNFPC ,80) +C CALL W(6HXNFPMG,XNFPMG,80) +C CALL W(6HXNFPAL,XNFPAL,80) +C CALL W(6HXNFPSI,XNFPSI,80) + CALL PUTOUT(1) +C +C ERASE FREQUENCY INTEGRALS + IF(IFCORR.EQ.1)CALL TCORR(1,0) + CALL ROSS(1,0) + CALL RADIAP(1,0) + IF(NLTEON.EQ.1)CALL STATEQ(1,0) +C +C FREQUENCY INTEGRATION SECTION + DO 25 NU=NULO,NUHI + IF(IFWAVE.EQ.0)GO TO 21 + IF(WBEGIN.GT.1.E10)GO TO 210 + WAVE=WBEGIN+DBLE(NU-NULO)*DELTAW + FREQ=2.99792458D17/WAVE + RCO=ABS(DELTAW/WAVE*FREQ) + GO TO 22 +C EQUALLY SPACED FREQUENCIES + 210 FREQ=WBEGIN+DBLE(NU-NULO)*DELTAW + RCO=DELTAW + GO TO 22 + 21 FREQ=FRESET(NU) + RCO=RCOSET(NU) + 22 FREQLG= LOG(FREQ) + WAVENO=FREQ/2.99792458D10 + FREQ15=FREQ/1.D15 + DO 20 J=1,NRHOX + EHVKT(J)=EXP(-FREQ*HKT(J)) + STIM(J)=1.-EHVKT(J) +C 20 BNU(J)=1.47439D-47*FREQ**3*EHVKT(J)/STIM(J) +C FOR UNDERFLOW ON UNIVAC + 20 BNU(J)=1.47439D-2*FREQ15**3*EHVKT(J)/STIM(J) + IF(IFOP(15).EQ.1)GO TO 60 + IF(IFOP(16).EQ.1)GO TO 60 + CALL PUTOUT(2) + N=1 + CALL KAPP(N,NSTEPS,STEPWT) + CALL JOSH(IFSCAT,IFSURF) + RCOWT=RCO*STEPWT + IF(IFSURF.GT.0)GO TO 53 + IF(IFCORR.EQ.1)CALL TCORR(2,RCOWT) + CALL RADIAP(2,RCOWT) + CALL ROSS(2,RCOWT) + IF(NLTEON.EQ.1)CALL STATEQ(2,RCOWT) +C THIS PASSES VALUE OF STEPWT TO PUTOUT + 53 PUT=STEPWT + IPUT=NSTEPS + CALL PUTOUT(3) + CALL PUTOUT(4) + GO TO 25 +C + 60 N=0 + CALL KAPP(N,NSTEPS,STEPWT) + CALL JOSH(IFSCAT,IFSURF) + IF(IFSURF.EQ.2)HNU(1)=SURFI(1) + IF(IFSURF.EQ.2)CONTIN=SURFI(1) + IF(IFSURF.LT.2)CONTIN=HNU(1) + PUT=CONTIN + CALL PUTOUT(2) + IF(IFSURF.GT.0)GO TO 700 + DO 70 J=1,NRHOX + ABTOTC(J)=ABTOT(J) + ALPHAC(J)=ALPHA(J) + TAUNUC(J)=TAUNU(J) + SNUC(J)=SNU(J) + HNUC(J)=HNU(J) + JNUC(J)=JNU(J) + JMINSC(J)=JMINS(J) + 70 RESIDC(J)=0. + 700 SUMWT=0. + RESIDC(1)=0. +C + N=1 + GO TO 72 +C + 24 N=N+1 + IF(RESIDC(1).GT..9995)GO TO 79 + IF(RESIDC(1).GT..998.AND.IFSURF.GT.0)GO TO 79 + IF(IFSURF.GT.0)GO TO 72 + DO 71 J=1,NRHOX + IF(RESIDC(J).LT..998 )GO TO 72 +C IF(RESIDC(J).LT..999 )GO TO 72 + 71 CONTINUE + 79 STEPWT=1.-SUMWT + N=N+1 + IF(STEPWT.LT..0001)STEPWT=0. + N=NSTEPS+1 + RESIDC(1)=1. + IF(IFSURF.EQ.1)HNU(1)=CONTIN + IF(IFSURF.EQ.2)SURFI(1)=CONTIN + IF(IFSURF.GT.0)GO TO 770 + DO 75 J=1,NRHOX + ABTOT(J)=ABTOTC(J) + ALPHA(J)=ALPHAC(J) + TAUNU(J)=TAUNUC(J) + SNU(J)=SNUC(J) + HNU(J)=HNUC(J) + JNU(J)=JNUC(J) + 75 JMINS(J)=JMINSC(J) + GO TO 76 + 72 CALL LINOP(N,NSTEPS,STEPWT) + DO 73 J=1,NRHOX + 73 ALINE(J)=ALINES(J) + CALL JOSH(IFSCAT,IFSURF) + IF(IFSURF.EQ.2)HNU(1)=SURFI(1) + IF(IFSURF.EQ.1)RESIDC(1)=HNU(1)/CONTIN + IF(IFSURF.EQ.2)RESIDC(1)=SURFI(1)/CONTIN + IF(IFSURF.GT.0)GO TO 770 + 76 DO 77 J=1,NRHOX + 77 RESIDC(J)=HNU(J)/HNUC(J) + 770 SUMWT=SUMWT+STEPWT + 78 RCOWT=RCO*STEPWT +C + IF(STEPWT.EQ.0.)GO TO 23 + IF(IFSURF.GT.0)GO TO 23 + IF(IFCORR.EQ.1)CALL TCORR(2,RCOWT) + CALL RADIAP(2,RCOWT) + CALL ROSS(2,RCOWT) + IF(NLTEON.EQ.1)CALL STATEQ(2,RCOWT) +C THIS PASSES VALUE OF STEPWT TO PUTOUT + 23 PUT=STEPWT + IPUT=NSTEPS + CALL PUTOUT(3) + IF(N.LT.NSTEPS)GO TO 24 + IF(N.EQ.NSTEPS)GO TO 79 + CALL PUTOUT(4) + 25 CONTINUE + IF(IFSURF.GT.0)GO TO 1 +C +C FINISH ITERATION + CALL ROSS(3,0) + IF(IFPRES.EQ.1)CALL CONVEC + CALL RADIAP(3,0) + IF(IFCORR.EQ.1)CALL TCORR(3,0) + IF(NLTEON.EQ.1)CALL STATEQ(3,0) + CALL HIGH + IF(IFTURB.EQ.1)CALL TURB + CALL PUTOUT(5) +C + 100 CONTINUE + GO TO 1 + END + SUBROUTINE PUTOUT(MODE) + IMPLICIT REAL*8 (A-H,O-Z) + PARAMETER (kw=99) + COMMON /ABROSS/ABROSS(kw),TAUROS(kw) + COMMON /ABTOT/ABTOT(kw),ALPHA(kw) + COMMON /BAL/BAL1(kw,9),AAL1(kw),SAL1(kw),XNFPAL(kw,2),BAL2(kw,1) + COMMON /BB/BB1(kw,7),XNFPB(kw,1) + COMMON /BC/BC1(kw,14),AC1(kw),SC1(kw),XNFPC(kw,2),BC2(kw,6) + COMMON /BCA/BCA1(kw,8),BCA2(kw,5),XNFPCA(kw,2) + COMMON /BFE/BFE1(kw,15),AFE1(kw),SFE1(kw),XNFPFE(kw,1) + COMMON /BHE/BHE1(kw,29),AHE1(kw),SHE1(kw),BHE2(kw,6),AHE2(kw), + 1 SHE2(kw),AHEMIN(kw),SIGHE(kw),XNFPHE(kw,3),XNFHE(kw,2) + COMMON /BHYD/BHYD(kw,8),AHYD(kw),SHYD(kw),AH2P(kw),BMIN(kw), + 1 AHMIN(kw),SHMIN(kw),SIGH(kw),SIGH2(kw),AHLINE(kw), + 2 SHLINE(kw),XNFPH(kw,2),XNFH(kw) + COMMON /BK/BK1(kw,8),XNFPK(kw,1) + COMMON /BMG/BMG1(kw,11),AMG1(kw),SMG1(kw),XNFPMG(kw,2),BMG2(kw,6) + COMMON /BNA/BNA1(kw,8),XNFPNA(kw,1) + COMMON /BO/BO1(kw,13),XNFPO(kw,1),BO2(kw,4) + COMMON /BSI/BSI1(kw,11),ASI1(kw),SSI1(kw),XNFPSI(kw,2),BSI2(kw,10) + COMMON /CONV/DLTDLP(kw),HEATCP(kw),DLRDLT(kw),VELSND(kw), + 1 GRDADB(kw),HSCALE(kw),FLXCNV(kw),VCONV(kw),MIXLTH, + 2 IFCONV + REAL*8 MIXLTH + COMMON /ELEM/ABUND(99),ATMASS(99),ELEM(99),XABUND(99),WTMOLE + COMMON /FLUX/FLUX,FLXERR(kw),FLXDRV(kw),FLXRAD(kw) + COMMON /FREQ/FREQ,FREQLG,EHVKT(kw),STIM(kw),BNU(kw),WAVENO + COMMON /FRESET/FRESET(500),RCOSET(500),NULO,NUHI,NUMNU,IFWAVE, + 1 WBEGIN,DELTAW + COMMON /HEIGHT/HEIGHT(kw) + COMMON /IF/IFCORR,IFPRES,IFSURF,IFSCAT,IFMOL,NLTEON,IFOP(20) + COMMON /ITER/ITER,IFPRNT(15),IFPNCH(15),NUMITS + COMMON /JUNK/TITLE(74),FREQID(6),WLTE,XSCALE + COMMON /MUS/ANGLE(20),SURFI(20),NMU + COMMON /OPS/ACOOL(kw),ALUKE(kw),AHOT(kw),SIGEL(kw),ALINES(kw), + 1 SIGLIN(kw),AXLINE(kw),SIGXL(kw),AXCONT(kw),SIGX(kw), + 2 SXLINE(kw),SXCONT(kw) + COMMON /OPTOT/ACONT(kw),SCONT(kw),ALINE(kw),SLINE(kw),SIGMAC(kw), + 1 SIGMAL(kw) + COMMON /PZERO/PZERO,PCON,PRADK0,PTURB0,KNU(kw),PRADK(kw),EDENS(kw) + REAL*8 KNU + COMMON /PUT/PUT,IPUT + COMMON /RAD/ACCRAD(kw),PRAD(kw) + COMMON /RHOX/RHOX(kw),NRHOX + COMMON /STATE/P(kw),XNE(kw),XNATOM(kw),RHO(kw),PTOTAL(kw) + COMMON /TAUSHJ/TAUNU(kw),SNU(kw),HNU(kw),JNU(kw),JMINS(kw) + REAL*8 JNU,JMINS + COMMON /TEFF/TEFF,GRAV,GLOG + COMMON /TEMP/T(kw),TKEV(kw),TK(kw),HKT(kw),TLOG(kw),HCKT(kw),ITEMP + COMMON /TURBPR/VTURB(kw),PTURB(kw),TRBFDG,TRBCON,TRBPOW,TRBSND, + 1 IFTURB + DIMENSION SURFIN(20),F(20),ABLOG(20) + EQUIVALENCE (F(1),STIM(1)) + DATA ON,OFF/3HON ,3HOFF/ +C + GO TO(100,200,300,400,500),MODE +C +C HEADINGS + 100 IF(IFPRNT(ITER).EQ.0)RETURN + IFHEAD=0 + NU=NULO-1 + IF(IFPNCH(ITER).LT.2)RETURN + WRITE(7,111)TEFF,GLOG,WLTE,TITLE + 111 FORMAT(5HTEFF ,F7.0,9H GRAVITY,F8.5,1X,A4/6HTITLE ,74A1) + RETURN +C +C INITIALIZE SUMS OVER STEPS + 200 HSURF=0. +C HNU(1)=0. + WAVE=2.99792458D17/FREQ + NU=NU+1 + DO 201 MU=1,NMU + 201 SURFIN(MU)=0. + N=0 + CONTIN=PUT + RETURN +C +C SUM OVER STEPS AND STEP DEPENDENT QUANTITIES + 300 N=N+1 + NSTEPS=IPUT + STEPWT=PUT + HSURF=HSURF+HNU(1)*STEPWT + DO 301 MU=1,NMU + 301 SURFIN(MU)=SURFIN(MU)+SURFI(MU)*STEPWT + IF(IFPRNT(ITER).EQ.0)RETURN + IF(NSTEPS.EQ.1)GO TO 310 + IF(IFHEAD.EQ.0)WRITE(6,101) + IFHEAD=1 +C IF(N.EQ.1)WRITE(6,303) + IF(N.EQ.1.AND.IFPRNT(ITER).GT.1)WRITE(6,303) + 303 FORMAT(1H0) + RESID=HNU(1)/CONTIN + HNULG= LOG10(HNU(1)) + HNUMG=-2.5*HNULG + DO 340 JTAU1=1,NRHOX + IF(TAUNU(JTAU1).GT.1.)GO TO 341 + 340 CONTINUE + 341 CONTINUE +C RHOX1= LOG10(RHOX1) +C IDUM=MAP1(TAUNU,RHOX,NRHOX,1.,RHOX1,1) + TAUEND= LOG10(TAUNU(NRHOX)) + IF(IFPRNT(ITER).GT.1) + 1WRITE(6,305)STEPWT,HNU(1),HNULG,HNUMG,RESID,JTAU1,TAUEND +C 305 FORMAT(61X,F10.8,0PE13.4,0PF12.5,F10.3,F9.5,I6,F6.2) + 305 FORMAT(61X,F10.8,1PE13.4,0PF12.5,F10.3,F9.5,I6,F6.2) + 310 IF(IFPRNT(ITER).EQ.4)GO TO 320 + IF(IFPRNT(ITER).NE.3)RETURN + WRITE(6,312)WAVE,FREQ,(J,RHOX(J),TAUNU(J),ABTOT(J), + 1ALPHA(J),BNU(J),SNU(J),JNU(J),JMINS(J),HNU(J),J=1,NRHOX) + 312 FORMAT(1H1//6X10HWAVELENGTHF9.3,3X9HFREQUENCY1PE13.6/ + 1/12X4HRHOX,7X5HTAUNU,6X5HABTOT,5X5HALPHA,8X3HBNU,8X3HSNU, + 28X3HJNU,7X5HJMINS,7X3HHNU/(6XI2,1P9E11.3)) + RETURN + 320 WRITE(6,321) + 321 FORMAT( 126H1 AHYD AH2P AHMIN SIGH AHE1 AHE2 AHEMIN SIGHE + 1 ACOOL ALUKE AHOT SIGEL SIGH2 AHLINEALINESSIGLINAXLINE SIGXLAXCONT + 2 SIGX) + DO 325 J=1,NRHOX + DO 322 I=1,20 + ABLOG(I)=0. + 322 CONTINUE + IF(AHYD (J).GT.0.)ABLOG( 1)= LOG10(AHYD (J)) + IF(AH2P (J).GT.0.)ABLOG( 2)= LOG10(AH2P (J)) + IF(AHMIN (J).GT.0.)ABLOG( 3)= LOG10(AHMIN (J)) + IF(SIGH (J).GT.0.)ABLOG( 4)= LOG10(SIGH (J)) + IF(AHE1 (J).GT.0.)ABLOG( 5)= LOG10(AHE1 (J)) + IF(AHE2 (J).GT.0.)ABLOG( 6)= LOG10(AHE2 (J)) + IF(AHEMIN(J).GT.0.)ABLOG( 7)= LOG10(AHEMIN(J)) + IF(SIGHE (J).GT.0.)ABLOG( 8)= LOG10(SIGHE (J)) + IF(ACOOL (J).GT.0.)ABLOG( 9)= LOG10(ACOOL (J)) + IF(ALUKE (J).GT.0.)ABLOG(10)= LOG10(ALUKE (J)) + IF(AHOT (J).GT.0.)ABLOG(11)= LOG10(AHOT (J)) + IF(SIGEL (J).GT.0.)ABLOG(12)= LOG10(SIGEL (J)) + IF(SIGH2 (J).GT.0.)ABLOG(13)= LOG10(SIGH2 (J)) + IF(AHLINE(J).GT.0.)ABLOG(14)= LOG10(AHLINE(J)) + IF(ALINES(J).GT.0.)ABLOG(15)= LOG10(ALINES(J)) + IF(SIGLIN(J).GT.0.)ABLOG(16)= LOG10(SIGLIN(J)) + IF(AXLINE(J).GT.0.)ABLOG(17)= LOG10(AXLINE(J)) + IF(SIGXL (J).GT.0.)ABLOG(18)= LOG10(SIGXL (J)) + IF(AXCONT(J).GT.0.)ABLOG(19)= LOG10(AXCONT(J)) + IF(SIGX (J).GT.0.)ABLOG(20)= LOG10(SIGX (J)) + 325 WRITE(6,326)J,ABLOG,J + 326 FORMAT(I4,2X20F6.2,1XI3) + RETURN +C +C PRINT SUMS OVER STEPS +C 400 IF(IFPRNT(ITER).EQ.0)RETURN + 400 IF(IFPRNT(ITER).LE.1)RETURN + IF(NSTEPS.EQ.1)CONTIN=HSURF + RESID=HSURF/CONTIN + DO 440 JTAU1=1,NRHOX + IF(TAUNU(JTAU1).GT.1.)GO TO 441 + 440 CONTINUE + 441 CONTINUE +C IDUM=MAP1(TAUNU,RHOX,NRHOX,1.,RHOX1,1) +C RHOX1= LOG10(RHOX1) + TAUEND= LOG10(TAUNU(NRHOX)) + IF(NSTEPS.GT.1)JTAU1=0 + IF(NSTEPS.GT.1)TAUEND=0. + IF(IFSURF.NE.0.AND.IFSURF.NE.1)GO TO 405 + IF(IFHEAD.EQ.0)WRITE(6,101) + 101 FORMAT(1H1/////10X4HWAVE,7X7HHLAMBDA,7X5HLOG H,7X3HMAG, + 110X9HFREQUENCY,8X3HHNU,10X5HLOG H,7X3HMAG,10X6HTAUONE,6H TAUNU) + IFHEAD=1 + IF(HSURF.LE.0.)HSURF=1.D-30 + HLAM=HSURF*FREQ/WAVE + HNULG= LOG10(HSURF) + HLAMLG= LOG10(HLAM) + HLAMMG=-2.5*HLAMLG + HNUMG=-2.5*HNULG + WRITE(6,1401) + 1401 FORMAT(1H ) + WRITE (6,401)NU,WAVE,HLAM,HLAMLG,HLAMMG,FREQ,HSURF,HNULG,HNUMG, + 1RESID,JTAU1,TAUEND,NU + 401 FORMAT(I5,F11.3,1PE13.4,0PF12.5,F10.3,1PE20.6,E13.4,0PF12.5,F10.3, +C 401 FORMAT(I5,F11.3,0PE13.4,0PF12.5,F10.3,0PE20.6,E13.4,0PF12.5,F10.3, + 1F9.5,I6,F6.2,I5) + 405 IF(IFSURF.NE.2)GO TO 410 + IF(IFHEAD.EQ.0)WRITE(6,102) + 102 FORMAT(1H1/////10X4HWAVE,5X9HFREQUENCY,3X12HTAUONE TAUNU, + 15(17H MU INTENSITY )) + IFHEAD=1 + WRITE(6,406)NU,WAVE,FREQ,JTAU1,TAUEND, + 1(ANGLE(MU),SURFIN(MU),MU=1,NMU) + 406 FORMAT(I5,F10.3,1PE15.6,I5,0PF6.2,5(0PF6.3,1PE11.3)/ + 141X,5(0PF6.3,1PE11.3)/41X,5(0PF6.3,1PE11.3)/41X,5(0PF6.3,1PE11.3)) + 410 IF(IFPNCH(ITER).LT.2)RETURN + IF(IFSURF.GT.2)RETURN + IF(IFSURF.EQ.2)GO TO 415 + WRITE(7,411)NU,WAVE,FREQ,HSURF,CONTIN,RESID + 411 FORMAT(4HFLUX,I5,F9.2,1PE20.6,E13.4,E13.4,0PF10.5) + IF(NU.EQ.NUHI)WRITE(7,411) + RETURN + 415 WRITE(7,416)FREQ,(ANGLE(MU),SURFIN(MU),MU=1,NMU) + 416 FORMAT(9HINTENSITY,1PD15.6,3(0PF5.2,1PE11.4)/(5(0PF5.2,1PE11.4))) + RETURN +C +C SUMMARIES + 500 IF(IFPRNT(ITER).EQ.0)GO TO 550 + IF(IFPRNT(ITER).EQ.1)GO TO 540 + WRITE(6,501)(J,RHOX(J),PTOTAL(J),PTURB(J),GRDADB(J),DLTDLP(J), + 1VELSND(J),DLRDLT(J),HEATCP(J),HSCALE(J),VCONV(J),FLXCNV(J), + 2J=1,NRHOX) + 501 FORMAT(1H1/////132H RHOX PTOTAL PTURB GRDADB + + 1 DLTDLP VELSND DLRDLT HEATCP HSCALE VCONV + + 2 FLXCNV /(I3,1P11E11.3)) + WRITE(6,502)FLUX + 502 FORMAT(1H0108X4HFLUX1PE12.4) + WRITE(6,503)(J,XNATOM(J),EDENS(J),PRADK(J),XNFPH(J,1),XNFPH(J,2), + 1XNFPHE(J,1),XNFPHE(J,2),XNFPHE(J,3),VTURB(J),J=1,NRHOX) + 503 FORMAT(1H1/////132H XNATOM EDENS PRADK XNFPH1 + + 1 XNFPH2 XNFPHE1 XNFPHE2 XNFPHE3 VTURB + + 2 /(I3,1P9E11.3)) + CALL W(6HPRADK0,PRADK0,1) + 540 WRITE(6,541) TEFF,GLOG,TITLE,ITER + 541 FORMAT(1H1//////5H TEFF,F8.0,8H LOG G,F7.3,10X74A1,2X, + 19HITERATION,I3) + DO 539 J=1,NRHOX + IF(IFCORR.EQ.0)FLXRAD(J)=FLUX-FLXCNV(J) + 539 FLXCNV(J)=FLXCNV(J)/(FLXCNV(J)+FLXRAD(J)) + WRITE(6,542)(J,RHOX(J),T(J),P(J),XNE(J),RHO(J),ABROSS(J), + 1HEIGHT(J),TAUROS(J),FLXCNV(J),ACCRAD(J),FLXERR(J),FLXDRV(J), + 2J=1,NRHOX) + 542 FORMAT(132H0 ELECTRON + + 1 ROSSELAND HEIGHT ROSSELAND FRACTION RADIATIVE PE + 2R CENT FLUX/132H RHOX TEMP PRESSURE NUMBER DEN + 4SITY MEAN (KM) DEPTH CONV FLUX ACCELERATION + + 5 ERROR DERIV/(I3,1PE10.3,0PF9.1,1P8E11.3,0PF14.3,F8.3)) + 550 IF(IFPNCH(ITER).EQ.0)RETURN +C +C PUNCHOUT + A=OFF + IF(IFCONV.EQ.1)A=ON + B=OFF + IF(IFTURB.EQ.1)B=ON + WRITE(7,552) TEFF,GLOG,WLTE,TITLE,IFOP,A,MIXLTH,B,TRBFDG, + 1TRBPOW,TRBSND,TRBCON,XSCALE,(IZ,ABUND(IZ),IZ=1,99) + 552 FORMAT(5HTEFF F7.0,9H GRAVITY F5.3,1XA4/6HTITLE 74A1 + 1/13H OPACITY IFOP20I2/12H CONVECTION A3,F6.2,12H TURBULENCE A3, + 24F6.2/16HABUNDANCE SCALE F7.3,17H ABUNDANCE CHANGE2(I2,F6.3)/ + 3(17H ABUNDANCE CHANGE6(I3,F7.2))) + WRITE(7,554)NRHOX,(RHOX(J),T(J),P(J),XNE(J),ABROSS(J),ACCRAD(J), + 1VTURB(J),J=1,NRHOX) + 554 FORMAT(10HREAD DECK6I3,33H RHOX,T,P,XNE,ABROSS,ACCRAD,VTURB/ + 1(1PD15.8,0PF9.1,1P5E10.3)) +C 1(0PD15.8,0PF9.1,0P5E10.3)) + WRITE(7,555)PRADK0 + 555 FORMAT(5HPRADK1PE11.4) +C 555 FORMAT(5HPRADK0PE11.4) + IF(NLTEON.EQ.0)GO TO 560 + WRITE(7,556)NRHOX,(RHOX(J),(BHYD(J,I),I=1,6),BMIN(J),J=1,NRHOX) + 556 FORMAT(27HREAD DEPARTURE COEFFICIENTSI3,21H RHOX BHYD 1-6 BMIN/ + 1(1PE11.4,0P7F9.4)) +C 1(0PE11.4,0P7F9.4)) + 560 IF(IFWAVE.EQ.1)GO TO 570 + WRITE(7,562)NUMNU,NULO,NUHI,FREQID,(NU,FRESET(NU),RCOSET(NU), + 1NU=1,NUMNU) + 562 FORMAT(16HREAD FREQUENCIES3I4,3X6A1/(I5,1P2E17.8,I5,2E17.8)) +C 562 FORMAT(16HREAD FREQUENCIES3I4,3X6A1/(I5,0P2E17.8,I5,2E17.8)) + 570 WRITE(7,571)ITER + 571 FORMAT(5HBEGIN,20X10HITERATION I3,10H COMPLETED ) + RETURN + END + SUBROUTINE TCORR(MODE,RCOWT) + IMPLICIT REAL*8 (A-H,O-Z) + PARAMETER (kw=99) + COMMON /ABROSS/ABROSS(kw),TAUROS(kw) + COMMON /ABTOT/ABTOT(kw),ALPHA(kw) + COMMON /CONV/DLTDLP(kw),HEATCP(kw),DLRDLT(kw),VELSND(kw), + 1 GRDADB(kw),HSCALE(kw),FLXCNV(kw),VCONV(kw),MIXLTH, + 2 IFCONV + REAL*8 MIXLTH + COMMON /FLUX/FLUX,FLXERR(kw),FLXDRV(kw),FLXRAD(kw) + COMMON /FREQ/FREQ,FREQLG,EHVKT(kw),STIM(kw),BNU(kw),WAVENO + COMMON /ITER/ITER,IFPRNT(15),IFPNCH(15),NUMITS + COMMON /RAD/ACCRAD(kw),PRAD(kw) + COMMON /RHOX/RHOX(kw),NRHOX + COMMON /STATE/P(kw),XNE(kw),XNATOM(kw),RHO(kw),PTOTAL(kw) + COMMON /TAUSHJ/TAUNU(kw),SNU(kw),HNU(kw),JNU(kw),JMINS(kw) + REAL*8 JNU,JMINS + COMMON /TEFF/TEFF,GRAV,GLOG + COMMON /TEMP/T(kw),TKEV(kw),TK(kw),HKT(kw),TLOG(kw),HCKT(kw),ITEMP + COMMON /TURBPR/VTURB(kw),PTURB(kw),TRBFDG,TRBCON,TRBPOW,TRBSND, + 1 IFTURB + DIMENSION RJMINS(kw),RDABH(kw),RDIAGJ(kw),OLDT1(kw) +C(((((((((((((((((((((((( +C DIMENSION DABTOT(kw),DTDRHX(kw),HRATIO(kw),CODRHX(kw),G(kw), +C 1GFLUX(kw),DDLT(kw),DRHOX(kw),DTFLUX(kw),DTLAMB(kw),DUM(kw), +C 2TINTEG(kw),DTSURF(kw),T1(kw),CNVFLX(kw),GRDEFF(kw),RHOXL(kw) + DIMENSION DABTOT(kw),DTDRHX(kw),HRATIO(kw),CODRHX(kw),G(kw), + 1GFLUX(kw),DDLT(kw),DTAU(kw),DTFLUX(kw),DTLAMB(kw),DUM(kw), + 2TINTEG(kw),DTSURF(kw),T1(kw),CNVFLX(kw),GRDEFF(kw),RHOXL(kw) + DIMENSION DABROS(kw) + DIMENSION TAUNEW(kw),TPLUS(kw),TNEW1(kw),TNEW2(kw) + DIMENSION AB1(kw),PTOT1(kw),P1(kw),AB2(kw),PTOT2(kw),P2(kw) + DIMENSION PPP(kw),RRR(kw),DRHOX(kw) + DIMENSION PRDNEW(kw) +C EQUIVALENCE (HKT(1),G(1),DUM(1),DTSURF(1)) +C EQUIVALENCE (TKEV(1),CNVFLX(1),RHOXL(1)) +C EQUIVALENCE (TLOG(1),DTDRHX(1),DTFLUX(1)),(TK(1),T1(1)) +C EQUIVALENCE (FLXERR(1),DABTOT(1),DRHOX(1)),(TAUNU(1),DDLT(1)) +C EQUIVALENCE (RDABH(1),CODRHX(1),GFLUX(1),TINTEG(1),HRATIO(1)) +C EQUIVALENCE (RDIAGJ(1),DTLAMB(1),GRDEFF(1)) + EQUIVALENCE (HKT(1),DABROS(1),G(1),PTOT1(1),DUM(1),DTSURF(1)) + EQUIVALENCE (TKEV(1),CNVFLX(1),RHOXL(1)) + EQUIVALENCE (TLOG(1),DTDRHX(1),DTFLUX(1)) +C EQUIVALENCE (TK(1),TPLUS(1),PTOT2(1),PPP(1),T1(1)) + EQUIVALENCE (TK(1),TPLUS(1),PTOT2(1),PPP(1)) +C EQUIVALENCE (FLXERR(1),DABTOT(1),AB1(1),AB2(1),DTAU(1),RRR(1)) + EQUIVALENCE ( DABTOT(1),AB1(1),AB2(1),DTAU(1),RRR(1)) + EQUIVALENCE (TAUNU(1),DDLT(1),TAUNEW(1),DRHOX(1)) + EQUIVALENCE (RDABH(1),CODRHX(1),GFLUX(1),TINTEG(1),HRATIO(1)) + EQUIVALENCE (RDIAGJ(1),DTLAMB(1),GRDEFF(1)) + EQUIVALENCE (SNU(1),TNEW1(1),TNEW2(1)) + EQUIVALENCE (HNU(1),P1(1),P2(1)) + EQUIVALENCE (JNU(1),PRDNEW(1)) +C)))))))))))))))))))))))) + GO TO (10,20,30),MODE +C ERASE FREQUENCY INTEGRALS + 10 DO 11 J=1,NRHOX + RJMINS(J)=0. + RDABH(J)=0. + RDIAGJ(J)=0. + 11 FLXRAD(J)=0. + RETURN +C +C FREQUENCY INTEGRATION +C(((((((((((((((((((((((( +C 20 DO 21 J=1,NRHOX + 20 CALL DERIV(RHOX,ABTOT,DABTOT,NRHOX) + DO 21 J=1,NRHOX + RDABH(J)=RDABH(J)+DABTOT(J)/ABTOT(J)*HNU(J)*RCOWT +C)))))))))))))))))))))))) + RJMINS(J)=RJMINS(J)+ABTOT(J)*JMINS(J)*RCOWT + 21 FLXRAD(J)=FLXRAD(J)+HNU(J)*RCOWT + TERM2=0. + DO 24 J=1,NRHOX + TERM1=TERM2 + IF(J.NE.NRHOX)D=TAUNU(J+1)-TAUNU(J) + IF(D.LE..01)GO TO 23 + EX=0. + IF(D.LT.10.)EX=EXPI(3,D) + TERM2=.5*(D+EX-.5)/D + GO TO 22 + 23 TERM2= + 1 (.922784335098467D0- LOG(D))*D*(.25D0+D*(8.33333333333333D-2+ + 1 D*(1.04166666666667D-2+D*1.38888888888889D-3))) + 22 DIAGJ=TERM1+TERM2 + DBDT=BNU(J)*FREQ*HKT(J)/T(J)/STIM(J) + 24 RDIAGJ(J)=RDIAGJ(J)+ABTOT(J)*(DIAGJ-1.)/(1.-ALPHA(J)*DIAGJ)* + 1(1.-ALPHA(J))*DBDT*RCOWT + RETURN +C +C AVRETT-KROOK TAU CORRECTION MODIFIED FOR CONVECTION + 30 CALL DERIV(RHOX,T,DTDRHX,NRHOX) + CALL DERIV(RHOX,DLTDLP,DDLT,NRHOX) +C(((((((((((((((((((((((( + CALL DERIV(RHOX,ABROSS,DABROS,NRHOX) + DO 31 J=1,NRHOX + RDABH(J)=RDABH(J)-FLXRAD(J)*DABROS(J)/ABROSS(J) +C)))))))))))))))))))))))) + CNVFLX(J)=0. + DEL=1. + D=0. + IF(IFCONV.EQ.1)CNVFLX(J)=FLXCNV(J) + IF(J.LT.3)CNVFLX(J)=0. + IF(CNVFLX(J).GT.0.)DEL=DLTDLP(J)-GRDADB(J) + VCO=.5*MIXLTH*SQRT(-.5*PTOTAL(J)/RHO(J)*DLRDLT(J)) + FLUXCO=.5*RHO(J)*HEATCP(J)*T(J)*MIXLTH/12.5664 + IF(MIXLTH.GT.0.)D=8.*5.6697D-5*T(J)**4/ + 1(ABROSS(J)*HSCALE(J)*RHO(J))/(FLUXCO*12.5664D0)/VCO + D=D**2/2. + CNVFL=0. + IF(CNVFLX(J)/FLXRAD(J).GT.1.D-3)CNVFL=CNVFLX(J) +C 31 CODRHX(J)=(RDABH(J)+CNVFLX(J)*(DTDRHX(J)/T(J)*(1.-9.*D/(D+DEL))+ + 31 CODRHX(J)=(RDABH(J)+CNVFL *(DTDRHX(J)/T(J)*(1.-9.*D/(D+DEL))+ + 1 1.5*DDLT(J)/DEL*(1.+D/(D+DEL))))/(FLXRAD(J)+CNVFLX(J)* + 2 1.5*DLTDLP(J)/DEL*(1.+D/(D+DEL))) + CODRHX(1)=0. + CODRHX(2)=0. +C CALL INTEG(RHOX,CODRHX,G,NRHOX) + CALL INTEG(RHOX,CODRHX,G,NRHOX,0.) + DO 32 J=1,NRHOX + G(J)=EXP(G(J)) + 32 GFLUX(J)=G(J)*(FLXRAD(J)+CNVFLX(J)-FLUX)/(FLXRAD(J)+CNVFLX(J)* + 1 1.5*DLTDLP(J)/DEL*(1.+D/(D+DEL))) +C(((((((((((((((((((((((( +C CALL INTEG(RHOX,GFLUX,DRHOX,NRHOX) +C CALL INTEG(TAUROS,GFLUX,DTAU,NRHOX) + CALL INTEG(TAUROS,GFLUX,DTAU,NRHOX,0.) + DO 33 J=1,NRHOX +C DRHOX(J)=DRHOX(J)/G(J) +C DRHOX(J)= MAX (-TAUROS(J)/ABROSS(J)/2., MIN (TAUROS(J)/ABROSS(J), +C 1DRHOX(J))) +C 33 DTFLUX(J)=-DRHOX(J)*DTDRHX(J) + DTAU(J)=DTAU(J)/G(J) + DTAU(J)= MAX (-TAUROS(J)/2., MIN (TAUROS(J)/2.,DTAU(J))) + 33 DTFLUX(J)=-DTAU(J)*DTDRHX(J)/ABROSS(J) + DO 3301 J=1,NRHOX + IF(TAUROS(J).GE..03)GO TO 3302 + DO 3300 I=1,J + 3300 DTFLUX(I)=DTFLUX(I)*.5 + 3301 CONTINUE + 3302 CONTINUE +C)))))))))))))))))))))))) + DTFLUX(1)=0. + DTFLUX(2)=0. +C + DO 41 J=1,NRHOX + 41 FLXERR(J)=(FLXRAD(J)+CNVFLX(J)-FLUX)/FLUX*100. + CALL DERIV(TAUROS,FLXERR,FLXDRV,NRHOX) + TEFF25=TEFF/25. + DO 43 J=1,NRHOX +C IF(CNVFLX(J)/FLXRAD(J).LT.1.D-5)FLXDRV(J)=RJMINS(J)/ABROSS(J)/ + IF(CNVFLX(J)/FLXRAD(J).LT.1.D-3)FLXDRV(J)=RJMINS(J)/ABROSS(J)/ + 1FLUX*100. + DTLAMB(J)=-FLXDRV(J)*FLUX/100./RDIAGJ(J)*ABROSS(J) + IF(CNVFLX(J)/FLXRAD(J).LT.1.D-5.AND.TAUROS(J).LT.1.)GO TO 42 + DTLAMB(J)=0. + DTLAMB(J-1)=DTLAMB(J-1)/2. + DTLAMB(J-2)=DTLAMB(J-2)/2. + DTLAMB(J-3)=DTLAMB(J-3)/2. + DTLAMB(J-4)=DTLAMB(J-4)/2. + DTLAMB(J-5)=DTLAMB(J-5)/2. +C FUDGE TO AVOID VERY LARGE TEMPERATURE CORRECTIONS + 42 DTLAMB(J)= MAX (-TEFF25, MIN (TEFF25,DTLAMB(J))) + 43 CONTINUE +C + DTSUR=(FLUX-FLXRAD(1))/FLUX*.25*T(1) + DTSUR= MAX (-TEFF25, MIN (TEFF25,DTSUR)) + DO 45 J=1,NRHOX + 45 DUM(J)=DTFLUX(J)+DTLAMB(J) +C CALL INTEG(TAUROS,DUM,TINTEG,NRHOX) + CALL INTEG(TAUROS,DUM,TINTEG,NRHOX,0.) + IDUM=MAP1(TAUROS,TINTEG,NRHOX,.1,TONE,1) + IDUM=MAP1(TAUROS,TINTEG,NRHOX,2.,TTWO,1) + TAV=(TTWO-TONE)/2. + IF(DTSUR*TAV.LE.0.)TAV=0. + IF(ABS(TAV).GT.ABS(DTSUR))TAV=DTSUR + DTSUR=DTSUR-TAV + DO 49 J=1,NRHOX + 49 DTSURF(J)=DTSUR +C + DO 50 J=1,NRHOX + HRATIO(J)=CNVFLX(J)/(CNVFLX(J)+FLXRAD(J)) + 50 T1(J)=DTFLUX(J)+DTLAMB(J)+DTSURF(J) +C IF(IFPRNT(ITER).LE.1)GO TO 60 + IF(IFPRNT(ITER).EQ.0)GO TO 60 + WRITE(6,100) (J,RHOX(J),T(J),DTLAMB(J),DTSURF(J),DTFLUX(J),T1(J), + 1HRATIO(J),FLXERR(J),FLXDRV(J),J=1,NRHOX) + 100 FORMAT(1H1///94H0 RHOX T DTLAMB DTSURF DTFL + 1UX T1 CONV/TOTAL ERROR DERIV/ + 2(I3,1PE12.4,0PF10.1,4F9.1,1X1PE11.3,1X0P2F10.3)) +C 2(I3,0PE12.4,0PF10.1,4F9.1,1X0PE11.3,1X0P2F10.3)) +C + 60 DO 61 J=1,NRHOX + IF(IFCONV.EQ.1)GO TO 62 + IF(ITER.EQ.1)GO TO 62 + IF(OLDT1(J)*T1(J).GT.0.)T1(J)=T1(J)*1.25 + IF(OLDT1(J)*T1(J).LT.0.)T1(J)=T1(J)*.5 + 62 OLDT1(J)=T1(J) +C 61 T(J)=T(J)+T1(J) + 61 CONTINUE +C(((((((((((((((((((((((( +C +C DETERMINE RHOX CORRECTION TO MAINTAIN CONSTANT TAUROS + TAUROS(1)=ABROSS(1)*RHOX(1) + DELTAU=( LOG(TAUROS(NRHOX))- LOG(TAUROS(1)))/DBLE(NRHOX-1) +C DELTAU=( LOG(TAUROS(NRHOX))- LOG(TAUROS(2)))/DBLE(NRHOX-2) +C START= LOG(TAUROS(2))-2.*DELTAU + START= LOG(TAUROS(1))-DELTAU + DO 501 J=1,NRHOX + TPLUS(J)=T(J)+T1(J) +C TPLUS(J)=T(J)+DTFLUX(J) + 501 TAUNEW(J)=EXP(START+DELTAU*DBLE(J)) + IDUM=MAP1(TAUROS,T,NRHOX,TAUNEW,TNEW1,NRHOX) + IDUM=MAP1(TAUROS,PRAD,NRHOX,TAUNEW,PRDNEW,NRHOX) + CALL TTAUP(TNEW1,TAUNEW,AB1,PTOT1,P1,PRDNEW,PTURB,GRAV,NRHOX) +C CALL TTAUP(TNEW1,TAUNEW,AB1,PTOT1,P1,PRAD,PTURB,GRAV,NRHOX) + IDUM=MAP1(TAUROS,TPLUS,NRHOX,TAUNEW,TNEW2,NRHOX) + CALL TTAUP(TNEW2,TAUNEW,AB2,PTOT2,P2,PRDNEW,PTURB,GRAV,NRHOX) + DO 503 J=1,NRHOX +C PPP=(RHOX2-RHOX1)/RHOX1 + 503 PPP(J)=(PTOT2(J)-PTOT1(J))/PTOT1(J) + IDUM=MAP1(TAUNEW,PPP,NRHOX,TAUROS,RRR,NRHOX) + TAUROS(1)=0. +C RRR(1)=0. + DO 505 J=1,NRHOX + 505 DRHOX(J)=RRR(J)*RHOX(J) +C)))))))))))))))))))))))) + DO 65 J=1,NRHOX + 65 T(J)=T(J)+T1(J) +C +C FUDGES TO MAKE UP FOR BAD STARTING GUESSES +C(((((((((((((((((((((((( + IFUDGE=0 +C)))))))))))))))))))))))) + IF(IFCONV.EQ.1)GO TO 71 + IF(ITER.GT.1)GO TO 80 + IF(FLXERR(NRHOX).LT.90..AND.FLXERR(NRHOX).GT.-50.)GO TO 80 + DO 70 J=1,NRHOX + 70 T(J)=TEFF*(.75*(.710+TAUROS(J)-.1331*EXP(-3.4488*TAUROS(J))))**.25 +C(((((((((((((((((((((((( + IFUDGE=1 +C)))))))))))))))))))))))) + GO TO 80 + 71 DO 72 J=1,NRHOX + IF(FLXERR(J).GT.1000.)GO TO 73 + 72 CONTINUE + GO TO 80 + 73 DO 74 J=1,NRHOX + GRDEFF(J)=(FLXRAD(J)*DLTDLP(J)+FLXCNV(J)*GRDADB(J))/(FLXRAD(J)+ + 1FLXCNV(J)) + IF(FLXCNV(J).GT.0.)GRDEFF(J)= MAX (GRDEFF(J),(1.+DLTDLP(J))/3.) + 74 RHOXL(J)= LOG(RHOX(J)) +C CALL INTEG(RHOXL,GRDEFF,TLOG,NRHOX) + CALL INTEG(RHOXL,GRDEFF,TLOG,NRHOX,0.) + DO 75 JSTART=1,NRHOX + IF(FLXCNV(JSTART).GT.0.)GO TO 76 + 75 CONTINUE + GO TO 80 + 76 DO 77 J=JSTART,NRHOX + 77 T(J)=T(J-1)*EXP(TLOG(J)-TLOG(J-1)) +C(((((((((((((((((((((((( + IFUDGE=1 +C)))))))))))))))))))))))) + 80 DO 81 J=1,NRHOX + TK(J)=1.38054D-16*T(J) + HKT(J)=6.6256D-27/TK(J) + HCKT(J)=HKT(J)*2.99792458D10 + TKEV(J)=8.6171D-5*T(J) + 81 TLOG(J)= LOG(T(J)) +C(((((((((((((((((((((((( + IF(IFUDGE.EQ.1)RETURN +C CHANGE RHOX TO MAINTAIN CONSTANT TAUROS + DO 91 J=1,NRHOX + 91 RHOX(J)=RHOX(J)+DRHOX(J) +C)))))))))))))))))))))))) + RETURN + END + SUBROUTINE STATEQ(MODE,RCOWT) + IMPLICIT REAL*8 (A-H,O-Z) + PARAMETER (kw=99) +C THE BOUND-BOUND COLLISION RATES WERE DERIVED FROM AN ANALYTIC FIT +C TO THE CROSS SECTION CALCULATIONS OF BURKE,ORMONDE AND WHITAKER, +C PROC. PHYS. SOC., 1968, VOL 92, 319 +C +C THE CROSS SECTION USED (IN UNITS OF PI*A0**2) IS +C +C QIJ = 4*FIJ*(EH/E0)**2*(LOG(E/E0)/(E/E0)+.148 /(E/E0)**6) +C +C FIJ = OSCILLATOR STRENGTH +C EH = GROUND STATE BINDING ENERGY +C E0 = THRESHOLD ENERGY +C D M PETERSON MAY 1968 + COMMON /BHYD/BHYD(kw,8),AHYD(kw),SHYD(kw),AH2P(kw),BMIN(kw), + 1 AHMIN(kw),SHMIN(kw),SIGH(kw),SIGH2(kw),AHLINE(kw), + 2 SHLINE(kw),XNFPH(kw,2),XNFH(kw) + COMMON /FREQ/FREQ,FREQLG,EHVKT(kw),STIM(kw),BNU(kw),WAVENO + COMMON /ITER/ITER,IFPRNT(15),IFPNCH(15),NUMITS + COMMON /RHOX/RHOX(kw),NRHOX + COMMON /STATE/P(kw),XNE(kw),XNATOM(kw),RHO(kw),PTOTAL(kw) + COMMON /TAUSHJ/TAUNU(kw),SNU(kw),HNU(kw),JNU(kw),JMINS(kw) + REAL*8 JNU,JMINS + COMMON /TEMP/T(kw),TKEV(kw),TK(kw),HKT(kw),TLOG(kw),HCKT(kw),ITEMP + DIMENSION QRADIK(kw,6),QRADKI(kw,6),QRDHMK(kw),QRDKHM(kw) + DIMENSION DQRAD(kw,6),DQRD(kw),TOLD(kw) + DIMENSION HCONT(6),DUMMY(6) + DIMENSION A(6,6),RIGHT(6),QCOLL(8,8) + EQUIVALENCE (A(1),TAUNU(1)),(QCOLL(1),HNU(1)),(HCONT(1),DUMMY(1)) + DIMENSION F(8,8) + DATA F/8*0.,.4162,7*0.,.07910,.6408,6*0.,.02899,.1193,.8420,5*0., + 1.01394,.04467,.1506,1.038,4*0.,.007800,.02209,.05585,.1794,1.231, + 23*0.,.004814,.01271,.02768,.06551,.2070,1.425,2*0.,.003184,.008037 + 3,.01604,.03229,.07455,.2340,1.615,0./ + GO TO(10,20,30),MODE +C ERASE FREQUENCY INTEGRALS + 10 DO 11 I=1,6 + DO 11 J=1,NRHOX + TOLD(J)=T(J) + QRDHMK(J)=0. + QRDKHM(J)=0. + DQRD(J)=0. + DQRAD(J,I)=0. + QRADKI(J,I)=0. + 11 QRADIK(J,I)=0. + RETURN +C FREQUENCY INTEGRALS + 20 RFRWT=12.5664D0/6.6256D-27*RCOWT/FREQ + HVC=2.*6.6256D-27*FREQ*(FREQ/2.99792458D10)**2 + DO 21 N=2,6 + 21 HCONT(N)=COULX(N,FREQ,1.) + HMINBF=0. + IF(FREQ.GT.1.8259D14.AND.FREQ.LT.2.111D14)HMINBF= + 1 3.695D-16+(-1.251D-1+1.052D13/FREQ)/FREQ + IF(FREQ.GE.2.111D14)HMINBF=6.801D-20+(5.358D-3+(1.481D13+ + 1(-5.519D27+(4.808D11/FREQ)*1.D30)/FREQ)/FREQ)/FREQ + DO 25 J=1,NRHOX + RJ=RFRWT*JNU(J) + RJE=RFRWT*EHVKT(J)*(JNU(J)+HVC) + RJEDT=RJE*HKT(J)*FREQ/T(J) + DO 26 I=2,6 + QRADIK(J,I)=QRADIK(J,I)+HCONT(I)*RJ + DQRAD(J,I)=DQRAD(J,I)+HCONT(I)*RJEDT + 26 QRADKI(J,I)=QRADKI(J,I)+HCONT(I)*RJE + QRDHMK(J)=QRDHMK(J)+HMINBF*RJ + DQRD(J)=DQRD(J)+HMINBF*RJEDT + 25 QRDKHM(J)=QRDKHM(J)+HMINBF*RJE + RETURN +C + 30 IF(IFPRNT(ITER).GT.0)WRITE(6,201) + 201 FORMAT(1H1/////36X30HHMINUS STATISTICAL EQUILIBRIUM/10X4HRHOX, + 1 7X6HQELECT,6X6HQASSOC,6X6HQCHARG,6X6HQRDKHM,6X6HQRDHMK,7X4HBMIN) + DO 210 J=1,NRHOX + DT=T(J)-TOLD(J) + THETA=5040./T(J) + QELECT=10.**(-8.7)*THETA**(1.5)*XNE(J) + QASSOC=10.**(-8.7)*2.*BHYD(J,1)*XNFPH(J,1) + QCHARG=10.**(-7.4)*THETA**.333333*XNFPH(J,2) + QRDKHM(J)=QRDKHM(J)+DQRD(J)*DT + BMIN(J)=(QRDKHM(J)+QELECT+QASSOC+QCHARG)/ + 1(QRDHMK(J)+QELECT+QASSOC+QCHARG) + 210 WRITE(6,211)J,RHOX(J),QELECT,QASSOC,QCHARG,QRDKHM(J), + 1QRDHMK(J),BMIN(J) + 211 FORMAT(I5,1P6E12.3,0PF10.4) +C 211 FORMAT(I5,0P6E12.3,0PF10.4) +C + IF(IFPRNT(ITER).GT.0)WRITE(6,31) + 31 FORMAT(1H1/////30X83HSTATISTICAL EQUILIBRIUM RATES RATE=SIGN(AL + 1OG10( MAX (ABS(RATE*1.E20),1.)),RATE) / + 2132H0 RAD 1-K K-1 2-K K-2 3-K K-3 4-K K-4 5-K + + 3K-5 6-K K-6 COLL 1-K 2-K 3-K 4-K 5-K 6-K 5-8 + + 46-8 / + 5132H COLL 1-2 1-3 1-4 1-5 1-6 1-7 2-3 2-4 2-5 + + 62-6 2-7 3-4 3-5 3-6 3-7 4-5 4-6 4-7 5-6 5-7 + + 76-7 ) +C + DO 120 J=1,NRHOX + DT=T(J)-TOLD(J) + TH=13.595D0/TKEV(J) + DO 50 I=1,8 + Y=I + QCOLL(I,I)=2.2D-8*Y**3/SQRT(TH)*EXP(-TH/Y**2)*XNE(J) +C QCOLL(I,I) IS THE BOUND FREE RATE + IF (I.EQ.8) GO TO 50 + I1=I+1 + DO 40 K=I1,8 + Z=K + GIK=1./Y**2-1./Z**2 + X0=TH*GIK + Q=2.186D-10*F(I,K)/GIK**2*X0*SQRT(T(J))*(EXPI(1,X0)+.148D0*X0* + 2EXPI(5,X0)) + QCOLL(I,K)=Q*XNE(J) + QCOLL(K,I)=QCOLL(I,K)*(Y/Z)**2*EXP(X0) + 40 CONTINUE + 50 CONTINUE + DO 65 I=1,6 + A(I,I)=QRADIK(J,I) + QRADKI(J,I)=QRADKI(J,I)+DQRAD(J,I)*DT + RIGHT(I)=QRADKI(J,I)+QCOLL(I,I)+QCOLL(I,7)+QCOLL(I,8) + DO 55 K=1,8 + 55 A(I,I)=A(I,I)+QCOLL(I,K) + IF (I.EQ.6) GO TO 65 + I1=I+1 + DO 60 K=I1,6 + A(I,K)=-QCOLL(I,K) + 60 A(K,I)=-QCOLL(K,I) + 65 CONTINUE +C + CALL SOLVIT(A,6,RIGHT,DUMMY) + DO 80 L=1,6 + 80 BHYD(J,L)=RIGHT(L) + IF (IFPRNT(ITER).LE.1) GO TO 120 + DO 90 I=1,6 + QRADKI(J,I)=SIGN( LOG10( MAX (ABS(QRADKI(J,I)*1.D20),1.D0)), + 1QRADKI(J,I)) + 90 QRADIK(J,I)=SIGN( LOG10( MAX (ABS(QRADIK(J,I)*1.D20),1.D0)), + 1QRADIK(J,I)) + DO 95 I=1,8 + DO 95 K=1,8 + 95 QCOLL(I,K)=SIGN( LOG10( MAX (ABS(QCOLL(I,K)*1.D20),1.D0)), + 1QCOLL(I,K)) + WRITE (6,100) J,(QRADIK(J,I),QRADKI(J,I),I=1,6), + 1(QCOLL(I,I),I=1,6),QCOLL(5,8),QCOLL(6,8) + 100 FORMAT (1H0I5,12F6.2,6X8F6.2) + WRITE (6,110) (QCOLL(1,K),K=2,7),(QCOLL(2,K),K=3,7),(QCOLL(3,K), + 1K=4,7),(QCOLL(4,K),K=5,7),(QCOLL(5,K),K=6,7),QCOLL(6,7) + 110 FORMAT (6X21F6.2) + 120 CONTINUE +C + 160 WRITE (6,170)(J,RHOX(J),(BHYD(J,I),I=1,6),J=1,NRHOX) + 170 FORMAT(1H1/////30X36HSTATISTICAL EQUILIBRIUM FOR HYDROGEN/ + 1 15X4HRHOX,10X2HB1,8X2HB2,8X2HB3,8X2HB4,8X2HB5,8X2HB6/ + 2(8XI2,1PE11.4,1X0P6F10.4)) +C 2(8XI2,0PE11.4,1X0P6F10.4)) +C + RETURN + END + SUBROUTINE RADIAP(MODE,RCOWT) + IMPLICIT REAL*8 (A-H,O-Z) + PARAMETER (kw=99) + COMMON /ABTOT/ABTOT(kw),ALPHA(kw) + COMMON /FLUX/FLUX,FLXERR(kw),FLXDRV(kw),FLXRAD(kw) + COMMON /PZERO/PZERO,PCON,PRADK0,PTURB0,KNU(kw),PRADK(kw),EDENS(kw) + REAL*8 KNU + COMMON /RAD/ACCRAD(kw),PRAD(kw) + COMMON /RHOX/RHOX(kw),NRHOX + COMMON /TAUSHJ/TAUNU(kw),SNU(kw),HNU(kw),JNU(kw),JMINS(kw) + REAL*8 JNU,JMINS + DIMENSION H(kw) + GO TO (10,20,30),MODE + 10 DO 11 J=1,NRHOX + H(J)=0. + EDENS(J)=0. + 11 ACCRAD(J)=0. + PRADK0=0. + RETURN + 20 DO 21 J=1,NRHOX + EDENS(J)=EDENS(J)+JNU(J)*RCOWT + H(J)=H(J)+HNU(J)*RCOWT + 21 ACCRAD(J)=ACCRAD(J)+ABTOT(J)*HNU(J)*RCOWT + PRADK0=PRADK0+KNU(1)*RCOWT + RETURN + 30 DO 31 J=1,NRHOX + EDENS(J)=EDENS(J)*12.5664D0/2.99792458D10 + ACCRAD(J)=ACCRAD(J)*12.5664D0/2.99792458D10 +C FUDGE TO KEEP MODEL FROM BLOWING UP WITH LARGE FLUX ERRORS + IF(H(J)/FLUX.GT.1.)ACCRAD(J)=ACCRAD(J)*FLUX/H(J) + 31 CONTINUE + PRADK0=PRADK0*12.5664D0/2.99792458D10 + IF(H(1)/FLUX.GT.1.)PRADK0=PRADK0*FLUX/H(1) +C CALL INTEG(RHOX,ACCRAD,PRAD,NRHOX) + CALL INTEG(RHOX,ACCRAD,PRAD,NRHOX,ACCRAD(1)*RHOX(1)) + DO 32 J=1,NRHOX + 32 PRADK(J)=PRAD(J)+PRADK0 + RETURN + END + SUBROUTINE ROSS(MODE,RCOWT) + IMPLICIT REAL*8 (A-H,O-Z) + PARAMETER (kw=99) + COMMON /ABROSS/ABROSS(kw),TAUROS(kw) + COMMON /ABTOT/ABTOT(kw),ALPHA(kw) + COMMON /FREQ/FREQ,FREQLG,EHVKT(kw),STIM(kw),BNU(kw),WAVENO + COMMON /RHOX/RHOX(kw),NRHOX + COMMON /TEMP/T(kw),TKEV(kw),TK(kw),HKT(kw),TLOG(kw),HCKT(kw),ITEMP + GO TO(10,20,30),MODE + 10 DO 11 J=1,NRHOX + 11 ABROSS(J)=0. + RETURN + 20 DO 21 J=1,NRHOX + DBDT=BNU(J)*FREQ*HKT(J)/T(J)/STIM(J) + 21 ABROSS(J)=ABROSS(J)+DBDT/ABTOT(J)*RCOWT + RETURN + 30 DO 31 J=1,NRHOX + 31 ABROSS(J)=(4.*5.6697D-5/3.14159D0)*T(J)**3/ABROSS(J) +C RHOX0=RHOX(1) +C RHOX(1)=0. +C CALL INTEG(RHOX,ABROSS,TAUROS,NRHOX) +C RHOX(1)=RHOX0 +C TO FIX PROBLEM WITH TEMPERATURE DROP AT FIRST POINT + ABROSS(1)=ABROSS(2) + CALL INTEG(RHOX,ABROSS,TAUROS,NRHOX,ABROSS(1)*RHOX(1)) + TAUROS(1)=0. + RETURN + END + SUBROUTINE DERIV(X,F,DFDX,N) + IMPLICIT REAL*8 (A-H,O-Z) + PARAMETER (kw=99) +C ASSUMES THAT ANY ZERO IN X OCCURS AT A ENDPOINT + DIMENSION X(1),F(1),DFDX(1) + DFDX(1)=(F(2)-F(1))/(X(2)-X(1)) + N1=N-1 + DFDX(N)=(F(N)-F(N1))/(X(N)-X(N1)) + IF(N.EQ.2)RETURN + S=ABS(X(2)-X(1))/(X(2)-X(1)) + DO 1 J=2,N1 + SCALE= MAX (ABS(F(J-1)),ABS(F(J)),ABS(F(J+1)))/ABS(X(J)) + IF(SCALE.EQ.0.)SCALE=1. + D1=(F(J+1)-F(J))/(X(J+1)-X(J))/SCALE + D=(F(J)-F(J-1))/(X(J)-X(J-1))/SCALE + TAN1=D1/(S*SQRT(1.+D1**2)+1.) + TAN=D/(S*SQRT(1.+D**2)+1.) + 1 DFDX(J)=(TAN1+TAN)/(1.-TAN1*TAN)*SCALE + RETURN + END + SUBROUTINE INTEG(X,F,FINT,N,START) + IMPLICIT REAL*8 (A-H,O-Z) + PARAMETER (kw=99) +C SUBROUTINE INTEG(X,F,FINT,N) + DIMENSION X(1),F(1),FINT(1) + DIMENSION A(kw),B(kw),C(kw) + CALL PARCOE(F,X,A,B,C,N) + FINT(1)=START +C FINT(1)=(A(1)+(B(1)/2.+C(1)/3.*X(1))*X(1))*X(1) +C FINT(2)=(A(1)+(B(1)/2.+C(1)/3.*X(2))*X(2))*X(2) +C IF(N.EQ.2)RETURN + N1=N-1 +C DO 10 I=2,N1 + DO 10 I=1,N1 + 10 FINT(I+1)=FINT(I)+(A(I)+B(I)/2.*(X(I+1)+X(I))+ + 1C(I)/3.*((X(I+1)+X(I))*X(I+1)+X(I)*X(I)))*(X(I+1)-X(I)) + RETURN + END + SUBROUTINE PARCOE(F,X,A,B,C,N) + IMPLICIT REAL*8 (A-H,O-Z) + PARAMETER (kw=99) + DIMENSION F(1),X(1),A(1),B(1),C(1) + C(1)=0. + B(1)=(F(2)-F(1))/(X(2)-X(1)) + A(1)=F(1)-X(1)*B(1) + N1=N-1 + C(N)=0. + B(N)=(F(N)-F(N1))/(X(N)-X(N1)) + A(N)=F(N)-X(N)*B(N) + IF(N.EQ.2)RETURN + DO 1 J=2,N1 + J1=J-1 + D=(F(J)-F(J1))/(X(J)-X(J1)) + C(J)=F(J+1)/((X(J+1)-X(J))*(X(J+1)-X(J1)))-F(J)/((X(J)-X(J1))* + 1(X(J+1)-X(J)))+F(J1)/((X(J)-X(J1))*(X(J+1)-X(J1))) + B(J)=D-(X(J)+X(J1))*C(J) + 1 A(J)=F(J1)-X(J1)*D+X(J)*X(J1)*C(J) + C(2)=0. + B(2)=(F(3)-F(2))/(X(3)-X(2)) + A(2)=F(2)-X(2)*B(2) + C(3)=0. + B(3)=(F(4)-F(3))/(X(4)-X(3)) + A(3)=F(3)-X(3)*B(3) + DO 2 J=2,N1 + IF(C(J).EQ.0.)GO TO 2 + J1=J+1 + WT=ABS(C(J1))/(ABS(C(J1))+ABS(C(J))) + A(J)=A(J1)+WT*(A(J)-A(J1)) + B(J)=B(J1)+WT*(B(J)-B(J1)) + C(J)=C(J1)+WT*(C(J)-C(J1)) + 2 CONTINUE + A(N1)=A(N) + B(N1)=B(N) + C(N1)=C(N) + RETURN + END + FUNCTION MAP1(XOLD,FOLD,NOLD,XNEW,FNEW,NNEW) + IMPLICIT REAL*8 (A-H,O-Z) + PARAMETER (kw=99) + DIMENSION XOLD(1),FOLD(1),XNEW(1),FNEW(1) + L=2 + LL=0 + DO 50 K=1,NNEW + 10 IF(XNEW(K).LT.XOLD(L))GO TO 20 + L=L+1 + IF(L.GT.NOLD)GO TO 30 + GO TO 10 + 20 IF(L.EQ.LL)GO TO 50 + IF(L.EQ.2)GO TO 30 + IF(L.EQ.3)GO TO 30 + L1=L-1 + IF(L.GT.LL+1.OR.L.EQ.3)GO TO 21 + IF(L.GT.LL+1.OR.L.EQ.4)GO TO 21 + CBAC=CFOR + BBAC=BFOR + ABAC=AFOR + IF(L.EQ.NOLD)GO TO 22 + GO TO 25 + 21 L2=L-2 + D=(FOLD(L1)-FOLD(L2))/(XOLD(L1)-XOLD(L2)) + CBAC=FOLD(L)/((XOLD(L)-XOLD(L1))*(XOLD(L)-XOLD(L2)))+ + 1(FOLD(L2)/(XOLD(L)-XOLD(L2))-FOLD(L1)/(XOLD(L)-XOLD(L1)))/ + 2(XOLD(L1)-XOLD(L2)) + BBAC=D-(XOLD(L1)+XOLD(L2))*CBAC + ABAC=FOLD(L2)-XOLD(L2)*D+XOLD(L1)*XOLD(L2)*CBAC + IF(L.LT.NOLD)GO TO 25 + 22 C=CBAC + B=BBAC + A=ABAC + LL=L + GO TO 50 + 25 D=(FOLD(L)-FOLD(L1))/(XOLD(L)-XOLD(L1)) + CFOR=FOLD(L+1)/((XOLD(L+1)-XOLD(L))*(XOLD(L+1)-XOLD(L1)))+ + 1(FOLD(L1)/(XOLD(L+1)-XOLD(L1))-FOLD(L)/(XOLD(L+1)-XOLD(L)))/ + 2(XOLD(L)-XOLD(L1)) + BFOR=D-(XOLD(L)+XOLD(L1))*CFOR + AFOR=FOLD(L1)-XOLD(L1)*D+XOLD(L)*XOLD(L1)*CFOR + WT=0. + IF(ABS(CFOR).NE.0.)WT=ABS(CFOR)/(ABS(CFOR)+ABS(CBAC)) + A=AFOR+WT*(ABAC-AFOR) + B=BFOR+WT*(BBAC-BFOR) + C=CFOR+WT*(CBAC-CFOR) + LL=L + GO TO 50 + 30 IF(L.EQ.LL)GO TO 50 + L=AMIN0(NOLD,L) + C=0. + B=(FOLD(L)-FOLD(L-1))/(XOLD(L)-XOLD(L-1)) + A=FOLD(L)-XOLD(L)*B + LL=L + 50 FNEW(K)=A+(B+C*XNEW(K))*XNEW(K) + MAP1=LL-1 + RETURN + END + SUBROUTINE SOLVIT(A,N,B,IPIVOT) + IMPLICIT REAL*8 (A-H,O-Z) + PARAMETER (kw=99) +C SOLVES LINEAR EQUATIONS +C A IS A COMPLETELY FILLED N BY N ARRAY WHICH IS DESTROYED. +C B IS THE RIGHT SIDE VECTOR OF LENGTH N AND RETURNS AS THE SOLUTION +C IPIVOT IS A SCRATCH AREA OF LENGTH N. + DIMENSION A(1),B(1),IPIVOT(1) + EQUIVALENCE(AMAX,SWAP,PIVOT,T) + DO 20 J=1,N + 20 IPIVOT(J)=0 + DO 550 I=1,N + AMAX=0. + DO 105 J=1,N + IF(IPIVOT(J).EQ.1)GO TO 105 + JK=J-N + DO 100 K=1,N + JK=JK+N + IF(IPIVOT(K).EQ.1)GO TO 100 + AA=ABS(A(JK)) + IF(AMAX.GE.AA)GO TO 100 + IROW=J + ICOLUM=K + AMAX=AA + 100 CONTINUE + 105 CONTINUE + IPIVOT(ICOLUM)=IPIVOT(ICOLUM)+1 + IF(IROW.EQ.ICOLUM)GO TO 260 + IRL=IROW-N + ICL=ICOLUM-N + DO 200 L=1,N + IRL=IRL+N + SWAP=A(IRL) + ICL=ICL+N + A(IRL)=A(ICL) + 200 A(ICL)=SWAP + SWAP=B(IROW) + B(IROW)=B(ICOLUM) + B(ICOLUM)=SWAP + 260 ICIC=ICOLUM*N+ICOLUM-N + PIVOT=A(ICIC) + A(ICIC)=1. + ICL=ICOLUM-N + DO 350 L=1,N + ICL=ICL+N + 350 A(ICL)=A(ICL)/PIVOT + B(ICOLUM)=B(ICOLUM)/PIVOT + L1IC=ICOLUM*N-N + DO 550 L1=1,N + L1IC=L1IC+1 + IF(L1.EQ.ICOLUM)GO TO 550 + T=A(L1IC) + A(L1IC)=0. + L1L=L1-N + ICL=ICOLUM-N + DO 450 L=1,N + L1L=L1L+N + ICL=ICL+N + 450 A(L1L)=A(L1L)-A(ICL)*T + B(L1)=B(L1)-B(ICOLUM)*T + 550 CONTINUE + RETURN + END + FUNCTION EXPI(N,X) + IMPLICIT REAL*8 (A-H,O-Z) + PARAMETER (kw=99) +C EXPONENTIAL INTEGRAL FOR POSITIVE ARGUMENTS AFTER CODY AND +C THACHER, MATH. OF COMP.,22,641(1968) + DATA X1/-1.E20/ + DATA A0,A1,A2,A3,A4,A5,B0,B1,B2,B3,B4/ + 1-44178.5471728217D0,57721.7247139444D0,9938.31388962037D0, + 2 1842.11088668000D0,101.093806161906D0,5.03416184097568D0, + 3 76537.3323337614D0,32597.1881290275D0,6106.10794245759D0, + 4 635.419418378382D0,37.2298352833327D0/ + DATA C0,C1,C2,C3,C4,C5,C6,D1,D2,D3,D4,D5,D6/ + 1 4.65627107975096D-7, + 2 .999979577051595D0,9.04161556946329D0,24.3784088791317D0, + 3 23.0192559391333D0,6.90522522784444D0,.430967839469389D0, + 4 10.0411643829054D0,32.4264210695138D0,41.2807841891424D0, + 5 20.4494785013794D0,3.31909213593302D0,.103400130404874D0/ + DATA E0,E1,E2,E3,E4,E5,E6,F1,F2,F3,F4,F5,F6/ + 1-.999999999998447D0,-26.6271060431811D0,-241.055827097015D0, + 2-895.927957772937D0,-1298.85688746484D0,-545.374158883133D0, + 3-5.66575206533869D0, 28.6271060422192D0, 292.310039388533D0, + 4 1332.78537748257D0, 2777.61949509163D0, 2404.01713225909D0, + 5 631.657483280800D0/ + IF(X.EQ.X1)GO TO 40 + EX=EXP(-X) + X1=X + IF(X.GT.4.)GO TO 10 + IF(X.GT.1.)GO TO 20 + IF(X.GT.0.)GO TO 30 + EX1=0. + GO TO 40 + 10 EX1=(EX+EX*(E0+(E1+(E2+(E3+(E4+(E5+E6/X)/X)/X)/X)/X)/X)/ + 1 (X+ F1+(F2+(F3+(F4+(F5+F6/X)/X)/X)/X)/X))/X + GO TO 40 + 20 EX1=EX*(C6+(C5+(C4+(C3+(C2+(C1+C0*X)*X)*X)*X)*X)*X)/ + 1 (D6+(D5+(D4+(D3+(D2+(D1+X)*X)*X)*X)*X)*X) + GO TO 40 + 30 EX1=(A0+(A1+(A2+(A3+(A4+A5*X)*X)*X)*X)*X)/ + 1 (B0+(B1+(B2+(B3+(B4+X)*X)*X)*X)*X)- LOG(X) + 40 EXPI=EX1 + IF(N.EQ.1)RETURN + N1=N-1 + DO 41 I=1,N1 + 41 EXPI=(EX-X*EXPI)/DBLE(I) + RETURN + END + SUBROUTINE W(A,B,N) + IMPLICIT REAL*8 (A-H,O-Z) + PARAMETER (kw=99) + DIMENSION B(1) + WRITE(6,100)A,(B(I),I=1,N) + 100 FORMAT(1H0,A6,1P10E12.4/(7X,10E12.4)) +C 100 FORMAT(1H0,A6,0P10E12.4/(7X,10E12.4)) + RETURN + END + SUBROUTINE READIN(MODE) + IMPLICIT REAL*8 (A-H,O-Z) + PARAMETER (kw=99) +C MODE=1 COMPUTE A MODEL +C MODE=2 READ A PREVIOUSLY CALCULATED MODEL FOR SOME APPLICATION +C MODE=20 SAME AS 2 BUT ON ENCOUNTERING END RETURN WITH NRHOX=0 + COMMON /ABROSS/ABROSS(kw),TAUROS(kw) + COMMON /BAL/BAL1(kw,9),AAL1(kw),SAL1(kw),XNFPAL(kw,2),BAL2(kw,1) + COMMON /BB/BB1(kw,7),XNFPB(kw,1) + COMMON /BC/BC1(kw,14),AC1(kw),SC1(kw),XNFPC(kw,2),BC2(kw,6) + COMMON /BCA/BCA1(kw,8),BCA2(kw,5),XNFPCA(kw,2) + COMMON /BFE/BFE1(kw,15),AFE1(kw),SFE1(kw),XNFPFE(kw,1) + COMMON /BHE/BHE1(kw,29),AHE1(kw),SHE1(kw),BHE2(kw,6),AHE2(kw), + 1 SHE2(kw),AHEMIN(kw),SIGHE(kw),XNFPHE(kw,3),XNFHE(kw,2) + COMMON /BHYD/BHYD(kw,8),AHYD(kw),SHYD(kw),AH2P(kw),BMIN(kw), + 1 AHMIN(kw),SHMIN(kw),SIGH(kw),SIGH2(kw),AHLINE(kw), + 2 SHLINE(kw),XNFPH(kw,2),XNFH(kw) + COMMON /BK/BK1(kw,8),XNFPK(kw,1) + COMMON /BMG/BMG1(kw,11),AMG1(kw),SMG1(kw),XNFPMG(kw,2),BMG2(kw,6) + COMMON /BNA/BNA1(kw,8),XNFPNA(kw,1) + COMMON /BO/BO1(kw,13),XNFPO(kw,1),BO2(kw,4) + COMMON /BSI/BSI1(kw,11),ASI1(kw),SSI1(kw),XNFPSI(kw,2),BSI2(kw,10) + COMMON /CONV/DLTDLP(kw),HEATCP(kw),DLRDLT(kw),VELSND(kw), + 1 GRDADB(kw),HSCALE(kw),FLXCNV(kw),VCONV(kw),MIXLTH, + 2 IFCONV + REAL*8 MIXLTH + COMMON /ELEM/ABUND(99),ATMASS(99),ELEM(99),XABUND(99),WTMOLE + COMMON /FLUX/FLUX,FLXERR(kw),FLXDRV(kw),FLXRAD(kw) + COMMON /FREE/WORD(6),NUMCOL,LETCOL,LAST,MORE,IFFAIL,MAXPOW + COMMON /FRESET/FRESET(500),RCOSET(500),NULO,NUHI,NUMNU,IFWAVE, + 1 WBEGIN,DELTAW + COMMON /HEIGHT/HEIGHT(kw) + COMMON /IF/IFCORR,IFPRES,IFSURF,IFSCAT,IFMOL,NLTEON,IFOP(20) + COMMON /ITER/ITER,IFPRNT(15),IFPNCH(15),NUMITS + COMMON /JUNK/TITLE(74),FREQID(6),WLTE,XSCALE + COMMON /MUS/ANGLE(20),SURFI(20),NMU + COMMON /PZERO/PZERO,PCON,PRADK0,PTURB0,KNU(kw),PRADK(kw),EDENS(kw) + REAL*8 KNU + COMMON /RAD/ACCRAD(kw),PRAD(kw) + COMMON /RHOX/RHOX(kw),NRHOX + COMMON /STATE/P(kw),XNE(kw),XNATOM(kw),RHO(kw),PTOTAL(kw) + COMMON /TEFF/TEFF,GRAV,GLOG + COMMON /TEMP/T(kw),TKEV(kw),TK(kw),HKT(kw),TLOG(kw),HCKT(kw),ITEMP + COMMON /TURBPR/VTURB(kw),PTURB(kw),TRBFDG,TRBCON,TRBPOW,TRBSND, + 1 IFTURB + DIMENSION CARD(80) + EQUIVALENCE (CARD(1),XABUND(1)),(CARD81,XABUND(81)) + DIMENSION RHOXA(kw),DUM1(kw),DUM2(kw),DUM3(kw),DUM4(kw),DUM5(kw) + DIMENSION DUM6(kw),DUM7(kw),DUM8(kw),TAUSTD(kw) + EQUIVALENCE (DUM1(1),DLTDLP(1)),(DUM2(1),HEATCP(1)) + EQUIVALENCE (DUM3(1),DLRDLT(1)),(DUM4(1),VELSND(1)) + EQUIVALENCE (DUM5(1),GRDADB(1)),(DUM6(1),HSCALE(1)) + EQUIVALENCE (DUM7(1),FLXCNV(1)),(RHOXA(1),VCONV(1),DUM8(1)) + EQUIVALENCE (TAUSTD(1),XNATOM(1)) + DIMENSION IFB(21) + DIMENSION IFOP1(20) +C H1,H2PLUS,HMINUS,HRAY,HE1,HE2,HEMINUS,HERAY,COOL,LUKE, +C HOT,ELECTRON,H2RAY,HLINES,LINES,LINESCAT,XLINES,XLSCAT,XCONT,XSCAT + DATA IFOP1/324,609929997,579591588,429928,11165,11166,564793810, + 1 15271257,173061,636997,11527,369467847,16486929,577716835, + 2 22965179,849711626,1687220147,1687711471,45152896,45946435/ +C END DEPARTURE COEFFICIENTS,H1,HMINUS,HE1,HE2,C1,MG1,AL1,SI1 +C C2,AL2,MG2,SI2,CA1,CA2,NA1,O1,B1,FE1,O2,K1 + DATA IFB/7367,324,579591588,11165,11166,139,18084,1841,26372, + 1 140,1842,18085,26373,4172,4173,19231,583,102,8427,584,435/ + DATA WWLTE,WWNLTE/4HLTE ,4HNLTE/ + DATA BLANK/1H / + EXP10(X)=EXP(X*2.30258509299405D0) + CARD81=BLANK + LAST=81 + MAXPOW=38 + 98 MORE=0 + LETCOL=1 + 99 READ(5,1) CARD + 1 FORMAT(80A1) +C (M)ACHINE (I)NDEPENDENT (A)LPHAMERIC (C)ODE +C BASE 37 A=1, Z=26, 0=27, 9=36 + MIAC=IWORDF(CARD) + NUMCOL=LETCOL +C TEFF + 3 IF(MIAC.EQ.1020133)GO TO 100 +C GRAVITY + IF(MIAC.EQ.519223721)GO TO 200 +C OPACITY + IF(MIAC.EQ.1070201044)GO TO 300 +C KAPPA + IF(MIAC.EQ.20688921)GO TO 400 +C ITERATIONS + IF(MIAC.EQ.661856797)GO TO 500 +C MOLECULES + IF(MIAC.EQ.930198669)GO TO 600 +C CALCULATE + IF(MIAC.EQ.210518764)GO TO 700 +C ABUNDANCE + IF(MIAC.EQ.74175307)GO TO 800 +C PRINT + IF(MIAC.EQ.30911189)GO TO 900 +C PUNCH + IF(MIAC.EQ.31069574)GO TO 1000 +C READ + IF(MIAC.EQ.918640)GO TO 1100 +C LTE + IF(MIAC.EQ.17173)GO TO 1200 +C NLTE + IF(MIAC.EQ.726315)GO TO 1300 +C BEGIN + IF(MIAC.EQ.4011517)GO TO 1500 +C SCATTERING + IF(MIAC.EQ.1323236444)GO TO 1600 +C END + IF(MIAC.EQ.7367)GO TO 1700 +C TITLE + IF(MIAC.EQ.37966926)GO TO 1800 +C CONVECTION + IF(MIAC.EQ.236883734)GO TO 1900 +C TURBULENCE + IF(MIAC.EQ.1427151802)GO TO 2000 +C CHANGE RHOX + IF(MIAC.EQ.223095242)GO TO 2100 +C FREQUENCIES +C IF(MIAC.EQ.450075960)GO TO 2200 +C SURFACE + IF(MIAC.EQ.1357812572)GO TO 2300 +C PRESSURE + IF(MIAC.EQ.1143518210)GO TO 2400 +C CORRECTION + IF(MIAC.EQ.237080870)GO TO 2500 +C WAVELENGTH + IF(MIAC.EQ.1597906832)GO TO 2600 +C SCALE MODEL + IF(MIAC.EQ.35762836)GO TO 2700 +C CALL + IF(MIAC.EQ.153784)GO TO 2800 +C + 9000 WRITE(6,2) CARD + 2 FORMAT(21H I DO NOT UNDERSTAND 80A1) + CALL EXIT + 97 LETCOL=MAX0(LETCOL,NUMCOL) + MORE=1 + MIAC=IWORDF(CARD) + IF(IFFAIL.EQ.1)GO TO 98 + MORE=0 + GO TO 3 +C************ + 100 TEFF=FREEFF(CARD) + FLUX=5.6697D-5/12.5664D0*TEFF**4 + GO TO 97 +C************ + 200 GRAV=FREEFF(CARD) + IF(GRAV.LT.10.)GRAV=EXP10(GRAV) + GLOG= LOG10(GRAV) + GO TO 97 +C************ + 300 MIAC=IWORDF(CARD) +C ON + IF(MIAC.EQ.569)GO TO 380 +C OFF + IF(MIAC.EQ.20763)GO TO 390 +C IFOP + IF(MIAC.EQ.464662)GO TO 370 + GO TO 9000 + 370 NUMCOL=LETCOL + DO 371 I=1,20 + 371 IFOP(I)=FREEFF(CARD) + GO TO 98 +C ON + 380 ISWCH=1 + GO TO 391 +C OFF + 390 ISWCH=0 + 391 MORE=1 + 395 MIAC=IWORDF(CARD) + IF(IFFAIL.EQ.1)GO TO 97 + DO 392 I=1,20 + II=I + IF(MIAC.EQ.IFOP1(I))GO TO 393 + 392 CONTINUE + GO TO 9000 + 393 IFOP(II)=ISWCH + GO TO 395 +C************ + 400 GO TO 9000 +C************ + 500 NUMITS=FREEFF(CARD) + DO 501 I=1,15 + 501 IFPNCH(I)=0 + IFPNCH(NUMITS)=1 + GO TO 97 +C************ + 600 MIAC=IWORDF(CARD) +C ON + IF(MIAC.EQ.569)GO TO 610 +C OFF + IF(MIAC.EQ.20763)GO TO 620 + GO TO 9000 + 610 IFMOL=1 + GO TO 97 + 620 IFMOL=0 + GO TO 97 +C************ + 700 NRHOX=FREEFF(CARD) + TAU1LG=FREEFF(CARD) + STEPLG=FREEFF(CARD) + DO 701 J=1,NRHOX + TAUROS(J)=EXP10(TAU1LG+DBLE(J-1)*STEPLG) + 701 T(J)=TEFF*(.75*(.710+TAUROS(J)-.1331*EXP(-3.4488*TAUROS(J))))**.25 + 702 DO 703 J=1,NRHOX + XNE(J)=0. + PRADK(J)=2.521D-15* MAX (T(J)**4,TEFF**4/2.) + VTURB(J)=0. + 703 PTURB(J)=0. + PRADK0=PRADK(1) + PCON=0. + PTURB0=0. + PZERO=PRADK0 + DO 704 J=1,NRHOX + 704 PRAD(J)=PRADK(J)-PRADK0 + CALL TTAUP(T,TAUROS,ABROSS,PTOTAL,P,PRAD,PTURB,GRAV,NRHOX) + DO 705 J=1,NRHOX + RHOX(J)=PTOTAL(J)/GRAV + 705 PTOTAL(J)=PTOTAL(J)+PZERO + GO TO 97 +C************ + 800 MIAC=IWORDF(CARD) +C SCALE + IF(MIAC.EQ.35762836)GO TO 810 +C CHANGE + IF(MIAC.EQ.223095242)GO TO 820 + GO TO 9000 + 810 NUMCOL=LETCOL + XSCALE=FREEFF(CARD) + GO TO 97 + 820 MORE=1 + 821 IZ=FREEFF(CARD) + IF(IFFAIL.EQ.1)GO TO 98 + ABUND(IZ)=FREEFF(CARD) + GO TO 821 +C************ + 900 DO 901 I=1,NUMITS + 901 IFPRNT(I)=FREEFF(CARD) + GO TO 97 +C************ + 1000 DO 1001 I=1,NUMITS + 1001 IFPNCH(I)=FREEFF(CARD) + GO TO 97 +C************ + 1100 MIAC=IWORDF(CARD) + NUMCOL=LETCOL +C FREQUENCIES + IF(MIAC.EQ.450075960)GO TO 1110 +C DEPARTURE COEFFICIENTS + IF(MIAC.EQ.287559136)GO TO 1120 +C STARTING T-TAU + IF(MIAC.EQ.1355094447)GO TO 1130 +C DECK + IF(MIAC.EQ.209579)GO TO 1140 +C DECK6 + IF(MIAC.EQ.7754456)GO TO 1140 +C THIS IS FAKE SHOULD SAY AVRETT DEPARTURE COEFFICIENTS +C DEPARTURE COEFFICIENTS + IF(MIAC.EQ.287559136)GO TO 1150 +C MOLECULES + IF(MIAC.EQ.930198669)GO TO 7160 + GO TO 9000 +C FREQUENCIES + 1110 NUM=FREEFF(CARD) + NULO=FREEFF(CARD) + NUHI=FREEFF(CARD) + NUMNU=NUM + LETCOL=NUMCOL + NDUMMY=IWORDF(CARD) + DO 1111 I=1,6 + 1111 FREQID(I)=WORD(I) + NUMCOL=LETCOL + DO 1112 I=1,NUMNU + NU=FREEFR(CARD) + FRESET(NU)=FREEFF(CARD) +C PROVISION FOR READING WAVELENGTHS + IF(FRESET(NU).LT.1.D7)FRESET(NU)=2.99792458D17/FRESET(NU) +C PROVISION FOR READING WAVENUMBERS SCALED BY 1.E25 + IF(FRESET(NU).GT.1.D20)FRESET(NU)=FRESET(NU)*(2.99792458D10/1.D25) + 1112 RCOSET(NU)=FREEFF(CARD) + GO TO 98 +C DEPARTURE COEFFICIENTS + 1120 NRHOX=FREEFF(CARD) + DO 1122 J=1,NRHOX + NUMCOL=1 + READ(5,1)CARD + DUMMY=FREEFF(CARD) + DO 1121 I=1,6 + 1121 BHYD(J,I)=FREEFF(CARD) + 1122 BMIN(J)=FREEFF(CARD) + WLTE=WWNLTE + NLTEON=1 + GO TO 98 + 1130 NRHOX=FREEFF(CARD) + DO 1131 J=1,NRHOX + NUMCOL=1 + READ(5,1)CARD + TAUROS(J)=FREEFF(CARD) + 1131 T(J)=FREEFF(CARD) + IF(TAUROS(1).GT.0.)GO TO 702 + DO 1132 J=1,NRHOX + 1132 TAUROS(J)=EXP10(TAUROS(J)) + GO TO 702 + 1140 NRHOX=FREEFF(CARD) + DO 1141 J=1,NRHOX + NUMCOL=1 + READ(5,1)CARD + RHOX(J)=FREEFF(CARD) + T(J)=FREEFF(CARD) + MORE=1 + P(J)=FREEFF(CARD) + XNE(J)=FREEFF(CARD) + ABROSS(J)=FREEFF(CARD) + PRAD(J)=FREEFF(CARD) + VTURB(J)=FREEFF(CARD) + 1141 MORE=0 + IF(RHOX(1).GE.0.)GO TO 1143 + DO 1142 J=1,NRHOX + 1142 RHOX(J)=EXP10(RHOX(J)) + 1143 PRADK0=0. + PTURB0=PTURB(1) + PCON=0. + PZER0=PCON+PRADK0+PTURB0 + IF(MIAC.NE.7754456)GO TO 98 + READ(5,1)CARD + NUMCOL=1 + PRADK0=FREEFF(CARD) + DO 1144 J=1,NRHOX + 1144 ACCRAD(J)=PRAD(J) + CALL INTEG(RHOX,ACCRAD,PRAD,NRHOX,ACCRAD(1)*RHOX(1)) + DO 1145 J=1,NRHOX + 1145 PRADK(J)=PRAD(J)+PRADK0 + GO TO 98 + 1150 NLTEON=1 + WLTE=WWNLTE + 1151 READ(5,1)CARD + MORE=0 + LETCOL=1 + MIAC=IWORDF(CARD) + NUMCOL=LETCOL + LEVEL=FREEFF(CARD) + NB=FREEFF(CARD) + DO 1152 I=1,21 + IF(MIAC.EQ.IFB(I))GO TO 1153 + 1152 CONTINUE + GO TO 9000 + 1153 GO TO (1170,1154,1156,1158,1160,1162,1164,1166,1168,3170,3172, + 1 3174,3176,3178,3180,3182,3184,3186,3200,3206,3218),I + 1154 DO 1155 J=1,NB + 1155 BHYD(J,LEVEL)=FREEFR(CARD) + GO TO 1151 + 1156 DO 1157 J=1,NB + 1157 BMIN(J)=FREEFR(CARD) + GO TO 1151 + 1158 DO 1159 J=1,NB + 1159 BHE1(J,LEVEL)=FREEFR(CARD) + GO TO 1151 + 1160 DO 1161 J=1,NB + 1161 BHE2(J,LEVEL)=FREEFR(CARD) + GO TO 1151 + 1162 DO 1163 J=1,NB + 1163 BC1(J,LEVEL)=FREEFR(CARD) + GO TO 1151 + 1164 DO 1165 J=1,NB + 1165 BMG1(J,LEVEL)=FREEFR(CARD) + GO TO 1151 + 1166 DO 1167 J=1,NB + 1167 BAL1(J,LEVEL)=FREEFR(CARD) + GO TO 1151 + 1168 DO 1169 J=1,NB + 1169 BSI1(J,LEVEL)=FREEFR(CARD) + GO TO 1151 + 3170 DO 3171 J=1,NB + 3171 BC 2(J,LEVEL)=FREEFR(CARD) + GO TO 1151 + 3172 DO 3173 J=1,NB + 3173 BAL2(J,LEVEL)=FREEFR(CARD) + GO TO 1151 + 3174 DO 3175 J=1,NB + 3175 BMG2(J,LEVEL)=FREEFR(CARD) + GO TO 1151 + 3176 DO 3177 J=1,NB + 3177 BSI2(J,LEVEL)=FREEFR(CARD) + GO TO 1151 + 3178 DO 3179 J=1,NB + 3179 BCA1(J,LEVEL)=FREEFR(CARD) + GO TO 1151 + 3180 DO 3181 J=1,NB + 3181 BCA2(J,LEVEL)=FREEFR(CARD) + GO TO 1151 + 3182 DO 3183 J=1,NB + 3183 BNA1(J,LEVEL)=FREEFR(CARD) + GO TO 1151 + 3184 DO 3185 J=1,NB + 3185 BO 1(J,LEVEL)=FREEFR(CARD) + GO TO 1151 + 3186 DO 3187 J=1,NB + 3187 BB 1(J,LEVEL)=FREEFR(CARD) + GO TO 1151 + 3200 DO 3201 J=1,NB + 3201 BFE1(J,LEVEL)=FREEFR(CARD) + GO TO 1151 + 3206 DO 3207 J=1,NB + 3207 BO 2(J,LEVEL)=FREEFR(CARD) + GO TO 1151 + 3218 DO 3219 J=1,NB + 3219 BK 1(J,LEVEL)=FREEFR(CARD) + GO TO 1151 + 1170 DO 2180 J=1,NRHOX + DO 2171 I=1,29 + 2171 BHE1(J,I)=BHE1(J,I)*BHE2(J,1) + DO 2172 I=1,14 + 2172 BC 1(J,I)=BC 1(J,I)*BC 2(J,1) + DO 2173 I=1,11 + 2173 BMG1(J,I)=BMG1(J,I)*BMG2(J,1) + DO 2174 I=1,9 + 2174 BAL1(J,I)=BAL1(J,I)*BAL2(J,1) + DO 2175 I=1,11 + 2175 BSI1(J,I)=BSI1(J,I)*BSI2(J,1) + DO 2176 I=1,8 + 2176 BCA1(J,I)=BCA1(J,I)*BCA2(J,1) + 2180 CONTINUE + WRITE(6,1171) + 1171 FORMAT(1H1,9X,14HBHYD......BMIN) + WRITE(6,1172)(I,I=1,8) + 1172 FORMAT(1X,10I12) + DO 1174 J=1,NRHOX + 1174 WRITE(6,1173)J,(BHYD(J,I),I=1,8),BMIN(J) + 1173 FORMAT(I3,1P10E12.4) +C1173 FORMAT(I3,1P10E12.4) + WRITE(6,1175) + 1175 FORMAT(1H1,9X,4HBHE1) + WRITE(6,1172)(I,I=1,10) + DO 1176 J=1,NRHOX + 1176 WRITE(6,1173)J,(BHE1(J,I),I=1,10) + WRITE(6,1175) + WRITE(6,1172)(I,I=11,20) + DO 1177 J=1,NRHOX + 1177 WRITE(6,1173)J,(BHE1(J,I),I=11,20) + WRITE(6,1175) + WRITE(6,1172)(I,I=21,29) + DO 1178 J=1,NRHOX + 1178 WRITE(6,1173)J,(BHE1(J,I),I=21,29) + WRITE(6,1179) + 1179 FORMAT(1H1,9X,4HBHE2) + WRITE(6,1172)(I,I=1,6) + DO 1180 J=1,NRHOX + 1180 WRITE(6,1173)J,(BHE2(J,I),I=1,6) + WRITE(6,1181) + 1181 FORMAT(1H1,9X,3HBC1) + WRITE(6,1172)(I,I=1,10) + DO 1182 J=1,NRHOX + 1182 WRITE(6,1173)J,(BC1(J,I),I=1,10) + WRITE(6,1181) + WRITE(6,1172)(I,I=11,14) + DO 1183 J=1,NRHOX + 1183 WRITE(6,1173)J,(BC1(J,I),I=11,14) + WRITE(6,1192) + 1192 FORMAT(1H1,9X,3HBC2) + WRITE(6,1172)(I,I=1,6) + DO 1193 J=1,NRHOX + 1193 WRITE(6,1173)J,(BC2(J,I),I=1,6) + WRITE(6,1184) + 1184 FORMAT(1H1,9X,4HBMG1) + WRITE(6,1172)(I,I=1,10) + DO 1185 J=1,NRHOX + 1185 WRITE(6,1173)J,(BMG1(J,I),I=1,10) + WRITE(6,1184) + WRITE(6,1172)(I,I=11,11) + DO 1191 J=1,NRHOX + 1191 WRITE(6,1173)J,(BMG1(J,I),I=11,11) + WRITE(6,1194) + 1194 FORMAT(1H1,9X,4HBMG2) + WRITE(6,1172)(I,I=1,6) + DO 1195 J=1,NRHOX + 1195 WRITE(6,1173)J,(BMG2(J,I),I=1,6) + WRITE(6,1186) + 1186 FORMAT(1H1,9X,4HBAL1) + WRITE(6,1172)(I,I=1,9) + DO 1187 J=1,NRHOX + 1187 WRITE(6,1173)J,(BAL1(J,I),I=1,9) + WRITE(6,1196) + 1196 FORMAT(1H1,9X,4HBAL2) + WRITE(6,1172)(I,I=1,1) + DO 1197 J=1,NRHOX + 1197 WRITE(6,1173)J,(BAL2(J,I),I=1,1) + WRITE(6,1188) + 1188 FORMAT(1H1,9X,4HBSI1) + WRITE(6,1172)(I,I=1,10) + DO 1189 J=1,NRHOX + 1189 WRITE(6,1173)J,(BSI1(J,I),I=1,10) + WRITE(6,1188) + WRITE(6,1172)(I,I=11,11) + DO 1190 J=1,NRHOX + 1190 WRITE(6,1173)J,(BSI1(J,I),I=11,11) + WRITE(6,1198) + 1198 FORMAT(1H1,9X,4HBSI2) + WRITE(6,1172)(I,I=1,10) + DO 1199 J=1,NRHOX + 1199 WRITE(6,1173)J,(BSI2(J,I),I=1,10) + WRITE(6,3188) + 3188 FORMAT(1H1,9X,4HBCA1) + WRITE(6,1172)(I,I=1,8) + DO 3189 J=1,NRHOX + 3189 WRITE(6,1173)J,(BCA1(J,I),I=1,8) + WRITE(6,3190) + 3190 FORMAT(1H1,9X,4HBCA2) + WRITE(6,1172)(I,I=1,5) + DO 3191 J=1,NRHOX + 3191 WRITE(6,1173)J,(BCA2(J,I),I=1,5) + WRITE(6,3192) + 3192 FORMAT(1H1,9X,4HBNA1) + WRITE(6,1172)(I,I=1,8) + DO 3193 J=1,NRHOX + 3193 WRITE(6,1173)J,(BNA1(J,I),I=1,8) + WRITE(6,3194) + 3194 FORMAT(1H1,9X,4HBO1 ) + WRITE(6,1172)(I,I=1,10) + DO 3195 J=1,NRHOX + 3195 WRITE(6,1173)J,(BO1(J,I),I=1,10) + WRITE(6,3194) + WRITE(6,1172)(I,I=11,13) + DO 3196 J=1,NRHOX + 3196 WRITE(6,1173)J,(BO1(J,I),I=11,13) + WRITE(6,3197) + 3197 FORMAT(1H1,9X,4HBB1 ) + WRITE(6,1172)(I,I=1,7) + DO 3198 J=1,NRHOX + 3198 WRITE(6,1173)J,(BB1(J,I),I=1,7) + WRITE(6,3202) + 3202 FORMAT(1H1,9X,4HBFE1) + WRITE(6,1172)(I,I=1,10) + DO 3203 J=1,NRHOX + 3203 WRITE(6,1173)J,(BFE1(J,I),I=1,10) + WRITE(6,3202) + WRITE(6,1172)(I,I=11,15) + DO 3204 J=1,NRHOX + 3204 WRITE(6,1173)J,(BFE1(J,I),I=11,15) + WRITE(6,3208) + 3208 FORMAT(1H1,9X,4HBO2 ) + WRITE(6,1172)(I,I=1,4) + DO 3209 J=1,NRHOX + 3209 WRITE(6,1173)J,(BO2(J,I),I=1,4) + WRITE(6,3210) + 3210 FORMAT(1H1,9X,4HBK 1) + WRITE(6,1172)(I,I=1,8) + DO 3211 J=1,NRHOX + 3211 WRITE(6,1173)J,(BK 1(J,I),I=1,8) + GO TO 98 + 7160 CALL READMOL + GO TO 98 +C************ + 1200 NLTEON=0 + WLTE=WWLTE + DO 1202 J=1,40 + DO 1201 I=1,6 + 1201 BHYD(J,I)=1. + 1202 BMIN(J)=1. + GO TO 97 +C************ + 1300 NLTEON=1 + WLTE=WWNLTE + GO TO 97 +C************ + 1500 IF(MODE.NE.1)GO TO 1510 + IF(NUMITS.EQ.0)WRITE(6,1501) + IF(NRHOX.EQ.0)WRITE(6,1502) + IF(NUMNU.EQ.0)WRITE(6,1503) + IF(TEFF.EQ.0.)WRITE(6,1504) + IF(GRAV.EQ.0.)WRITE(6,1505) + 1501 FORMAT(20H HOW MANY ITERATIONS) + 1502 FORMAT(14H HOW MANY RHOX) + 1503 FORMAT(21H HOW MANY FREQUENCIES) + 1504 FORMAT(10H WHAT TEFF) + 1505 FORMAT(13H WHAT GRAVITY) + IF(NUMITS.EQ.0)CALL EXIT + IF(NRHOX.EQ.0)CALL EXIT + IF(NUMNU.EQ.0)CALL EXIT + IF(TEFF.EQ.0.)CALL EXIT + IF(GRAV.EQ.0.)CALL EXIT + 1510 CONTINUE + IF(ABUND(1).LT.0.)ABUND(1)=EXP10(ABUND(1)) + IF(ABUND(2).LT.0.)ABUND(2)=EXP10(ABUND(2)) + DO 1511 IZ=3,99 + IF(ABUND(IZ).GT.0.)ABUND(IZ)= LOG10(ABUND(IZ)) + 1511 CONTINUE + WRITE(6,1512)TEFF,GLOG,WLTE,TITLE,XSCALE, + 1(ELEM(IZ),ABUND(IZ),IZ=1,99) + 1512 FORMAT(1H1/////5H TEFF,F7.0,8H LOG G,F8.4,3X,A4/ + 17H0TITLE ,74A1/7H0XSCALE,F10.6,2(3X,A2,F8.5)/(10(1X,A2,F6.2))) +C1512 FORMAT(1H1/////5H TEFFF7.0,8H LOG GF6.2,3XA4/ +C 17H0TITLE ,74A1/7H0XSCALEF8.3,2(3X,A2,F6.3)/(10(1XA2,F6.2))) + DO 1513 IZ=3,99 + 1513 XABUND(IZ)=EXP10(ABUND(IZ))*XSCALE + XABUND(1)=ABUND(1) + XABUND(2)=ABUND(2) + WTMOLE=0. + DO 1514 IZ=1,99 + 1514 WTMOLE=WTMOLE+XABUND(IZ)*ATMASS(IZ) + DO 1516 J=1,NRHOX + TK(J)=1.38054D-16*T(J) + HKT(J)=6.6256D-27/TK(J) + HCKT(J)=HKT(J)*2.99792458D10 + TKEV(J)=8.6171D-5*T(J) + TLOG(J)= LOG(T(J)) + XNATOM(J)=P(J)/TK(J)-XNE(J) + RHO(J)=XNATOM(J)*WTMOLE*1.660D-24 + 1516 PTURB(J)=.5*RHO(J)*VTURB(J)**2 + WRITE(6,1517)IFOP + 1517 FORMAT(3H0H1I2,7H H2PLUSI2,7H HMINUSI2,5H HRAYI2,4H HE1I2, + 1 4H HE2I2,8H HEMINUSI2,6H HERAYI2,5H COOLI2,5H LUKEI2/ + 2 4H HOTI2,9H ELECTRONI2,6H H2RAYI2,7H HLINESI2,6H LINESI2, + 3 9H LINESCATI2,7H XLINESI2,7H XLSCATI2,6H XCONTI2,6H XSCATI2) + WRITE(6,1518)IFCORR,IFPRES,IFSURF,IFSCAT,IFCONV,MIXLTH,IFMOL, + 1IFTURB,TRBFDG,TRBPOW,TRBSND,TRBCON + 1518 FORMAT(7H0IFCORRI2,8H IFPRESI2,8H IFSURFI2,8H IFSCATI2, + 1 8H IFCONVI2,8H MIXLTHF6.2,7H IFMOLI2/7H IFTURBI2, + 2 8H TRBFDGF6.2,8H TRBPOWF6.2,8H TRBSNDF6.2,8H TRBCONF6.2) + IF(MODE.NE.1)GO TO 1575 + WRITE(6,1521)NUMITS,IFPRNT,IFPNCH + 1521 FORMAT(7H NUMITSI3,8H IFPRNT15I2,8H IFPNCH15I2) + IF(IFWAVE.EQ.0)GO TO 1560 + WRITE(6,1536)WBEGIN,DELTAW,NUMNU + 1536 FORMAT(7H0WBEGINF11.4,9H DELTAWF7.4,8H NUMNUI5) + GO TO 1575 + 1560 WRITE(6,1561)FREQID,NUMNU,NULO,NUHI + 1561 FORMAT(8H0FREQID 6A1,8H NUMNUI4,7H NULOI4,7H NUHII4) + NN=(NUMNU+3)/4 + NNN=NUMNU-NN*3 + IF(NNN.LT.1)NN=1 + IF(NNN.LT.1)NNN=1 + WRITE(6,1563)((NU,FRESET(NU),RCOSET(NU),NU=I,NUMNU,NN),I=1,NNN) + 1563 FORMAT((4(3XI3,1P2E13.6))) +C1563 FORMAT((4(3XI3,0P2E13.6))) + IF(NN.EQ.NNN)GO TO 1575 + NNN=NNN+1 + WRITE(6,1564)((NU,FRESET(NU),RCOSET(NU),NU=I,NUMNU,NN),I=NNN,NN) + 1564 FORMAT((3(3XI3,1P2E13.6))) +C1564 FORMAT((3(3XI3,0P2E13.6))) +C + 1575 CONTINUE + WRITE(6,1576)(J,RHOX(J),T(J),P(J),XNE(J),ABROSS(J),PRAD(J), + 1VTURB(J),(BHYD(J,I),I=1,6),BMIN(J),J=1,NRHOX) + 1576 FORMAT(1H1/////8X4HRHOX,9X1HT,8X1HP,8X3HXNE,6X6HABROSS,5X4HPRAD, + 1 6X5HVTURB,24X4HBHYD,25X4HBMIN/ +C 2(I3,0PE13.6,0PF9.1,0P5E10.3,1X0P7F8.4)) + 2(I3,1PE13.6,0PF9.1,1P5E10.3,1X0P7F8.4)) +C + RETURN +C************ + 1600 MIAC=IWORDF(CARD) +C ON + IF(MIAC.EQ.569)GO TO 1610 +C OFF + IF(MIAC.EQ.20763)GO TO 1620 + GO TO 9000 + 1610 IFSCAT=1 + GO TO 97 + 1620 IFSCAT=0 + GO TO 97 +C************ + 1700 IF(MODE.NE.20)CALL EXIT + NRHOX=0 + RETURN +C************ + 1800 DO 1801 I=1,74 + 1801 TITLE(I)=CARD(I+6) + GO TO 98 +C************ + 1900 MIAC=IWORDF(CARD) +C ON + IF(MIAC.EQ.569)GO TO 1910 +C OFF + IF(MIAC.EQ.20763)GO TO 1920 + GO TO 9000 + 1910 IFCONV=1 + NUMCOL=LETCOL + MIXLTH=FREEFF(CARD) + GO TO 97 + 1920 IFCONV=0 + MIXLTH=1. + DO 1921 J=1,NRHOX + DLTDLP(J)=0. + HEATCP(J)=0. + DLRDLT(J)=0. + VELSND(J)=0. + GRDADB(J)=0. + HSCALE(J)=0. + FLXCNV(J)=0. + 1921 VCONV(J)=0. + GO TO 97 +C************ + 2000 MIAC=IWORDF(CARD) +C ON + IF(MIAC.EQ.569)GO TO 2010 +C OFF + IF(MIAC.EQ.20763)GO TO 2020 + GO TO 9000 + 2010 IFTURB=1 + NUMCOL=LETCOL + TRBFDG=FREEFF(CARD) + TRBPOW=FREEFF(CARD) + TRBSND=FREEFF(CARD) + TRBCON=FREEFF(CARD) + GO TO 97 + 2020 IFTURB=0 + TRBFDG=0. + TRBPOW=0. + TRBSND=0. + TRBCON=0. + GO TO 97 +C************ + 2100 NNEW=FREEFF(CARD) + DO 2101 J=1,NNEW + 2101 RHOXA(J)=FREEFR(CARD) + IDUM=MAP1(RHOX,T,NRHOX,RHOXA,DUM1,NNEW) + IDUM=MAP1(RHOX,P,NRHOX,RHOXA,DUM2,NNEW) + IDUM=MAP1(RHOX,XNE,NRHOX,RHOXA,DUM3,NNEW) + IDUM=MAP1(RHOX,ABROSS,NRHOX,RHOXA,DUM4,NNEW) + IDUM=MAP1(RHOX,VTURB,NRHOX,RHOXA,DUM5,NNEW) + IDUM=MAP1(RHOX,PRAD,NRHOX,RHOXA,DUM6,NNEW) + IDUM=MAP1(RHOX,BMIN,NRHOX,RHOXA,DUM7,NNEW) + DO 2102 J=1,NNEW + T(J)=DUM1(J) + P(J)=DUM2(J) + XNE(J)=DUM3(J) + ABROSS(J)=DUM4(J) + VTURB(J)=DUM5(J) + PRAD(J)=DUM6(J) + PRADK(J)=PRAD(J)+PRADK0 + 2102 BMIN(J)=DUM7(J) + DO 2105 I=1,6 + IDUM=MAP1(RHOX,BHYD(1,I),NRHOX,RHOXA,DUM1,NNEW) + DO 2104 J=1,NNEW + 2104 BHYD(J,I)=DUM1(J) + 2105 CONTINUE + NRHOX=NNEW + DO 2106 J=1,NRHOX + 2106 RHOX(J)=RHOXA(J) + GO TO 97 +C************ + 2300 MIAC=IWORDF(CARD) +C INTENSITY + IF(MIAC.EQ.651354309)GO TO 2310 +C FLUX + IF(MIAC.EQ.321147)GO TO 2320 +C OFF + IF(MIAC.EQ.20763)GO TO 2330 + GO TO 9000 + 2310 NMU=FREEFF(CARD) + DO 2311 MU=1,NMU + 2311 ANGLE(MU)=FREEFR(CARD) + IFSURF=2 + GO TO 97 + 2320 IFSURF=1 + NMU=1 + GO TO 97 + 2330 IFSURF=0 + NMU=1 + GO TO 97 +C************ + 2400 MIAC=IWORDF(CARD) +C ON + IF(MIAC.EQ.569)GO TO 2410 +C OFF + IF(MIAC.EQ.20763)GO TO 2420 + GO TO 9000 + 2410 IFPRES=1 + GO TO 97 + 2420 IFPRES=0 + GO TO 97 +C************ + 2500 MIAC=IWORDF(CARD) +C ON + IF(MIAC.EQ.569)GO TO 2510 +C OFF + IF(MIAC.EQ.20763)GO TO 2520 + GO TO 9000 + 2510 IFCORR=1 + GO TO 97 + 2520 IFCORR=0 + DO 2521 J=1,40 + FLXERR(J)=0. + 2521 FLXDRV(J)=0. + GO TO 97 +C************ + 2600 WBEGIN=FREEFF(CARD) + DELTAW=FREEFF(CARD) + WEND=FREEFF(CARD) + IFWAVE=1 + NULO=1 + NUHI= INT((WEND-WBEGIN)/ABS(DELTAW)+.5)+1 + NUMNU=NUHI + IF(WBEGIN.LT.1.D7)GO TO 97 + IF(WBEGIN.GT.1.D20)GO TO 2610 +C FREQUENCY STEPS + WBEGIN=2.99792458D17/WBEGIN + DELTAW=2.99792458D17/DELTAW + WEND=2.99792458D17/WEND + GO TO 97 +C WAVENUMBER STEPS SCALE BY 1.E25 + 2610 WBEGIN=1.D7/(WBEGIN/1.D25) + DELTAW=1.D7/(DELTAW/1.D25) + WEND=1.D7/(WEND/1.D25) + GO TO 97 +C************ +C SCALING MODELS OR CHANGING RHOX SPACING TO BE UNIFORM IN TAUROS + 2700 NRHOX=FREEFF(CARD) + TAU1LG=FREEFF(CARD) + STEPLG=FREEFF(CARD) + MORE=1 + TEFF1=FREEFF(CARD) + GNEW=FREEFF(CARD) + IF(GNEW.LT.10.)GNEW=EXP10(GNEW) + MORE=0 + DO 2701 J=1,NRHOX + 2701 TAUSTD(J)=EXP10(TAU1LG+DBLE(J-1)*STEPLG) +C CALL INTEG(RHOX,ABROSS,TAUROS,NRHOX) + CALL INTEG(RHOX,ABROSS,TAUROS,NRHOX,ABROSS(1)*RHOX(1)) + TAUROS(1)=0. + IDUM=MAP1(TAUROS,RHOX,NRHOX,TAUSTD,DUM1,NRHOX) + IDUM=MAP1(TAUROS,T,NRHOX,TAUSTD,DUM2,NRHOX) + IDUM=MAP1(TAUROS,P,NRHOX,TAUSTD,DUM3,NRHOX) + IDUM=MAP1(TAUROS,XNE,NRHOX,TAUSTD,DUM4,NRHOX) + IDUM=MAP1(TAUROS,ABROSS,NRHOX,TAUSTD,DUM5,NRHOX) + IDUM=MAP1(TAUROS,PRAD,NRHOX,TAUSTD,DUM6,NRHOX) + IDUM=MAP1(TAUROS,VTURB,NRHOX,TAUSTD,DUM7,NRHOX) + IDUM=MAP1(TAUROS,BMIN,NRHOX,TAUSTD,DUM8,NRHOX) + DO 2702 J=1,NRHOX + RHOX(J)=DUM1(J) + T(J)=DUM2(J) + P(J)=DUM3(J) + XNE(J)=DUM4(J) + ABROSS(J)=DUM5(J) + PRAD(J)=DUM6(J) + PRADK(J)=PRAD(J)+PRADK0 + VTURB(J)=DUM7(J) + 2702 BMIN(J)=DUM8(J) + DO 2704 I=1,6 + IDUM=MAP1(TAUROS,BHYD(1,I),NRHOX,TAUSTD,DUM1,NRHOX) + DO 2703 J=1,NRHOX + 2703 BHYD(J,I)=DUM1(J) + 2704 CONTINUE + IF(TEFF1.EQ.0.)GO TO 97 + IF(TEFF1.EQ.TEFF.AND.GNEW.EQ.GRAV)GO TO 97 + DO 2710 J=1,NRHOX + TAUROS(J)=TAUSTD(J) + T(J)=T(J)*TEFF1/TEFF + PTURB(J)=0. + PRADK(J)=PRADK(J)*(TEFF1/TEFF)**4 + 2710 PRAD(J)=PRAD(J)*(TEFF1/TEFF)**4 + PRADK0=PRADK0*(TEFF1/TEFF)**4 + PZERO=PCON+PRADK0+PTURB0 + TEFF=TEFF1 + FLUX=5.6697D-5/12.5664D0*TEFF**4 + GRAV=GNEW + GLOG= LOG10(GRAV) + CALL TTAUP(T,TAUROS,ABROSS,PTOTAL,P,PRAD,PTURB,GRAV,NRHOX) + DO 2711 J=1,NRHOX + RHOX(J)=PTOTAL(J)/GRAV + 2711 PTOTAL(J)=PTOTAL(J)+PZERO +C2711 RHOX(J)=PTOTAL(J)/GRAV + GO TO 97 +C************ + 2800 CALL DUMMYR + GO TO 97 +C************ + END + SUBROUTINE DUMMYR + IMPLICIT REAL*8 (A-H,O-Z) + PARAMETER (kw=99) +C DUMMY INPUT ROUTINE FOR MODIFYING READIN + RETURN + END + FUNCTION FREEFR(CARD) + IMPLICIT REAL*8 (A-H,O-Z) + PARAMETER (kw=99) + COMMON /FREE/WORD(6),NUMCOL,LETCOL,LAST,MORE,IFFAIL,MAXPOW + DIMENSION CARD(1) + MORE=1 + FREEFR=FREEFF(CARD) + IF(IFFAIL.EQ.0)RETURN + L=LAST-1 + READ(5,1)(CARD(I),I=1,L) + 1 FORMAT(80A1) + NUMCOL=1 + FREEFR=FREEFF(CARD) + RETURN + END + FUNCTION FREEFF(CARD) + IMPLICIT REAL*8 (A-H,O-Z) + PARAMETER (kw=99) + COMMON /FREE/WORD(6),NUMCOL,LETCOL,LAST,MORE,IFFAIL,MAXPOW + DIMENSION CARD(1) + DIMENSION A(10) + DATA A/1H0,1H1,1H2,1H3,1H4,1H5,1H6,1H7,1H8,1H9/ + DATA QPT/1H./,QCM/1H,/,QMI/1H-/,QE/1HE/,QPL/1H+/,QBL/1H / + IFFAIL=0 + IF(NUMCOL.GT.LAST)GO TO 3002 + ANSWER=0. + ASIGN=1. + ISIGN=1 + NPT=0 + IF0=0 + N=0 + ASSIGN 100 TO NSWCH + DO 1000 NCOL=NUMCOL,LAST + C=CARD(NCOL) + GO TO NSWCH,(100,200,300,400) + 100 IF(C.EQ.QBL)GO TO 104 + DO 101 I=1,10 + IF(C.EQ.A(I))GO TO 102 + 101 CONTINUE + IF(C.EQ.QPT)GO TO 103 + IF(C.EQ.QCM)GO TO 104 + IF(C.EQ.QMI)GO TO 105 + 999 ASIGN=1. + ANSWER=0. + NPT=0 + IF0=0 + N=0 + ASSIGN 100 TO NSWCH + GO TO 1000 + 102 N=N+1 + ANSWER=10.D0*ANSWER+DBLE(I-1) + GO TO 1000 + 103 ASSIGN 200 TO NSWCH + GO TO 1000 + 104 IF(N.EQ.0)GO TO 999 + FREEFF=ANSWER*ASIGN + GO TO 998 + 105 IF(N.EQ.0)GO TO 106 + GO TO 999 + 106 ASIGN=-1. + GO TO 1000 + 200 DO 201 I=1,10 + IF(C.EQ.A(I))GO TO 202 + 201 CONTINUE + IF(C.EQ.QE )GO TO 203 + IF(C.EQ.QMI)GO TO 304 + IF(C.EQ.QPL)GO TO 303 + IF(C.EQ.QBL)GO TO 204 + IF(C.EQ.QCM)GO TO 204 + GO TO 999 + 202 N=N+1 + NPT=NPT+1 + ANSWER=10.D0*ANSWER+DBLE(I-1) + GO TO 1000 + 203 ASSIGN 300 TO NSWCH + GO TO 1000 + 204 IF(N.EQ.0)GO TO 999 + FREEFF=ANSWER*ASIGN/10.D0**NPT + GO TO 998 + 300 DO 301 I=1,10 + IF(C.EQ.A(I))GO TO 302 + 301 CONTINUE + IF(C.EQ.QBL)GO TO 303 + IF(C.EQ.QMI)GO TO 304 + IF(C.EQ.QPL)GO TO 303 + GO TO 999 + 302 NPOWER=I-1 + IF0=1 + 310 ASSIGN 400 TO NSWCH + GO TO 1000 + 303 NPOWER=0 + GO TO 310 + 304 ISIGN=-1 + NPOWER=0 + GO TO 310 + 400 DO 401 I=1,10 + IF(C.EQ.A(I))GO TO 402 + 401 CONTINUE + IF(C.EQ.QCM)GO TO 403 + IF(C.EQ.QBL)GO TO 403 + GO TO 999 + 402 NPOWER=10*NPOWER+I-1 + IF0=1 + IF(NPOWER.GE.MAXPOW)GO TO 999 + GO TO 1000 + 403 IF(IF0.EQ.0)GO TO 999 + FREEFF=ANSWER*ASIGN*10.D0**(ISIGN*NPOWER-NPT) + GO TO 998 + 1000 CONTINUE + NUMCOL=LAST+1 + 3002 IFFAIL=1 + IF(MORE.GT.0)GO TO 3000 + WRITE(6,3001)(CARD(I),I=1,LAST) + 3001 FORMAT(28H1FREEFF HAS READ OFF THE END/(1X80A1)) + CALL EXIT + 3000 FREEFF=0. + RETURN + 998 NUMCOL=NCOL+1 + RETURN + END + FUNCTION IWORDF(CARD) + IMPLICIT REAL*8 (A-H,O-Z) + PARAMETER (kw=99) + COMMON /FREE/WORD(6),NUMCOL,LETCOL,LAST,MORE,IFFAIL,MAXPOW + DIMENSION CARD(1) + DIMENSION A(36) + EQUIVALENCE (QE,A(5)) + DATA A/1HA,1HB,1HC,1HD,1HE,1HF,1HG,1HH,1HI,1HJ,1HK,1HL,1HM,1HN, + 11HO,1HP,1HQ,1HR,1HS,1HT,1HU,1HV,1HW,1HX,1HY,1HZ,1H0,1H1,1H2,1H3, + 21H4,1H5,1H6,1H7,1H8,1H9/ + DATA QPT/1H./,QCM/1H,/,QEQ/1H=/,QBL/1H / + DO 1 I=1,6 + 1 WORD(I)=QBL + IFFAIL=0 + IF(LETCOL.GT.LAST)GO TO 4002 + N=0 +C (M)ACHINE (I)NDEPENDENT (A)LPHAMERIC (C)ODE + MIAC=0 + ASSIGN 500 TO NSWCH + DO 2000 NCOL=LETCOL,LAST + C=CARD(NCOL) + GO TO NSWCH,(500,600) + 500 IF(C.EQ.QBL)GO TO 1999 + DO 501 II=1,26 + IF(C.EQ.A(II))GO TO 502 + 501 CONTINUE + 1999 MIAC=0 + N=0 + ASSIGN 500 TO NSWCH + GO TO 2000 + 502 IF(C.NE.QE )GO TO 506 + IF(NCOL.EQ.1)GO TO 506 + C=CARD(NCOL-1) + DO 503 I=27,36 + IF(C.EQ.A(I))GO TO 504 + 503 CONTINUE + IF(C.NE.QPT)GO TO 506 + 504 C=CARD(NCOL+1) + DO 505 I=27,36 + IF(C.EQ.A(I))GO TO 1999 + 505 CONTINUE + IF(C.EQ.QBL)GO TO 1999 + 506 N=N+1 + MIAC=II + WORD(1)=A(II) + ASSIGN 600 TO NSWCH + GO TO 2000 + 600 IF(C.EQ.QBL)GO TO 603 + IF(C.EQ.QEQ)GO TO 603 + IF(C.EQ.QCM)GO TO 603 + DO 601 II=1,36 + IF(C.EQ.A(II))GO TO 602 + 601 CONTINUE + GO TO 1999 + 602 N=N+1 + IF(N.GT.6)GO TO 604 + MIAC=37*MIAC+II + WORD(N)=A(II) + 604 GO TO 2000 + 603 IWORDF=MIAC + GO TO 998 + 2000 CONTINUE + LETCOL=LAST+1 + 4002 IFFAIL=1 + IF(MORE.GT.0)GO TO 4000 + WRITE(6,4001)(CARD(I),I=1,LAST) + 4001 FORMAT(28H1IWORDF HAS READ OFF THE END/(1X80A1)) + CALL EXIT + 4000 IWORDF=0 + RETURN + 998 LETCOL=NCOL+1 + RETURN + END + SUBROUTINE TTAUP(T,TAU,ABSTD,PTOTAL,P,PRAD,PTURB,GRAV,NUMTAU) + IMPLICIT REAL*8 (A-H,O-Z) + PARAMETER (kw=99) +C ROSSELAND OPACITY FOR KITT PEAK GRID 1X 2KM/S DISTRIBUTION FNS +C TAUS MUST HAVE LOG SPACING +C ASSUMES PTOTAL=PRAD=PTURB=0 WHEN RHOX=0 + DIMENSION T(1),TAU(1),ABSTD(1),PTOTAL(1),P(1),PRAD(1),PTURB(1) + DIMENSION TABT(36),TABP(30) + DIMENSION TABKAP(36,30),KTAB(36,30),PKAP(30) + EQUIVALENCE (TABKAP(1),KTAB(1)) + DIMENSION KTAB01(36),KTAB02(36),KTAB03(36),KTAB04(36) + DIMENSION KTAB05(36),KTAB06(36),KTAB07(36),KTAB08(36) + DIMENSION KTAB09(36),KTAB10(36),KTAB11(36),KTAB12(36) + DIMENSION KTAB13(36),KTAB14(36),KTAB15(36),KTAB16(36) + DIMENSION KTAB17(36),KTAB18(36),KTAB19(36),KTAB20(36) + DIMENSION KTAB21(36),KTAB22(36),KTAB23(36),KTAB24(36) + DIMENSION KTAB25(36),KTAB26(36),KTAB27(36),KTAB28(36) + DIMENSION KTAB29(36),KTAB30(36) + EQUIVALENCE (KTAB(001),KTAB01(1)),(KTAB(037),KTAB02(1)) + EQUIVALENCE (KTAB(073),KTAB03(1)),(KTAB(109),KTAB04(1)) + EQUIVALENCE (KTAB(145),KTAB05(1)),(KTAB(181),KTAB06(1)) + EQUIVALENCE (KTAB(217),KTAB07(1)),(KTAB(253),KTAB08(1)) + EQUIVALENCE (KTAB(289),KTAB09(1)),(KTAB(325),KTAB10(1)) + EQUIVALENCE (KTAB(361),KTAB11(1)),(KTAB(397),KTAB12(1)) + EQUIVALENCE (KTAB(433),KTAB13(1)),(KTAB(469),KTAB14(1)) + EQUIVALENCE (KTAB(505),KTAB15(1)),(KTAB(541),KTAB16(1)) + EQUIVALENCE (KTAB(577),KTAB17(1)),(KTAB(613),KTAB18(1)) + EQUIVALENCE (KTAB(649),KTAB19(1)),(KTAB(685),KTAB20(1)) + EQUIVALENCE (KTAB(721),KTAB21(1)),(KTAB(757),KTAB22(1)) + EQUIVALENCE (KTAB(793),KTAB23(1)),(KTAB(829),KTAB24(1)) + EQUIVALENCE (KTAB(865),KTAB25(1)),(KTAB(901),KTAB26(1)) + EQUIVALENCE (KTAB(937),KTAB27(1)),(KTAB(973),KTAB28(1)) + EQUIVALENCE (KTAB(1009),KTAB29(1)),(KTAB(1045),KTAB30(1)) + DATA NT,NP/36,30/ + DATA TABT/ 3.500, 3.525, 3.550, 3.575, 3.600, 3.625, 3.650, + 1 3.675, 3.700, 3.725, 3.750, 3.775, 3.800, 3.825, 3.850, 3.875, + 2 3.900, 3.925, 3.950, 3.975, 4.000, 4.050, 4.100, 4.150, 4.200, + 3 4.250, 4.300, 4.350, 4.400, 4.450, 4.500, 4.600, 4.700, 4.800, + 4 4.900, 5.000/ + DATA TABP/ -2.000,-1.500,-1.000, -.500, 0.000, .500, 1.000, + 1 1.250, 1.500, 1.750, 2.000, 2.250, 2.500, 2.750, 3.000, 3.200, + 2 3.400, 3.600, 3.800, 4.000, 4.200, 4.400, 4.600, 4.800, 5.000, + 3 5.200, 5.400, 5.600, 5.800, 6.000/ + DATA KTAB01/ -2.000 + 1-4254,-4220,-4147,-3936,-3601,-3206,-2787,-2361,-1944,-1540, -2.000 + 2-1161, -838, -632, -553, -533, -532, -537, -542, -545, -541, -2.000 + 3 -525, -500, -489, -488, -493, -489, -481, -455, -451, -449, -2.000 + 4 -445, -428, -403, -405, -410, -437/ -2.000 + DATA KTAB02/ -1.500 + 1-4257,-4220,-4175,-4039,-3758,-3394,-2995,-2584,-2173,-1772, -1.500 + 2-1386,-1030, -744, -583, -528, -517, -521, -528, -535, -538, -1.500 + 3 -531, -500, -486, -479, -486, -486, -479, -459, -446, -447, -1.500 + 4 -443, -428, -403, -404, -409, -436/ -1.500 + DATA KTAB03/ -1.000 + 1-4264,-4214,-4179,-4100,-3889,-3565,-3190,-2795,-2395,-1997, -1.000 + 2-1609,-1238, -903, -654, -530, -494, -493, -502, -514, -522, -1.000 + 3 -525, -499, -481, -470, -475, -479, -475, -462, -442, -443, -1.000 + 4 -441, -426, -403, -403, -408, -434/ -1.000 + DATA KTAB04/ -.500 + 1-4273,-4199,-4163,-4117,-3980,-3709,-3364,-2988,-2601,-2211, -.500 + 2-1823,-1444,-1083, -770, -554, -460, -441, -450, -469, -487, -.500 + 3 -501, -494, -474, -459, -459, -468, -467, -461, -439, -437, -.500 + 4 -437, -425, -404, -402, -407, -433/ -.500 + DATA KTAB05/ 0.000 + 1-4267,-4164,-4116,-4086,-4012,-3809,-3503,-3151,-2781,-2401, 0.000 + 2-2017,-1633,-1257, -906, -612, -427, -360, -358, -381, -411, 0.000 + 3 -440, -468, -455, -445, -440, -449, -454, -452, -437, -429, 0.000 + 4 -432, -423, -404, -401, -406, -431/ 0.000 + DATA KTAB06/ .500 + 1-4230,-4090,-4017,-3990,-3958,-3833,-3579,-3257,-2908,-2543, .500 + 2-2168,-1786,-1402,-1027, -682, -408, -254, -210, -228, -269, .500 + 3 -316, -393, -412, -414, -411, -420, -431, -434, -429, -417, .500 + 4 -422, -420, -403, -399, -405, -429/ .500 + DATA KTAB07/ 1.000 + 1-4153,-3968,-3855,-3808,-3795,-3741,-3558,-3274,-2947,-2603, 1.000 + 2-2245,-1873,-1491,-1106, -732, -398, -148, -20, -3, -43, 1.000 + 3 -103, -233, -312, -344, -361, -377, -395, -403, -406, -398, 1.000 + 4 -406, -415, -402, -397, -403, -426/ 1.000 + DATA KTAB08/ 1.250 + 1-4096,-3888,-3753,-3687,-3672,-3643,-3502,-3241,-2927,-2593, 1.250 + 2-2245,-1882,-1507,-1122, -743, -389, -100, 78, 132, 103, 1.250 + 3 40, -114, -231, -286, -320, -344, -369, -381, -387, -385, 1.250 + 4 -392, -410, -400, -396, -401, -424/ 1.250 + DATA KTAB09/ 1.500 + 1-4023,-3797,-3637,-3550,-3525,-3512,-3412,-3180,-2880,-2557, 1.500 + 2-2218,-1867,-1500,-1122, -741, -375, -56, 171, 272, 267, 1.500 + 3 207, 31, -123, -208, -263, -298, -334, -355, -363, -365, 1.500 + 4 -373, -402, -398, -394, -400, -423/ 1.500 + DATA KTAB10/ 1.750 + 1-3934,-3692,-3510,-3400,-3359,-3352,-3289,-3093,-2810,-2497, 1.750 + 2-2168,-1828,-1473,-1103, -726, -354, -14, 252, 405, 437, 1.750 + 3 390, 202, 13, -106, -186, -237, -288, -321, -333, -339, 1.750 + 4 -347, -391, -395, -392, -399, -421/ 1.750 + DATA KTAB11/ 2.000 + 1-3828,-3576,-3372,-3241,-3180,-3169,-3136,-2980,-2719,-2417, 2.000 + 2-2098,-1768,-1425,-1067, -697, -325, 24, 322, 524, 603, 2.000 + 3 583, 397, 178, 19, -87, -162, -228, -275, -296, -305, 2.000 + 4 -313, -375, -390, -389, -397, -419/ 2.000 + DATA KTAB12/ 2.250 + 1-3706,-3450,-3229,-3076,-2994,-2972,-2958,-2845,-2611,-2321, 2.250 + 2-2012,-1693,-1361,-1016, -657, -290, 64, 383, 626, 757, 2.250 + 3 774, 607, 366, 168, 33, -68, -149, -215, -249, -264, 2.250 + 4 -272, -349, -382, -386, -395, -417/ 2.250 + DATA KTAB13/ 2.500 + 1-3569,-3315,-3082,-2909,-2806,-2768,-2761,-2688,-2487,-2214, 2.500 + 2-1915,-1605,-1285, -951, -604, -246, 107, 437, 711, 890, 2.500 + 3 955, 825, 573, 340, 175, 47, -52, -138, -189, -214, 2.500 + 4 -222, -312, -368, -381, -392, -415/ 2.500 + DATA KTAB14/ 2.750 + 1-3418,-3172,-2933,-2742,-2619,-2563,-2553,-2512,-2349,-2097, 2.750 + 2-1809,-1507,-1198, -877, -542, -195, 153, 488, 783, 999, 2.750 + 3 1113, 1043, 794, 536, 340, 185, 66, -42, -115, -152, 2.750 + 4 -164, -261, -348, -374, -388, -412/ 2.750 + DATA KTAB15/ 3.000 + 1-3256,-3024,-2783,-2578,-2435,-2360,-2339,-2319,-2197,-1971, 3.000 + 2-1697,-1402,-1104, -794, -471, -136, 203, 537, 843, 1088, 3.000 + 3 1248, 1255, 1024, 751, 529, 349, 204, 77, -19, -74, 3.000 + 4 -95, -193, -317, -363, -384, -408/ 3.000 + DATA KTAB16/ 3.200 + 1-3120,-2900,-2662,-2449,-2290,-2200,-2168,-2155,-2066,-1865, 3.200 + 2-1601,-1314,-1024, -722, -408, -85, 247, 577, 887, 1148, 3.200 + 3 1338, 1416, 1209, 931, 691, 496, 331, 189, 75, 3, 3.200 + 4 -30, -123, -281, -350, -378, -405/ 3.200 + DATA KTAB17/ 3.400 + 1-2979,-2773,-2540,-2321,-2149,-2044,-1999,-1987,-1926,-1753, 3.400 + 2-1502,-1224, -942, -645, -342, -29, 293, 619, 928, 1201, 3.400 + 3 1414, 1564, 1394, 1117, 860, 652, 472, 317, 186, 94, 3.400 + 4 46, -41, -233, -331, -371, -400/ 3.400 + DATA KTAB18/ 3.600 + 1-2834,-2641,-2417,-2195,-2012,-1892,-1833,-1817,-1778,-1634, 3.600 + 2-1398,-1131, -857, -566, -272, 30, 344, 662, 969, 1248, 3.600 + 3 1480, 1697, 1575, 1305, 1035, 817, 624, 459, 312, 202, 3.600 + 4 136, 53, -172, -304, -361, -395/ 3.600 + DATA KTAB19/ 3.800 + 1-2687,-2506,-2291,-2070,-1879,-1745,-1671,-1647,-1622,-1505, 3.800 + 2-1291,-1036, -769, -484, -200, 92, 398, 707, 1010, 1292, 3.800 + 3 1537, 1811, 1748, 1497, 1222, 993, 790, 613, 452, 324, 3.800 + 4 242, 159, -96, -269, -347, -388/ 3.800 + DATA KTAB20/ 4.000 + 1-2539,-2367,-2163,-1945,-1749,-1601,-1513,-1477,-1457,-1369, 4.000 + 2-1180, -938, -677, -400, -125, 158, 456, 755, 1052, 1334, 4.000 + 3 1586, 1909, 1912, 1689, 1414, 1178, 971, 784, 613, 469, 4.000 + 4 367, 277, -5, -223, -327, -378/ 4.000 + DATA KTAB21/ 4.200 + 1-2390,-2225,-2033,-1821,-1621,-1462,-1358,-1309,-1289,-1226, 4.200 + 2-1064, -838, -582, -314, -48, 228, 516, 805, 1096, 1375, 4.200 + 3 1631, 1992, 2063, 1878, 1609, 1366, 1157, 964, 787, 632, 4.200 + 4 515, 407, 104, -164, -302, -365/ 4.200 + DATA KTAB22/ 4.400 + 1-2241,-2081,-1900,-1696,-1495,-1327,-1208,-1146,-1120,-1076, 4.400 + 2 -942, -732, -484, -226, 31, 302, 580, 859, 1141, 1417, 4.400 + 3 1673, 2063, 2198, 2061, 1805, 1556, 1345, 1149, 969, 808, 4.400 + 4 677, 548, 234, -86, -266, -348/ 4.400 + DATA KTAB23/ 4.600 + 1-2094,-1935,-1763,-1569,-1371,-1195,-1063, -986, -953, -920, 4.600 + 2 -815, -620, -384, -136, 113, 377, 646, 914, 1189, 1459, 4.600 + 3 1714, 2124, 2317, 2236, 1999, 1747, 1534, 1338, 1157, 992, 4.600 + 4 852, 697, 381, 7, -217, -325/ 4.600 + DATA KTAB24/ 4.800 + 1-1947,-1789,-1625,-1441,-1247,-1067, -923, -832, -788, -761, 4.800 + 2 -679, -504, -282, -44, 199, 456, 715, 973, 1240, 1503, 4.800 + 3 1754, 2177, 2417, 2397, 2192, 1943, 1726, 1529, 1350, 1182, 4.800 + 4 1035, 855, 543, 117, -156, -295/ 4.800 + DATA KTAB25/ 5.000 + 1-1803,-1643,-1484,-1311,-1122, -940, -787, -682, -627, -599, 5.000 + 2 -535, -383, -176, 49, 287, 536, 786, 1034, 1293, 1550, 5.000 + 3 1795, 2225, 2500, 2544, 2381, 2143, 1926, 1732, 1551, 1381, 5.000 + 4 1227, 1023, 718, 244, -82, -256/ 5.000 + DATA KTAB26/ 5.200 + 1-1660,-1498,-1343,-1178, -997, -815, -655, -539, -473, -438, 5.200 + 2 -385, -257, -67, 146, 377, 619, 860, 1098, 1349, 1598, 5.200 + 3 1838, 2267, 2571, 2675, 2563, 2343, 2126, 1935, 1756, 1586, 5.200 + 4 1431, 1203, 904, 387, 6, -206/ 5.200 + DATA KTAB27/ 5.400 + 1-1521,-1354,-1200,-1044, -870, -690, -527, -404, -324, -278, 5.400 + 2 -232, -125, 45, 246, 470, 705, 936, 1166, 1409, 1649, 5.400 + 3 1882, 2307, 2632, 2789, 2734, 2540, 2325, 2137, 1961, 1793, 5.400 + 4 1639, 1393, 1101, 550, 115, -145/ 5.400 + DATA KTAB28/ 5.600 + 1-1383,-1212,-1058, -907, -742, -566, -405, -273, -180, -122, 5.600 + 2 -76, 12, 161, 348, 566, 792, 1013, 1236, 1471, 1704, 5.600 + 3 1928, 2346, 2686, 2888, 2891, 2733, 2525, 2338, 2165, 2001, 5.600 + 4 1848, 1589, 1302, 727, 245, -66/ 5.600 + DATA KTAB29/ 5.800 + 1-1250,-1073, -916, -769, -611, -443, -284, -146, -40, 29, 5.800 + 2 79, 154, 278, 454, 663, 882, 1092, 1308, 1536, 1761, 5.800 + 3 1975, 2386, 2735, 2973, 3034, 2918, 2723, 2537, 2369, 2208, 5.800 + 4 2058, 1789, 1503, 913, 393, 30/ 5.800 + DATA KTAB30/ 6.000 + 1-1119, -936, -776, -629, -478, -319, -164, -21, 94, 177, 6.000 + 2 235, 292, 398, 563, 764, 973, 1174, 1384, 1604, 1821, 6.000 + 3 2024, 2427, 2781, 3047, 3159, 3092, 2918, 2734, 2570, 2415, 6.000 + 4 2267, 1993, 1704, 1107, 557, 145/ 6.000 + DATA ISTART/0/ + EXP10(X)=EXP(X*2.30258509299405D0) + IF(ISTART.EQ.1)GO TO 19 + ISTART=1 + DO 13 IP=1,NP + DO 13 IT=1,NT + 13 TABKAP(IT,IP)=DBLE(KTAB(IT,IP))/1000. + 19 DLGTAU= LOG(TAU(2)/TAU(1)) + PLOG3=0. + PLOG2=0. + PLOG1=0. + DPLOG2=0. + DPLOG1=0. +C ASSUME CONSTANT OPACITY NEAR SURFACE. FIRST GUESS=.1 + ABSTD(1)=.1 + IF(PRAD(1).GT.0.)ABSTD(1)=MIN(.1D0,GRAV*TAU(1)/PRAD(1)/2.) +C TO FIX PROBLEM WITH TEMPERATURE DROP AT FIRST POINT + T1=T(1) + T(1)=T(2) + DO 22 J=1,NUMTAU + DO 24 IP=1,NP + IDUM=MAP1(TABT,TABKAP(1,IP),NT, LOG10(T(J)),PKAP(IP),1) + 24 CONTINUE + IF(J.EQ.1)PLOG= LOG(GRAV/ABSTD(1)*TAU(1)) + IF(J.GT.1.AND.J.LE.4)PLOG=PLOG1+DPLOG1 + IF(J.GT.4)PLOG=(3.*PLOG4+8.*DPLOG1-4.*DPLOG2+8.*DPLOG3)/3. + ERROR=1. + N=1 + GO TO 21 + 20 IF(J.EQ.1)PNEW= LOG(GRAV/ABSTD(1)*TAU(1)) + IF(J.GT.1.AND.J.LE.4)PNEW=(PLOG+2.*PLOG1+DPLOG+DPLOG1)/3. + IF(J.GT.4)PNEW=(126.*PLOG1-14.*PLOG3+9.*PLOG4+42.*DPLOG+ + 1 108.*DPLOG1-54.*DPLOG2+24.*DPLOG3)/121. + ERROR=ABS(PNEW-PLOG) + PLOG=(PNEW+PLOG)/2. + 21 PTOTAL(J)=EXP(PLOG) +C P(J)=PTOTAL(J)-PRAD(J)-PTURB(J) + P(J)=PTOTAL(J)+(PRAD(1)-PRAD(J))-PTURB(J) + IF(P(J).LE.0.)GO TO 25 + IDUM=MAP1(TABP,PKAP,NP, LOG10(P(J)),ABSTD(J),1) + ABSTD(J)=EXP10(ABSTD(J)) + DPLOG=GRAV/ABSTD(J)*TAU(J)/PTOTAL(J)*DLGTAU + N=N+1 + IF(N.GT.1000)GO TO 25 + IF(ERROR.GT..00005)GO TO 20 + PLOG4=PLOG3 + PLOG3=PLOG2 + PLOG2=PLOG1 + PLOG1=PLOG + DPLOG3=DPLOG2 + DPLOG2=DPLOG1 + DPLOG1=DPLOG + 22 CONTINUE + T(1)=T1 + RETURN + 25 CONTINUE + CALL W(6HJ ,DBLE(J),1) + CALL W(6HP ,P,J) + CALL W(6HPTOTAL,PTOTAL,J) + CALL W(6HPRAD ,PRAD,J) + CALL W(6HPTURB ,PTURB,J) + CALL W(6HABSTD ,ABSTD,J) + CALL W(6HERROR ,ERROR,1) + CALL EXIT + END + SUBROUTINE BLOCKE + IMPLICIT REAL*8 (A-H,O-Z) + PARAMETER (kw=99) + COMMON /ELEM/ABUND(99),ATMASS(99),ELEM(99),XABUND(99),WTMOLE +C Grevesse,N. and Anders, E. 1988. presented at the workshop +C on the "Solar Interior and Atmosphere", Tucson, Nov 15-18. +C Anders, E. and Grevesse, N. 1989 Geochimica et Cosmochimica Acta, +C vol. 53, pp. 197-214. +C H has been defined to be -.04 instead of 12 +C 1H 2HE + DATA ABUND/ 0.911,0.089, +C 3LI 4BE 5B 6C 7N 8O 9F 10NE + 1-10.88,-10.89, -9.44, -3.48, -3.99, -3.11, -7.48, -3.95, +C 11NA 12MG 13AL 14SI 15P 16S 17CL 18AR + 2 -5.71, -4.46, -5.57, -4.49, -6.59, -4.83, -6.54, -5.48, +C 19K 20CA 21SC 22TI 23V 24CR 25MN 26FE + 3 -6.92, -5.68, -8.94, -7.05, -8.04, -6.37, -6.65, -4.37, +C 27CO 28NI 29CU 30ZN 31GA 33GE 33AS 34SE + 4 -7.12, -5.79, -7.83, -7.44, -9.16, -8.63, -9.67, -8.69, +C 35BR 36KR 37RB 38SR 39Y 40ZR 41NB 42MO + 5 -9.41, -8.81, -9.44, -9.14, -9.80, -9.44,-10.62,-10.12, +C 43TC 44RU 45RH 46PD 47AG 48CD 49IN 50SN + 6-20.00,-10.20,-10.92,-10.35,-11.10,-10.18,-10.38,-10.04, +C 51SB 52TE 53I 54XE 55CS 56BA 57LA 58CE + 7-11.04, -9.80,-10.53, -9.81,-10.92, -9.91,-10.82,-10.49, +C 59PR 60ND 61PM 62SM 63EU 64GD 65TB 66DY + 8-11.33,-10.54,-20.00,-11.04,-11.53,-10.92,-12.14,-10.94, +C 67HO 68ER 69TM 70YB 71LU 72HF 73TA 74W + 9-11.78,-11.11,-12.04,-10.96,-11.28,-11.16,-11.91,-10.93, +C 75RE 76OS 77IR 78PT 79AU 80HG 81TL 82PB + T-11.77,-10.59,-10.69,-10.24,-11.03,-10.95,-11.14,-10.19, +C 83BI 84PO 85AT 86RN 87FR 88RA 89AC 90TH + 1-11.33,-20.00,-20.00,-20.00,-20.00,-20.00,-20.00,-11.92, +C 91PA 92U 93NP 94PU 95AM 96CM 97BK 98CF 99ES + 2-20.00,-12.51,-20.00,-20.00,-20.00,-20.00,-20.00,-20.00,-20.00/ + DATA ATMASS/ 1.008,4.003, + 1 6.939,9.013,10.81,12.01,14.01,16.00,19.00,20.18,22.99,24.31, + 2 26.98,28.09,30.98,32.07,35.45,39.95,39.10,40.08,44.96,47.90, + 3 50.94,52.00,54.94,55.85,58.94,58.71,63.55,65.37,69.72,72.60, + 4 74.92,78.96,79.91,83.80,85.48,87.63,88.91,91.22,92.91,95.95, + 5 99.00,101.1,102.9,106.4,107.9,112.4,114.8,118.7,121.8,127.6, + 6 126.9,131.3,132.9,137.4,138.9,140.1,140.9,144.3,147.0,150.4, + 7 152.0,157.3,158.9,162.5,164.9,167.3,168.9,173.0,175.0,178.5, + 8 181.0,183.9,186.3,190.2,192.2,195.1,197.0,200.6,204.4,207.2, + 9 209.0,210.0,211.0,222.0,223.0,226.1,227.1,232.0,231.0,238.0, + T 237.0,244.0,243.0,247.0,247.0,251.0,254.0/ + DATA ELEM/ 2HH , 2HHE, + 1 2HLI, 2HBE, 2HB , 2HC , 2HN , 2HO , 2HF , 2HNE, 2HNA, 2HMG, + 2 2HAL, 2HSI, 2HP , 2HS , 2HCL, 2HAR, 2HK , 2HCA, 2HSC, 2HTI, + 3 2HV , 2HCR, 2HMN, 2HFE, 2HCO, 2HNI, 2HCU, 2HZN, 2HGA, 2HGE, + 4 2HAS, 2HSE, 2HBR, 2HKR, 2HRB, 2HSR, 2HY , 2HZR, 2HNB, 2HMO, + 5 2HTC, 2HRU, 2HRH, 2HPD, 2HAG, 2HCD, 2HIN, 2HSN, 2HSB, 2HTE, + 6 2HI , 2HXE, 2HCS, 2HBA, 2HLA, 2HCE, 2HPR, 2HND, 2HPM, 2HSM, + 7 2HEU, 2HGD, 2HTB, 2HDY, 2HHO, 2HER, 2HTM, 2HYB, 2HLU, 2HHF, + 8 2HTA, 2HW , 2HRE, 2HOS, 2HIR, 2HPT, 2HAU, 2HHG, 2HTL, 2HPB, + 9 2HBI, 2HPO, 2HAT, 2HRN, 2HFR, 2HRA, 2HAC, 2HTH, 2HPA, 2HU , + T 2HNP, 2HPU, 2HAM, 2HCM, 2HBK, 2HCF, 2HES/ + RETURN + END + SUBROUTINE BLOCKR + IMPLICIT REAL*8 (A-H,O-Z) + PARAMETER (kw=99) + COMMON /BAL/BAL1(kw,9),AAL1(kw),SAL1(kw),XNFPAL(kw,2),BAL2(kw,1) + COMMON /BB/BB1(kw,7),XNFPB(kw,1) + COMMON /BC/BC1(kw,14),AC1(kw),SC1(kw),XNFPC(kw,2),BC2(kw,6) + COMMON /BCA/BCA1(kw,8),BCA2(kw,5),XNFPCA(kw,2) + COMMON /BFE/BFE1(kw,15),AFE1(kw),SFE1(kw),XNFPFE(kw,1) + COMMON /BHE/BHE1(kw,29),AHE1(kw),SHE1(kw),BHE2(kw,6),AHE2(kw), + 1 SHE2(kw),AHEMIN(kw),SIGHE(kw),XNFPHE(kw,3),XNFHE(kw,2) + COMMON /BHYD/BHYD(kw,8),AHYD(kw),SHYD(kw),AH2P(kw),BMIN(kw), + 1 AHMIN(kw),SHMIN(kw),SIGH(kw),SIGH2(kw),AHLINE(kw), + 2 SHLINE(kw),XNFPH(kw,2),XNFH(kw) + COMMON /BK/BK1(kw,8),XNFPK(kw,1) + COMMON /BMG/BMG1(kw,11),AMG1(kw),SMG1(kw),XNFPMG(kw,2),BMG2(kw,6) + COMMON /BNA/BNA1(kw,8),XNFPNA(kw,1) + COMMON /BO/BO1(kw,13),XNFPO(kw,1),BO2(kw,4) + COMMON /BSI/BSI1(kw,11),ASI1(kw),SSI1(kw),XNFPSI(kw,2),BSI2(kw,10) + COMMON /CONV/DLTDLP(kw),HEATCP(kw),DLRDLT(kw),VELSND(kw), + 1 GRDADB(kw),HSCALE(kw),FLXCNV(kw),VCONV(kw),MIXLTH, + 2 IFCONV + REAL*8 MIXLTH + COMMON /FLUX/FLUX,FLXERR(kw),FLXDRV(kw),FLXRAD(kw) + COMMON /FRESET/FRESET(500),RCOSET(500),NULO,NUHI,NUMNU,IFWAVE, + 1 WBEGIN,DELTAW + COMMON /IF/IFCORR,IFPRES,IFSURF,IFSCAT,IFMOL,NLTEON,IFOP(20) + COMMON /ITER/ITER,IFPRNT(15),IFPNCH(15),NUMITS + COMMON /JUNK/TITLE(74),FREQID(6),WLTE,XSCALE + COMMON /MUS/ANGLE(20),SURFI(20),NMU + COMMON /RAD/ACCRAD(kw),PRAD(kw) + COMMON /RHOX/RHOX(kw),NRHOX + COMMON /TEFF/TEFF,GRAV,GLOG + COMMON /TURBPR/VTURB(kw),PTURB(kw),TRBFDG,TRBCON,TRBPOW,TRBSND, + 1 IFTURB + DATA BAL1/kw*1.,kw*1.,kw*1.,kw*1.,kw*1.,kw*1.,kw*1.,kw*1.,kw*1./ + DATA BAL2/kw*1./ + DATA BB1/kw*1.,kw*1.,kw*1.,kw*1.,kw*1.,kw*1.,kw*1./ + DATA BC1/kw*1.,kw*1.,kw*1.,kw*1.,kw*1.,kw*1.,kw*1.,kw*1.,kw*1., + 1 kw*1.,kw*1.,kw*1.,kw*1.,kw*1./ + DATA BC2/kw*1.,kw*1.,kw*1.,kw*1.,kw*1.,kw*1./ + DATA BCA1/kw*1.,kw*1.,kw*1.,kw*1.,kw*1.,kw*1.,kw*1.,kw*1./ + DATA BCA2/kw*1.,kw*1.,kw*1.,kw*1.,kw*1./ + DATA BFE1/kw*1.,kw*1.,kw*1.,kw*1.,kw*1.,kw*1.,kw*1.,kw*1.,kw*1., + 1 kw*1.,kw*1.,kw*1.,kw*1.,kw*1.,kw*1./ + DATA BHE1/kw*1.,kw*1.,kw*1.,kw*1.,kw*1.,kw*1.,kw*1.,kw*1.,kw*1., + 1 kw*1.,kw*1.,kw*1.,kw*1.,kw*1.,kw*1.,kw*1.,kw*1.,kw*1.,kw*1., + 2 kw*1.,kw*1.,kw*1.,kw*1.,kw*1.,kw*1.,kw*1.,kw*1.,kw*1.,kw*1./ + DATA BHE2/kw*1.,kw*1.,kw*1.,kw*1.,kw*1.,kw*1./ + DATA BHYD/kw*1.,kw*1.,kw*1.,kw*1.,kw*1.,kw*1.,kw*1.,kw*1./ + DATA BMIN/kw*1./ + DATA XNFPH/kw*0.,kw*0./ + DATA XNFPHE/kw*0.,kw*0.,kw*0./ + DATA BK1/kw*1.,kw*1.,kw*1.,kw*1.,kw*1.,kw*1.,kw*1.,kw*1./ + DATA BMG1/kw*1.,kw*1.,kw*1.,kw*1.,kw*1.,kw*1.,kw*1.,kw*1.,kw*1., + 1 kw*1.,kw*1./ + DATA BMG2/kw*1.,kw*1.,kw*1.,kw*1.,kw*1.,kw*1./ + DATA BNA1/kw*1.,kw*1.,kw*1.,kw*1.,kw*1.,kw*1.,kw*1.,kw*1./ + DATA BO1/kw*1.,kw*1.,kw*1.,kw*1.,kw*1.,kw*1.,kw*1.,kw*1.,kw*1., + 1 kw*1.,kw*1.,kw*1.,kw*1./ + DATA BO2/kw*1.,kw*1.,kw*1.,kw*1./ + DATA BSI1/kw*1.,kw*1.,kw*1.,kw*1.,kw*1.,kw*1.,kw*1.,kw*1.,kw*1., + 1 kw*1.,kw*1./ + DATA BSI2/kw*1.,kw*1.,kw*1.,kw*1.,kw*1.,kw*1.,kw*1.,kw*1.,kw*1., + 1 kw*1./ + DATA DLTDLP,HEATCP,DLRDLT,VELSND,GRDADB,HSCALE,FLXCNV,VCONV/ + 1 kw*0.,kw*0.,kw*0.,kw*0.,kw*0.,kw*0.,kw*0.,kw*0./ + DATA IFCONV,MIXLTH/0,1./ + DATA FLUX/0./ + DATA FLXERR,FLXDRV/kw*0.,kw*0./ + DATA NUMNU/0/ + DATA IFWAVE/0/ + DATA IFCORR,IFPRES,IFSURF,IFSCAT,IFMOL/1,1,0,1,0/ + DATA NLTEON/0/ + DATA IFOP/1,1,1,1,1,1,0,0,1,0,0,1,0,0,0,0,0,0,0,0/ + DATA IFPRNT/2,2,2,2,2,2,2,2,2,2,2,2,2,2,2/ + DATA IFPNCH/0,0,0,0,0,0,0,0,0,0,0,0,0,0,0/ + DATA NUMITS/0/ + DATA TITLE/74*1H / + DATA WLTE/4HLTE / + DATA XSCALE/1./ + DATA SURFI/20*0./,NMU/1/ + DATA ACCRAD/kw*0./,PRAD/kw*0./ + DATA NRHOX/0/ + DATA TEFF/0./ + DATA GRAV/0./ + DATA VTURB/kw*0./ + DATA PTURB/kw*0./ + DATA IFTURB,TRBFDG,TRBPOW,TRBSND,TRBCON/0,0.,0.,0.,0./ + END + SUBROUTINE POPS(CODE,MODE,NUMBER) + IMPLICIT REAL*8 (A-H,O-Z) + PARAMETER (kw=99) + PARAMETER (MAXMOL=200,MAX1=MAXMOL+1,MAXEQ=30,MAXLOC=3*MAXMOL) + REAL*8 NUMBER(kw,10) + COMMON /ELEM/ABUND(99),ATMASS(99),ELEM(99),XABUND(99),WTMOLE + COMMON /IF/IFCORR,IFPRES,IFSURF,IFSCAT,IFMOL,NLTEON,IFOP(20) + COMMON /RHOX/RHOX(kw),NRHOX + COMMON /STATE/P(kw),XNE(kw),XNATOM(kw),RHO(kw),PTOTAL(kw) + COMMON /TEMP/T(kw),TKEV(kw),TK(kw),HKT(kw),TLOG(kw),HCKT(kw),ITEMP + COMMON /XNMOL/CODEMOL(MAXMOL),XNMOL(kw,MAXMOL), + 1 XNFPMOL(kw,MAXMOL),NUMMOL + DATA ITEMP1/0/ + IF(IFMOL.EQ.1)GO TO 200 + IF(IFPRES.EQ.1.AND.ITEMP.NE.ITEMP1)CALL NELECT + ITEMP1=ITEMP + IF(CODE.EQ.0.)RETURN + IF(CODE.LT.1.D2)GO TO 110 + WRITE(6,106) + 106 FORMAT(14H1MOLECULES OFF) + CALL EXIT + 110 IZ=CODE + NION=(CODE-DBLE(IZ))*100.+1.5 + DO 115 J=1,NRHOX + CALL PFSAHA(J,IZ,NION,MODE,NUMBER) +C PFSAHA RETURNS IONIZATION FRACTIONS OR IONIZATION FRACTIONS/ +C PARTITION FUNCTIONS SO CONVERT TO NUMBER DENSITIES + NNNN=NION + IF(MODE.LT.10)NNNN=1 + DO 115 ION=1,NNNN + 115 NUMBER(J,ION)=NUMBER(J,ION)*XNATOM(J)*XABUND(IZ) + RETURN + 200 IF(IFPRES.EQ.1.AND.ITEMP.NE.ITEMP1)CALL NMOLEC + ITEMP1=ITEMP + IF(CODE.EQ.0.)RETURN + IF(CODE.LT.100.)GO TO 300 + DO 201 JMOL=1,NUMMOL + IF(CODEMOL(JMOL).EQ.CODE)GO TO 203 + 201 CONTINUE + DO 207 J=1,NRHOX + 207 NUMBER(J,1)=0. + RETURN + 203 IF(MODE.EQ.1)THEN + DO 204 J=1,NRHOX + 204 NUMBER(J,1)=XNFPMOL(J,JMOL) + RETURN + ENDIF + IF(MODE.EQ.2)THEN + DO 205 J=1,NRHOX + 205 NUMBER(J,1)=XNMOL(J,JMOL) + RETURN + ENDIF + IF(MODE.EQ.3)THEN + DO 206 J=1,NRHOX + 206 NUMBER(J,1)=XNMOL(J,JMOL)/XNFPMOL(J,JMOL) + ENDIF + RETURN + 300 C=CODE + NN=1 + IF(MODE.GT.10)NN=(C-DBLE( INT(C)))*100.+1.5 + DO 321 I=1,NN + CPLUS=C+.001 + CMINUS=C-.001 + DO 301 JMOL=1,NUMMOL + ION=NN-I+1 + IF(CODEMOL(JMOL).GT.CMINUS.AND.CODEMOL(JMOL).LT.CPLUS)GO TO 303 + 301 CONTINUE + GO TO 310 + 303 IF(MOD(MODE,10).EQ.2)THEN + DO 304 J=1,NRHOX + 304 NUMBER(J,ION)=XNMOL(J,JMOL) + GO TO 321 + ENDIF + IF(MOD(MODE,10).EQ.1)THEN + DO 305 J=1,NRHOX + 305 NUMBER(J,ION)=XNFPMOL(J,JMOL) + GO TO 321 + ENDIF + IF(MOD(MODE,10).EQ.3)THEN + DO 306 J=1,NRHOX + 306 NUMBER(J,ION)=XNMOL(J,JMOL)/XNFPMOL(J,JMOL) + GO TO 321 + ENDIF + 310 ID=CODE + DO 311 JMOL=1,NUMMOL + IF( INT(CODEMOL(JMOL)).EQ.ID)GO TO 313 + 311 CONTINUE + GO TO 400 + 313 DO 314 J=1,NRHOX + 314 NUMBER(J,ION)=0. + 321 C=C-.01 + RETURN + 400 ION=(CODE-DBLE(ID))*100.+1.5 + NN=ION + IF(MODE.EQ.1)NN=1 + DO 401 J=1,NRHOX + CALL PFSAHA(J,ID,ION,MODE,NUMBER) + DO 401 I=1,NN + 401 NUMBER(J,I)=NUMBER(J,I)*XNATOM(J)*XABUND(ID) + RETURN + END + SUBROUTINE NELECT + IMPLICIT REAL*8 (A-H,O-Z) + PARAMETER (kw=99) + COMMON /ELEM/ABUND(99),ATMASS(99),ELEM(99),XABUND(99),WTMOLE + COMMON /ITER/ ITER,IFPRNT(15),IFPNCH(15),NUMITS + COMMON /RHOX/RHOX(kw),NRHOX + COMMON /STATE/P(kw),XNE(kw),XNATOM(kw),RHO(kw),PTOTAL(kw) + COMMON /TEMP/T(kw),TKEV(kw),TK(kw),HKT(kw),TLOG(kw),HCKT(kw),ITEMP + DIMENSION ELEC(kw),E(10),X(10),MASK(10),NELEMZ(10),NIONZ(10) + DATA NELEMZ/1,2,6,11,12,13,14,19,20,26/ + DATA NIONZ/1,2,2,2,2,2,2,2,2,2/,NZ/10/ + IF(ITER.LT.NUMITS)GO TO 406 + DO 401 I=1,NZ + NELEM=NELEMZ(I) + 401 E(I)=ELEM(NELEM) + WRITE(6,402)(E(I),I=1,NZ),(E(I),I=1,NZ) + 402 FORMAT(1H1////50X22HELECTRON CONTRIBUTIONS/2X,20(4X,A2)) + 406 XNE(1)=P(1)/TK(1)/2. + DO 500 J=1,NRHOX + IF(J.GT.1)XNE(J)=XNE(J-1)*P(J)/P(J-1) + XNTOT=P(J)/TK(J) + XNATOM(J)=XNTOT-XNE(J) + DO 1 I=1,NZ + 1 MASK(I)=1 + DO 20 L=1,200 + XNENEW=0. + DO 11 I=1,NZ + IF(MASK(I).EQ.0)GO TO 11 + IZ=NELEMZ(I) + NION=NIONZ(I) + CALL PFSAHA(J,IZ,NION,4,ELEC) + E(I)=ELEC(J) + X(I)=ELEC(J)*XNATOM(J)*XABUND(IZ) + XNENEW=XNENEW+X(I) + 11 CONTINUE + XNENEW=(XNENEW+XNE(J))/2. + ERROR=ABS((XNE(J)-XNENEW)/XNENEW) + XNE(J)=XNENEW + XNATOM(J)=XNTOT-XNE(J) + IF(ERROR.LT..0005)GO TO 400 + IF(J.EQ.1)GO TO 20 + X1=.00001*XNE(J) + IF(ERROR.LT..05)X1=X1*10. + DO 12 I=1,NZ + IF(X(I).LT.X1)MASK(I)=0 + 12 CONTINUE + 20 CONTINUE + WRITE(6,250) + 250 FORMAT(22H XNE DOES NOT CONVERGE) + CALL EXIT + 400 RHO(J)=XNATOM(J)*WTMOLE*1.660D-24 + IF(ITER.LT.NUMITS)GO TO 500 + DO 403 I=1,NZ + 403 X(I)=X(I)/XNE(J) + WRITE(6,404)J,(X(I),I=1,NZ),(E(I),I=1,NZ) + 404 FORMAT(I3,20F6.3) + 500 CONTINUE + RETURN + END + SUBROUTINE PFSAHA(J,IZ,NION,MODE,ANSWER) + IMPLICIT REAL*8 (A-H,O-Z) + PARAMETER (kw=99) +C MODE 1 RETURNS IONIZATION FRACTION /PARTITION FUNCTION +C MODE 2 RETURNS IONIZATION FRACTION +C MODE 3 RETURNS PARTITION FUNCTION +C MODE 4 RETURNS NUMBER OF ELECTRONS PRODUCED +C MODE + 10 RETURN ALL IONS TO NION. MODE ALONE RETURN NION ONLY. + COMMON /BAL/BAL1(kw,9),AAL1(kw),SAL1(kw),XNFPAL(kw,2),BAL2(kw,1) + COMMON /BB/BB1(kw,7),XNFPB(kw,1) + COMMON /BC/BC1(kw,14),AC1(kw),SC1(kw),XNFPC(kw,2),BC2(kw,6) + COMMON /BCA/BCA1(kw,8),BCA2(kw,5),XNFPCA(kw,2) + COMMON /BHE/BHE1(kw,29),AHE1(kw),SHE1(kw),BHE2(kw,6),AHE2(kw), + 1 SHE2(kw),AHEMIN(kw),SIGHE(kw),XNFPHE(kw,3),XNFHE(kw,2) + COMMON /BHYD/BHYD(kw,8),AHYD(kw),SHYD(kw),AH2P(kw),BMIN(kw), + 1 AHMIN(kw),SHMIN(kw),SIGH(kw),SIGH2(kw),AHLINE(kw), + 2 SHLINE(kw),XNFPH(kw,2),XNFH(kw) + COMMON /BK/BK1(kw,8),XNFPK(kw,1) + COMMON /BMG/BMG1(kw,11),AMG1(kw),SMG1(kw),XNFPMG(kw,2),BMG2(kw,6) + COMMON /BNA/BNA1(kw,8),XNFPNA(kw,1) + COMMON /BO/BO1(kw,13),XNFPO(kw,1),BO2(kw,4) + COMMON /BSI/BSI1(kw,11),ASI1(kw),SSI1(kw),XNFPSI(kw,2),BSI2(kw,10) + COMMON /IF/IFCORR,IFPRES,IFSURF,IFSCAT,IFMOL,NLTEON,IFOP(20) + COMMON /POTION/POTION(999) + COMMON /STATE/P(kw),XNE(kw),XNATOM(kw),RHO(kw),PTOTAL(kw) + COMMON /TEMP/T(kw),TKEV(kw),TK(kw),HKT(kw),TLOG(kw),HCKT(kw),ITEMP + DIMENSION ANSWER(kw,31),F(31),IP(31),PART(31),POTLO(31),FSAVE(31) + DIMENSION LOCZ(29) + REAL*8 IP + DIMENSION SCALE(4) + DIMENSION EHYD(6),EHE1(29),EHE2(6),EC1(14),EMG1(11),EAL1(9), + 1ESI1(11),EC2(6),EMG2(6),EAL2(1),ESI2(6),ECA1(8),ECA2(5),ENA1(8), + 2EO1(13),EB1(7),EK1(8) + DIMENSION GHYD(6),GHE1(29),GHE2(6),GC1(14),GMG1(11),GAL1(9), + 1GSI1(11),GC2(6),GMG2(6),GAL2(1),GSI2(6),GCA1(8),GCA2(5),GNA1(8), + 2GO1(13),GB1(7),GK1(8) + DIMENSION NNN(6,374) + DIMENSION NNN01(54),NNN02(54),NNN03(54),NNN04(54),NNN05(54) + DIMENSION NNN06(54),NNN07(54),NNN08(54),NNN09(54),NNN10(54) + DIMENSION NNN11(54),NNN12(54),NNN13(54),NNN14(54),NNN15(54) + DIMENSION NNN16(54),NNN17(54),NNN18(54),NNN19(54),NNN20(54) + DIMENSION NNN21(54),NNN22(54),NNN23(54),NNN24(54),NNN25(54) + DIMENSION NNN26(54),NNN27(54),NNN28(54),NNN29(54),NNN30(54) + DIMENSION NNN31(54),NNN32(54),NNN33(54),NNN34(54),NNN35(54) + DIMENSION NNN36(54),NNN37(54),NNN38(54),NNN39(54),NNN40(12) + EQUIVALENCE (NNN( 1),NNN01(1)),(NNN( 55),NNN02(1)) + EQUIVALENCE (NNN( 109),NNN03(1)),(NNN( 163),NNN04(1)) + EQUIVALENCE (NNN( 217),NNN05(1)),(NNN( 271),NNN06(1)) + EQUIVALENCE (NNN( 325),NNN07(1)),(NNN( 379),NNN08(1)) + EQUIVALENCE (NNN( 433),NNN09(1)),(NNN( 487),NNN10(1)) + EQUIVALENCE (NNN( 541),NNN11(1)),(NNN( 595),NNN12(1)) + EQUIVALENCE (NNN( 649),NNN13(1)),(NNN( 703),NNN14(1)) + EQUIVALENCE (NNN( 757),NNN15(1)),(NNN( 811),NNN16(1)) + EQUIVALENCE (NNN( 865),NNN17(1)),(NNN( 919),NNN18(1)) + EQUIVALENCE (NNN( 973),NNN19(1)),(NNN(1027),NNN20(1)) + EQUIVALENCE (NNN(1081),NNN21(1)),(NNN(1135),NNN22(1)) + EQUIVALENCE (NNN(1189),NNN23(1)),(NNN(1243),NNN24(1)) + EQUIVALENCE (NNN(1297),NNN25(1)),(NNN(1351),NNN26(1)) + EQUIVALENCE (NNN(1405),NNN27(1)),(NNN(1459),NNN28(1)) + EQUIVALENCE (NNN(1513),NNN29(1)),(NNN(1567),NNN30(1)) + EQUIVALENCE (NNN(1621),NNN31(1)),(NNN(1675),NNN32(1)) + EQUIVALENCE (NNN(1729),NNN33(1)),(NNN(1783),NNN34(1)) + EQUIVALENCE (NNN(1837),NNN35(1)),(NNN(1891),NNN36(1)) + EQUIVALENCE (NNN(1945),NNN37(1)),(NNN(1999),NNN38(1)) + EQUIVALENCE (NNN(2053),NNN39(1)),(NNN(2107),NNN40(1)) + DIMENSION NNN67(78),NNN88(48) + EQUIVALENCE (NNN(2119),NNN67(1)),(NNN(2197),NNN88(1)) +C ( 1)( 2) ( 3)( 4) ( 5)( 6) ( 7)( 8) ( 9)(10) ( IP ) G REF + DATA NNN01/ + 1 200020001, 200020011, 201620881, 231228281, 378953411, 1359502, D+F 1.00 + 2 100010001, 100010001, 100010001, 100010001, 100010001, 1359500, G 1.01 + 3 100010001, 100010011, 102111241, 145022061, 363059451, 2458104, D+F 2.00 + 4 200020001, 200020071, 208524971, 382669341, 128222452, 5440302, D+F 2.01 + 5 100010001, 100010001, 100010001, 100010001, 100010001, 5440300, G 2.02 + 6 200020011, 201220481, 212922881, 258731081, 394251691, 538901, D+F 3.00 + 7 100010001, 100010201, 126225521, 67216512, 351165562, 7561907, D+F 3.01 + 8 200020001, 200020211, 227936571, 69610342, 137217102, 12241800, D+F 3.02 + 9 100010001, 100010001, 100010001, 100010001, 100010001, 12241800/ G 3.03 + DATA NNN02/ + 1 100010051, 104311441, 131615641, 190623681, 298037691, 931900, AEL 4.00 + 2 200120231, 211422771, 249627631, 309034911, 398545051, 1820600, AEL 4.01 + 3 100010001, 100010201, 126225521, 67216512, 351165562, 15385000, AEL 4.02 + 4 200020001, 200020011, 201220661, 223426161, 332644691, 21765700, AEL 4.03 + 5 600060001, 600560281, 608761991, 637466191, 693973361, 829500, AEL 5.00 + 6 100310831, 132016901, 214226411, 315736741, 419147071, 2514900, AEL 5.01 + 7 200721061, 233526401, 297533311, 369040481, 440747651, 3792000, AEL 5.02 + 8 100010001, 100010001, 100010001, 100010001, 100010001, 25929800, G 5.03 + 9 893292271, 96110042, 105311262, 126315202, 196126432, 1125508/ D+F 6.00 + DATA NNN03/ + 1 595060251, 620865751, 713280191, 95712292, 167623542, 2437501, D+F 6.01 + 2 105513201, 180324851, 341851341, 88416332, 296550722, 4787101, D+F 6.02 + 3 204922771, 262630421, 350941931, 494556971, 644872001, 6447600, D+F 6.03 + 4 403141851, 457051681, 594071181, 92913362, 203331152, 1452915, D+F 7.00 + 5 919899541, 107211512, 124914302, 182526232, 403762662, 2959202, D+F 7.01 + 6 596862721, 684177081, 88110342, 128317062, 239334312, 4742501, D+F 7.02 + 7 112816481, 240733751, 462068491, 116419932, 283736822, 7744900, D+F 7.03 + 8 210124681, 293634211, 391145791, 539862151, 703178471, 9786200, D+F 7.04 + 9 874789691, 924795711, 99410492, 115213492, 169022242, 1361307/ D+F 8.00 + DATA NNN04/ + 1 424151091, 622874781, 91312832, 221842502, 79914013, 3510711, D+F 8.01 + 2 95610702, 118113032, 149619922, 329761642, 101914173, 5488500, D+F 8.02 + 3 603567171, 775391141, 106612482, 143716252, 181420032, 7739300, D+F 8.03 + 4 124420321, 306943181, 606281181, 101712232, 142916342, 11387300, D+F 8.04 + 5 215026541, 323137551, 421546491, 508255151, 594863811, 13807900, AEL 8.05 + 6 575958511, 589859231, 595860671, 636470031, 815199581, 1741802, D+F 9.00 + 7 900296401, 102610802, 113912542, 152921152, 318348952, 3498003, D+F 9.01 + 8 469162651, 791295541, 121419552, 402686872, 154822203, 6264500, D+F 9.02 + 9 99511422, 129214572, 170523002, 320140922, 498458762, 8713900/ D+F 9.03 + DATA NNN05/ + 1 615472711, 87710602, 127215002, 172919582, 218624152, 11421300, D+F 9.04 + 2 135324181, 377252001, 661580261, 94410852, 122613672, 15711700, AEL 9.05 + 3 100010001, 100010051, 105313051, 210239461, 74013022, 2155808, D+F10.00 + 4 580158751, 591759741, 642687101, 159332652, 64111533, 4106907, D+F10.01 + 5 93510272, 110411662, 127116062, 257647882, 75110223, 6350000, D+F10.02 + 6 529774371, 94611322, 135816202, 188221442, 240626682, 9701900, D+F10.03 + 7 103312152, 140616092, 181320182, 222224262, 263128352, 12630000, AEL10.04 + 8 629178711, 98311802, 136715512, 173619202, 210422892, 15790900, AEL10.05 + 9 200020001, 200320211, 207322131, 253031421, 417657451, 513802/ D+F11.00 + DATA NNN06/ + 1 100010001, 100010161, 119621261, 50711872, 246445382, 4728901, D+F11.01 + 2 580158751, 591860351, 71813142, 321968812, 106014333, 7165000, D+F11.02 + 3 96910772, 116012242, 130714232, 153916552, 177118872, 9888000, D+F11.03 + 4 601386081, 108812932, 148916832, 187820722, 226624612, 13836900, AEL11.04 + 5 105712442, 144616652, 189221182, 234425702, 279630222, 17209000, AEL11.05 + 6 100010011, 101410621, 118414581, 204831781, 509479731, 764404, D+F12.00 + 7 200120051, 202921001, 226926901, 368457091, 92814872, 1503101, D+F12.01 + 8 100010001, 100110611, 177455431, 176546012, 99718753, 8011905, D+F12.02 + 9 579758751, 591459501, 600560591, 611461681, 622362781, 10928900/ AEL12.03 + DATA NNN07/ + 1 100611232, 120612752, 134214102, 147815462, 161416822, 14122900, AEL12.04 + 2 674896701, 121814462, 167018942, 211723412, 256527892, 18648900, AEL12.05 + 3 558857701, 583558761, 593260591, 635969541, 796790971, 598400, D+F13.00 + 4 100310211, 110313021, 172828201, 55311252, 215637942, 1882203, D+F13.01 + 5 200320201, 208622331, 250530971, 410251081, 611571211, 2844000, D+F13.02 + 6 100010001, 100210881, 207436531, 523168101, 838999681, 11996000, D+F13.03 + 7 577758651, 591259631, 604461351, 622563161, 640764981, 15377000, AEL13.04 + 8 103511582, 124713242, 140014772, 155316292, 170517812, 19042000, AEL13.05 + 9 825189211, 95210052, 106211532, 134317202, 237934082, 814913/ D+F14.00 + DATA NNN08/ + 1 563057761, 588160311, 631768671, 791097651, 127817282, 1634000, D+F14.01 + 2 101110771, 126716471, 232438081, 71914052, 262045302, 3346001, D+F14.02 + 3 200720521, 217224081, 284439171, 551370951, 86810262, 4513000, D+F14.03 + 4 100010001, 100210881, 207436531, 523168101, 838999681, 16672900, FAK14.04 + 5 575458521, 591459851, 610063201, 672674071, 843698661, 20510900, AEL14.05 + 6 402643441, 496757481, 658274401, 833492941, 103511532, 1048300, AEL15.00 + 7 874497931, 106011282, 119812802, 138415142, 164717802, 1972000, AEL15.01 + 8 564058061, 604164611, 709579551, 90410172, 112912422, 3015500, AEL15.02 + 9 100811411, 149720221, 280936121, 441552181, 602168241, 5135400/ AEL15.03 + DATA NNN09/ + 1 200420781, 227025361, 281430911, 336936471, 392542021, 6500700, AEL15.04 + 2 100010001, 100010001, 100010001, 100010001, 100010001, 22041300, G 15.05 + 3 822887891, 930697831, 102610932, 121614492, 185124742, 1035708, D+F16.00 + 4 443056011, 694982961, 96911522, 144218572, 227326892, 2339900, D+F16.01 + 5 91610392, 113512242, 136416942, 233429882, 364242962, 3500000, D+F16.02 + 6 560058861, 633871081, 82410062, 123314602, 168619132, 4728900, D+F16.03 + 7 104512901, 177025421, 375163021, 122420462, 286036742, 7250000, D+F16.04 + 8 202321571, 241428261, 358355061, 78310152, 124814802, 8802800, D+F16.05 + 9 538155931, 571657911, 598067191, 89013782, 227737172, 1300916/ D+F17.00 + DATA NNN10/ + 1 873396771, 104411072, 118513532, 175525872, 406763932, 2379903, D+F17.01 + 2 506569571, 87610522, 134421682, 439092662, 182132573, 3990006, D+F17.02 + 3 95110872, 120013232, 154921252, 345149322, 641378942, 5350000, D+F17.03 + 4 558960371, 677779341, 95311692, 138816082, 182720472, 6780000, D+F17.04 + 5 100010001, 100010051, 106913911, 240147261, 90716112, 1575411, D+F18.00 + 6 550256831, 578158781, 636585461, 151530162, 58010303, 2762007, D+F18.01 + 7 92110362, 112412002, 133216772, 254443722, 76512833, 4090003, D+F18.02 + 8 582082081, 103112292, 149920212, 309750502, 720793642, 5978900, D+F18.03 + 9 97111072, 123213982, 172625622, 463976582, 106413633, 7500000/ D+F18.04 + DATA NNN11/ + 1 200020011, 200720361, 211923291, 280137141, 525575741, 433803, D+F19.00 + 2 100010001, 100110341, 135929551, 79119282, 405274892, 3180905, D+F19.01 + 3 554657081, 581260301, 73012702, 285363872, 129023363, 4600005, D+F19.02 + 4 96010862, 118413212, 180836632, 90321023, 416863253, 6090000, D+F19.03 + 5 657793361, 119515082, 195826322, 352944302, 533162332, 8259900, D+F19.04 + 6 100110061, 104311741, 145919971, 294345051, 69010322, 611003, D+F20.00 + 7 205822781, 279234761, 427553061, 688994901, 136319772, 1186701, D+F20.01 + 8 100010001, 100510821, 168744821, 130232522, 69012813, 5121003, D+F20.02 + 9 555157161, 585662471, 82816862, 42510013, 168423663, 6700000/ D+F20.03 + DATA NNN12/ + 1 99411262, 123814062, 182930402, 484766392, 84310223, 8438900, D+F20.04 + 2 924696691, 105212282, 151219062, 240530032, 368944512, 653900, AEL21.00 + 3 190424662, 297634542, 391743752, 482952832, 573761912, 1280000, AEL21.01 + 4 976799291, 101110322, 105810882, 111911502, 118112122, 2475000, AEL21.02 + 5 100010001, 100510821, 168744821, 130232522, 69012813, 7390000, FAK21.03 + 6 555157161, 585662471, 82816862, 42510013, 168423663, 9200000, FAK21.04 + 7 181021172, 260333222, 430155582, 710089242, 110213293, 681900, D+F22.00 + 8 474659872, 721284672, 98211413, 134515623, 177919963, 1356900, D+F22.01 + 9 228327012, 308134272, 381143862, 534563472, 734983512, 2747000/ D+F22.02 + DATA NNN13/ + 1 971498311, 99210032, 102610572, 108711172, 114711782, 4324000, D+F22.03 + 2 100010001, 100510821, 168744821, 130232522, 69012813, 9980000, FAK22.04 + 3 272835172, 425851532, 632278322, 97212013, 146817723, 674000, AEL23.00 + 4 373954132, 743597002, 121414713, 173920143, 229225713, 1464900, AEL23.01 + 5 323142642, 519660272, 679975352, 824789522, 96610363, 2930900, AEL23.02 + 6 248329302, 324234952, 373439752, 421744582, 469949412, 4800000, AEL23.03 + 7 970698231, 990699881, 100710152, 102410322, 104010482, 6500000, AEL23.04 + 8 717277611, 92911652, 152620872, 295141952, 550468122, 676400, D+F24.00 + 9 71611552, 205635512, 558281952, 115315823, 205625293, 1649000/ D+F24.01 + DATA NNN14/ + 1 280639822, 538369722, 87610823, 129115003, 170919183, 3095000, D+F24.02 + 2 377150952, 616070292, 791788382, 97610683, 116012523, 5000000, D+F24.03 + 3 264730962, 341436462, 394042872, 463549832, 533056782, 7300000, D+F24.04 + 4 600060321, 629270891, 86911302, 151020222, 267534752, 743100, AEL25.00 + 5 739594821, 139921212, 309342852, 567372412, 97112553, 1563600, AEL25.01 + 6 98417472, 265535782, 454754842, 641973532, 828792212, 3369000, AEL25.02 + 7 328847052, 586668342, 771785912, 94710343, 112112093, 5300000, AEL25.03 + 8 422055132, 636770792, 779285062, 921999322, 106411363, 7600000, AEL25.04 + 9 197023222, 274433302, 416753952, 723799822, 139419053, 787038/ D+F26.00 + DATA NNN15/ + 1 409453722, 686687452, 110213823, 174322233, 286437043, 1617902, D+F26.01 + 2 262136422, 501167232, 87911303, 138916483, 190721673, 3064300, D+F26.02 + 3 98723522, 420363072, 87011423, 145117913, 215925463, 5700000, AEL26.03 + 4 388854482, 666275742, 846693572, 102511143, 120312923, 7900000, D+F26.04 + 5 199427202, 335740022, 474957182, 708090462, 118315403, 786000, D+F27.00 + 6 279739202, 490858232, 684582472, 104713233, 159818733, 1704900, D+F27.01 + 7 279836622, 461857562, 720693022, 124915873, 192522633, 3349000, D+F27.02 + 8 262136422, 501167232, 87911303, 138916483, 190821673, 5300000, FAK27.03 + 9 98723522, 420363072, 87011423, 145117913, 215925463, 8300000/ FAK27.04 + DATA NNN16/ + 1 227027622, 306233052, 356839222, 446052912, 652382292, 763314, D+F28.00 + 2 108416342, 222428472, 353944332, 577378932, 110314303, 1814900, D+F28.01 + 3 198724282, 293236452, 468362702, 86511123, 136016073, 3516000, D+F28.02 + 4 279836622, 461857562, 720693022, 124915873, 192522633, 5600000, FAK28.03 + 5 262136422, 501167232, 87911303, 138916483, 190721673, 7900000, FAK28.04 + 6 201620781, 231026761, 314737361, 450555381, 692386911, 772301, D+F29.00 + 7 109415761, 247938311, 58910042, 190937022, 68311693, 2028903, D+F29.01 + 8 897195961, 107212972, 165021182, 260230862, 356940532, 3682900, D+F29.02 + 9 100010001, 100410231, 108712611, 167124841, 388460411, 939102/ D+F30.00 + DATA NNN17/ + 1 200020021, 201620761, 223726341, 351352061, 80812472, 1796001, D+F30.01 + 2 100610471, 122617301, 300566361, 149924112, 332342352, 3970000, D+F30.02 + 3 403245601, 493151431, 529654331, 559358091, 611065171, 600000, AEL31.00 + 4 99710051, 104511541, 135016501, 208226431, 321837921, 2050900, AEL31.01 + 5 199820071, 204521391, 229124761, 266028451, 302932131, 3070000, AEL31.02 + 6 502665261, 755183501, 901496201, 102410942, 117912812, 787900, AEL32.00 + 7 422848161, 512153401, 557458941, 636270361, 794489061, 1593000, AEL32.01 + 8 100010261, 114613921, 175221251, 249828711, 324436181, 3421000, AEL32.02 + 9 403143241, 491856701, 649173781, 840396751, 113013392, 981000/ AEL33.00 + DATA NNN18/ + 1 593676641, 884697521, 105911572, 129515012, 180322212, 1858700, AEL33.01 + 2 484470541, 91510972, 125614082, 157017612, 199722912, 2829900, AEL33.02 + 3 630172361, 799686381, 919797221, 102810942, 117712832, 975000, AEL34.00 + 4 438055511, 691582151, 94510732, 121413672, 152016732, 2150000, AEL34.01 + 5 651982921, 94610382, 113212492, 139515462, 169718482, 3200000, AEL34.02 + 6 437347431, 498951671, 538559501, 74710812, 169126672, 1183910, D+F35.00 + 7 705183611, 93510092, 111614162, 222932532, 427652992, 2160000, D+F35.01 + 8 510869921, 87410312, 123116552, 236530712, 377744832, 3590000, D+F35.02 + 9 100010001, 100010051, 105012781, 198535971, 65911422, 1399507/ D+F36.00 + DATA NNN19/ + 1 461049811, 522254261, 609088131, 168935052, 68612253, 2455908, D+F36.01 + 2 759990901, 101911142, 129017782, 302856642, 99414333, 3690000, D+F36.02 + 3 200020011, 200720361, 211523021, 269434141, 459163351, 417502, D+F37.00 + 4 100010001, 100110321, 129524961, 61014202, 291753192, 2750004, D+F37.01 + 5 473650891, 533156051, 66810932, 232950852, 99915303, 4000000, D+F37.02 + 6 100110041, 104111741, 146019721, 281941411, 607785251, 569202, D+F38.00 + 7 202621931, 255331271, 384347931, 624085761, 122417632, 1102600, D+F38.01 + 8 100010001, 100110321, 129524961, 61014202, 291753192, 4300000, FAK38.02 + 9 791587851, 100012192, 155119942, 254031782, 389946932, 637900/ AEL39.00 + DATA NNN20/ + 1 118217102, 220827002, 319036792, 416646512, 513256072, 1223000, AEL39.01 + 2 92510012, 104710862, 112311612, 120212472, 132814282, 2050000, AEL39.02 + 3 141320802, 291439702, 531170262, 92712273, 162521053, 684000, D+F40.00 + 4 354454352, 724689652, 107212643, 148517093, 193321573, 1312900, D+F40.01 + 5 209727032, 324537052, 415446282, 510255752, 604965222, 2298000, D+F40.02 + 6 256636022, 465759302, 749693962, 116514243, 171520333, 687900, AEL41.00 + 7 335157222, 84511463, 147718363, 221826083, 299933893, 1431900, AEL41.01 + 8 289742562, 555768442, 819296482, 112312923, 146916533, 2503900, AEL41.02 +c 16jun04 added five missing terms to pf +c 8 223725352, 280830972, 340937362, 406844002, 473150632, 2503900, AEL41.02 + 9 703972941, 82610822, 154822682, 327244912, 571469372, 709900/ D+F42.00 + DATA NNN21/ + 1 75714552, 274347322, 718897632, 123414913, 174920063, 1614900, D+F42.01 + 2 267645462, 669890262, 115514323, 173620673, 242528083, 2714900, AEL42.02 + 3 90613732, 184823562, 291735332, 419949102, 565764332, 728000, AEL43.00 + 4 131318312, 227126932, 311735452, 397644072, 483852692, 1525900, AEL43.01 +c 7jun04 error found by John Laird +c 5 204721673, 234725733, 284031463, 348738613, 426546943, 3000000, AEL43.02 +c 22jun05 error found by Bischof +c 5 600460071, 607964351, 731488341, 110013701, 168420311, 3000000, AEL43.02 + 5 600460071, 607964351, 731488341, 110013702, 168420312, 3000000, AEL43.02 + 6 176824122, 318941082, 515263202, 761790472, 106112303, 736400, AEL44.00 + 7 221934642, 501968372, 88911173, 136316243, 189221613, 1675900, AEL44.01 + 8 210622722, 241025422, 267928262, 297731272, 327834282, 2846000, AEL44.02 + 9 148520202, 255230902, 364942462, 489656082, 638872352, 746000/ AEL45.00 + DATA NNN22/ + 1 153421292, 288137912, 484660322, 720187062, 101011483, 1807000, AEL45.01 + 2 254537212, 492362292, 770592182, 107312243, 137615273, 3104900, AEL45.02 + 3 115919651, 320746011, 607576761, 95011642, 141817172, 832900, AEL46.00 + 4 755087211, 105913442, 173122222, 282034722, 412247732, 1941900, AEL46.01 + 5 180223462, 289735212, 414247632, 538460052, 662672472, 3292000, AEL46.02 + 6 200020001, 200220141, 206422141, 257633021, 455164681, 757403, D+F47.00 + 7 100810581, 125817401, 260641031, 66210072, 135316982, 2148000, D+F47.01 + 8 795887491, 97711762, 156620252, 248329422, 340038582, 3481900, D+F47.02 + 9 100010001, 100410241, 109212891, 176827421, 444268771, 899003/ D+F48.00 + DATA NNN23/ + 1 200020021, 201720921, 233329881, 451475371, 127520782, 1690301, D+F48.01 + 2 100310281, 114815371, 246138311, 519265531, 791492761, 3747000, D+F48.02 + 3 252431921, 368440461, 433746521, 512259221, 723389021, 578400, D+F49.00 + 4 100110071, 104611651, 146118581, 225426511, 304734431, 1886000, D+F49.01 + 5 200120111, 205021611, 243628031, 317035371, 390442701, 2802900, D+F49.02 + 6 232637101, 488058571, 669074381, 816189091, 97210632, 734200, AEL50.00 + 7 286335941, 408144471, 479351961, 571862901, 686274341, 1462700, AEL50.01 + 8 100010251, 114013811, 175321601, 256829751, 338337901, 3049000, AEL50.02 + 9 404043481, 494656811, 646772781, 813490751, 101411372, 863900/ AEL51.00 + DATA NNN24/ + 1 303147981, 618472951, 827392621, 103711702, 131214532, 1650000, AEL51.01 + 2 313037601, 429347901, 536260591, 689477591, 862494881, 2529900, AEL51.02 + 3 526258801, 657372351, 784284071, 897095741, 102711082, 900900, AEL52.00 + 4 440855541, 686481251, 93810792, 125414792, 176321132, 1860000, AEL52.01 + 5 349054751, 699883081, 96611302, 134216202, 197724212, 2800000, AEL52.02 + 6 405342041, 438645621, 475751071, 587974491, 102214572, 1045404, D+F53.00 + 7 568567471, 773485861, 94510362, 112712182, 130914002, 1909000, D+F53.01 + 8 514269581, 86910562, 130716652, 215327742, 351843662, 3200000, AEL53.02 + 9 100010001, 100010091, 109515351, 291060661, 119621482, 1212716/ D+F54.00 + DATA NNN25/ + 1 414844131, 465649111, 538464651, 87112232, 158019362, 2120000, D+F54.01 + 2 615475101, 867797531, 112213462, 157618062, 203622662, 3209900, D+F54.02 + 3 200020001, 201020501, 215623871, 283536181, 462756261, 389300, D+F55.00 + 4 100010001, 100310371, 119016501, 269146361, 77912412, 2510000, D+F55.01 + 5 424445601, 481750061, 516953311, 549356551, 581759791, 3500000, D+F55.02 + 6 101210791, 135119351, 282340571, 574580391, 111015062, 521002, D+F56.00 + 7 262638611, 504160621, 698579371, 91010692, 129115952, 1000000, D+F56.01 + 8 100010001, 100310351, 118416321, 264945521, 76512182, 3700000, FAK56.02 + 9 71111992, 172323592, 312540402, 510763182, 765791012, 558000/ AEL57.00 + DATA NNN26/ + 1 204529582, 383647882, 582469262, 807992692, 104911723, 1106000, AEL57.01 + 2 94712552, 148416582, 179819212, 203621522, 227424042, 1916900, AEL57.02 + 3 295959132, 103515693, 215527593, 335939413, 449650223, 565000, AEL58.00 + 4 79718153, 289639443, 495159253, 686877533, 863794813, 1085000, AEL58.01 + 5 298640242, 475053692, 596965912, 725379692, 872094692, 2008000, AEL58.02 + 6 460693672, 158523823, 327242303, 519661563, 709379783, 541900, FAK59.00 + 7 455480232, 114014653, 178521013, 240927073, 299232633, 1055000, AEL59.01 + 8 46410533, 183826893, 354443773, 518459633, 674375243, 2320000, AEL59.02 + 9 139623042, 364860002, 96114603, 209828633, 373446973, 549000/ AEL60.00 + DATA NNN27/ + 1 460493692, 158523823, 327142303, 519661563, 709279783, 1073000, AEL60.01 + 2 455480232, 114014653, 178521013, 240927073, 299232633, 2000000, FAK60.02 + 3 131720482, 280535692, 441254492, 676583972, 103412583, 555000, AEL61.00 + 4 139623042, 364860002, 96114603, 209828633, 373446973, 1089900, FAK61.01 + 5 460493682, 158523823, 327142303, 519661563, 709279783, 2000000, FAK61.02 + 6 92915672, 222431062, 444763802, 89612173, 159520253, 562900, AEL62.00 + 7 315059662, 97114563, 204627093, 342541693, 490556383, 1106900, AEL62.01 + 8 269037812, 520270372, 91111273, 133915483, 172719093, 2000000, AEL62.02 + 9 800080571, 851699301, 127617362, 240433032, 444958442, 568000/ AEL63.00 + DATA NNN28/ + 1 125416052, 211828182, 375549622, 644381732, 101112213, 1125000, AEL63.01 + 2 800080571, 851699301, 127617362, 240433032, 444958442, 2000000, FAK63.02 + 3 240432982, 427555202, 708489962, 112613853, 167319843, 615900, AEL64.00 + 4 534793262, 139219123, 247730843, 371043333, 495055893, 1210000, AEL64.01 + 5 364145232, 514756362, 604864112, 673870372, 732276072, 2000000, AEL64.02 + 6 480767202, 89011393, 144118243, 230028753, 354142883, 584900, AEL65.00 + 7 480767192, 89011393, 144118243, 230028753, 354142883, 1151900, FAK65.01 + 8 480767202, 89011393, 144118243, 230028753, 354142883, 2000000, FAK65.02 + 9 343147532, 645887152, 115314793, 183322063, 257729373, 593000/ FAK66.00 + DATA NNN29/ + 1 343147532, 645887142, 115314793, 183322063, 257729373, 1167000, AEL66.01 + 2 343147532, 645887142, 115314793, 183322063, 257729373, 2000000, FAK66.02 + 3 222635002, 542276772, 100312353, 145716713, 187020703, 602000, FAK67.00 + 4 222635002, 542276772, 100312353, 145716713, 187020703, 1180000, FAK67.01 + 5 222635002, 542276772, 100312353, 145716713, 187020703, 2000000, AEL67.02 + 6 133715382, 209130152, 429859382, 79410293, 129815983, 609900, AEL68.00 + 7 265934782, 497877532, 120517733, 245032063, 400448073, 1193000, AEL68.01 + 8 265934782, 497877532, 120517733, 245032063, 400448073, 2000000, FAK68.02 + 9 800381111, 87510702, 147621462, 310343462, 585475982, 618000/ AEL69.00 + DATA NNN30/ + 1 156718872, 279244452, 678196342, 128316243, 197823443, 1205000, AEL69.01 + 2 93517192, 364666132, 103414613, 192624193, 293334613, 2370000, AEL69.02 + 3 100010011, 101310651, 118613951, 169120661, 250629971, 625000, AEL70.00 + 4 200120901, 270345231, 81714042, 223533112, 461959862, 1217000, AEL70.01 + 5 100312561, 250851931, 91914182, 198626022, 323638692, 2000000, AEL70.02 + 6 514664441, 759086851, 99211442, 133315612, 182721252, 609900, AEL71.00 + 7 125924831, 438667801, 98714112, 199727872, 380850742, 1389900, AEL71.01 + 8 323948621, 661297271, 158626482, 426865032, 93712843, 1900000, AEL71.02 + 9 659294081, 128016962, 222528952, 372047062, 585171462, 700000/ AEL72.00 + DATA NNN31/ + 1 99117882, 274638812, 520867322, 84410313, 123314453, 1489900, AEL72.01 + 2 187427702, 343739872, 448049452, 539358282, 625266642, 2329900, AEL72.02 + 3 65210892, 171325762, 373552252, 705192012, 116414343, 787900, AEL73.00 + 4 192837842, 600784802, 111113823, 165419233, 218524383, 1620000, AEL73.01 + 5 99117872, 274638812, 520867312, 84410313, 123314453, 2400000, FAK73.02 + 6 398981651, 130019172, 273438022, 516168382, 88411163, 797900, AEL74.00 + 7 131429482, 523279952, 111414623, 183422233, 262130233, 1770000, AEL74.01 + 8 192837842, 600784792, 111113823, 165419233, 218524383, 2500000, FAK74.02 + 9 600963001, 75910412, 150121572, 301940972, 539168952, 787000/ AEL75.00 + DATA NNN32/ + 1 73710852, 190731262, 464964142, 83810503, 127315053, 1660000, AEL75.01 + 2 131429482, 523279952, 111414623, 183422233, 262130233, 2600000, FAK75.02 + 3 110815502, 216829732, 398752322, 672484682, 104612673, 850000, AEL76.00 + 4 168225972, 362046562, 566766422, 757484612, 93010103, 1700000, AEL76.01 + 5 73710852, 190731262, 464964142, 83810503, 127315053, 2700000, FAK76.02 + 6 129117892, 239430882, 388748292, 596173252, 89510843, 910000, AEL77.00 + 7 110815502, 216829732, 398752322, 672484682, 104612673, 2000000, FAK77.01 + 8 168225972, 362046562, 566766422, 757484612, 93010103, 2800000, FAK77.02 + 9 158918512, 207523002, 254328242, 316335762, 407246582, 900000/ AEL78.00 + DATA NNN33/ + 1 98115462, 224930742, 401150612, 623475412, 89910583, 1855900, AEL78.01 + 2 146323292, 354651802, 74810923, 161723953, 348749363, 3322700, K9478.02 + 3 203222611, 265731251, 364042301, 494958601, 702084731, 922000, AEL79.00 + 4 120521331, 357753801, 75310062, 130516572, 206925452, 2050000, AEL79.01 + 5 651780821, 108814772, 195925252, 316338622, 460853882, 3000000, AEL79.02 + 6 100010001, 100110111, 105211851, 152122101, 341552811, 1043002, D+F80.00 + 7 200320211, 210023021, 268834231, 480472341, 111416912, 1875000, D+F80.01 + 8 104012871, 186129471, 458664151, 82410072, 119013732, 3420000, D+F80.02 + 9 200420711, 222424271, 265429161, 325637371, 442853911, 610500/ AEL81.00 + DATA NNN34/ + 1 100010021, 101910801, 121414641, 189525811, 358949721, 2041900, AEL81.01 + 2 200020311, 216624611, 296337451, 489064791, 85711212, 2979900, AEL81.02 + 3 103411711, 147819101, 244331781, 434862751, 93113762, 741404, D+F82.00 + 4 204122231, 248227841, 311535621, 429153941, 651976431, 1502800, D+F82.01 + 5 100210131, 106812201, 154522671, 381665951, 95512512, 3192900, D+F82.02 + 6 400140351, 416944121, 474851591, 564362181, 690477231, 728700, AEL83.00 + 7 106814451, 204427341, 350744811, 586879131, 108314772, 1667900, AEL83.01 + 8 205523051, 264830231, 345439921, 469156001, 675281671, 2555900, AEL83.02 + 9 500950661, 518153561, 559058941, 628968071, 748483501, 843000/ AEL84.00 + DATA NNN35/ + 1 443756241, 696282451, 95411012, 128615262, 182922012, 1900000, FAK84.01 + 2 336953201, 682481011, 93810882, 127915272, 184622442, 2700000, FAK84.02 + 3 402841621, 431544771, 463148311, 520059491, 734896851, 930000, FAK85.00 + 4 576168741, 788387631, 96910642, 116012552, 135014462, 2000000, FAK85.01 + 5 490265341, 812797201, 116614322, 179622692, 285035302, 2900000, FAK85.02 + 6 100010001, 100010031, 102311051, 133018071, 264539391, 1074500, AEL86.00 + 7 402841621, 431544771, 463148311, 520059491, 734996851, 2000000, FAK86.01 + 8 576168741, 788387631, 96910642, 116012552, 135014462, 3000000, FAK86.02 + 9 200020011, 201220591, 218124481, 296538611, 488859141, 400000/ FAK87.00 + DATA NNN36/ + 1 100010001, 100010031, 102311051, 133018071, 264539401, 2200000, FAK87.01 + 2 421645151, 477449611, 511852711, 542455761, 572958821, 3300000, FAK87.02 + 3 100010041, 105212131, 153220271, 270435641, 460258111, 527600, AEL88.00 + 4 201221791, 258131471, 381645781, 546365131, 777592781, 1014400, AEL88.01 + 5 100010001, 100010031, 102311051, 133018071, 264539391, 3400000, FAK88.02 + 6 510064491, 82710872, 142718412, 232328712, 348341572, 690000, AEL89.00 + 7 228951571, 88513232, 183324132, 305537492, 448152402, 1210000, AEL89.01 + 8 723989131, 103511752, 130814352, 155416652, 177018682, 2000000, AEL89.02 + 9 620099241, 162725772, 391457072, 80110833, 141818023, 600000/ AEL90.00 + DATA NNN37/ + 1 620099241, 162725772, 391457072, 80110833, 141818023, 1200000, FAK90.01 + 2 620099251, 162725772, 391457072, 80110833, 141818023, 2000000, FAK90.02 + 3 347877992, 129318323, 240730533, 380546863, 570368573, 600000, AEL91.00 + 4 347877992, 129318323, 240730533, 380546863, 570368573, 1200000, FAK91.01 + 5 347777992, 129318323, 240730533, 380546863, 570368573, 2000000, FAK91.02 + 6 209530092, 450866762, 96613623, 186524763, 318839893, 600000, AEL92.00 + 7 209530092, 450866762, 96613623, 186524763, 318839893, 1200000, FAK92.01 + 8 209530092, 450866762, 96613623, 186524763, 318839893, 2000000, FAK92.02 + 9 209530092, 450866762, 96613623, 186524763, 318839893, 600000/ FAK93.00 + DATA NNN38/ + 1 209530092, 450866762, 96613623, 186524763, 318839893, 1200000, FAK93.01 + 2 209530092, 450866762, 96613623, 186524763, 318839893, 2000000, FAK93.02 + 3 209530092, 450866762, 96613623, 186524763, 318839893, 600000, FAK94.00 + 4 209530092, 450866762, 96613623, 186524763, 318839893, 1200000, FAK94.01 + 5 209530092, 450866762, 96613623, 186524763, 318839893, 2000000, FAK94.02 + 6 209530092, 450866762, 96613623, 186524763, 318839893, 600000, FAK95.00 + 7 209530092, 450866762, 96613623, 186524763, 318839893, 1200000, FAK95.01 + 8 209530092, 450866762, 96613623, 186524763, 318839893, 2000000, FAK95.02 + 9 209530092, 450866762, 96613623, 186524763, 318839893, 600000/ FAK96.00 + DATA NNN39/ + 1 209530092, 450866762, 96613623, 186524763, 318839893, 1200000, FAK96.01 + 2 209530092, 450866762, 96613623, 186524763, 318839893, 2000000, FAK96.02 + 3 209530092, 450866762, 96613623, 186524763, 318839893, 600000, FAK97.00 + 4 209530092, 450866762, 96613623, 186524763, 318839893, 1200000, FAK97.01 + 5 209530092, 450866762, 96613623, 186524763, 318839893, 2000000, FAK97.02 + 6 209530092, 450866762, 96613623, 186524763, 318839893, 600000, FAK98.00 + 7 209530092, 450866762, 96613623, 186524763, 318839893, 1200000, FAK98.01 + 8 209530092, 450866762, 96613623, 186524763, 318839893, 2000000, FAK98.02 + 9 209530092, 450866762, 96613623, 186524763, 318839893, 600000/ FAK99.00 + DATA NNN40/ + 1 209530092, 450866762, 96613623, 186524763, 318839893, 1200000, FAK99.01 + 2 209530092, 450866762, 96613623, 186524763, 318839893, 2000000/ FAK99.02 + DATA NNN67/ + 1 893292271, 96110042, 105311262, 126315202, 196126432, 1125508, D+F 6.00 + 2 595060251, 620865751, 713280191, 95712292, 167623542, 2437501, D+F 6.01 + 3 105513201, 180324851, 341851341, 88416332, 296550722, 4787101, D+F 6.02 + 4 204922771, 262630421, 350941931, 494556971, 644872001, 6447600, D+F 6.03 + 5 100010001, 100010001, 100010001, 100010001, 100010001, 39207700, G 6.04 + 6 200020001, 200020001, 200020001, 200020001, 200020001, 48998100, G 6.05 + 7 403141851, 457051681, 594071181, 92913362, 203331152, 1452915, D+F 7.00 + 8 919899541, 107211512, 124914302, 182526232, 403762662, 2959202, D+F 7.01 + 9 596862721, 684177081, 88110342, 128317062, 239334312, 4742501, D+F 7.02 + T 112816481, 240733751, 462068491, 116419932, 283736822, 7744900, D+F 7.03 + 1 210124681, 293634211, 391145791, 539862151, 703178471, 9786200, D+F 7.04 + 2 100010001, 100010001, 100010001, 100010001, 100010001, 55205700, G 7.05 + 3 200020001, 200020001, 200020001, 200020001, 200020001, 66702900/ G 7.06 + DATA NNN88/ + 1 874789691, 924795711, 99410492, 115213492, 169022242, 1361307, D+F 8.00 + 2 424151091, 622874781, 91312832, 221842502, 79914013, 3510711, D+F 8.01 + 3 95610702, 118113032, 149619922, 329761642, 101914173, 5488500, D+F 8.02 + 4 603567171, 775391141, 106612482, 143716252, 181420032, 7739300, D+F 8.03 + 5 124420321, 306943181, 606281181, 101712232, 142916342, 11387300, D+F 8.04 + 6 215026541, 323137551, 421546491, 508255151, 594863811, 13807900, AEL 8.05 + 7 100010001, 100010001, 100010001, 100010001, 100010001, 73927400, G 8.06 + 8 200020001, 200020001, 200020001, 200020001, 200020001, 87138700/ G 8.07 +c DATA NNN1112/ +c 9 200020001, 200320211, 207322131, 253031421, 417657451, 513802, D+F11.00 +c 1 100010001, 100010161, 119621261, 50711872, 246445382, 4728901, D+F11.01 +c 2 580158751, 591860351, 71813142, 321968812, 106014333, 7165000, D+F11.02 +c 3 96910772, 116012242, 130714232, 153916552, 177118872, 9888000, D+F11.03 +c 4 601386081, 108812932, 148916832, 187820722, 226624612, 13836900, AEL11.04 +c 5 105712442, 144616652, 189221182, 234425702, 279630222, 17209000, AEL11.05 +c 7 100010001, 100010001, 100010001, 100010001, 100010001, 73927400, G 11.06 +c +c 6 100010011, 101410621, 118414581, 204831781, 509479731, 764404, D+F12.00 +c 7 200120051, 202921001, 226926901, 368457091, 92814872, 1503101, D+F12.01 +c 8 100010001, 100110611, 177455431, 176546012, 99718753, 8011905, D+F12.02 +c 9 579758751, 591459501, 600560591, 611461681, 622362781, 10928900, AEL12.03 +c 1 100611232, 120612752, 134214102, 147815462, 161416822, 14122900, AEL12.04 +c 2 674896701, 121814462, 167018942, 211723412, 256527892, 18648900, AEL12.05 +c 7 100010001, 100010001, 100010001, 100010001, 100010001, 73927400/ G 12.06 +c DATA NNN1314/ +c 3 558857701, 583558761, 593260591, 635969541, 796790971, 598400, D+F13.00 +c 4 100310211, 110313021, 172828201, 55311252, 215637942, 1882203, D+F13.01 +c 5 200320201, 208622331, 250530971, 410251081, 611571211, 2844000, D+F13.02 +c 6 100010001, 100210881, 207436531, 523168101, 838999681, 11996000, D+F13.03 +c 7 577758651, 591259631, 604461351, 622563161, 640764981, 15377000, AEL13.04 +c 8 103511582, 124713242, 140014772, 155316292, 170517812, 19042000, AEL13.05 +c 7 100010001, 100010001, 100010001, 100010001, 100010001, 73927400, G 8.06 +c 9 825189211, 95210052, 106211532, 134317202, 237934082, 814913/ D+F14.00 +c DATA NNN08/ +c 1 563057761, 588160311, 631768671, 791097651, 127817282, 1634000, D+F14.01 +c 2 101110771, 126716471, 232438081, 71914052, 262045302, 3346001, D+F14.02 +c 3 200720521, 217224081, 284439171, 551370951, 86810262, 4513000, D+F14.03 +c 4 100010001, 100210881, 207436531, 523168101, 838999681, 16672900, FAK14.04 +c 5 575458521, 591459851, 610063201, 672674071, 843698661, 20510900, AEL14.05 +c 7 100010001, 100010001, 100010001, 100010001, 100010001, 73927400, G 8.06 + DATA EHYD/0.D0,82259.105D0,97492.302D0,102823.893D0,105291.651D0, + 1 106632.160D0/ + DATA GHYD/2.,8.,18.,32.,50.,72./ + DATA EHE1/ + 1 0.D0,159856.069D0,166277.546D0,169087.007D0,171135.000D0, + 2 183236.892D0,184864.936D0,185564.694D0,186101.654D0,186105.065D0, + 3 186209.471D0,190298.210D0,190940.331D0,191217.14D0,191444.588D0, + 4 191446.559D0,191451.80D0,191452.08D0,191492.817D0, + 5 193347.089D0,193663.627D0,193800.78D0,193917.245D0,193918.391D0, + 6 193921.31D0,193921.37D0,193922.5D0,193922.5D0,193942.57D0/ + DATA GHE1/1,3.,1.,9.,3.,3.,1.,9.,15.,5.,3.,3.,1.,9.,15.,5.,21., + 1 7.,3.,3.,1.,9.,15.,5.,21.,7.,27.,9.,3./ + DATA EHE2/0.D0,329182.321D0,390142.359D0,411477.925D0, + 1 421353.135D0,426717.413D0/ + DATA GHE2/2.,8.,18.,32.,50.,72./ + DATA EB1/10.17D0,28810.D0,40039.65D0,47856.99D0,48613.01D0, + 1 54767.74D0,55010.08D0/ + DATA GB1/6.,12.,2.,10.,6.,10.,2./ + DATA EC1/29.60D0,10192.66D0,21648.02D0,33735.20D0,60373.00D0, + 1 61981.82D0,64088.85D0,68856.33D0,69722.00D0,70743.95D0, + 2 71374.90D0,72610.72D0,73975.91D0,75254.93D0/ + DATA GC1/9.,5.,1.,5.,9.,3.,15.,3.,15.,3.,9.,5.,1.,9./ + DATA EC2/42.48D0,43035.8D0,74931.11D0,96493.74D0,110652.10D0, + 1 116537.65D0/ + DATA GC2/6.,12.,10.,2.,6.,2./ + DATA EO1/77.975D0,15867.862D0,33792.583D0,73768.200D0,76794.978D0, + 1 86629.089D0,88630.977D0,95476.728D0,96225.049D0,97420.748D0, + 2 97488.476D0,99094.065D0,99681.051D0/ + DATA GO1/9.,5.,1.,5.,3.,15.,9.,5.,3.,25.,15.,15.,9./ + DATA ENA1/0.D0,16956.172D0,16973.368D0,25739.991D0,29172.889D0, + 1 29172.839D0,30266.99D0,30272.58D0/ + DATA GNA1/2.,2.,4.,2.,6.,4.,2.,4./ + DATA EMG1/0.D0,21890.854D0,35051.264D0,41197.403D0,43503.333D0, + 1 46403.065D0,47847.797D0,47957.034D0,49346.729D0,51872.526D0, + 2 52556.206D0/ + DATA GMG1/1.,9.,3.,3.,1.,5.,9.,15.,3.,3.,1./ + DATA EMG2/0.D0,35730.36D0,69804.95D0,71490.54D0,80639.85D0, + 1 92790.51D0/ + DATA GMG2/2.,6.,2.,10.,6.,2./ + DATA EAL1/74.707D0,25347.756D0,29097.11D0,32436.241D0,32960.363D0, + 1 37689.413D0,38932.139D0,40275.903D0,41319.377D0/ + DATA GAL1/6.,2.,12.,10.,6.,2.,10.,6.,14./ + DATA ESI1/149.681D0,6298.850D0,15394.370D0,33326.053D0, + 1 39859.920D0,40991.884D0,45303.310D0,47284.061D0,47351.554D0, + 2 48161.459D0,49128.131D0/ + DATA GSI1/9.,5.,1.,5.,9.,3.,15.,3.,5.,15.,9./ + DATA ESI2/191.55D0,43002.27D0,55319.11D0,65500.73D0,76665.61D0, + 1 79348.67D0/ + DATA GSI2/6.,12.,10.,2.,2.,10./ + DATA EK1/0.D0,12985.170D0,13042.876D0,21026.551D0,21534.680D0, + 1 21536.988D0,24701.382D0,24720.139D0/ + DATA GK1/2.,2.,4.,2.,6.,4.,2.,4./ + DATA ECA1/0.D0,15263.089D0,20356.265D0,21849.634D0,23652.304D0, + 1 31539.495D0,33317.264D0,35831.203D0/ + DATA GCA1/1.,9.,15.,5.,3.,3.,1.,21./ + DATA ECA2/0.D0,13686.60D0,25340.10D0,52166.93D0,56850.78D0/ + DATA GCA2/2.,10.,6.,2.,10./ + DATA LOCZ/1,3,6,10,14,18,22,27,33,39,45,51,57,63,69,75,81,86,91, + 196,101,106,111,116,121,126,131,136,141D0/ + DATA SCALE/.001,.01,.1,1./ +C + MODE1=MODE + IF(MODE1.GT.10)MODE1=MODE1-10 +C LOWERING OF THE IONIZATION POTENTIAL IN VOLTS FOR UNIT ZEFF + CHARGE=XNE(J)*2. + EXCESS=2.*XNE(J)-P(J)/TK(J) +C ALLOWANCE FOR DOUBLY IONIZED HELIUM + IF(EXCESS.GT.0.)CHARGE=CHARGE+2.*EXCESS + IF(CHARGE.EQ.0.)CHARGE=1. + DEBYE=SQRT(TK(J)/2.8965D-18/CHARGE) +C DEBYE=SQRT(TK(J)/12.5664D0/4.801D-10**2/CHARGE) + POTLOW=MIN(1.D0,1.44D-7/DEBYE) + TV=TKEV(J) + IF(IZ.LE.28)N=LOCZ(IZ) + IF(IZ.GT.28)N=3*IZ+54 + IF(IZ.LE.28)NIONS=LOCZ(IZ+1)-N + IF(IZ.GT.28)NIONS=3 + IF(IZ.EQ.6)N=354 + IF(IZ.EQ.6)NIONS=6 + IF(IZ.EQ.7)N=360 + IF(IZ.EQ.7)NIONS=7 + IF(IZ.EQ.8)N=367 + IF(IZ.EQ.8)NIONS=8 + IF(IZ.GE.20.AND.IZ.LT.29)NIONS=10 + NION2=MIN0(NION+2,NIONS) + N=N-1 +C + DO 18 ION=1,NION2 + Z=ION + POTLO(ION)=POTLOW*Z + IF(IZ.LE.30)INDEX=IZ*(IZ+1)/2+ION-1 + IF(IZ.GT.30)INDEX=IZ*5+341+ION-1 + IP(ION)=POTION(INDEX)/8065.479D0 + IF(IP(ION).EQ.0)IP(ION)=POTION(INDEX-1)/8065.479D0 +C + IF(IZ.GE.20.AND.IZ.LT.29)THEN + CALL PFIRON(IZ,ION,TLOG(J)/2.30258509299405D0, + 1POTLO(ION)*8065.479D0,PART(ION)) + GO TO 18 + ENDIF +C + N=N+1 + NNN100=NNN(6,N)/100 + G=NNN(6,N)-NNN100*100 + IF(N.EQ.1)GO TO 1100 + IF(N.EQ.3)GO TO 1110 + IF(N.EQ.4)GO TO 1120 + IF(N.EQ.354)GO TO 1130 + IF(N.EQ.51)GO TO 1140 + IF(N.EQ.57)GO TO 1150 + IF(N.EQ.63)GO TO 1160 + IF(N.EQ.355)GO TO 1132 + IF(N.EQ.52)GO TO 1142 + IF(N.EQ.64)GO TO 1162 + IF(N.EQ.96)GO TO 1170 + IF(N.EQ.97)GO TO 1172 +C IF(N.EQ.27)GO TO 1180 + IF(N.EQ.367)GO TO 1180 + IF(N.EQ.45)GO TO 1190 + IF(N.EQ.14)GO TO 1200 + IF(N.EQ.91)GO TO 1210 + T2000=IP(ION)*2000./11. + IT=MAX0(1,MIN0(9, INT(T(J)/T2000-.5))) + DT=T(J)/T2000-DBLE(IT)-.5 + PMIN=1. + I=(IT+1)/2 + K1=NNN(I,N)/100000 + K2=NNN(I,N)-K1*100000 + K3=K2/10 + KSCALE=K2-K3*10 + IF(MOD(IT,2).EQ.0)GO TO 12 + P1=DBLE(K1)*SCALE(KSCALE) + P2=DBLE(K3)*SCALE(KSCALE) + IF(DT.GE.0.)GO TO 13 + IF(KSCALE.GT.1)GO TO 13 + KP1=P1 + IF(KP1.NE. INT(P2+.5))GO TO 13 + PMIN=KP1 + GO TO 13 + 12 P1=DBLE(K3)*SCALE(KSCALE) + K1=NNN(I+1,N)/100000 + KSCALE=MOD(NNN(I+1,N),10) + P2=DBLE(K1)*SCALE(KSCALE) + 13 PART(ION)= MAX (PMIN,P1+(P2-P1)*DT) +CCCCCCCCCC +C IF(T(J).LT.T2000*1.5)THEN +C NELION=(IZ-1)*6+ION +C IF(PFGROUND(NELION,T(J)).GT.1)PART(ION)=PFGROUND(NELION,T(J)) +C GO TO 18 +C ENDIF +CCCCCCCCCC +C patch 14jun2004 after John Laird +C in case PFGROUND is larger than PFSAHA + IF(T(J).LT.T2000*2.0)THEN + NELION=(IZ-1)*6+ION + PART(ION)=MAX(PFGROUND(NELION,T(J)),PART(ION)) + GO TO 18 + ENDIF +CCCCCCCCCC + IF(G.EQ.0..OR.POTLO(ION).LT..1.OR.T(J).LT.T2000*4.)GO TO 18 + IF(T(J).GT.(T2000*11.))TV=(T2000*11.)*8.6171D-5 + D1=.1/TV + 14 D2=POTLO(ION)/TV + PART(ION)=PART(ION)+G*EXP(-IP(ION)/TV)* + 1(SQRT(13.595D0*Z*Z/TV/D2)**3* + 2(1./3.+(1.-(.5+(1./18.+D2/120.)*D2)*D2)*D2)- + 3SQRT(13.595*Z*Z/TV/D1)**3* + 4(1./3.+(1.-(.5+(1./18.+D1/120.)*D1)*D1)*D1)) + TV=TKEV(J) + GO TO 18 + 1100 B=BHYD(J,1) + IF(NLTEON.EQ.-1)B=1. + PART(1)=2.*B + IF(T(J).LT.9000.)GO TO 18 + DO 1101 I=2,6 + B=BHYD(J,I) + IF(NLTEON.EQ.-1)B=1. + 1101 PART(1)=PART(1)+GHYD(I)*B *EXP(-EHYD(I)*HCKT(J)) + D1=109677.576D0/6.5D0/6.5D0*HCKT(J) + GO TO 14 + 1110 B=BHE1(J,1) + IF(NLTEON.EQ.-1)B=1. + PART(1)=B + IF(T(J).LT.15000.)GO TO 18 + DO 1111 I=2,29 + B=BHE1(J,I) + IF(NLTEON.EQ.-1)B=1. + 1111 PART(1)=PART(1)+GHE1(I)*B *EXP(-EHE1(I)*HCKT(J)) + D1=109677.576D0/5.5D0/5.5D0*HCKT(J) + GO TO 14 + 1120 B=BHE2(J,1) + IF(NLTEON.EQ.-1)B=1. + PART(2)=2.*B + IF(T(J).LT.30000.)GO TO 18 + DO 1121 I=2,6 + B=BHE2(J,I) + IF(NLTEON.EQ.-1)B=1. + 1121 PART(2)=PART(2)+GHE2(I)*B *EXP(-EHE2(I)*HCKT(J)) + D1=4.*109722.267D0/6.5D0/6.5D0*HCKT(J) + GO TO 14 + 1130 B=BC1(J,1) + IF(NLTEON.EQ.-1)B=1. + PART(1)=B *(1.+3.*EXP(-16.42*HCKT(J))+ + 1 5.*EXP(-43.42*HCKT(J))) + DO 1131 I=2,14 + B=BC1(J,I) + IF(NLTEON.EQ.-1)B=1. + 1131 PART(1)=PART(1)+GC1(I)*B *EXP(-EC1(I)*HCKT(J)) + PART(1)=PART(1)+108.*EXP(-80000.D0*HCKT(J))+ + 1 189*EXP(-84000.D0*HCKT(J))+247.*EXP(-87000.D0*HCKT(J))+ + 2 231.*EXP(-88000.D0*HCKT(J))+190.*EXP(-89000.D0*HCKT(J))+ + 3 300.*EXP(-90000.D0*HCKT(J)) + GO TO 18 + 1132 B=BC2(J,1) + IF(NLTEON.EQ.-1)B=1. + PART(2)=B*(2.+4.*EXP(-63.42D0*HCKT(J))) + DO 1133 I=2,6 + B=BC2(J,I) + IF(NLTEON.EQ.-1)B=1. + 1133 PART(2)=PART(2)+GC2(I)*B*EXP(-EC2(I)*HCKT(J)) + PART(2)=PART(2)+6.*EXP(-131731.80D0*HCKT(J))+ + 1 4.*EXP(-142027.1D0*HCKT(J))+10.*EXP(-145550.13D0*HCKT(J))+ + 2 10.*EXP(-150463.62D0*HCKT(J))+2.*EXP(-157234.07D0*HCKT(J))+ + 3 6.*EXP(-162500.D0*HCKT(J))+42.*EXP(-168000.D0*HCKT(J))+ + 4 56.*EXP(-178000.D0*HCKT(J))+102.*EXP(-183000.D0*HCKT(J))+ + 5 400.*EXP(-188000.D0*HCKT(J)) + GO TO 18 + 1140 B=BMG1(J,1) + IF(NLTEON.EQ.-1)B=1. + PART(1)=B + DO 1141 I=2,11 + B=BMG1(J,I) + IF(NLTEON.EQ.-1)B=1. + 1141 PART(1)=PART(1)+GMG1(I)*B *EXP(-EMG1(I)*HCKT(J)) + PART(1)=PART(1)+5.*EXP(-53134.D0*HCKT(J))+ + 1 15.*EXP(-54192.D0*HCKT(J))+ + 2 28.*EXP(-54676.D0*HCKT(J))+9.*EXP(-57853.D0*HCKT(J)) + G=4. + D1=109734.83D0/4.5/4.5*HCKT(J) + GO TO 14 + 1142 B=BMG2(J,1) + IF(NLTEON.EQ.-1)B=1. + PART(2)=B*2. + DO 1143 I=2,6 + B=BMG2(J,I) + IF(NLTEON.EQ.-1)B=1. + 1143 PART(2)=PART(2)+GMG2(I)*B *EXP(-EMG2(I)*HCKT(J)) + PART(2)=PART(2)+10.*EXP(-93310.80D0*HCKT(J))+ + 1 14.*EXP(-93799.70D0*HCKT(J))+6.*EXP(-97464.32D0*HCKT(J))+ + 2 10.*EXP(-103419.82D0*HCKT(J))+14.*EXP(-103689.89D0*HCKT(J))+ + 3 18.*EXP(-103705.66D0*HCKT(J)) + G=2. + D1=4.*109734.83D0/5.5D0/5.5D0*HCKT(J) + GO TO 14 + 1150 B=BAL1(J,1) + IF(NLTEON.EQ.-1)B=1. + PART(1)=B *(2.+4.*EXP(-112.061D0*HCKT(J))) + DO 1151 I=2,9 + B=BAL1(J,I) + IF(NLTEON.EQ.-1)B=1. + 1151 PART(1)=PART(1)+GAL1(I)*B *EXP(-EAL1(I)*HCKT(J)) + PART(1)=PART(1)+10.*EXP(-42235.D0*HCKT(J))+ + 1 14.*EXP(-43831.D0*HCKT(J)) + G=2. + D1=109735.08D0/5.5D0/5.5D0*HCKT(J) + GO TO 14 + 1160 B=BSI1(J,1) + IF(NLTEON.EQ.-1)B=1. + PART(1)=B *(1.+3.*EXP(-77.115D0*HCKT(J))+ + 1 5.*EXP(-223.157D0*HCKT(J))) + DO 1161 I=2,11 + B=BSI1(J,I) + IF(NLTEON.EQ.-1)B=1. + 1161 PART(1)=PART(1)+GSI1(I)*B *EXP(-ESI1(I)*HCKT(J)) + PART(1)=PART(1)+76.*EXP(-53000.D0*HCKT(J))+ + 1 71.*EXP(-57000.D0*HCKT(J))+ + 2 191.*EXP(-60000.D0*HCKT(J))+240.*EXP(-62000.D0*HCKT(J))+ + 3 251.*EXP(-63000.D0*HCKT(J))+300.*EXP(-65000.D0*HCKT(J)) + GO TO 18 + 1162 B=BSI2(J,1) + IF(NLTEON.EQ.-1)B=1. + PART(2)=B*(2.+4.*EXP(-287.32D0*HCKT(J))) + DO 1163 I=2,6 + B=BSI2(J,I) + IF(NLTEON.EQ.-1)B=1. + 1163 PART(2)=PART(2)+GSI2(I)*B *EXP(-ESI2(I)*HCKT(J)) + PART(2)=PART(2)+6.*EXP(-81231.59D0*HCKT(J))+ + 1 6.*EXP(-83937.08D0*HCKT(J))+10.*EXP(-101024.09D0*HCKT(J))+ + 2 14.*EXP(-103556.35D0*HCKT(J))+10.*EXP(-108800.D0*HCKT(J))+ + 3 42.*EXP(-115000.D0*HCKT(J))+6.*EXP(-121000.D0*HCKT(J))+ + 4 38.*EXP(-125000.D0*HCKT(J))+34.*EXP(-132000.D0*HCKT(J)) + G=2. + D1=4.*109734.83D0/4.5D0/4.5D0*HCKT(J) + GO TO 14 + 1170 B=BCA1(J,1) + IF(NLTEON.EQ.-1)B=1. + PART(1)=B + DO 1171 I=2,8 + B=BCA1(J,I) + IF(NLTEON.EQ.-1)B=1. + 1171 PART(1)=PART(1)+GCA1(I)*B *EXP(-ECA1(I)*HCKT(J)) + PART(1)=PART(1)+28.*EXP(-37000.D0*HCKT(J))+ + 1 67.*EXP(-40000.D0*HCKT(J))+ + 2 21.*EXP(-43000.D0*HCKT(J))+34.*EXP(-48000.D0*HCKT(J)) + G=4. + D1=109734.82D0/4.5/4.5*HCKT(J) + GO TO 14 + 1172 B=BCA2(J,1) + IF(NLTEON.EQ.-1)B=1. + PART(2)=B*2. + DO 1173 I=2,5 + B=BCA2(J,I) + IF(NLTEON.EQ.-1)B=1. + 1173 PART(2)=PART(2)+GCA2(I)*B *EXP(-ECA2(I)*HCKT(J)) + PART(2)=PART(2)+12.*EXP(-68000.D0*HCKT(J)) + G=2. + D1=109734.83D0/4.5D0/4.5D0*HCKT(J) + GO TO 14 + 1180 B=BO1(J,1) + IF(NLTEON.EQ.-1)B=1. + PART(1)=B*(5.+3.*EXP(-158.265D0*HCKT(J))+EXP(-226.977D0*HCKT(J))) + DO 1181 I=2,13 + B=BO1(J,I) + IF(NLTEON.EQ.-1)B=1. + 1181 PART(1)=PART(1)+GO1(I)*B*EXP(-EO1(I)*HCKT(J)) + PART(1)=PART(1)+15.*EXP(-101140.D0*HCKT(J))+ + 1 131.*EXP(-103000.D0*HCKT(J))+128.*EXP(-105000.D0*HCKT(J))+ + 2 600.*EXP(-107000.D0*HCKT(J)) + GO TO 18 + 1190 B=BNA1(J,1) + IF(NLTEON.EQ.-1)B=1. + PART(1)=B*2. + DO 1191 I=2,8 + B=BNA1(J,I) + IF(NLTEON.EQ.-1)B=1. + 1191 PART(1)=PART(1)+GNA1(I)*B*EXP(-ENA1(I)*HCKT(J)) + PART(1)=PART(1)+10.*EXP(-34548.745D0*HCKT(J))+ + 1 14.*EXP(-34586.96D0*HCKT(J)) + G=2. + D1=109734.83D0/4.5D0/4.5D0*HCKT(J) + GO TO 14 + 1200 B=BB1(J,1) + IF(NLTEON.EQ.-1)B=1. + PART(1)=B*(2.+4.*EXP(-15.25D0*HCKT(J))) + DO 1201 I=2,7 + B=BB1(J,I) + IF(NLTEON.EQ.-1)B=1. + 1201 PART(1)=PART(1)+GB1(I)*B*EXP(-EB1(I)*HCKT(J)) + PART(1)=PART(1)+6.*EXP(-57786.80D0*HCKT(J))+ + 1 10.*EXP(-59989.D0*HCKT(J))+14.*EXP(-60031.03D0*HCKT(J))+ + 2 2.*EXP(-63561.D0*HCKT(J)) + G=2. + D1=109734.83D0/4.5D0/4.5D0*HCKT(J) + GO TO 14 + 1210 B=BK1(J,1) + IF(NLTEON.EQ.-1)B=1. + PART(1)=B*2. + DO 1211 I=2,8 + B=BK1(J,I) + IF(NLTEON.EQ.-1)B=1. + 1211 PART(1)=PART(1)+GK1(I)*B*EXP(-EK1(I)*HCKT(J)) + PART(1)=PART(1)+10.*EXP(-27397.077D0*HCKT(J))+ + 1 14.*EXP(-28127.85D0*HCKT(J)) + G=2. + D1=109734.83D0/5.5D0/5.5D0*HCKT(J) + GO TO 14 + 18 CONTINUE +C + 19 IF(MODE1.EQ.3)GO TO 35 +C + N=N-NION2 + CF=2.*2.4148D15*T(J)*SQRT(T(J))/XNE(J) + DO 20 ION=2,NION2 + N=N+1 +c 27jul2008 cutoff at low temperatures is obsolete +C THE AMIN IS FOR ANY UNFORTUNATE WHO HAS A 360 +C 20 F(ION)=CF*PART(ION)/PART(ION-1)* +C 1EXP(-MIN((IP(ION-1)-POTLO(ION-1))/TV,75.D0)) + 20 F(ION)=CF*PART(ION)/PART(ION-1)*EXP(-(IP(ION-1)-POTLO(ION-1))/TV) + F(1)=1. +C IF(NION2.LT.9)GO TO 1050 +C FMAX=1. +C FSAVE(1)=1. +C DO 1022 ION=2,NION2 +C FSAVE(ION)=F(ION) +C 1022 FMAX=MAX(FMAX,F(ION)) +C DO 1023 IMAX=1,NION2 +C IF(F(IMAX).EQ.FMAX)GO TO 1024 +C 1023 CONTINUE +C 1024 IF(IMAX.EQ.1)GO TO 1050 +C IF(NION2.EQ.2)GO TO 1050 +C SUM=0. +C DO 1026 ION=1,NION2 +C PROD=1. +C DO 1025 JION=1,NION2 +C IEX=1 +C IF(JION.GT.ION.AND.JION.GT.IMAX)GO TO 1025 +C IF(ION.LE.IMAX)GO TO 1025 +C IF(JION.LE.IMAX)IEX=-1 +C IF(IEX.EQ.1)PROD=PROD*F(JION) +C IF(IEX.EQ.-1)PROD=PROD/F(JION) +C 1025 CONTINUE +C 1026 SUM=SUM+PROD +C F(IMAX)=1./SUM +C DO 1027 ION=2,IMAX +C L=IMAX-ION+2 +C 1027 F(L-1)=F(L)/FSAVE(L) +C IF(IMAX.EQ.NION2)GO TO 35 +C DO 1028 ION=IMAX+1,NION2 +C 1028 F(ION)=F(ION-1)*FSAVE(ION) +C GO TO 35 + 1050 L=NION2+1 + DO 21 ION=2,NION2 + L=L-1 + 21 F(1)=1.+F(L)*F(1) + F(1)=1./F(1) + DO 22 ION=2,NION2 + 22 F(ION)=F(ION-1)*F(ION) +C + 35 IF(MODE.LT.10)GO TO 40 + GO TO(23,25,27,29),MODE1 + 23 DO 24 ION=1,NION + 24 ANSWER(J,ION)=F(ION)/PART(ION) + RETURN + 25 DO 26 ION=1,NION + 26 ANSWER(J,ION)=F(ION) + RETURN + 27 DO 28 ION=1,NION + 28 ANSWER(J,ION)=PART(ION) + RETURN + 29 ANSWER(J,1)=0. + DO 30 ION=2,NION2 + 30 ANSWER(J,1)=ANSWER(J,1)+F(ION)*DBLE(ION-1) + RETURN + 40 GO TO(41,42,43,29),MODE1 + 41 ANSWER(J,1)=F(NION)/PART(NION) + RETURN + 42 ANSWER(J,1)=F(NION) + RETURN + 43 ANSWER(J,1)=PART(NION) + RETURN + END + SUBROUTINE READMOL + IMPLICIT REAL*8 (A-H,O-Z) + PARAMETER (kw=99) + PARAMETER (MAXMOL=200,MAX1=MAXMOL+1,MAXEQ=30,MAXLOC=3*MAXMOL) + COMMON /IFEQUA/IFEQUA(101),KCOMPS(MAXLOC),LOCJ(MAX1), + 1 EQUIL(7,MAXMOL),IDEQUA(MAXEQ),NEQUA,NLOC + COMMON /XNMOL/CODE(MAXMOL),XNMOL(kw,MAXMOL), + 1 XNFPMOL(kw,MAXMOL),NUMMOL + DIMENSION XCODE(8) + DATA XCODE/1.E14,1.E12,1.E10,1.E8,1.E6,1.E4,1.E2,1.E0/ +C MAKE TABLE OF ALL COMPONENTS OF ALL MOLECULES +C SAMPLE CODES FOR ATOMS AND MOLECULES +C EXTERNAL CODE INTERNAL COMPONENTS +C CARBON DIOXIDE 60808. 6,8,8 +C HMINUS 100. 1,100 +C NEUTRAL IRON 26. 26 +C H2PLUS 101.01 1,1,101 +C HYDROGEN ION 1.01 1,101 +C SILICON 3+ 14.03 14,101,101,101 + OPEN(UNIT=2,STATUS='OLD',SHARED,READONLY) + DO 1 JMOL=1,MAXMOL + 1 CODE(JMOL)=0. + WRITE(6,10) + 10 FORMAT(16H1MOLECULES INPUT) + DO 11 I=1,101 + 11 IFEQUA(I)=0 +C IF IFEQUA=1 AN EQUATION MUST BE SET UP FOR ELEMENT I + KLOC=1 + LOCJ(1)=1 + DO 20 JMOL=1,MAX1 + IF(KLOC.GT.MAXLOC)WRITE(6,199) + READ(2,13)C,E1,E2,E3,E4,E5,E6,E7 + 13 FORMAT(F18.2,F7.3,6E11.4) + IF(C.EQ.0.)GO TO 23 + WRITE(6,14)JMOL,C,E1,E2,E3,E4,E5,E6,E7 + 14 FORMAT(I5,F18.2,F7.3,1P6E11.4) + DO 15 II=1,8 + IF(C.GE.XCODE(II))GO TO 16 + 15 CONTINUE + CALL EXIT + 16 X=C + DO 17 I=II,8 + ID=X/XCODE(I) + X=X-DBLE(ID)*XCODE(I) + IF(ID.EQ.0)ID=100 + IFEQUA(ID)=1 + KCOMPS(KLOC)=ID + 17 KLOC=KLOC+1 + ION=X*100.+.5 + IF(ION.LT.1)GO TO 19 + IFEQUA(100)=1 + IFEQUA(101)=1 + DO 18 I=1,ION + KCOMPS(KLOC)=101 + 18 KLOC=KLOC+1 + 19 LOCJ(JMOL+1)=KLOC + CODE(JMOL)=C + EQUIL(1,JMOL)=E1 + EQUIL(2,JMOL)=E2 + EQUIL(3,JMOL)=E3 + EQUIL(4,JMOL)=E4 + EQUIL(5,JMOL)=E5 + EQUIL(6,JMOL)=E6 + 20 EQUIL(7,JMOL)=E7 + WRITE(6,199) + 199 FORMAT(19H1TOO MANY MOLECULES) + 23 NUMMOL=JMOL-1 + NLOC=KLOC-1 +C ASSIGN AN EQUATION NUMBER TO EACH COMPONENT +C THE FIRST EQUATION IS FOR THE TOTAL NUMBER OF PARTICLES +C THE FIRST VARIABLE IS XNATOM +C IF ANY COMPONENT IS 100 OR 101 VARIABLE NEQUA IS XNE +C AND EQUATION NEQUA IS CHARGE CONSERVATION +C FOR PROGRAMMING CONVENIENCE VARIABLE NEQUA1 IS INVERSE XNE + IEQUA=1 + DO 25 I=1,100 + IF(IFEQUA(I).EQ.0)GO TO 25 + IEQUA=IEQUA+1 + IFEQUA(I)=IEQUA + IDEQUA(IEQUA)=I + 25 CONTINUE + NEQUA=IEQUA + NEQUA1=NEQUA+1 + IFEQUA(101)=NEQUA1 + NEQNEQ=NEQUA**2 + DO 28 KLOC=1,NLOC + ID=KCOMPS(KLOC) + 28 KCOMPS(KLOC)=IFEQUA(ID) + WRITE(6,29) NUMMOL,MAXMOL,NLOC,MAXLOC,NEQUA,MAXEQ + 29 FORMAT(16H MOLECULES USED,I4,5H MAX,I4/ + 1 16H COMPONENTS USED,I4,5H MAX,I4/ + 2 16H EQUATIONS USED,I4,5H MAX,I4) + CLOSE(UNIT=2) + RETURN + END + SUBROUTINE NMOLEC + IMPLICIT REAL*8 (A-H,O-Z) + PARAMETER (kw=99) + PARAMETER (MAXMOL=200,MAX1=MAXMOL+1,MAXEQ=30,MAXLOC=3*MAXMOL) + PARAMETER (MAXEQ2=MAXEQ*MAXEQ) + COMMON /BAL/BAL1(kw,9),AAL1(kw),SAL1(kw),XNFPAL(kw,2),BAL2(kw,1) + COMMON /BB/BB1(kw,7),XNFPB(kw,1) + COMMON /BC/BC1(kw,14),AC1(kw),SC1(kw),XNFPC(kw,2),BC2(kw,6) + COMMON /BCA/BCA1(kw,8),BCA2(kw,5),XNFPCA(kw,2) + COMMON /BHE/BHE1(kw,29),AHE1(kw),SHE1(kw),BHE2(kw,6),AHE2(kw), + 1 SHE2(kw),AHEMIN(kw),SIGHE(kw),XNFPHE(kw,3),XNFHE(kw,2) + COMMON /BHYD/BHYD(kw,8),AHYD(kw),SHYD(kw),AH2P(kw),BMIN(kw), + 1 AHMIN(kw),SHMIN(kw),SIGH(kw),SIGH2(kw),AHLINE(kw), + 2 SHLINE(kw),XNFPH(kw,2),XNFH(kw) + COMMON /BK/BK1(kw,8),XNFPK(kw,1) + COMMON /BMG/BMG1(kw,11),AMG1(kw),SMG1(kw),XNFPMG(kw,2),BMG2(kw,6) + COMMON /BNA/BNA1(kw,8),XNFPNA(kw,1) + COMMON /BO/BO1(kw,13),XNFPO(kw,1),BO2(kw,4) + COMMON /BSI/BSI1(kw,11),ASI1(kw),SSI1(kw),XNFPSI(kw,2),BSI2(kw,10) + COMMON /ELEM/ABUND(99),ATMASS(99),ELEM(99),XABUND(99),WTMOLE + COMMON /IF/IFCORR,IFPRES,IFSURF,IFSCAT,IFMOL,NLTEON,IFOP(20) + COMMON /ITER/ ITER,IFPRNT(15),IFPNCH(15),NUMITS + COMMON /RHOX/RHOX(kw),NRHOX + COMMON /STATE/P(kw),XNE(kw),XNATOM(kw),RHO(kw),PTOTAL(kw) + COMMON /TEMP/T(kw),TKEV(kw),TK(kw),HKT(kw),TLOG(kw),HCKT(kw),ITEMP + DIMENSION EQUILJ(MAXMOL) + DIMENSION XNZ(kw,MAXEQ) + DIMENSION EQ(MAXEQ),XN(MAXEQ),XAB(MAXEQ),DTERM(MAXEQ),DEQ(MAXEQ2) + DIMENSION EQOLD(MAXEQ) + DIMENSION FRAC(kw,31),PF(kw,31) + EQUIVALENCE (FRAC(1,1),PF(1,1)) + COMMON /IFEQUA/IFEQUA(101),KCOMPS(MAXLOC),LOCJ(MAX1), + 1 EQUIL(7,MAXMOL),IDEQUA(MAXEQ),NEQUA,NLOC + COMMON /XNMOL/CODE(MAXMOL),XNMOL(kw,MAXMOL), + 1 XNFPMOL(kw,MAXMOL),NUMMOL +C MAKE TABLE OF ALL COMPONENTS OF ALL MOLECULES +C SAMPLE CODES FOR ATOMS AND MOLECULES +C EXTERNAL CODE INTERNAL COMPONENTS +C CARBON DIOXIDE 60808. 6,8,8 +C HMINUS 100. 1,100 +C NEUTRAL IRON 26. 26 +C H2PLUS 101.01 1,1,101 +C HYDROGEN ION 1.01 1,101 +C SILICON 3+ 14.03 14,101,101,101 + DO 1 JMOL=1,NUMMOL + DO 1 J=1,NRHOX + XNFPMOL(J,JMOL)=0. + 1 XNMOL(J,JMOL)=0. +C DO 17 J=1,NRHOX +C IF(T(J).LT.8000.)GO TO 18 +C 17 CONTINUE +C 18 JSTART=J + JSTART=1 + NEQUA1=NEQUA+1 + NEQNEQ=NEQUA**2 + DO 31 K=2,NEQUA + ID=IDEQUA(K) + IF(ID.LT.100)XAB(K)= MAX (XABUND(ID),1.D-20) + 31 CONTINUE + IF(ID.EQ.100)XAB(NEQUA)=0. + XNTOT=P(JSTART)/TK(JSTART) + XN(1)=XNTOT/2. + X=XN(1)/10. + DO 32 K=2,NEQUA + 32 XN(K)=X*XAB(K) + IF(ID.EQ.100)XN(NEQUA)=X + XNE(1)=X + DO 110 J=JSTART,NRHOX +C +C CORRECTIONS TO THE EQUILIBRIUM CONSTANTS FOR NON-LTE + NLTEON=-1 + CALL PFSAHA(J, 1,1,3,PF) + PFH =PF(J,1) + CALL PFSAHA(J, 6,1,3,PF) + PFC =PF(J,1) + CALL PFSAHA(J, 8,1,3,PF) + PFO =PF(J,1) + CALL PFSAHA(J,12,1,3,PF) + PFMG=PF(J,1) + CALL PFSAHA(J,13,1,3,PF) + PFAL=PF(J,1) + CALL PFSAHA(J,14,1,3,PF) + PFSI=PF(J,1) + CALL PFSAHA(J,20,1,3,PF) + PFCA=PF(J,1) + NLTEON=0 + CALL PFSAHA(J, 1,1,3,PF) + BPFH =PF(J,1) + CALL PFSAHA(J, 6,1,3,PF) + BPFC =PF(J,1) + CALL PFSAHA(J, 8,1,3,PF) + BPFO =PF(J,1) + CALL PFSAHA(J,12,1,3,PF) + BPFMG=PF(J,1) + CALL PFSAHA(J,13,1,3,PF) + BPFAL=PF(J,1) + CALL PFSAHA(J,14,1,3,PF) + BPFSI=PF(J,1) + CALL PFSAHA(J,20,1,3,PF) + BPFCA=PF(J,1) + CPFH =PFH /BPFH *BHYD(J,1) + CPFC =PFC /BPFC *BC1(J,1) + CPFO =PFO /BPFO *BO1(J,1) + CPFMG=PFMG/BPFMG*BMG1(J,1) + CPFAL=PFAL/BPFAL*BAL1(J,1) + CPFSI=PFSI/BPFSI*BSI1(J,1) + CPFCA=PFCA/BPFCA*BCA1(J,1) +C + XNTOT=P(J)/TK(J) + IF(J.EQ.1)GO TO 34 + RATIO=P(J)/P(J-1) + XNE(J)=XNE(J-1)*RATIO + DO 33 K=1,NEQUA + 33 XN(K)=XN(K)*RATIO + 34 DO 37 JMOL=1,NUMMOL + NCOMP=LOCJ(JMOL+1)-LOCJ(JMOL) + IF(EQUIL(1,JMOL).EQ.0.)GO TO 35 + ION=(CODE(JMOL)-DBLE( INT(CODE(JMOL))))*100.+.5 + EQUILJ(JMOL)=0. + IF(T(J).GT.10000.)GO TO 37 + IF(CODE(JMOL).EQ.101.)THEN + EQUILJ(JMOL)=EXP(4.478D0/TKEV(J)-4.64584D1+ + 1(1.63660D-3+(-4.93992D-7+(1.11822D-10+(-1.49567D-14+ + 2(1.06206D-18-3.08720D-23*T(J))*T(J))*T(J))*T(J))*T(J))*T(J)- + 3 1.5*TLOG(J)) + ELSE + EQUILJ(JMOL)=EXP(EQUIL(1,JMOL)/TKEV(J)-EQUIL(2,JMOL)+ + 1(EQUIL(3,JMOL)+(-EQUIL(4,JMOL)+(EQUIL(5,JMOL)+(-EQUIL(6,JMOL)+ + 2+EQUIL(7,JMOL)* + 3T(J))*T(J))*T(J))*T(J))*T(J)-1.5*(DBLE(NCOMP-ION-ION-1))*TLOG(J)) + ENDIF + LOCJ1=LOCJ(JMOL) + LOCJ2=LOCJ(JMOL+1)-1 + DO 1037 LOCK=LOCJ1,LOCJ2 + K=KCOMPS(LOCK) + ID=IDEQUA(K) + IF(ID.EQ. 1)EQUILJ(JMOL)=EQUILJ(JMOL)*CPFH + IF(ID.EQ. 6)EQUILJ(JMOL)=EQUILJ(JMOL)*CPFC + IF(ID.EQ. 8)EQUILJ(JMOL)=EQUILJ(JMOL)*CPFO + IF(ID.EQ.12)EQUILJ(JMOL)=EQUILJ(JMOL)*CPFMG + IF(ID.EQ.13)EQUILJ(JMOL)=EQUILJ(JMOL)*CPFAL + IF(ID.EQ.14)EQUILJ(JMOL)=EQUILJ(JMOL)*CPFSI + IF(ID.EQ.20)EQUILJ(JMOL)=EQUILJ(JMOL)*CPFCA + 1037 CONTINUE + GO TO 37 + 35 IF(NCOMP.GT.1)GO TO 36 + EQUILJ(JMOL)=1. + GO TO 37 + 36 ID=CODE(JMOL) + ION=NCOMP-1 + CALL PFSAHA(J,ID,NCOMP,12,FRAC) + EQUILJ(JMOL)=FRAC(J,NCOMP)/FRAC(J,1)*XNE(J)**ION + 37 CONTINUE + DO 48 K=1,NEQUA + 48 EQOLD(K)=0. +C +C SET UP 1ST ORDER EQUATIONS FOR THE CHANGE IN NUMBER DENSITY OF +C EACH ELEMENT. + 50 DO 60 KL=1,NEQNEQ + 60 DEQ(KL)=0. + EQ(1)=-XNTOT + K1=1 + KK=1 + DO 61 K=2,NEQUA + EQ(1)=EQ(1)+XN(K) + K1=K1+NEQUA +C K1 IS ACTUALLY 1K + DEQ(K1)=1. + EQ(K)=XN(K)-XAB(K)*XN(1) + KK=KK+NEQUA1 + DEQ(KK)=1. + 61 DEQ(K)=-XAB(K) + IF(IDEQUA(NEQUA).LT.100)GO TO 62 + EQ(NEQUA)=-XN(NEQUA) + DEQ(NEQNEQ)=-1. + 62 CONTINUE + DO 99 JMOL=1,NUMMOL + NCOMP=LOCJ(JMOL+1)-LOCJ(JMOL) + IF(NCOMP.EQ.1)GO TO 99 + TERM=EQUILJ(JMOL) + LOCJ1=LOCJ(JMOL) + LOCJ2=LOCJ(JMOL+1)-1 + DO 80 LOCK=LOCJ1,LOCJ2 + K=KCOMPS(LOCK) + IF(K.EQ.NEQUA1)GO TO 79 + TERM=TERM*XN(K) + GO TO 80 + 79 TERM=TERM/XN(NEQUA) + 80 CONTINUE + EQ(1)=EQ(1)+TERM + DO 85 LOCK=LOCJ1,LOCJ2 + K=KCOMPS(LOCK) + IF(K.LT.NEQUA1)GO TO 81 + K=NEQUA + D=-TERM/XN(K) + GO TO 82 + 81 D=TERM/XN(K) + 82 EQ(K)=EQ(K)+TERM + NEQUAK=NEQUA*K-NEQUA + K1=NEQUAK+1 + DEQ(K1)=DEQ(K1)+D + DO 83 LOCM=LOCJ1,LOCJ2 + M=KCOMPS(LOCM) + IF(M.EQ.NEQUA1)M=NEQUA + MK=M+NEQUAK + 83 DEQ(MK)=DEQ(MK)+D + 85 CONTINUE +C +C CORRECTION TO CHARGE EQUATION FOR NEGATIVE IONS + K=KCOMPS(LOCJ2) + IF(IDEQUA(K).NE.100)GO TO 99 + DO 95 LOCK=LOCJ1,LOCJ2 + K=KCOMPS(LOCK) + D=TERM/XN(K) + IF(K.EQ.NEQUA)EQ(K)=EQ(K)-TERM-TERM + NEQUAK=NEQUA*K-NEQUA + DO 93 LOCM=LOCJ1,LOCJ2 + M=KCOMPS(LOCM) + IF(M.NE.NEQUA)GO TO 93 + MK=M+NEQUAK + DEQ(MK)=DEQ(MK)-D-D + 93 CONTINUE + 95 CONTINUE +C + 99 CONTINUE +C + CALL SOLVIT(DEQ,NEQUA,EQ,DTERM) + IFERR=0 + SCALE=100. + DO 105 K=1,NEQUA + RATIO=ABS(EQ(K)/XN(K)) + IF(RATIO.GT..001)IFERR=1 + IF(EQOLD(K)*EQ(K).LT.0.)EQ(K)=EQ(K)*.69 + XNEQ=XN(K)-EQ(K) + XN100=XN(K)/100. + IF(XNEQ.LT.XN100)GO TO 101 + XN100=XN(K)*100. +C IF(XNEQ.GT.XN100)GO TO 102 + XN(K)=XNEQ + GO TO 105 + 101 XN(K)=XN(K)/SCALE + IF(EQOLD(K)*EQ(K).LT.0.)SCALE=SQRT(SCALE) + GO TO 105 +C 102 XN(K)=XN100 + 105 EQOLD(K)=EQ(K) + IF(IFERR.EQ.1)GO TO 50 +C + DO 107 K=1,NEQUA + 107 XNZ(J,K)=XN(K) + XNATOM(J)=XN(1) + RHO(J)=XNATOM(J)*WTMOLE*1.660D-24 + IF(IDEQUA(NEQUA).EQ.100)XNE(J)=XN(NEQUA) + DO 109 JMOL=1,NUMMOL + NCOMP=LOCJ(JMOL+1)-LOCJ(JMOL) + XNMOL(J,JMOL)=EQUILJ(JMOL) + LOCJ1=LOCJ(JMOL) + LOCJ2=LOCJ(JMOL+1)-1 + DO 109 LOCK=LOCJ1,LOCJ2 + K=KCOMPS(LOCK) + IF(K.EQ.NEQUA1)GO TO 108 + XNMOL(J,JMOL)=XNMOL(J,JMOL)*XN(K) + GO TO 109 + 108 XNMOL(J,JMOL)=XNMOL(J,JMOL)/XN(NEQUA) + 109 CONTINUE + 110 CONTINUE + IF(ITER.LT.NUMITS)GO TO 120 + WRITE(6,112)(J,RHOX(J),T(J),P(J),XNE(J),XNATOM(J),RHO(J), + 1J=1,NRHOX) + 112 FORMAT(1H1,11X,4HRHOX,9X,1HT,11X,1HP,10X,3HXNE,8X,6HXNATOM,8X, + 13HRHO/(I5,1P6E12.3)) + NN=(NUMMOL/10)*10 + IF(NN.LT.NUMMOL)NN=NN+10 + DO 111 JMOL1=1,NN,10 + JMOL10=JMOL1+9 + 111 WRITE(6,113)(CODE(JMOL),JMOL=JMOL1,JMOL10),(J,(XNMOL(J,JMOL), + 1JMOL=JMOL1,JMOL10),J=1,NRHOX) + 113 FORMAT(1H1,50X,26HMOLECULAR NUMBER DENSITIES/5X,10F12.2/ + 1(I5,1P10E12.3)) + 120 CONTINUE + DO 125 K=2,NEQUA + ID=IDEQUA(K) + IF(ID.EQ.100)GO TO 122 + DO 121 J=JSTART,NRHOX +C CALCULATE PARTITION FUNCTIONS + CALL PFSAHA(J,ID,1,3,PF) + IF(ID.EQ. 1)PF(J,1)=PF(J,1)/BHYD(J,1) + IF(ID.EQ. 6)PF(J,1)=PF(J,1)/BC1(J,1) + IF(ID.EQ. 8)PF(J,1)=PF(J,1)/BO1(J,1) + IF(ID.EQ.12)PF(J,1)=PF(J,1)/BMG1(J,1) + IF(ID.EQ.13)PF(J,1)=PF(J,1)/BAL1(J,1) + IF(ID.EQ.14)PF(J,1)=PF(J,1)/BSI1(J,1) + IF(ID.EQ.20)PF(J,1)=PF(J,1)/BCA1(J,1) + 121 XNZ(J,K)=XNZ(J,K)/PF(J,1)/1.8786D20/SQRT((ATMASS(ID)*T(J))**3) + GO TO 125 + 122 DO 123 J=JSTART,NRHOX + 123 XNZ(J,K)=XNZ(J,K)/2./2.4148D15/T(J)/SQRT(T(J)) + 125 CONTINUE + DO 140 JMOL=1,NUMMOL + NCOMP=LOCJ(JMOL+1)-LOCJ(JMOL) + IF(EQUIL(1,JMOL).EQ.0.)GO TO 135 + DO 126 J=JSTART,NRHOX + 126 XNFPMOL(J,JMOL)=EXP(EQUIL(1,JMOL)/TKEV(J)) + AMASS=0. + LOCJ1=LOCJ(JMOL) + LOCJ2=LOCJ(JMOL+1)-1 + DO 130 LOCK=LOCJ1,LOCJ2 + K=KCOMPS(LOCK) + IF(K.EQ.NEQUA1)GO TO 128 + ID=IDEQUA(K) + IF(ID.LT.100)AMASS=AMASS+ATMASS(ID) + DO 127 J=JSTART,NRHOX + 127 XNFPMOL(J,JMOL)=XNFPMOL(J,JMOL)*XNZ(J,K) + GO TO 130 + 128 DO 129 J=JSTART,NRHOX + 129 XNFPMOL(J,JMOL)=XNFPMOL(J,JMOL)/XNZ(J,NEQUA) + 130 CONTINUE + DO 131 J=JSTART,NRHOX + 131 XNFPMOL(J,JMOL)=XNFPMOL(J,JMOL)*1.8786D20*SQRT((AMASS*T(J))**3) + GO TO 140 + 135 ID=CODE(JMOL) + DO 136 J=JSTART,NRHOX + CALL PFSAHA(J,ID,NCOMP,3,PF) + 136 XNFPMOL(J,JMOL)=XNMOL(J,JMOL)/PF(J,1) + 140 CONTINUE + 149 IF(ITER.LT.NUMITS)RETURN + NN=(NUMMOL/10)*10 + IF(NN.LT.NUMMOL)NN=NN+10 + DO 151 JMOL1=1,NN,10 + JMOL10=JMOL1+9 + 151 WRITE(6,153)(CODE(JMOL),JMOL=JMOL1,JMOL10),(J,(XNFPMOL(J,JMOL), + 1JMOL=JMOL1,JMOL10),J=1,NRHOX) + 153 FORMAT(1H1,40X,'MOLECULAR NUMBER DENSITIES / PARTITION FUNCTIONS' + 1 /5X,10F12.2/(I5,1P10E12.3)) + RETURN + END + SUBROUTINE KAPP(N,NSTEPS,STEPWT) + IMPLICIT REAL*8 (A-H,O-Z) + PARAMETER (kw=99) + COMMON /BAL/BAL1(kw,9),AAL1(kw),SAL1(kw),XNFPAL(kw,2),BAL2(kw,1) + COMMON /BB/BB1(kw,7),XNFPB(kw,1) + COMMON /BC/BC1(kw,14),AC1(kw),SC1(kw),XNFPC(kw,2),BC2(kw,6) + COMMON /BCA/BCA1(kw,8),BCA2(kw,5),XNFPCA(kw,2) + COMMON /BFE/BFE1(kw,15),AFE1(kw),SFE1(kw),XNFPFE(kw,1) + COMMON /BHE/BHE1(kw,29),AHE1(kw),SHE1(kw),BHE2(kw,6),AHE2(kw), + 1 SHE2(kw),AHEMIN(kw),SIGHE(kw),XNFPHE(kw,3),XNFHE(kw,2) + COMMON /BHYD/BHYD(kw,8),AHYD(kw),SHYD(kw),AH2P(kw),BMIN(kw), + 1 AHMIN(kw),SHMIN(kw),SIGH(kw),SIGH2(kw),AHLINE(kw), + 2 SHLINE(kw),XNFPH(kw,2),XNFH(kw) + COMMON /BK/BK1(kw,8),XNFPK(kw,1) + COMMON /BMG/BMG1(kw,11),AMG1(kw),SMG1(kw),XNFPMG(kw,2),BMG2(kw,6) + COMMON /BNA/BNA1(kw,8),XNFPNA(kw,1) + COMMON /BO/BO1(kw,13),XNFPO(kw,1),BO2(kw,4) + COMMON /BSI/BSI1(kw,11),ASI1(kw),SSI1(kw),XNFPSI(kw,2),BSI2(kw,10) + COMMON /FREQ/FREQ,FREQLG,EHVKT(kw),STIM(kw),BNU(kw),WAVENO + COMMON /IF/IFCORR,IFPRES,IFSURF,IFSCAT,IFMOL,NLTEON,IFOP(20) + COMMON /OPS/ACOOL(kw),ALUKE(kw),AHOT(kw),SIGEL(kw),ALINES(kw), + 1 SIGLIN(kw),AXLINE(kw),SIGXL(kw),AXCONT(kw),SIGX(kw), + 2 SXLINE(kw),SXCONT(kw) + COMMON /OPTOT/ACONT(kw),SCONT(kw),ALINE(kw),SLINE(kw),SIGMAC(kw), + 1 SIGMAL(kw) + COMMON /RHOX/RHOX(kw),NRHOX + COMMON /STATE/P(kw),XNE(kw),XNATOM(kw),RHO(kw),PTOTAL(kw) + COMMON /TEMP/T(kw),TKEV(kw),TK(kw),HKT(kw),TLOG(kw),HCKT(kw),ITEMP + DATA ITEMP1/0/ + 90 STEPWT=1. + NSTEPS=1 + IF(N.GT.1)GO TO 200 + DO 91 J=1,NRHOX + AHYD(J)=0. + AHMIN(J)=0. + AH2P(J)=0. + AHE1(J)=0. + AHE2(J)=0. + AHEMIN(J)=0. + AC1(J)=0. + AMG1(J)=0. + AAL1(J)=0. + ASI1(J)=0. + AFE1(J)=0. + ACOOL(J)=0. + ALUKE(J)=0. + AHOT(J)=0. + AHLINE(J)=0. + ALINES(J)=0. + AXLINE(J)=0. + AXCONT(J)=0. + SIGH(J)=0. + SIGH2(J)=0. + SIGHE(J)=0. + SIGEL(J)=0. + SIGLIN(J)=0. + SIGXL(J)=0. + SIGX(J)=0. + SHYD(J)=0. + SHMIN(J)=0. + SHLINE(J)=0. + SHE1(J)=0. + SHE2(J)=0. + SC1(J)=0. + SMG1(J)=0. + SAL1(J)=0. + SSI1(J)=0. + SFE1(J)=0. + SXLINE(J)=0. + SXCONT(J)=0. + 91 CONTINUE + IF(IFOP(1).EQ.1)CALL HOP + IF(IFOP(2).EQ.1)CALL H2PLOP + IF(IFOP(3).EQ.1)CALL HMINOP + IF(IFOP(4).EQ.1)CALL HRAYOP + IF(IFOP(5).EQ.1)CALL HE1OP + IF(IFOP(6).EQ.1)CALL HE2OP + IF(IFOP(7).EQ.1)CALL HEMIOP + IF(IFOP(8).EQ.1)CALL HERAOP + IF(IFOP(9).EQ.1)CALL COOLOP + IF(IFOP(10).EQ.1)CALL LUKEOP + IF(IFOP(11).EQ.1)CALL HOTOP + IF(IFOP(12).EQ.1)CALL ELECOP + IF(IFOP(13).EQ.1)CALL H2RAOP + IF(IFOP(14).EQ.1.AND.N.GT.0)CALL HLINOP + IF(IFOP(15).EQ.1.AND.N.GT.0)CALL LINOP(N,NSTEPS,STEPWT) + IF(IFOP(16).EQ.1.AND.N.GT.0)CALL LINSOP(N,NSTEPS,STEPWT) + IF(IFOP(17).EQ.1.AND.N.GT.0)CALL XLINOP + IF(IFOP(18).EQ.1.AND.N.GT.0)CALL XLISOP + IF(IFOP(19).EQ.1)CALL XCONOP + IF(IFOP(20).EQ.1)CALL XSOP + DO 100 J=1,NRHOX + A=AH2P(J)+AHEMIN(J)+ALUKE(J)+AHOT(J) + ACONT(J)=A+AHYD(J)+AHMIN(J)+AXCONT(J)+AHE1(J)+AHE2(J)+AC1(J)+ + 1AMG1(J)+AAL1(J)+ASI1(J)+AFE1(J) + SCONT(J)=BNU(J) + IF(ACONT(J).GT.0.)SCONT(J)=(A*BNU(J)+AHYD(J)*SHYD(J)+AHMIN(J)* + 1SHMIN(J)+AXCONT(J)*SXCONT(J)+AHE1(J)*SHE1(J)+AHE2(J)*SHE2(J)+ + 2AC1(J)*SC1(J)+AMG1(J)*SMG1(J)+AAL1(J)*SAL1(J)+ASI1(J)*SSI1(J)+ + 3AFE1(J)*SFE1(J))/ACONT(J) + ALINE(J)=AHLINE(J)+ALINES(J)+AXLINE(J) + SLINE(J)=BNU(J) + IF(ALINE(J).GT.0.)SLINE(J)=(AHLINE(J)*SHLINE(J)+ALINES(J)*BNU(J)+ + 1AXLINE(J)*SXLINE(J))/ALINE(J) + SIGMAC(J)=SIGH(J)+SIGHE(J)+SIGEL(J)+SIGH2(J)+SIGX(J) + 100 SIGMAL(J)=SIGLIN(J)+SIGXL(J) + RETURN + 200 IF(IFOP(15).EQ.1)CALL LINOP(N,NSTEPS,STEPWT) + IF(IFOP(16).EQ.1)CALL LINSOP(N,NSTEPS,STEPWT) + DO 201 J=1,NRHOX + ALINE(J)=AHLINE(J)+ALINES(J)+AXLINE(J) + IF(ALINE(J).GT.0.)SLINE(J)=(AHLINE(J)*SHLINE(J)+ALINES(J)*BNU(J)+ + 1AXLINE(J)*SXLINE(J))/ALINE(J) + 201 SIGMAL(J)=SIGLIN(J)+SIGXL(J) + RETURN + END + SUBROUTINE HOP + IMPLICIT REAL*8 (A-H,O-Z) + PARAMETER (kw=99) +C REQUIRES FUNCTION COULFF + COMMON /BHYD/BHYD(kw,8),AHYD(kw),SHYD(kw),AH2P(kw),BMIN(kw), + 1 AHMIN(kw),SHMIN(kw),SIGH(kw),SIGH2(kw),AHLINE(kw), + 2 SHLINE(kw),XNFPH(kw,2),XNFH(kw) + COMMON /FREQ/FREQ,FREQLG,EHVKT(kw),STIM(kw),BNU(kw),WAVENO + COMMON /RHOX/RHOX(kw),NRHOX + COMMON /STATE/P(kw),XNE(kw),XNATOM(kw),RHO(kw),PTOTAL(kw) + COMMON /TEMP/T(kw),TKEV(kw),TK(kw),HKT(kw),TLOG(kw),HCKT(kw),ITEMP + FREQ3=2.815E29/FREQ/FREQ/FREQ + DO 100 J=1,NRHOX +C LIMIT 109678.764 RYDBERG 109677.576 +C N=16 TO INFINITY + H=FREQ3*2./2./(109677.576D0*HCKT(J))* + 1(EXP(-MAX(109250.336D0,109678.764D0-WAVENO)*HCKT(J))- + 2EXP(-109678.764D0*HCKT(J)))*STIM(J) + S=H*BNU(J) +C N=15 + IF(WAVENO.LT. 487.456)GO TO 30 + X=XKARSAS(FREQ,1.D0,15,15) + A=X*450.*EXP(- 109191.313D0*HCKT(J))*STIM(J) + H=H+A + S=S+A*BNU(J) +C N=14 + IF(WAVENO.LT. 559.579)GO TO 30 + X=XKARSAS(FREQ,1.D0,14,14) + A=X*392.*EXP(- 109119.188D0*HCKT(J))*STIM(J) + H=H+A + S=S+A*BNU(J) +C N=13 + IF(WAVENO.LT. 648.980)GO TO 30 + X=XKARSAS(FREQ,1.D0,13,13) + A=X*338.*EXP(- 109029.789D0*HCKT(J))*STIM(J) + H=H+A + S=S+A*BNU(J) +C N=12 + IF(WAVENO.LT. 761.649)GO TO 30 + X=XKARSAS(FREQ,1.D0,12,12) + A=X*288.*EXP(- 108917.117D0*HCKT(J))*STIM(J) + H=H+A + S=S+A*BNU(J) +C N=11 + IF(WAVENO.LT. 906.426)GO TO 30 + X=XKARSAS(FREQ,1.D0,11,11) + A=X*242.*EXP(- 108772.336D0*HCKT(J))*STIM(J) + H=H+A + S=S+A*BNU(J) +C N=10 + IF(WAVENO.LT. 1096.776)GO TO 30 + X=XKARSAS(FREQ,1.D0,10,10) + A=X*200.*EXP(- 108581.992D0*HCKT(J))*STIM(J) + H=H+A + S=S+A*BNU(J) +C N=9 + IF(WAVENO.LT. 1354.044)GO TO 30 + X=XKARSAS(FREQ,1.D0,9,9) + A=X*162.*EXP(- 108324.719D0*HCKT(J))*STIM(J) + H=H+A + S=S+A*BNU(J) +C N=8 + IF(WAVENO.LT.1713.713)GO TO 30 + X=XKARSAS(FREQ,1.D0,8,8) + A=X*128.*EXP(-107965.051D0*HCKT(J))*STIM(J) + H=H+A + S=S+A*BNU(J) +C N=7 + IF(WAVENO.LT.2238.320)GO TO 30 + X=XKARSAS(FREQ,1.D0,7,7) + A=X*98.*EXP(-107440.444D0*HCKT(J))*STIM(J) + H=H+A + S=S+A*BNU(J) +C N=6 + IF(WAVENO.LT.3046.604)GO TO 30 + X=XKARSAS(FREQ,1.D0,6,6) + A=X*72.*EXP(-106632.160D0*HCKT(J))*(BHYD(J,6)-EHVKT(J)) + H=H+A + S=S+A*BNU(J)*STIM(J)/(BHYD(J,6)-EHVKT(J)) +C N=5 + IF(WAVENO.LT.4387.113)GO TO 30 + X=XKARSAS(FREQ,1.D0,5,5) + A=X*50.*EXP(-105291.651D0*HCKT(J))*(BHYD(J,5)-EHVKT(J)) + H=H+A + S=S+A*BNU(J)*STIM(J)/(BHYD(J,5)-EHVKT(J)) +C N=4 + IF(WAVENO.LT.6854.871)GO TO 30 + X=XKARSAS(FREQ,1.D0,4,4) + A=X*32.*EXP(-102823.893D0*HCKT(J))*(BHYD(J,4)-EHVKT(J)) + H=H+A + S=S+A*BNU(J)*STIM(J)/(BHYD(J,4)-EHVKT(J)) +C N=3 + IF(WAVENO.LT.12186.462)GO TO 30 + X=XKARSAS(FREQ,1.D0,3,3) + A=X*18.*EXP(- 97492.302D0*HCKT(J))*(BHYD(J,3)-EHVKT(J)) + H=H+A + S=S+A*BNU(J)*STIM(J)/(BHYD(J,3)-EHVKT(J)) +C N=2 + IF(WAVENO.LT.27419.659)GO TO 30 + X=XKARSAS(FREQ,1.D0,2,2) + A=X* 8.*EXP(- 82259.105D0*HCKT(J))*(BHYD(J,2)-EHVKT(J)) + H=H+A + S=S+A*BNU(J)*STIM(J)/(BHYD(J,2)-EHVKT(J)) +C N=1 + IF(WAVENO.LT.109678.764)GO TO 30 + X=XKARSAS(FREQ,1.D0,1,1) + A=X* 2.*1. *(BHYD(J,1)-EHVKT(J)) + H=H+A + S=S+A*BNU(J)*STIM(J)/(BHYD(J,1)-EHVKT(J)) +C + 30 H=H*XNFPH(J,1)/RHO(J) + S=S*XNFPH(J,1)/RHO(J) +C FREE-FREE + A=3.6919E8/SQRT(T(J))*COULFF(J,1)/FREQ*XNE(J)/FREQ*XNFPH(J,2)/ + 1FREQ*STIM(J)/RHO(J) + H=H+A + S=S+A*BNU(J) + AHYD(J)=H + IF(H.GT.0.)SHYD(J)=S/H + 100 CONTINUE + RETURN + END + FUNCTION XKARSAS(FREQ,ZEFF2,N,L) + IMPLICIT REAL*4 (A-H,O-Z) +C IMPLICIT REAL*8 (A-H,O-Z) + PARAMETER (kw=99) + REAL*8 FREQ,ZEFF2,XKARSAS + DIMENSION FREQ1(29),FREQ2(29),FREQ3(29),FREQ4(29),FREQ5(29) + DIMENSION FREQ6(29),FREQ7(29),FREQ8(29),FREQ9(29),FREQ10(29) + DIMENSION FREQ11(29),FREQ12(29),FREQ13(29),FREQ14(29),FREQ15(29) + DIMENSION X1(29),X2(29),X3(29),X4(29),X5(29) + DIMENSION X6(29),X7(29),X8(29),X9(29),X10(29) + DIMENSION X11(29),X12(29),X13(29),X14(29),X15(29) + DIMENSION X1s(29),X2s(29),X3s(29),X4s(29),X5s(29),X6s(29) + DIMENSION X2p(29),X3p(29),X4p(29),X5p(29),X6p(29) + DIMENSION X3d(29),X4d(29),X5d(29),X6d(29) + DIMENSION X4f(29),X5f(29),X6f(29),X5g(29),X6g(29),X6h(29) + DIMENSION FREQN(29,15),XN(29,15),XL(29,6,6),FREQN15(29) + DIMENSION EKARSAS(29) + EQUIVALENCE (XN(1,1),X1(1)),(FREQN(1,1),FREQ1(1)) + EQUIVALENCE (XN(1,2),X2(1)),(FREQN(1,2),FREQ2(1)) + EQUIVALENCE (XN(1,3),X3(1)),(FREQN(1,3),FREQ3(1)) + EQUIVALENCE (XN(1,4),X4(1)),(FREQN(1,4),FREQ4(1)) + EQUIVALENCE (XN(1,5),X5(1)),(FREQN(1,5),FREQ5(1)) + EQUIVALENCE (XN(1,6),X6(1)),(FREQN(1,6),FREQ6(1)) + EQUIVALENCE (XN(1,7),X7(1)),(FREQN(1,7),FREQ7(1)) + EQUIVALENCE (XN(1,8),X8(1)),(FREQN(1,8),FREQ8(1)) + EQUIVALENCE (XN(1,9),X9(1)),(FREQN(1,9),FREQ9(1)) + EQUIVALENCE (XN(1,10),X10(1)),(FREQN(1,10),FREQ10(1)) + EQUIVALENCE (XN(1,11),X11(1)),(FREQN(1,11),FREQ11(1)) + EQUIVALENCE (XN(1,12),X12(1)),(FREQN(1,12),FREQ12(1)) + EQUIVALENCE (XN(1,13),X13(1)),(FREQN(1,13),FREQ13(1)) + EQUIVALENCE (XN(1,14),X14(1)),(FREQN(1,14),FREQ14(1)) + EQUIVALENCE (XN(1,15),X15(1)),(FREQN(1,15),FREQ15(1)) + EQUIVALENCE (XL(1,1,1),X1s(1)),(XL(1,1,2),X2s(1)) + EQUIVALENCE (XL(1,1,3),X3s(1)),(XL(1,1,4),X4s(1)) + EQUIVALENCE (XL(1,1,5),X5s(1)),(XL(1,1,6),X6s(1)) + EQUIVALENCE (XL(1,2,2),X2p(1)),(XL(1,2,3),X3p(1)) + EQUIVALENCE (XL(1,2,4),X4p(1)),(XL(1,2,5),X5p(1)) + EQUIVALENCE (XL(1,2,6),X6p(1)) + EQUIVALENCE (XL(1,3,3),X3d(1)),(XL(1,3,4),X4d(1)) + EQUIVALENCE (XL(1,3,5),X5d(1)),(XL(1,3,6),X6d(1)) + EQUIVALENCE (XL(1,4,4),X4f(1)),(XL(1,4,5),X5f(1)) + EQUIVALENCE (XL(1,4,6),X6f(1)) + EQUIVALENCE (XL(1,5,5),X5g(1)),(XL(1,5,6),X6g(1)) + EQUIVALENCE (XL(1,6,6),X6h(1)) + DATA FREQ1/ + 1 19.516982, 19.164810, 18.915052, 18.563043, 18.120083, + 2 17.828904, 17.521260, 17.174377, 16.931912, 16.747387, + 3 16.600083, 16.377277, 16.215909, 16.094200, 15.999955, + 4 15.925518, 15.866216, 15.817969, 15.745954, 15.676626, + 5 15.613849, 15.562692, 15.533972, 15.525713, 15.521260, + 6 15.518864, 15.518023, 15.517421, 15.516939/ + DATA X1/ + 1 -30.274422, -29.048572, -28.181067, -26.962272, -25.437868, + 2 -24.444170, -23.404269, -22.248421, -21.454163, -20.858944, + 3 -20.390346, -19.694283, -19.200905, -18.835387, -18.556686, + 4 -18.339364, -18.168213, -18.030238, -17.826632, -17.633456, + 5 -17.461067, -17.322353, -17.245241, -17.223162, -17.211266, + 6 -17.204840, -17.202587, -17.200999, -17.199715/ + DATA X1s/ + 1 -30.274422, -29.048572, -28.181067, -26.962272, -25.437868, + 2 -24.444170, -23.404269, -22.248421, -21.454163, -20.858944, + 3 -20.390346, -19.694283, -19.200905, -18.835387, -18.556686, + 4 -18.339364, -18.168213, -18.030238, -17.826632, -17.633456, + 5 -17.461067, -17.322353, -17.245241, -17.223162, -17.211266, + 6 -17.204840, -17.202587, -17.200999, -17.199715/ + DATA FREQ2/ + 1 19.516949, 19.164737, 18.914922, 18.562750, 18.119270, + 2 17.827313, 17.518023, 17.167149, 16.919200, 16.727792, + 3 16.572317, 16.329852, 16.145327, 15.998094, 15.876964, + 4 15.775097, 15.688665, 15.613849, 15.492095, 15.358548, + 5 15.215909, 15.074566, 14.979337, 14.948961, 14.931912, + 6 14.922531, 14.919200, 14.916804, 14.914879/ + DATA X2/ + 1 -31.779474, -30.553459, -29.685827, -28.466543, -26.940432, + 2 -25.943993, -24.898608, -23.729491, -22.917021, -22.298979, + 3 -21.803393, -21.042629, -20.473370, -20.025469, -19.660029, + 4 -19.355246, -19.098003, -18.876442, -18.517855, -18.127425, + 5 -17.714170, -17.308930, -17.038908, -16.953361, -16.905447, + 6 -16.879127, -16.869826, -16.863085, -16.857754/ + DATA X2s/ + 1 -31.177414, -29.951530, -29.083850, -27.864712, -26.339031, + 2 -25.343652, -24.299685, -23.134693, -22.327692, -21.716473, + 3 -21.228927, -20.487480, -19.941059, -19.517455, -19.178033, + 4 -18.899376, -18.668043, -18.471683, -18.160149, -17.830286, + 5 -17.492277, -17.172499, -16.965517, -16.901255, -16.865263, + 6 -16.845632, -16.838714, -16.833696, -16.829681/ + DATA X2p/ + 1 -35.779538, -34.184208, -33.083933, -31.512708, -29.543604, + 2 -28.256123, -26.903279, -25.387738, -24.333408, -23.531477, + 3 -22.889415, -21.907557, -21.178842, -20.610306, -20.152156, + 4 -19.774043, -19.458248, -19.189136, -18.759267, -18.299831, + 5 -17.823327, -17.365980, -17.066362, -16.972218, -16.919695, + 6 -16.890892, -16.880696, -16.873357, -16.867478/ + DATA FREQ3/ + 1 19.516943, 19.164723, 18.914898, 18.562696, 18.119119, + 2 17.827018, 17.517421, 17.165797, 16.916804, 16.724064, + 3 16.566974, 16.320472, 16.130898, 15.977703, 15.849803, + 4 15.740463, 15.646019, 15.562696, 15.423010, 15.261631, + 5 15.074579, 14.863704, 14.696235, 14.635934, 14.600123, + 6 14.579728, 14.572359, 14.567017, 14.562696/ + DATA X3/ + 1 -32.659912, -31.433874, -30.566210, -29.346836, -27.820290, + 2 -26.823453, -25.777089, -24.605440, -23.789519, -23.167057, + 3 -22.666147, -21.891933, -21.306393, -20.839041, -20.451712, + 4 -20.122889, -19.840361, -19.591597, -19.176587, -18.699419, + 5 -18.149566, -17.533628, -17.049033, -16.875774, -16.773227, + 6 -16.714935, -16.693926, -16.678663, -16.666369/ + DATA X3s/ + 1 -31.705705, -30.479739, -29.612265, -28.392746, -26.866974, + 2 -25.871133, -24.826672, -23.659806, -22.850344, -22.235989, + 3 -21.744734, -20.993964, -20.435725, -19.998364, -19.643303, + 4 -19.347420, -19.097776, -18.881962, -18.529746, -18.137370, + 5 -17.701228, -17.231454, -16.873769, -16.748412, -16.674666, + 6 -16.633129, -16.617776, -16.606984, -16.598091/ + DATA X3p/ + 1 -36.234105, -34.655854, -33.538432, -31.967064, -29.997698, + 2 -28.709867, -27.356451, -25.839127, -24.782259, -23.977343, + 3 -23.331485, -22.340276, -21.599900, -21.017917, -20.544424, + 4 -20.149344, -19.815760, -19.527654, -19.058410, -18.538322, + 5 -17.967020, -17.364676, -16.918642, -16.765111, -16.675798, + 6 -16.625318, -16.607492, -16.594210, -16.583614/ + DATA X3d/ + 1 -41.364414, -39.434006, -38.066663, -36.143204, -33.730242, + 2 -32.150245, -30.487089, -28.617809, -27.311427, -26.313205, + 3 -25.509946, -24.270587, -23.339149, -22.602299, -21.924436, + 4 -21.493723, -21.063954, -20.691590, -20.080654, -19.397357, + 5 -18.637161, -17.823176, -17.209853, -16.996234, -16.871214, + 6 -16.800539, -16.775144, -16.756765, -16.741919/ + DATA FREQ4/ + 1 19.516941, 19.164719, 18.914889, 18.562677, 18.119066, + 2 17.826915, 17.517210, 17.165323, 16.915963, 16.722752, + 3 16.565089, 16.317140, 16.125732, 15.970333, 15.839881, + 4 15.727658, 15.630046, 15.543267, 15.395977, 15.221861, + 5 15.011789, 14.756488, 14.527662, 14.435545, 14.377277, + 6 14.342650, 14.329852, 14.320471, 14.312819/ + DATA X4/ + 1 -33.284599, -32.058554, -31.190879, -29.971473, -28.444826, + 2 -27.447836, -26.401066, -25.228582, -24.411413, -23.787317, + 3 -23.284581, -22.505775, -21.914353, -21.439606, -21.044235, + 4 -20.705972, -20.413135, -20.153596, -19.714525, -19.197426, + 5 -18.576241, -17.824248, -17.155428, -16.887819, -16.719154, + 6 -16.619216, -16.582315, -16.555295, -16.533276/ + DATA X4s/ + 1 -32.080641, -30.854674, -29.986801, -28.767697, -27.241693, + 2 -26.245685, -25.200974, -24.033538, -23.223063, -22.607845, + 3 -22.115266, -21.360872, -20.798453, -20.355878, -19.995174, + 4 -19.692644, -19.435600, -19.211713, -18.841933, -18.420428, + 5 -17.932110, -17.363567, -16.873130, -16.680219, -16.559751, + 6 -16.488746, -16.462241, -16.443053, -16.427763/ + DATA X4p/ + 1 -36.585694, -35.007703, -33.890016, -32.318668, -30.349350, + 2 -29.061334, -27.707618, -26.189677, -25.132040, -24.325956, + 3 -23.678826, -22.684226, -21.939671, -21.352566, -20.873369, + 4 -20.471723, -20.130813, -19.835172, -19.348733, -18.800381, + 5 -18.178384, -17.480038, -16.904760, -16.685329, -16.550262, + 6 -16.471169, -16.442151, -16.420831, -16.403759/ + DATA X4d/ + 1 -41.585694, -39.655304, -38.288039, -36.364454, -33.951410, + 2 -32.371226, -30.707789, -28.837992, -27.530994, -26.531796, + 3 -25.727043, -24.484484, -23.549206, -22.807462, -22.198909, + 4 -21.686891, -21.250382, -20.870478, -20.243060, -19.532238, + 5 -18.722925, -17.815346, -17.075994, -16.798160, -16.628568, + 6 -16.529588, -16.493472, -16.467238, -16.445815/ + DATA X4f/ + 1 -47.062815, -44.780358, -43.163100, -40.887314, -38.030685, + 2 -36.158301, -34.185235, -31.963719, -30.407089, -29.214529, + 3 -28.252197, -26.761810, -25.634821, -24.737662, -23.998757, + 4 -23.374580, -22.839980, -22.373323, -21.598611, -20.713453, + 5 -19.693804, -18.530997, -17.563112, -17.193424, -16.965517, + 6 -16.832288, -16.783370, -16.747717, -16.718672/ + DATA FREQ5/ + 1 19.516940, 19.164717, 18.914886, 18.562668, 18.119042, + 2 17.826867, 17.517112, 17.165103, 16.915573, 16.722143, + 3 16.564213, 16.315589, 16.123320, 15.966880, 15.835211, + 4 15.721601, 15.622449, 15.533972, 15.382871, 15.202143, + 5 14.979337, 14.696203, 14.420029, 14.298047, 14.215909, + 6 14.164752, 14.145327, 14.130897, 14.118999/ + DATA X5/ + 1 -33.769146, -32.543097, -31.675417, -30.455996, -28.929303, + 2 -27.932243, -26.885239, -25.712408, -24.894628, -24.269941, + 3 -23.766226, -22.985245, -22.390846, -21.912586, -21.513577, + 4 -21.170761, -20.873304, -20.608270, -20.156957, -19.619181, + 5 -18.958075, -18.121143, -17.308727, -16.951892, -16.712503, + 6 -16.563827, -16.507488, -16.465627, -16.431184/ + DATA X5s/ + 1 -32.371142, -31.145245, -30.277611, -29.058332, -27.532386, + 2 -26.536299, -25.491539, -24.323724, -23.512880, -22.897091, + 3 -22.403960, -21.648140, -21.083702, -20.638728, -20.275002, + 4 -19.969127, -19.708598, -19.480857, -19.102318, -18.665521, + 5 -18.148008, -17.516456, -16.921283, -16.663742, -16.492247, + 6 -16.386117, -16.345903, -16.316173, -16.291778/ + DATA X5p/ + 1 -36.866137, -35.287883, -34.170413, -32.599199, -30.629663, + 2 -29.341564, -27.987755, -26.469536, -25.411517, -24.604882, + 3 -23.957191, -22.961135, -22.214481, -21.625034, -21.142933, + 4 -20.738297, -20.393941, -20.094254, -19.599261, -19.036165, + 5 -18.385686, -17.626125, -16.948476, -16.665818, -16.480643, + 6 -16.367024, -16.324502, -16.292865, -16.266917/ + DATA X5d/ + 1 -41.816885, -39.886598, -38.519116, -36.595706, -34.182651, + 2 -32.602365, -30.938792, -29.068803, -27.761491, -26.761551, + 3 -25.956256, -24.712472, -23.775049, -23.031086, -22.420027, + 4 -21.905038, -21.464940, -21.081321, -20.445565, -19.720393, + 5 -18.883701, -17.916497, -17.077571, -16.738117, -16.519620, + 6 -16.387033, -16.337715, -16.301341, -16.271391/ + DATA X5f/ + 1 -47.128880, -44.846322, -43.229046, -40.953347, -38.096716, + 2 -36.224291, -34.250943, -32.029199, -30.472360, -29.279276, + 3 -28.316408, -26.824527, -25.695751, -24.796176, -24.054627, + 4 -23.427631, -22.889877, -22.419401, -21.636478, -20.737351, + 5 -19.690904, -18.469715, -17.404053, -16.973748, -16.697901, + 6 -16.531879, -16.469784, -16.423961, -16.386588/ + DATA X5g/ + 1 -52.894711, -50.260082, -48.392958, -45.765034, -42.464679, + 2 -40.300146, -38.017153, -35.443424, -33.636754, -32.250427, + 3 -31.129593, -29.389103, -28.068001, -27.012118, -26.138711, + 4 -25.398332, -24.761042, -24.202462, -23.268415, -22.188504, + 5 -20.919298, -19.415147, -18.073478, -17.521544, -17.163795, + 6 -16.946562, -16.865194, -16.805098, -16.755865/ + DATA FREQ6/ + 1 19.516940, 19.164715, 18.914883, 18.562663, 18.119029, + 2 17.826841, 17.517059, 17.164984, 16.915361, 16.721812, + 3 16.563737, 16.314744, 16.122004, 15.964992, 15.832652, + 4 15.718275, 15.618265, 15.528838, 15.375583, 15.191044, + 5 14.960636, 14.659571, 14.348026, 14.199875, 14.094175, + 6 14.025088, 13.998063, 13.977668, 13.960636/ + DATA X6/ + 1 -34.165051, -32.939000, -32.071317, -30.851888, -29.325169, + 2 -28.328071, -27.280986, -26.107892, -25.289843, -24.664705, + 3 -24.160564, -23.378190, -22.782394, -22.302428, -21.901012, + 4 -21.555896, -21.255472, -20.987585, -20.529803, -19.979782, + 5 -19.295022, -18.402541, -17.482757, -17.047424, -16.737838, + 6 -16.536084, -16.457331, -16.397931, -16.348398/ + DATA X6s/ + 1 -32.608820, -31.382756, -30.515126, -29.295866, -27.769793, + 2 -26.773814, -25.728819, -24.560932, -23.750086, -23.133811, + 3 -22.640288, -21.883631, -21.318035, -20.871913, -20.506426, + 4 -20.198858, -19.936428, -19.706400, -19.322760, -18.877373, + 5 -18.342274, -17.669792, -16.995256, -16.680122, -16.457336, + 6 -16.312694, -16.256489, -16.214113, -16.178612/ + DATA X6p/ + 1 -37.098169, -35.519950, -34.402525, -32.831070, -30.861699, + 2 -29.573885, -28.219694, -26.701459, -25.643044, -24.836230, + 3 -24.188105, -23.191275, -22.443490, -21.852666, -21.369042, + 4 -20.962634, -20.616374, -20.314553, -19.814673, -19.242970, + 5 -18.575541, -17.775947, -17.020568, -16.681448, -16.445735, + 6 -16.294606, -16.235710, -16.191866, -16.154983/ + DATA X6d/ + 1 -42.024362, -40.094064, -38.726686, -36.803137, -34.390124, + 2 -32.809866, -31.146180, -29.276029, -27.968300, -26.968324, + 3 -26.162701, -24.918051, -23.979662, -23.234506, -22.621799, + 4 -22.105162, -21.663212, -21.277514, -20.637026, -19.903484, + 5 -19.050185, -18.044511, -17.129904, -16.735338, -16.467566, + 6 -16.298269, -16.232977, -16.184230, -16.143922/ + DATA X6f/ + 1 -47.267412, -44.984913, -43.367636, -41.091842, -38.235239, + 2 -36.362731, -34.389528, -32.167518, -30.610443, -29.417223, + 3 -28.453971, -26.961283, -25.831491, -24.930907, -24.187725, + 4 -23.559075, -23.019383, -22.547066, -21.759545, -20.852145, + 5 -19.789541, -18.530522, -17.390884, -16.906727, -16.582667, + 6 -16.380139, -16.302886, -16.245236, -16.197380/ + DATA X6g/ + 1 -52.845039, -50.210247, -48.343069, -45.715131, -42.414728, + 2 -40.250164, -37.967149, -35.393156, -33.586496, -32.199833, + 3 -31.078643, -29.337458, -27.969702, -26.958401, -26.083595, + 4 -25.341555, -24.702345, -24.141808, -23.203287, -22.115356, + 5 -20.830007, -19.288694, -17.874057, -17.268729, -16.863465, + 6 -16.610369, -16.513883, -16.442010, -16.382570/ + DATA X6h/ + 1 -58.850334, -55.863542, -53.746437, -50.766409, -47.022317, + 2 -44.565391, -41.972509, -39.046704, -36.990356, -35.410261, + 3 -34.131188, -32.140740, -30.626018, -29.411767, -28.404701, + 4 -27.548439, -26.808936, -26.159088, -25.067378, -23.795088, + 5 -22.279431, -20.436907, -18.711058, -17.957760, -17.446882, + 6 -17.124901, -17.001376, -16.909196, -16.832806/ + DATA FREQ7/ + 1 19.516939, 19.164715, 18.914882, 18.562661, 18.119021, + 2 17.826825, 17.517027, 17.164912, 16.915233, 16.721612, + 3 16.563450, 16.314234, 16.121209, 15.963850, 15.831103, + 4 15.716257, 15.615723, 15.525712, 15.371128, 15.184212, + 5 14.948958, 14.635891, 14.298034, 14.127792, 13.999929, + 6 13.912303, 13.876929, 13.849764, 13.826742/ + DATA X7/ + 1 -34.499784, -33.273731, -32.406047, -31.186614, -29.659879, + 2 -28.662758, -27.615624, -26.442410, -25.624138, -24.998790, + 3 -24.494343, -23.711394, -23.114332, -22.633333, -22.230699, + 4 -21.884181, -21.582185, -21.312152, -20.849982, -20.292819, + 5 -19.593097, -18.663739, -17.663648, -17.161477, -16.785637, + 6 -16.528798, -16.425342, -16.345983, -16.278790/ + DATA FREQ8/ + 1 19.516939, 19.164714, 18.914881, 18.562659, 18.119016, + 2 17.826815, 17.517006, 17.164865, 16.915150, 16.721482, + 3 16.563263, 16.313903, 16.120692, 15.963107, 15.830094, + 4 15.714942, 15.614066, 15.523672, 15.368212, 15.179720, + 5 14.941207, 14.619801, 14.262209, 14.073663, 13.925602, + 6 13.819464, 13.775217, 13.740590, 13.710759/ + DATA X8/ + 1 -34.789743, -33.563690, -32.696004, -31.476568, -29.949823, + 2 -28.952576, -27.905521, -26.732230, -25.913849, -25.288312, + 3 -24.783697, -24.000359, -23.402741, -22.921064, -22.517235, + 4 -22.169801, -21.866776, -21.595595, -21.130798, -20.568503, + 5 -19.858590, -18.903358, -17.843146, -17.285660, -16.849210, + 6 -16.537235, -16.407454, -16.306014, -16.218699/ + DATA FREQ9/ + 1 19.516939, 19.164714, 18.914881, 18.562657, 18.119012, + 2 17.826808, 17.516992, 17.164833, 16.915093, 16.721394, + 3 16.563135, 16.313676, 16.120337, 15.962597, 15.829401, + 4 15.714039, 15.612925, 15.522267, 15.366202, 15.176613, + 5 14.935812, 14.608414, 14.235819, 14.032225, 13.866132, + 6 13.741981, 13.688539, 13.645876, 13.608454/ + DATA X9/ + 1 -35.045505, -33.819451, -32.951765, -31.732326, -30.205575, + 2 -29.208318, -28.161241, -26.987832, -26.169441, -25.543807, + 3 -25.039029, -24.255440, -23.657439, -23.175297, -22.770919, + 4 -22.422852, -22.118723, -21.846749, -21.380133, -20.814545, + 5 -20.097359, -19.123314, -18.017622, -17.414518, -16.923750, + 6 -16.558183, -16.401026, -16.275647, -16.165911/ + DATA FREQ10/ + 1 19.516939, 19.164714, 18.914880, 18.562657, 18.119009, + 2 17.826803, 17.516982, 17.164810, 16.915052, 16.721330, + 3 16.563043, 16.313513, 16.120083, 15.962231, 15.828904, + 4 15.713391, 15.612108, 15.521260, 15.364758, 15.174377, + 5 14.931912, 14.600083, 14.215909, 13.999955, 13.817969, + 6 13.676626, 13.613849, 13.562692, 13.516939/ + DATA X10/ + 1 -35.274293, -34.048238, -33.180551, -31.961111, -30.434355, + 2 -29.437090, -28.389998, -27.216550, -26.398051, -25.772354, + 3 -25.267495, -24.483312, -23.885464, -23.402587, -22.997820, + 4 -22.649302, -22.344664, -22.072514, -21.604193, -21.035827, + 5 -20.313639, -19.326284, -18.184568, -17.544349, -17.005732, + 6 -16.588554, -16.403642, -16.253350, -16.118795/ + DATA FREQ11/ + 1 19.516939, 19.164713, 18.914880, 18.562656, 18.119008, + 2 17.826799, 17.516974, 17.164793, 16.915022, 16.721283, + 3 16.562976, 16.313392, 16.119895, 15.961961, 15.828537, + 4 15.712911, 15.611502, 15.520513, 15.363687, 15.172715, + 5 14.929003, 14.593814, 14.200566, 13.974434, 13.778545, + 6 13.621032, 13.548931, 13.488931, 13.434153/ + DATA X11/ + 1 -35.481256, -34.255201, -33.387514, -32.168073, -30.641313, + 2 -29.644043, -28.596939, -27.423463, -26.604924, -25.979176, + 3 -25.474255, -24.689915, -24.091864, -23.608739, -23.203681, + 4 -22.854826, -22.549810, -22.276842, -21.807547, -21.237407, + 5 -20.511071, -19.513620, -18.342150, -17.667949, -17.093121, + 6 -16.627232, -16.414294, -16.237373, -16.076228/ + DATA FREQ12/ + 1 19.516939, 19.164713, 18.914880, 18.562655, 18.119006, + 2 17.826796, 17.516969, 17.164780, 16.914999, 16.721247, + 3 16.562924, 16.313301, 16.119752, 15.961755, 15.828257, + 4 15.712546, 15.611041, 15.519944, 15.362870, 15.171447, + 5 14.926778, 14.588984, 14.188523, 13.953966, 13.745966, + 6 13.573403, 13.492115, 13.423028, 13.358576/ + DATA X12/ + 1 -35.670198, -34.444144, -33.576456, -32.357014, -30.830251, + 2 -29.832977, -28.785864, -27.612367, -26.793798, -26.168012, + 3 -25.663043, -24.878583, -24.280378, -23.797065, -23.391784, + 4 -23.042673, -22.737368, -22.464078, -21.994040, -21.422148, + 5 -20.692935, -19.687256, -18.494545, -17.795069, -17.183891, + 6 -16.673156, -16.431990, -16.227310, -16.037494/ + DATA FREQ13/ + 1 19.516939, 19.164713, 18.914880, 18.562655, 18.119005, + 2 17.826794, 17.516964, 17.164770, 16.914981, 16.721219, + 3 16.562884, 16.313230, 16.119641, 15.961595, 15.828039, + 4 15.712262, 15.610681, 15.519501, 15.362233, 15.170457, + 5 14.925038, 14.585188, 14.178914, 13.937343, 13.718804, + 6 13.532347, 13.442104, 13.363780, 13.289052/ + DATA X13/ + 1 -35.844009, -34.617954, -33.750266, -32.530823, -31.004058, + 2 -30.006781, -28.959661, -27.786148, -26.967555, -26.341739, + 3 -25.836687, -25.051753, -24.453445, -23.969994, -23.564544, + 4 -23.215236, -22.909707, -22.636559, -22.165546, -21.592592, + 5 -20.861125, -19.849269, -18.639111, -17.918166, -17.276217, + 6 -16.722786, -16.454970, -16.222218, -16.001878/ + DATA FREQ14/ + 1 19.516939, 19.164713, 18.914879, 18.562655, 18.119004, + 2 17.826792, 17.516961, 17.164762, 16.914967, 16.721197, + 3 16.562852, 16.313173, 16.119552, 15.961468, 15.827866, + 4 15.712036, 15.610396, 15.519149, 15.361728, 15.169670, + 5 14.923652, 14.582152, 14.171135, 13.923684, 13.695974, + 6 13.496762, 13.397869, 13.310243, 13.224682/ + DATA X14/ + 1 -36.004932, -34.778877, -33.911189, -32.691746, -31.164979, + 2 -30.167699, -29.120574, -27.947047, -27.128436, -26.502596, + 3 -25.997515, -25.212506, -24.614103, -24.130536, -23.724949, + 4 -23.375482, -23.069774, -22.796032, -22.324557, -21.750758, + 5 -21.017491, -20.000677, -18.776282, -18.037692, -17.368650, + 6 -16.776515, -16.482568, -16.221551, -15.968930/ + DATA FREQ15/ + 1 19.516939, 19.164713, 18.914879, 18.562654, 18.119003, + 2 17.826791, 17.516958, 17.164756, 16.914956, 16.721179, + 3 16.562826, 16.313127, 16.119481, 15.961365, 15.827726, + 4 15.711854, 15.610166, 15.518864, 15.361319, 15.169034, + 5 14.922532, 14.579688, 14.164756, 13.912343, 13.676639, + 6 13.465764, 13.358576, 13.261657, 13.164756/ + DATA X15/ + 1 -36.154748, -34.928693, -34.061005, -32.841561, -31.314793, + 2 -30.317511, -29.270382, -28.096844, -27.278218, -26.652358, + 3 -26.147254, -25.362186, -24.763705, -24.280044, -23.874346, + 4 -23.524751, -23.218899, -22.944996, -22.473148, -21.898667, + 5 -21.163944, -20.143099, -18.906962, -18.152646, -17.460462, + 6 -16.832855, -16.513888, -16.224591, -15.938340/ + DATA EKARSAS/10000.,4444.,2500.,1111.,400.,204.1,100.,44.44, + 1 25.,16.,11.11,6.25,4.,2.778,2.041,1.562,1.235,1.,0.6944,0.4444, + 2 0.25,0.1111,0.04,0.02041,0.01,0.004444,0.0025,0.001111,0./ +C FREQLG=LOG10(FREQ/ZEFF2) + FREQLG=LOG10(SNGL(FREQ/ZEFF2)) + XKARSAS=0. + IF(L.GE.N.OR.N.GT.6)THEN + IF(N.GT.15)GO TO 5 + IF(FREQLG.LT.FREQN(29,N))RETURN + DO 1 I=2,29 + IF(FREQLG.GT.FREQN(I,N))GO TO 2 + 1 CONTINUE + 2 X=(FREQLG-FREQN(I,N))/(FREQN(I-1,N)-FREQN(I,N))* + 1(XN(I-1,N)-XN(I,N))+XN(I,N) + XKARSAS=EXP(X*2.30258509299405D0)/ZEFF2 + RETURN + ENDIF + IF(FREQLG.LT.FREQN(29,N))RETURN + DO 3 I=2,29 + IF(FREQLG.GT.FREQN(I,N))GO TO 4 + 3 CONTINUE + 4 X=(FREQLG-FREQN(I,N))/(FREQN(I-1,N)-FREQN(I,N))* + 1(XL(I-1,L+1,N)-XL(I,L+1,N))+XL(I,L+1,N) + XKARSAS=EXP(X*2.30258509299405D0)/ZEFF2 + RETURN + 5 FREQN15(29)=LOG10(109677.576D0*2.99792458D10/N**2) + IF(FREQLG.LT.FREQN15(29))RETURN + DO 6 I=2,28 + FREQN15(I)=LOG10((EKARSAS(I)+1./N**2)*109677.576D0*2.99792458D10) + IF(FREQLG.GT.FREQN15(I))GO TO 7 + 6 CONTINUE + I=29 + 7 X=(FREQLG-FREQN15(I))/(FREQN15(I-1)-FREQN15(I))* + 1(XN(I-1,15)-XN(I,15))+XN(I,15) + XKARSAS=EXP(X*2.30258509299405D0)/ZEFF2 + RETURN + END + FUNCTION COULFF(J,NZ) + IMPLICIT REAL*8 (A-H,O-Z) + PARAMETER (kw=99) + COMMON /FREQ/FREQ,FREQLG,EHVKT(kw),STIM(kw),BNU(kw),WAVENO + COMMON /TEMP/T(kw),TKEV(kw),TK(kw),HKT(kw),TLOG(kw),HCKT(kw),ITEMP + DIMENSION Z4LOG(6),A(11,12) + DATA Z4LOG/0.,1.20412,1.90849,2.40824,2.79588,3.11261/ + DATA A/ + 15.53,5.49,5.46,5.43,5.40,5.25,5.00,4.69,4.48,4.16,3.85, + 24.91,4.87,4.84,4.80,4.77,4.63,4.40,4.13,3.87,3.52,3.27, + 34.29,4.25,4.22,4.18,4.15,4.02,3.80,3.57,3.27,2.98,2.70, + 43.64,3.61,3.59,3.56,3.54,3.41,3.22,2.97,2.70,2.45,2.20, + 53.00,2.98,2.97,2.95,2.94,2.81,2.65,2.44,2.21,2.01,1.81, + 62.41,2.41,2.41,2.41,2.41,2.32,2.19,2.02,1.84,1.67,1.50, + 71.87,1.89,1.91,1.93,1.95,1.90,1.80,1.68,1.52,1.41,1.30, + 81.33,1.39,1.44,1.49,1.55,1.56,1.51,1.42,1.33,1.25,1.17, + 90.90,0.95,1.00,1.08,1.17,1.30,1.32,1.30,1.20,1.15,1.11, + A0.55,0.58,0.62,0.70,0.85,1.01,1.15,1.18,1.15,1.11,1.08, + B0.33,0.36,0.39,0.46,0.59,0.76,0.97,1.09,1.13,1.10,1.08, + C0.19,0.21,0.24,0.28,0.38,0.53,0.76,0.96,1.08,1.09,1.09/ +C ERROR CORRECTED 5AUG93 (SHOULD HAVE BEEN 13APR88) +C A0.45,0.48,0.52,0.60,0.75,0.91,1.15,1.18,1.15,1.11,1.08, +C +C GAMLOG= LOG10(158000*Z*Z/T)*2 + GAMLOG=10.39638-TLOG(J)/1.15129+Z4LOG(NZ) + IGAM=MAX0(MIN0( INT(GAMLOG+7.),10),1) +C HVKTLG= LOG10(HVKT)*2 + HVKTLG=(FREQLG-TLOG(J))/1.15129-20.63764 + IHVKT=MAX0(MIN0( INT(HVKTLG+9.),11),1) + P=GAMLOG-DBLE(IGAM-7) + Q=HVKTLG-DBLE(IHVKT-9) + COULFF=(1.-P)*((1.-Q)*A(IGAM,IHVKT)+Q*A(IGAM,IHVKT+1))+ + 1P*((1.-Q)*A(IGAM+1,IHVKT)+Q*A(IGAM+1,IHVKT+1)) + RETURN + END + SUBROUTINE H2PLOP + IMPLICIT REAL*8 (A-H,O-Z) + PARAMETER (kw=99) + COMMON /BHYD/BHYD(kw,8),AHYD(kw),SHYD(kw),AH2P(kw),BMIN(kw), + 1 AHMIN(kw),SHMIN(kw),SIGH(kw),SIGH2(kw),AHLINE(kw), + 2 SHLINE(kw),XNFPH(kw,2),XNFH(kw) + COMMON /FREQ/FREQ,FREQLG,EHVKT(kw),STIM(kw),BNU(kw),WAVENO + COMMON /RHOX/RHOX(kw),NRHOX + COMMON /STATE/P(kw),XNE(kw),XNATOM(kw),RHO(kw),PTOTAL(kw) + COMMON /TEMP/T(kw),TKEV(kw),TK(kw),HKT(kw),TLOG(kw),HCKT(kw),ITEMP + IF(FREQ.GT.3.28805D15)RETURN + FR=-3.0233D3+(3.7797D2+(-1.82496D1+(3.9207D-1-3.1672D-3*FREQLG)* + 1FREQLG)*FREQLG)*FREQLG + FREQ15=FREQ/1.E15 + ES=-7.342D-3+(-2.409D-00+(1.028D-00+(-4.230D-01+(1.224D-01- + 1 1.351D-02*FREQ15)*FREQ15)*FREQ15)*FREQ15)*FREQ15 + DO 10 J=1,NRHOX +C 10 AH2P(J)=EXP(-ES/TKEV(J)+FR)*XNFPH(J,1)*2.*BHYD(J,1)*XNFPH(J,2)/ +C 1RHO(J)*STIM(J) + 10 AH2P(J)=EXP(-ES/TKEV(J)+FR+LOG(XNFPH(J,1)))*2.*BHYD(J,1)* + 1XNFPH(J,2)/RHO(J)*STIM(J) + RETURN + END + SUBROUTINE HMINOP + IMPLICIT REAL*8 (A-H,O-Z) + PARAMETER (kw=99) + COMMON /BHYD/BHYD(kw,8),AHYD(kw),SHYD(kw),AH2P(kw),BMIN(kw), + 1 AHMIN(kw),SHMIN(kw),SIGH(kw),SIGH2(kw),AHLINE(kw), + 2 SHLINE(kw),XNFPH(kw,2),XNFH(kw) + COMMON /FREQ/FREQ,FREQLG,EHVKT(kw),STIM(kw),BNU(kw),WAVENO + COMMON /RHOX/RHOX(kw),NRHOX + COMMON /STATE/P(kw),XNE(kw),XNATOM(kw),RHO(kw),PTOTAL(kw) + COMMON /TEMP/T(kw),TKEV(kw),TK(kw),HKT(kw),TLOG(kw),HCKT(kw),ITEMP + DIMENSION XHMIN(kw) + DIMENSION WBF(85),BF(85),FFLOG(22,11),FF(11,22) + DIMENSION FFBEG(11,11),FFEND(11,11),FFTT(11),WFFLOG(22) + DIMENSION THETA(kw),FFTHETA(kw),THETAFF(11),WAVEK(22) + EQUIVALENCE (FF(1,1),FFBEG(1,1)),(FF(1,12),FFEND(1,1)) +C FROM MATHISEN (1984), AFTER WISHART(1979) AND BROAD AND REINHARDT (1976) + DATA WBF/ 18.00, 19.60, 21.40, 23.60, 26.40, 29.80, 34.30, + 1 40.40, 49.10, 62.60, 111.30, 112.10, 112.67, 112.95, 113.05, + 2 113.10, 113.20, 113.23, 113.50, 114.40, 121.00, 139.00, 164.00, + 3 175.00, 200.00, 225.00, 250.00, 275.00, 300.00, 325.00, 350.00, + 4 375.00, 400.00, 425.00, 450.00, 475.00, 500.00, 525.00, 550.00, + 5 575.00, 600.00, 625.00, 650.00, 675.00, 700.00, 725.00, 750.00, + 6 775.00, 800.00, 825.00, 850.00, 875.00, 900.00, 925.00, 950.00, + 7 975.00,1000.00,1025.00,1050.00,1075.00,1100.00,1125.00,1150.00, + 8 1175.00,1200.00,1225.00,1250.00,1275.00,1300.00,1325.00,1350.00, + 9 1375.00,1400.00,1425.00,1450.00,1475.00,1500.00,1525.00,1550.00, + A 1575.00,1600.00,1610.00,1620.00,1630.00,1643.91/ + DATA BF/ 0.067, 0.088, 0.117, 0.155, 0.206, 0.283, 0.414, + 1 0.703, 1.24, 2.33, 11.60, 13.90, 24.30, 66.70, 95.00, + 2 56.60, 20.00, 14.60, 8.50, 7.10, 5.43, 5.91, 7.29, + 3 7.918, 9.453, 11.08, 12.75, 14.46, 16.19, 17.92, 19.65, + 4 21.35, 23.02, 24.65, 26.24, 27.77, 29.23, 30.62, 31.94, + 5 33.17, 34.32, 35.37, 36.32, 37.17, 37.91, 38.54, 39.07, + 6 39.48, 39.77, 39.95, 40.01, 39.95, 39.77, 39.48, 39.06, + 7 38.53, 37.89, 37.13, 36.25, 35.28, 34.19, 33.01, 31.72, + 8 30.34, 28.87, 27.33, 25.71, 24.02, 22.26, 20.46, 18.62, + 9 16.74, 14.85, 12.95, 11.07, 9.211, 7.407, 5.677, 4.052, + A 2.575, 1.302, 0.8697, 0.4974, 0.1989, 0. / +C Bell and Berrington J.Phys.B,vol. 20, 801-806,1987. + DATA WAVEK/.50,.40,.35,.30,.25,.20,.18,.16,.14,.12,.10,.09,.08, + 1 .07,.06,.05,.04,.03,.02,.01,.008,.006/ + DATA THETAFF/ + 1 0.5, 0.6, 0.8, 1.0, 1.2, 1.4, 1.6, 1.8, 2.0, 2.8, 3.6/ + DATA FFBEG/ + 1.0178,.0222,.0308,.0402,.0498,.0596,.0695,.0795,.0896, .131, .172, 1823 + 2.0228,.0280,.0388,.0499,.0614,.0732,.0851,.0972, .110, .160, .211, 2278 + 3.0277,.0342,.0476,.0615,.0760,.0908, .105, .121, .136, .199, .262, 2604 + 4.0364,.0447,.0616,.0789,.0966, .114, .132, .150, .169, .243, .318, 3038 + 5.0520,.0633,.0859, .108, .131, .154, .178, .201, .225, .321, .418, 3645 + 6.0791,.0959, .129, .161, .194, .227, .260, .293, .327, .463, .602, 4557 + 7.0965, .117, .157, .195, .234, .272, .311, .351, .390, .549, .711, 5063 + 8 .121, .146, .195, .241, .288, .334, .381, .428, .475, .667, .861, 5696 + 9 .154, .188, .249, .309, .367, .424, .482, .539, .597, .830, 1.07, 6510 + A .208, .250, .332, .409, .484, .557, .630, .702, .774, 1.06, 1.36, 7595 + B .293, .354, .468, .576, .677, .777, .874, .969, 1.06, 1.45, 1.83/ 9113 + DATA FFEND/ + 1 .358, .432, .572, .702, .825, .943, 1.06, 1.17, 1.28, 1.73, 2.17, 10126 + 2 .448, .539, .711, .871, 1.02, 1.16, 1.29, 1.43, 1.57, 2.09, 2.60, 11392 + 3 .579, .699, .924, 1.13, 1.33, 1.51, 1.69, 1.86, 2.02, 2.67, 3.31, 13019 + 4 .781, .940, 1.24, 1.52, 1.78, 2.02, 2.26, 2.48, 2.69, 3.52, 4.31, 15189 + 5 1.11, 1.34, 1.77, 2.17, 2.53, 2.87, 3.20, 3.51, 3.80, 4.92, 5.97, 18227 + 6 1.73, 2.08, 2.74, 3.37, 3.90, 4.50, 5.01, 5.50, 5.95, 7.59, 9.06, 22784 + 7 3.04, 3.65, 4.80, 5.86, 6.86, 7.79, 8.67, 9.50, 10.3, 13.2, 15.6, 30378 + 8 6.79, 8.16, 10.7, 13.1, 15.3, 17.4, 19.4, 21.2, 23.0, 29.5, 35.0, 45567 + 9 27.0, 32.4, 42.6, 51.9, 60.7, 68.9, 76.8, 84.2, 91.4, 117., 140., 91134 + A 42.3, 50.6, 66.4, 80.8, 94.5, 107., 120., 131., 142., 183., 219., 113918 + B 75.1, 90.0, 118., 144., 168., 191., 212., 234., 253., 325., 388./ 151890 + DATA ITEMP1,ISTART/0,0/ + IF(ISTART.EQ.0)THEN + ISTART=1 + DO 2 IWAVE=1,22 +C 91.134 NUMBER TAKEN FROM BELL AND BERRINGTON + WFFLOG(IWAVE)=DLOG(91.134D0/WAVEK(IWAVE)) + DO 2 ITHETA=1,11 +C CHANGE FROM PER PE TO PER NE BY MULTIPLYING BY KT +C 2 FFLOG(IWAVE,ITHETA)=DLOG(FF(ITHETA,IWAVE)/THETAFF(ITHETA)*5040.* +C 1 1.380658D-16*1.D-26) +C AVOID UNDERFLOW + 2 FFLOG(IWAVE,ITHETA)=DLOG(FF(ITHETA,IWAVE)/THETAFF(ITHETA)*5040.* + 1 1.380658D-16) + ENDIF + IF(ITEMP.EQ.ITEMP1)GO TO 20 + ITEMP1=ITEMP + DO 11 J=1,NRHOX + THETA(J)=5040./T(J) +C .754209 HOTOP AND LINEBERGER J.PHYS.CHEM.REF.DATA VOL 14,731-752,1985. + 11 XHMIN(J)=EXP(.754209D0/TKEV(J))/(2.*2.4148D15*T(J)*SQRT(T(J)))* + 1BMIN(J)*BHYD(J,1)*XNFPH(J,1)*XNE(J) + 20 WAVE=2.99792458D17/FREQ + WAVELOG=DLOG(WAVE) + DO 21 ITHETA=1,11 + CALL LINTER(WFFLOG,FFLOG(1,ITHETA),22,WAVELOG,FFTLOG,1) + 21 FFTT(ITHETA)=EXP(FFTLOG) + HMINBF=0. + IF(FREQ.GT.1.82365D14)MAXWAVE=MAP1(WBF,BF,85,WAVE,HMINBF,1) + DO 31 J=1,NRHOX + CALL LINTER(THETAFF,FFTT,11,THETA(J),FFTHETA(J),1) + HMINFF=FFTHETA(J)*XNFPH(J,1)*2.*BHYD(J,1)*XNE(J)/RHO(J)*1.D-26 + 97 FORMAT(I5,F10.4,F10.4,1PE12.4) + H=HMINBF*1.D-18*(1.-EHVKT(J)/BMIN(J))*XHMIN(J)/RHO(J) + AHMIN(J)=H+HMINFF + 31 SHMIN(J)=(H*BNU(J)*STIM(J)/(BMIN(J)-EHVKT(J))+HMINFF*BNU(J))/ + 1AHMIN(J) + RETURN + END + SUBROUTINE LINTER(XOLD,YOLD,NOLD,XNEW,YNEW,NNEW) + IMPLICIT REAL*8 (A-H,O-Z) + DIMENSION XOLD(1),YOLD(1),XNEW(1),YNEW(1) +C XOLD AND XNEW INCREASING + IOLD=2 + DO 2 INEW=1,NNEW + 1 IF(XNEW(INEW).LT.XOLD(IOLD))GO TO 2 + IF(IOLD.EQ.NOLD)GO TO 2 + IOLD=IOLD+1 + GO TO 1 + 2 YNEW(INEW)=YOLD(IOLD-1)+(YOLD(IOLD)-YOLD(IOLD-1))/ + 1(XOLD(IOLD)-XOLD(IOLD-1))*(XNEW(INEW)-XOLD(IOLD-1)) + RETURN + END + + SUBROUTINE HRAYOP +C Gavrila, M. 1967. Phys. Rev. 163, 147-155. +C Gavrila, M. 1966, Coherent scattering of light by atomic hydrogen, +C JILA Report No. 86 +C 14 Mar 2011 +C Line cores have been replaced (cut off) by a straight line so +C there are no discontinuities. The core absorption is so +C strong that the scattering does not matter. + IMPLICIT REAL*8 (A-H,O-Z) + PARAMETER (kw=99) + COMMON /BHYD/BHYD(kw,8),AHYD(kw),SHYD(kw),AH2P(kw),BMIN(kw), + 1 AHMIN(kw),SHMIN(kw),SIGH(kw),SIGH2(kw),AHLINE(kw), + 2 SHLINE(kw),XNFPH(kw,2),XNFH(kw) + COMMON /FREQ/FREQ,FREQLG,EHVKT(kw),STIM(kw),BNU(kw),WAVENO + COMMON /RHOX/RHOX(kw),NRHOX + COMMON /STATE/P(kw),XNE(kw),XNATOM(kw),RHO(kw),PTOTAL(kw) + REAL*8 GAVRILAM(74),GAVRILAMAB(27),GAVRILAMBC(24),GAVRILAMCD(22) + REAL*8 GAVRILALYMANCONT(64),FGAVRILALYMANCONT(64) +C FGAVRILAM .01 TO .74 BY .01 + DATA GAVRILAM/ + 1 -0.000113, -0.000450, -0.001014, -0.001804, -0.002823, + 2 -0.004072, -0.005553, -0.007269, -0.009223, -0.011419, + 3 -0.013861, -0.016553, -0.019500, -0.022709, -0.026185, + 4 -0.029936, -0.033968, -0.038291, -0.042913, -0.047843, + 5 -0.053093, -0.058674, -0.064599, -0.070882, -0.077537, + 6 -0.084581, -0.092031, -0.099907, -0.108230, -0.117022, + 7 -0.126308, -0.136117, -0.146477, -0.157422, -0.168987, + 8 -0.181213, -0.194143, -0.207825, -0.222313, -0.237667, + 9 -0.253953, -0.271245, -0.289626, -0.309189, -0.330041, + A -0.352300, -0.376103, -0.401605, -0.428985, -0.458448, + 1 -0.490235, -0.524625, -0.561947, -0.602591, -0.647023, + 2 -0.695805, -0.749619, -0.809306, -0.875910, -0.950750, + 3 -1.035515, -1.132403, -1.244337, -1.375285, -1.530787, + 4 -1.718821, -1.951320, -2.246993, -2.636960, -3.177142, + 5 -3.979234, -5.303624, -7.930999, -15.57 / +C 5 -3.979234, -5.303624, -7.930999, -15.763602/ +C .740 TO .755 G=ABS(15.57) +C FGAVRILAMAB .755 TO .885 BY .005 + DATA GAVRILAMAB/ +C 1 31.008832, 15.382871, 10.160646, 7.538338, 5.955062, + 1 15.57 , 15.382871, 10.160646, 7.538338, 5.955062, + 2 4.890397, 4.121176, 3.535672, 3.071659, 2.691623, + 3 2.371483, 2.094936, 1.850395, 1.629203, 1.424526, + 4 1.230596, 1.042127, 0.853766, 0.659460, 0.451533, + 5 0.219115, -0.054939, -0.400868, -0.879559, -1.637857, + 6 -3.150374, -8.0 / +C 6 -3.150374, -8.326078/ +C .885 TO .890 G=ABS(8.0) +C FGAVRILAMBC .890 TO .936 BY .002 + DATA GAVRILAMBC/ +C 1 32.260389, 11.880702, 7.418436, 5.442077, 4.313409, + 1 8.0 , 8.0 , 8.0 , 5.442077, 4.313409, + 2 3.573504, 3.043218, 2.637983, 2.312466, 2.039959, + 3 1.803441, 1.591244, 1.394717, 1.206823, 1.021148, + 4 0.831020, 0.628449, 0.402484, 0.136127, -0.200462, + 5 -0.667435, -1.410661, -2.906862, -9.0/ +C 5 -0.667435, -1.410661, -2.906862, -8.169314/ +C 5 -0.667435, -1.410661, -2.906862, -8.169314, -26.332319/ +C .936 TO .938 G=ABS(9.0) +C FGAVRILAMCD .938 TO .959 BY .001 + DATA GAVRILAMCD/ +C 1 27.981406, 9.816495, 6.145775, 4.544224, 3.630968, + 1 9.0 , 9.0 , 6.145775, 4.544224, 3.630968, + 2 3.029081, 2.593248, 2.255265, 1.978565, 1.741426, + 3 1.529699, 1.333240, 1.143898, 0.954154, 0.755875, + 4 0.538760, 0.287687, -0.022759, -0.441666, -1.081712, + 5 -2.667783, -2.667783/ +C 5 -2.278530, -5.705843/ +C .959 TO 1.000 G=ABS(2.667783) + DATA GAVRILALYMANCONT/ + 1 2.667783, 2.526696, 2.408970, 2.308970, 2.222736, + 2 2.147415, 2.080913, 2.021653, 1.968431, 1.920304, + 3 1.876527, 1.799739, 1.734455, 1.678180, 1.629118, + 4 1.585943, 1.547643, 1.513435, 1.482700, 1.454941, + 5 1.429751, 1.406798, 1.385804, 1.366536, 1.348797, + 6 1.332419, 1.317257, 1.303187, 1.290100, 1.277901, + 7 1.266509, 1.255848, 1.245856, 1.236474, 1.227652, + 8 1.219344, 1.190492, 1.167227, 1.148153, 1.132293, + 9 1.118945, 1.107593, 1.097848, 1.089413, 1.082059, + A 1.075606, 1.069908, 1.064850, 1.060338, 1.056294, + 1 1.052655, 1.038936, 1.030042, 1.023928, 1.019536, + 2 1.016269, 1.011814, 1.008986, 1.007074, 1.005720, + 3 1.004724, 1.003970, 1.003385, 1.003140/ + DATA FGAVRILALYMANCONT/ + 1 1.00,1.05,1.10,1.15,1.20,1.25,1.30,1.35,1.40,1.45, + 2 1.5,1.6,1.7,1.8,1.9,2.0,2.1,2.2,2.3,2.4,2.5,2.6,2.7,2.8,2.9, + 3 3.0,3.1,3.2,3.3,3.4,3.5,3.6,3.7,3.8,3.9,4.0,4.4,4.8,5.2,5.6, + 4 6.0,6.4,6.8,7.2,7.6,8.0,8.4,8.8,9.2,9.6,10.,12.,14,16.,18., + 5 20.,24.,28.,32.,36.,40.,44.,48.,50./ + XSECT=0. + IF(FREQ.LT.3.288051E13)THEN + G=GAVRILAM(1)*(FREQ/3.288051D13)**2 + GO TO 1 + ENDIF + IF(FREQ.LE..74D0*3.288051D15)THEN + I=FREQ/3.288051D13 + I=MIN(I+1,74) + G=GAVRILAM(I-1)+(GAVRILAM(I)-GAVRILAM(I-1))/3.288051E13* + 1 (FREQ-(I-1)*3.288051D13) + GO TO 1 + ENDIF + IF(FREQ.LT..755D0*3.288051D15)THEN + G=15.57 + GO TO 1 + ENDIF + IF(FREQ.LE..885D0*3.288051D15)THEN + I=(FREQ-.755D0*3.288051D15)/1.644026D13 + I=I+1 + I=MIN(I+1,27) + G=GAVRILAMAB(I-1)+(GAVRILAMAB(I)-GAVRILAMAB(I-1))/1.644026D13* + 1 (FREQ-(.755D0*3.288051D15+((I-1)-1)*1.664026D13)) +c 1 (FREQ-(I-1)*1.644026D13) + GO TO 1 + ENDIF + IF(FREQ.LT..890D0*3.288051D15)THEN + G=8.0 + GO TO 1 + ENDIF + IF(FREQ.LE..936D0*3.288051D15)THEN + I=(FREQ-.890D0*3.28851D15)/0.657610D13 + I=I+1 + I=MIN(I+1,24) + G=GAVRILAMBC(I-1)+(GAVRILAMBC(I)-GAVRILAMBC(I-1))/0.657610D13* + 1 (FREQ-(.890D0*3.288051D15+((I-1)-1)*0.657610D13)) +c 1 (FREQ-(I-1)*0.657610D13) + GO TO 1 + ENDIF + IF(FREQ.LT..938D0*3.288051D15)THEN + G=9.0 + GO TO 1 + ENDIF + IF(FREQ.LE..959D0*3.288051D15)THEN + I=(FREQ-.938D0*3.288051D15)/0.3288051D13 + I=I+1 + I=MIN(I+1,22) + G=GAVRILAMCD(I-1)+(GAVRILAMCD(I)-GAVRILAMCD(I-1))/0.3288051D13* + 1 (FREQ-(.938D0*3.288051D15+((I-1)-1)*0.3288051D13)) +C 1 (FREQ-(I-1)*0.3288051D13) + GO TO 1 + ENDIF + IF(FREQ.LE.1.000*3.288051D15)THEN + G=GAVRILALYMANCONT(1) + GO TO 1 + ENDIF + IDUM=MAP1(FGAVRILALYMANCONT,GAVRILALYMANCONT,64, + 1 FREQ/3.288051D15,G,1) + 1 XSECT=6.65D-25*G**2 + DO 2 J=1,NRHOX + 2 SIGH(J)=XSECT*XNFPH(J,1)*2.*BHYD(J,1)/RHO(J) + RETURN + END +C SUBROUTINE HRAYOP +C IMPLICIT REAL*8 (A-H,O-Z) +C PARAMETER (kw=99) +C COMMON /BHYD/BHYD(kw,8),AHYD(kw),SHYD(kw),AH2P(kw),BMIN(kw), +C 1 AHMIN(kw),SHMIN(kw),SIGH(kw),SIGH2(kw),AHLINE(kw), +C 2 SHLINE(kw),XNFPH(kw,2),XNFH(kw) +C COMMON /FREQ/FREQ,FREQLG,EHVKT(kw),STIM(kw),BNU(kw),WAVENO +C COMMON /RHOX/RHOX(kw),NRHOX +C COMMON /STATE/P(kw),XNE(kw),XNATOM(kw),RHO(kw),PTOTAL(kw) +C WAVE=2.99792458D18/ MIN (FREQ,2.463D15) +C WW=WAVE**2 +C SIG=(5.799D-13+1.422D-6/WW+2.784D0/(WW*WW))/(WW*WW) +C DO 2 J=1,NRHOX +C 2 SIGH(J)=SIG*XNFPH(J,1)*2.*BHYD(J,1)/RHO(J) +C RETURN +C END + SUBROUTINE HE1OP + IMPLICIT REAL*8 (A-H,O-Z) + PARAMETER (kw=99) +C REQUIRES FUNCTION COULFF + COMMON /BHE/BHE1(kw,29),AHE1(kw),SHE1(kw),BHE2(kw,6),AHE2(kw), + 1 SHE2(kw),AHEMIN(kw),SIGHE(kw),XNFPHE(kw,3),XNFHE(kw,2) + COMMON /FREQ/FREQ,FREQLG,EHVKT(kw),STIM(kw),BNU(kw),WAVENO + COMMON /RHOX/RHOX(kw),NRHOX + COMMON /STATE/P(kw),XNE(kw),XNATOM(kw),RHO(kw),PTOTAL(kw) + COMMON /TEMP/T(kw),TKEV(kw),TK(kw),HKT(kw),TLOG(kw),HCKT(kw),ITEMP + FREQ3=2.815E29/FREQ/FREQ/FREQ + DO 100 J=1,NRHOX +C LIMIT 198310.76 RYDBERG 109722.267 +C N=6 TO INFINITY BHE1=BHE2 + H=FREQ3*4./2./(109722.267D0*HCKT(J))* + 1(EXP(-MAX(195262.919D0,198310.76D0-WAVENO)*HCKT(J))- + 2EXP(-198310.76D0*HCKT(J)))*STIM(J)*BHE2(J,1) + S=H*BNU(J) +C 5P 1P + IF(WAVENO.LT.4368.190D0)GO TO 30 + X=FREQ3/3125. + A=X* 3.*EXP(-193942.57D0*HCKT(J))*(BHE1(J,29)-BHE2(J,1)*EHVKT(J)) + H=H+A + S=S+A*BNU(J)*STIM(J)/(BHE1(J,29)/BHE2(J,1)-EHVKT(J)) +C 5G 1G + IF(WAVENO.LT.4388.260D0)GO TO 30 + X=FREQ3/3125. + A=X* 9.*EXP(-193922.5D0*HCKT(J))*(BHE1(J,28)-BHE2(J,1)*EHVKT(J)) + H=H+A + S=S+A*BNU(J)*STIM(J)/(BHE1(J,28)/BHE2(J,1)-EHVKT(J)) +C 5G 3G + IF(WAVENO.LT.4388.260D0)GO TO 30 + X=FREQ3/3125. + A=X*27.*EXP(-193922.5D0*HCKT(J))*(BHE1(J,27)-BHE2(J,1)*EHVKT(J)) + H=H+A + S=S+A*BNU(J)*STIM(J)/(BHE1(J,27)/BHE2(J,1)-EHVKT(J)) +C 5F 1F + IF(WAVENO.LT.4389.390D0)GO TO 30 + X=FREQ3/3125. + A=X* 7.*EXP(-193921.37D0*HCKT(J))*(BHE1(J,26)-BHE2(J,1)*EHVKT(J)) + H=H+A + S=S+A*BNU(J)*STIM(J)/(BHE1(J,26)/BHE2(J,1)-EHVKT(J)) +C 5F 3F + IF(WAVENO.LT.4389.450D0)GO TO 30 + X=FREQ3/3125. + A=X*15.*EXP(-193921.31D0*HCKT(J))*(BHE1(J,25)-BHE2(J,1)*EHVKT(J)) + H=H+A + S=S+A*BNU(J)*STIM(J)/(BHE1(J,25)/BHE2(J,1)-EHVKT(J)) +C 5D 1D + IF(WAVENO.LT.4392.369D0)GO TO 30 + X=FREQ3/3125. + A=X* 5.*EXP(-193918.391D0*HCKT(J))*(BHE1(J,24)-BHE2(J,1)*EHVKT(J)) + H=H+A + S=S+A*BNU(J)*STIM(J)/(BHE1(J,24)/BHE2(J,1)-EHVKT(J)) +C 5D 3D + IF(WAVENO.LT.4393.515D0)GO TO 30 + X=FREQ3/3125. + A=X*15.*EXP(-193917.245D0*HCKT(J))*(BHE1(J,23)-BHE2(J,1)*EHVKT(J)) + H=H+A + S=S+A*BNU(J)*STIM(J)/(BHE1(J,23)/BHE2(J,1)-EHVKT(J)) +C 5P 3P + IF(WAVENO.LT.4509.980D0)GO TO 30 + X=FREQ3/3125. + A=X* 9.*EXP(-193800.78D0*HCKT(J))*(BHE1(J,22)-BHE2(J,1)*EHVKT(J)) + H=H+A + S=S+A*BNU(J)*STIM(J)/(BHE1(J,22)/BHE2(J,1)-EHVKT(J)) +C 5S 1S + IF(WAVENO.LT.4647.133D0)GO TO 30 + X=FREQ3/3125. + A=X* 1.*EXP(-193663.627D0*HCKT(J))*(BHE1(J,21)-BHE2(J,1)*EHVKT(J)) + H=H+A + S=S+A*BNU(J)*STIM(J)/(BHE1(J,21)/BHE2(J,1)-EHVKT(J)) +C 5S 3S + IF(WAVENO.LT.4963.671D0)GO TO 30 + X=FREQ3/3125. + A=X* 3.*EXP(-193347.089D0*HCKT(J))*(BHE1(J,20)-BHE2(J,1)*EHVKT(J)) + H=H+A + S=S+A*BNU(J)*STIM(J)/(BHE1(J,20)/BHE2(J,1)-EHVKT(J)) +C 4P 1P + IF(WAVENO.LT.6817.943D0)GO TO 30 + X=FREQ3/1024. + A=X* 3.*EXP(-191492.817D0*HCKT(J))*(BHE1(J,19)-BHE2(J,1)*EHVKT(J)) + H=H+A + S=S+A*BNU(J)*STIM(J)/(BHE1(J,19)/BHE2(J,1)-EHVKT(J)) +C 4F 1F + IF(WAVENO.LT.6858.680D0)GO TO 30 + X=FREQ3/1024. + A=X* 7.*EXP(-191452.08D0*HCKT(J))*(BHE1(J,18)-BHE2(J,1)*EHVKT(J)) + H=H+A + S=S+A*BNU(J)*STIM(J)/(BHE1(J,18)/BHE2(J,1)-EHVKT(J)) +C 4F 3F + IF(WAVENO.LT.6858.960D0)GO TO 30 + X=FREQ3/1024. + A=X*21.*EXP(-191451.80D0*HCKT(J))*(BHE1(J,17)-BHE2(J,1)*EHVKT(J)) + H=H+A + S=S+A*BNU(J)*STIM(J)/(BHE1(J,17)/BHE2(J,1)-EHVKT(J)) +C 4D 1D + IF(WAVENO.LT.6864.201D0)GO TO 30 + X=FREQ3/1024. + A=X* 5.*EXP(-191446.559D0*HCKT(J))*(BHE1(J,16)-BHE2(J,1)*EHVKT(J)) + H=H+A + S=S+A*BNU(J)*STIM(J)/(BHE1(J,16)/BHE2(J,1)-EHVKT(J)) +C 4D 3D + IF(WAVENO.LT.6866.172D0)GO TO 30 + X=FREQ3/1024. + A=X*15.*EXP(-191444.588D0*HCKT(J))*(BHE1(J,15)-BHE2(J,1)*EHVKT(J)) + H=H+A + S=S+A*BNU(J)*STIM(J)/(BHE1(J,15)/BHE2(J,1)-EHVKT(J)) +C 4P 3P + IF(WAVENO.LT.7093.620D0)GO TO 30 + X=FREQ3/1024. + A=X* 9.*EXP(-191217.14D0*HCKT(J))*(BHE1(J,14)-BHE2(J,1)*EHVKT(J)) + H=H+A + S=S+A*BNU(J)*STIM(J)/(BHE1(J,14)/BHE2(J,1)-EHVKT(J)) +C 4S 1S + IF(WAVENO.LT.7370.429D0)GO TO 30 + X=FREQ3/1024. + A=X* 1.*EXP(-190940.331D0*HCKT(J))*(BHE1(J,13)-BHE2(J,1)*EHVKT(J)) + H=H+A + S=S+A*BNU(J)*STIM(J)/(BHE1(J,13)/BHE2(J,1)-EHVKT(J)) +C 4S 3S + IF(WAVENO.LT.8012.550D0)GO TO 30 + X=FREQ3/1024. + A=X* 3.*EXP(-190298.210D0*HCKT(J))*(BHE1(J,12)-BHE2(J,1)*EHVKT(J)) + H=H+A + S=S+A*BNU(J)*STIM(J)/(BHE1(J,12)/BHE2(J,1)-EHVKT(J)) +C 3P 1P + IF(WAVENO.LT.12101.289D0)GO TO 30 + X=EXP(58.81D0-2.89D0*FREQLG) + A=X* 3.*EXP(-186209.471D0*HCKT(J))*(BHE1(J,11)-BHE2(J,1)*EHVKT(J)) + H=H+A + S=S+A*BNU(J)*STIM(J)/(BHE1(J,11)/BHE2(J,1)-EHVKT(J)) +C 3D 1D + IF(WAVENO.LT.12205.695D0)GO TO 30 + X=EXP(85.20D0-3.69D0*FREQLG) + A=X* 5.*EXP(-186105.065D0*HCKT(J))*(BHE1(J,10)-BHE2(J,1)*EHVKT(J)) + H=H+A + S=S+A*BNU(J)*STIM(J)/(BHE1(J,10)/BHE2(J,1)-EHVKT(J)) +C 3D 3D + IF(WAVENO.LT.12209.106D0)GO TO 30 + X=EXP(85.20D0-3.69D0*FREQLG) + A=X*15.*EXP(-186101.654D0*HCKT(J))*(BHE1(J, 9)-BHE2(J,1)*EHVKT(J)) + H=H+A + S=S+A*BNU(J)*STIM(J)/(BHE1(J,9)/BHE2(J,1)-EHVKT(J)) +C 3P 3P + IF(WAVENO.LT.12746.066D0)GO TO 30 + X=EXP(49.30D0-2.60D0*FREQLG) + A=X* 9.*EXP(-185564.694D0*HCKT(J))*(BHE1(J, 8)-BHE2(J,1)*EHVKT(J)) + H=H+A + S=S+A*BNU(J)*STIM(J)/(BHE1(J,8)/BHE2(J,1)-EHVKT(J)) +C 3S 1S + IF(WAVENO.LT.13445.824D0)GO TO 30 + X=EXP(23.85D0-1.86D0*FREQLG) + A=X* 1.*EXP(-184864.936D0*HCKT(J))*(BHE1(J, 7)-BHE2(J,1)*EHVKT(J)) + H=H+A + S=S+A*BNU(J)*STIM(J)/(BHE1(J,7)/BHE2(J,1)-EHVKT(J)) +C 3S 3S + IF(WAVENO.LT.15073.868D0)GO TO 30 + X=EXP(12.69D0-1.54D0*FREQLG) + A=X* 3.*EXP(-183236.892D0*HCKT(J))*(BHE1(J, 6)-BHE2(J,1)*EHVKT(J)) + H=H+A + S=S+A*BNU(J)*STIM(J)/(BHE1(J,6)/BHE2(J,1)-EHVKT(J)) +C 2P 1P + IF(WAVENO.LT.27175.760D0)GO TO 30 + X=EXP(81.35D0-3.5D0*FREQLG) + A=X* 3.*EXP(-171135.000D0*HCKT(J))*(BHE1(J, 5)-BHE2(J,1)*EHVKT(J)) + H=H+A + S=S+A*BNU(J)*STIM(J)/(BHE1(J,5)/BHE2(J,1)-EHVKT(J)) +C 2P 3P + IF(WAVENO.LT.29223.753D0)GO TO 30 + X=EXP(61.21D0-2.9D0*FREQLG) + A=X* 9.*EXP(-169087.007D0*HCKT(J))*(BHE1(J, 4)-BHE2(J,1)*EHVKT(J)) + H=H+A + S=S+A*BNU(J)*STIM(J)/(BHE1(J,4)/BHE2(J,1)-EHVKT(J)) +C 2S 1S + IF(WAVENO.LT.32033.214D0)GO TO 30 + X=EXP(26.83D0-1.91D0*FREQLG) + A=X* 1.*EXP(-166277.546D0*HCKT(J))*(BHE1(J, 3)-BHE2(J,1)*EHVKT(J)) + H=H+A + S=S+A*BNU(J)*STIM(J)/(BHE1(J,3)/BHE2(J,1)-EHVKT(J)) +C 2S 3S + IF(WAVENO.LT.38454.691D0)GO TO 30 + X=EXP(-390.026D0+(21.035D0-.318D0*FREQLG)*FREQLG) + A=X* 3.*EXP(-159856.069D0*HCKT(J))*(BHE1(J, 2)-BHE2(J,1)*EHVKT(J)) + H=H+A + S=S+A*BNU(J)*STIM(J)/(BHE1(J,2)/BHE2(J,1)-EHVKT(J)) +C 1S 1S + IF(WAVENO.LT.198310.760D0)GO TO 30 + X=EXP(33.32-2.*FREQLG) + A=X* 1.*1. *(BHE1(J, 1)-BHE2(J,1)*EHVKT(J)) + H=H+A + S=S+A*BNU(J)*STIM(J)/(BHE1(J,1)/BHE2(J,1)-EHVKT(J)) + 30 H=H*XNFPHE(J,1)/RHO(J) + S=S*XNFPHE(J,1)/RHO(J) +C FREE-FREE + A=3.619D8/SQRT(T(J))*COULFF(J,1)/FREQ*XNE(J)/FREQ* + 1XNFHE(J,2)/FREQ*STIM(J)/RHO(J) + H=H+A + S=S+A*BNU(J) + AHE1(J)=H + SHE1(J)=BNU(J) + IF(H.GT.0.)SHE1(J)=S/H + 100 CONTINUE +C 100 SHE1(J)=S/H + RETURN + END + SUBROUTINE HE2OP + IMPLICIT REAL*8 (A-H,O-Z) + PARAMETER (kw=99) +C REQUIRES FUNCTION COULFF + COMMON /BHE/BHE1(kw,29),AHE1(kw),SHE1(kw),BHE2(kw,6),AHE2(kw), + 1 SHE2(kw),AHEMIN(kw),SIGHE(kw),XNFPHE(kw,3),XNFHE(kw,2) + COMMON /FREQ/FREQ,FREQLG,EHVKT(kw),STIM(kw),BNU(kw),WAVENO + COMMON /RHOX/RHOX(kw),NRHOX + COMMON /STATE/P(kw),XNE(kw),XNATOM(kw),RHO(kw),PTOTAL(kw) + COMMON /TEMP/T(kw),TKEV(kw),TK(kw),HKT(kw),TLOG(kw),HCKT(kw),ITEMP + FREQ3=2.815E29/FREQ/FREQ/FREQ + DO 100 J=1,NRHOX +C LIMIT 438908.85 4*RYDBERG 438889.068 +C N=10 TO INFINITY + XNFPRHO=XNFPHE(J,2)/RHO(J) + H=FREQ3*16. *2./2./(438889.068D0*HCKT(J))* + 1(EXP(-MAX(434519.959D0,438908.85D0-WAVENO)*HCKT(J))- + 2EXP(-438908.85D0*HCKT(J)))*STIM(J)*XNFPRHO + S=H*BNU(J) +C N=9 + IF(WAVENO.LT.5418.390D0)GO TO 30 + X=FREQ3/59049.*16. + A=X*162.*EXP(-433490.46D0*HCKT(J))*STIM(J)*XNFPRHO + H=H+A + S=S+A*BNU(J) +C N=8 + IF(WAVENO.LT.6857.660D0)GO TO 30 + X=FREQ3*16./32768. +C A=X*128.*EXP(-433490.46D0*HCKT(J))*STIM(J)*XNFPRHO + A=X*128.*EXP(-432051.19D0*HCKT(J))*STIM(J)*XNFPRHO + H=H+A + S=S+A*BNU(J) +C N=7 + IF(WAVENO.LT.8956.950D0)GO TO 30 + X=FREQ3*16./16807. + A=X*98.*EXP(-429951.90D0*HCKT(J))*STIM(J)*XNFPRHO + H=H+A + S=S+A*BNU(J) +C N=6 + IF(WAVENO.LT.12191.437D0)GO TO 30 + X=FREQ3*16./7776.*(1.0986D0+(-2.704D13+1.229D27/FREQ)/FREQ) + A=X*72.*EXP(-426717.413D0*HCKT(J))*(BHE2(J,6)-EHVKT(J))*XNFPRHO + H=H+A + S=S+A*BNU(J)*STIM(J)/(BHE2(J,6)-EHVKT(J)) +C N=5 + IF(WAVENO.LT.17555.715D0)GO TO 30 + X=FREQ3*16./3125.*(1.102D0+(-3.909D13+2.371D27/FREQ)/FREQ) + A=X*50.*EXP(-421353.135D0*HCKT(J))*(BHE2(J,5)-EHVKT(J))*XNFPRHO + H=H+A + S=S+A*BNU(J)*STIM(J)/(BHE2(J,5)-EHVKT(J)) +C N=4 + IF(WAVENO.LT.27430.925D0)GO TO 30 + X=FREQ3*16./1024.*(1.101D0+(-5.765D13+4.593D27/FREQ)/FREQ) + A=X*32.*EXP(-411477.925D0*HCKT(J))*(BHE2(J,4)-EHVKT(J))*XNFPRHO + H=H+A + S=S+A*BNU(J)*STIM(J)/(BHE2(J,4)-EHVKT(J)) +C N=3 + IF(WAVENO.LT.48766.491D0)GO TO 30 +CTYPO X=FREQ3*16./343.*(1.101D0+(-9.863D13+1.035D28/FREQ)/FREQ) + X=FREQ3*16./243.*(1.101D0+(-9.863D13+1.035D28/FREQ)/FREQ) + A=X*18.*EXP(-390142.359D0*HCKT(J))*(BHE2(J,3)-EHVKT(J))*XNFPRHO + H=H+A + S=S+A*BNU(J)*STIM(J)/(BHE2(J,3)-EHVKT(J)) +C N=2 + IF(WAVENO.LT.109726.529D0)GO TO 30 + X=FREQ3*16./32.*(1.105D0+(-2.375D14+4.077D28/FREQ)/FREQ) + A=X* 8.*EXP(-329182.321D0*HCKT(J))*(BHE2(J,2)-EHVKT(J))*XNFPRHO + H=H+A + S=S+A*BNU(J)*STIM(J)/(BHE2(J,2)-EHVKT(J)) +C N=1 + IF(WAVENO.LT.438908.850D0)GO TO 30 + X=FREQ3*16./1.*(.9916D0+(2.719D13-2.268D30/FREQ)/FREQ) + A=X* 2.*1. *(BHE2(J,1)-EHVKT(J))*XNFPRHO + H=H+A + S=S+A*BNU(J)*STIM(J)/(BHE2(J,1)-EHVKT(J)) +C +C FREE-FREE +C 30 A=3.6919D8/SQRT(T(J))*COULFF(J,2)/FREQ*XNE(J)/FREQ* + 30 A=3.6919D8*4./SQRT(T(J))*COULFF(J,2)/FREQ*XNE(J)/FREQ* + 1XNFPHE(J,3)/FREQ*STIM(J)/RHO(J) + H=H+A + S=S+A*BNU(J) + AHE2(J)=H + SHE2(J)=BNU(J) + IF(H.GT.0.)SHE2(J)=S/H + 100 CONTINUE +C 100 SHE2(J)=S/H + RETURN + END + SUBROUTINE HEMIOP + IMPLICIT REAL*8 (A-H,O-Z) + PARAMETER (kw=99) + COMMON /BHE/BHE1(kw,29),AHE1(kw),SHE1(kw),BHE2(kw,6),AHE2(kw), + 1 SHE2(kw),AHEMIN(kw),SIGHE(kw),XNFPHE(kw,3),XNFHE(kw,2) + COMMON /FREQ/FREQ,FREQLG,EHVKT(kw),STIM(kw),BNU(kw),WAVENO + COMMON /RHOX/RHOX(kw),NRHOX + COMMON /STATE/P(kw),XNE(kw),XNATOM(kw),RHO(kw),PTOTAL(kw) + COMMON /TEMP/T(kw),TKEV(kw),TK(kw),HKT(kw),TLOG(kw),HCKT(kw),ITEMP +C A=3.397D-46+(-5.216D-31+7.039D-15/FREQ)/FREQ +C B=-4.116D-42+(1.067D-26+8.135D-11/FREQ)/FREQ +C C=5.081D-37+(-8.724D-23-5.659D-8/FREQ)/FREQ +C DO 3 J=1,NRHOX +C 3 AHEMIN(J)=(A*T(J)+B+C/T(J))*XNE(J)*XNFHE(J,1)/RHO(J) + A=3.397D-01+(-5.216D+14+7.039D+30/FREQ)/FREQ + B=-4.116D+03+(1.067D+19+8.135D+34/FREQ)/FREQ + C=5.081D+08+(-8.724D+22-5.659D+37/FREQ)/FREQ + DO 3 J=1,NRHOX + 3 AHEMIN(J)=(A*T(J)+B+C/T(J))/1.D15*XNE(J)/1.D15* + 1XNFPHE(J,1)/1.D15/RHO(J) +C 1XNFHE(J,1)/1.D15/RHO(J) +C APPROXIMATE XNFHE BY XNFPHE*PF AND PF=1 + RETURN + END + SUBROUTINE HERAOP + IMPLICIT REAL*8 (A-H,O-Z) + PARAMETER (kw=99) + COMMON /BHE/BHE1(kw,29),AHE1(kw),SHE1(kw),BHE2(kw,6),AHE2(kw), + 1 SHE2(kw),AHEMIN(kw),SIGHE(kw),XNFPHE(kw,3),XNFHE(kw,2) + COMMON /FREQ/FREQ,FREQLG,EHVKT(kw),STIM(kw),BNU(kw),WAVENO + COMMON /RHOX/RHOX(kw),NRHOX + COMMON /STATE/P(kw),XNE(kw),XNATOM(kw),RHO(kw),PTOTAL(kw) + WAVE=2.99792458D18/ MIN (FREQ,5.15D15) + WW=WAVE**2 + SIG=5.484D-14/WW/WW*(1.+(2.44D5+5.94D10/(WW-2.90D5))/WW)**2 + DO 2 J=1,NRHOX + 2 SIGHE(J)=SIG*XNFPHE(J,1)/RHO(J)*BHE1(J,1) + RETURN + END + SUBROUTINE COOLOP + IMPLICIT REAL*8 (A-H,O-Z) + PARAMETER (kw=99) +C SI1,MG1,AL1,C1,FE1,CH,OH,H2COLL + COMMON /BAL/BAL1(kw,9),AAL1(kw),SAL1(kw),XNFPAL(kw,2),BAL2(kw,1) + COMMON /BC/BC1(kw,14),AC1(kw),SC1(kw),XNFPC(kw,2),BC2(kw,6) + COMMON /BFE/BFE1(kw,15),AFE1(kw),SFE1(kw),XNFPFE(kw,1) + COMMON /BMG/BMG1(kw,11),AMG1(kw),SMG1(kw),XNFPMG(kw,2),BMG2(kw,6) + COMMON /BSI/BSI1(kw,11),ASI1(kw),SSI1(kw),XNFPSI(kw,2),BSI2(kw,10) + COMMON /CHOH/XNFPCH(kw),XNFPOH(kw) + COMMON /OPS/ACOOL(kw),ALUKE(kw),AHOT(kw),SIGEL(kw),ALINES(kw), + 1 SIGLIN(kw),AXLINE(kw),SIGXL(kw),AXCONT(kw),SIGX(kw), + 2 SXLINE(kw),SXCONT(kw) + COMMON /RHOX/RHOX(kw),NRHOX + REAL*8 AH2COLL(kw) + CALL C1OP + CALL MG1OP + CALL AL1OP + CALL SI1OP + CALL FE1OP + CALL H2COLLOP(AH2COLL) + DO 100 J=1,NRHOX + 100 ACOOL(J)=AC1(J)+AMG1(J)+AAL1(J)+ASI1(J)+AFE1(J)+ + 1CHOP(J)*XNFPCH(J)+OHOP(J)*XNFPOH(J)+AH2COLL(J) + RETURN + END + SUBROUTINE C1OP + IMPLICIT REAL*8 (A-H,O-Z) + PARAMETER (kw=99) + COMMON /BC/BC1(kw,14),AC1(kw),SC1(kw),XNFPC(kw,2),BC2(kw,6) + COMMON /FREQ/FREQ,FREQLG,EHVKT(kw),STIM(kw),BNU(kw),WAVENO + COMMON /RHOX/RHOX(kw),NRHOX + COMMON /STATE/P(kw),XNE(kw),XNATOM(kw),RHO(kw),PTOTAL(kw) + COMMON /TEMP/T(kw),TKEV(kw),TK(kw),HKT(kw),TLOG(kw),HCKT(kw),ITEMP + RYD=109732.298D0 + DO 100 J=1,NRHOX +C LIMIT 2P 90862.70 +C UPPER LEVELS TO INFINITY + H=1.D-30 + S=0. +C PP 1S 13 + IF(WAVENO.LT.16886.790D0)GO TO 30 + X=0. + A=X* 1.*EXP(-73975.91D0 *HCKT(J))*(BC1(J,13)-BC2(J,1)*EHVKT(J)) + H=H+A + S=S+A*BNU(J)*STIM(J)/(BC1(J,13)/BC2(J,1)-EHVKT(J)) +C PP 1D 12 + IF(WAVENO.LT.18251.980D0)GO TO 30 + X=0. + A=X* 5.*EXP(-72610.72D0 *HCKT(J))*(BC1(J,12)-BC2(J,1)*EHVKT(J)) + H=H+A + S=S+A*BNU(J)*STIM(J)/(BC1(J,12)/BC2(J,1)-EHVKT(J)) +C PP 3P 11 + IF(WAVENO.LT.19487.800D0)GO TO 30 + X=0. + A=X* 9.*EXP(-71374.90D0 *HCKT(J))*(BC1(J,11)-BC2(J,1)*EHVKT(J)) + H=H+A + S=S+A*BNU(J)*STIM(J)/(BC1(J,11)/BC2(J,1)-EHVKT(J)) +C PP 3S 10 + IF(WAVENO.LT.20118.750D0)GO TO 30 + X=0. + A=X* 3.*EXP(-70743.95D0 *HCKT(J))*(BC1(J,10)-BC2(J,1)*EHVKT(J)) + H=H+A + S=S+A*BNU(J)*STIM(J)/(BC1(J,10)/BC2(J,1)-EHVKT(J)) +C PP 3D 9 + IF(WAVENO.LT.21140.700D0)GO TO 30 + X=0. + A=X*15.*EXP(-69722.00D0 *HCKT(J))*(BC1(J, 9)-BC2(J,1)*EHVKT(J)) + H=H+A + S=S+A*BNU(J)*STIM(J)/(BC1(J,9)/BC2(J,1)-EHVKT(J)) +C PP 1P 8 + IF(WAVENO.LT.22006.370D0)GO TO 30 + X=2.1D-18*(22006.370D0/WAVENO)**1.5 + A=X* 3.*EXP(-68856.33D0 *HCKT(J))*(BC1(J, 8)-BC2(J,1)*EHVKT(J)) + H=H+A + S=S+A*BNU(J)*STIM(J)/(BC1(J,8)/BC2(J,1)-EHVKT(J)) +C PS 1P 6 + IF(WAVENO.LT.28880.880D0)GO TO 30 + X=1.54D-18*(28880.880D0/WAVENO)**1.2 + A=X* 3.*EXP(-61981.82D0 *HCKT(J))*(BC1(J, 6)-BC2(J,1)*EHVKT(J)) + H=H+A + S=S+A*BNU(J)*STIM(J)/(BC1(J,6)/BC2(J,1)-EHVKT(J)) +C PS 3P 5 + IF(WAVENO.LT.30489.700D0)GO TO 30 + X=0.2D-18*(30489.700D0/WAVENO)**1.2 + A=X* 9.*EXP(-60373.00D0 *HCKT(J))*(BC1(J, 5)-BC2(J,1)*EHVKT(J)) + H=H+A + S=S+A*BNU(J)*STIM(J)/(BC1(J,5)/BC2(J,1)-EHVKT(J)) +C P3 3P 14 +C LIMIT 4P 133856.20 + IF(WAVENO.LT.58601.270D0)GO TO 30 + X=0. + A=X* 9.*EXP(-75254.93D0 *HCKT(J))*(BC1(J,14)-BC2(J,1)*EHVKT(J)) + H=H+A + S=S+A*BNU(J)*STIM(J)/(BC1(J,14)/BC2(J,1)-EHVKT(J)) +C P2 1S 3 +C LIMIT 2P0.5 90820.42 + IF(WAVENO.LT.69172.400D0)GO TO 30 +C Fit to Luo, D. and Pradhan, A.K. 1989, J.Phys. B, 22, 3377-3395. + X=10.**(-16.80D0-(WAVENO-69172.400D0)/3./RYD) + EPS=(WAVENO-97700.D0)*2./2743. + A=68.D-18 + B=118.D-18 +C Fit to Burke, P.G. and Taylor, K.T. 1979, J. Phys. B, 12, 2971-2984. + X=X+(A*EPS+B)/(EPS**2+1.) +C X=33.6D-18*(69172.400D0/WAVENO)**1.5- +C 1 24.0D-18*(69172.400D0/WAVENO)**2.5 + X=X/3. + A=X* 1.*EXP(-21648.02D0 *HCKT(J))*(BC1(J, 3)-BC2(J,1)*EHVKT(J)) + H=H+A + S=S+A*BNU(J)*STIM(J)/(BC1(J,3)/BC2(J,1)-EHVKT(J)) +C LIMIT 2P1.5 90883.84 + IF(WAVENO.LT.69235.820D0)GO TO 30 + A=A*2. + H=H+A + S=S+A*BNU(J)*STIM(J)/(BC1(J,3)/BC2(J,1)-EHVKT(J)) +C P3 3D 7 +C LIMIT 4P 133856.20 + IF(WAVENO.LT.69767.350D0)GO TO 30 + X=16.D-18*(69767.350D0/WAVENO)**3 + A=X*15.*EXP(-64088.85D0 *HCKT(J))*(BC1(J, 7)-BC2(J,1)*EHVKT(J)) + H=H+A + S=S+A*BNU(J)*STIM(J)/(BC1(J,7)/BC2(J,1)-EHVKT(J)) +C P2 1D 2 +C LIMIT 2P0.5 90820.42 + IF(WAVENO.LT.80627.760D0)GO TO 30 +C Fit to Luo, D. and Pradhan, A.K. 1989, J.Phys. B, 22, 3377-3395. + X=10.**(-16.80D0-(WAVENO-80627.760D0)/3./RYD) +C Fit to Burke, P.G. and Taylor, K.T. 1979, J. Phys. B, 12, 2971-2984. + EPS=(WAVENO-93917.D0)*2./9230. + A=22.D-18 + B=26.D-18 + X=X+(A*EPS+B)/(EPS**2+1.) +C Fit to Burke, P.G. and Taylor, K.T. 1979, J. Phys. B, 12, 2971-2984. + EPS=(WAVENO-111130.D0)*2./2743. + A=-10.5D-18 + B=46.D-18 + X=X+(A*EPS+B)/(EPS**2+1.) +C X=28.7D-18*(80627.760D0/WAVENO)**1.5- +C 1 18.4D-18*(80627.760D0/WAVENO)**2.5 + X=X/3. + A=X* 5.*EXP(-10192.66D0 *HCKT(J))*(BC1(J, 2)-BC2(J,1)*EHVKT(J)) + H=H+A + S=S+A*BNU(J)*STIM(J)/(BC1(J,2)/BC2(J,1)-EHVKT(J)) +C LIMIT 2P0.5 90820.42 + IF(WAVENO.LT.80691.180D0)GO TO 30 + A=A*2. + H=H+A + S=S+A*BNU(J)*STIM(J)/(BC1(J,2)/BC2(J,1)-EHVKT(J)) +C P2 3P 1 +C LIMIT 2P0.5 90820.42 + IF(WAVENO.LT.90777.000D0)GO TO 30 +C Fit to Luo, D. and Pradhan, A.K. 1989, J.Phys. B, 22, 3377-3395. + X=10.**(-16.80D0-(WAVENO-90777.000D0)/3./RYD) +C X=38.6D-18*(90777.000D0/WAVENO)**2- +C 1 28.2D-18*(90777.000D0/WAVENO)**3 + X=X/3. + A=X* 5.*EXP(- 43.42D0 *HCKT(J))*(BC1(J, 1)-BC2(J,1)*EHVKT(J)) + H=H+A + S=S+A*BNU(J)*STIM(J)/(BC1(J,1)/BC2(J,1)-EHVKT(J)) +C LIMIT 2P0.5 90820.42 + IF(WAVENO.LT.90804.000D0)GO TO 30 + A=X* 3.*EXP(- 16.42D0 *HCKT(J))*(BC1(J, 1)-BC2(J,1)*EHVKT(J)) + H=H+A + S=S+A*BNU(J)*STIM(J)/(BC1(J,1)/BC2(J,1)-EHVKT(J)) +C LIMIT 2P0.5 90820.42 + IF(WAVENO.LT.90820.420D0)GO TO 30 + A=X* 1.*1. *(BC1(J, 1)-BC2(J,1)*EHVKT(J)) + H=H+A + S=S+A*BNU(J)*STIM(J)/(BC1(J,1)/BC2(J,1)-EHVKT(J)) +C LIMIT 2P1.5 90883.84 + IF(WAVENO.LT.90840.420D0)GO TO 30 + X=X*2. + A=X* 5.*EXP(- 43.42D0 *HCKT(J))*(BC1(J, 1)-BC2(J,1)*EHVKT(J)) + H=H+A + S=S+A*BNU(J)*STIM(J)/(BC1(J,1)/BC2(J,1)-EHVKT(J)) +C LIMIT 2P1.5 90883.84 + IF(WAVENO.LT.90867.420D0)GO TO 30 + A=X* 3.*EXP(- 16.42D0 *HCKT(J))*(BC1(J, 1)-BC2(J,1)*EHVKT(J)) + H=H+A + S=S+A*BNU(J)*STIM(J)/(BC1(J,1)/BC2(J,1)-EHVKT(J)) +C LIMIT 2P1.5 90883.84 + IF(WAVENO.LT.90883.840D0)GO TO 30 + A=X* 1.*1. *(BC1(J, 1)-BC2(J,1)*EHVKT(J)) + H=H+A + S=S+A*BNU(J)*STIM(J)/(BC1(J,1)/BC2(J,1)-EHVKT(J)) +C P3 5S 4 +C LIMIT 4P 133856.20 + IF(WAVENO.LT.100121.000D0)GO TO 30 + X=1.D-18*(100121.000D0/WAVENO)**3 + A=X* 5.*EXP(-33735.20D0 *HCKT(J))*(BC1(J, 4)-BC2(J,1)*EHVKT(J)) + H=H+A + S=S+A*BNU(J)*STIM(J)/(BC1(J,4)/BC2(J,1)-EHVKT(J)) +C + 30 H=H*XNFPC(J,1)/RHO(J) + S=S*XNFPC(J,1)/RHO(J) + AC1(J)=H + IF(H.GT.0.)SC1(J)=S/H + 100 CONTINUE + RETURN + END +C SUBROUTINE C1OP +C IMPLICIT REAL*8 (A-H,O-Z) +C PARAMETER (kw=99) +C COMMON /BC/BC1(kw,14),AC1(kw),SC1(kw),XNFPC(kw,2),BC2(kw,6) +C COMMON /FREQ/FREQ,FREQLG,EHVKT(kw),STIM(kw),BNU(kw),WAVENO +C COMMON /RHOX/RHOX(kw),NRHOX +C COMMON /STATE/P(kw),XNE(kw),XNATOM(kw),RHO(kw),PTOTAL(kw) +C COMMON /TEMP/T(kw),TKEV(kw),TK(kw),HKT(kw),TLOG(kw),HCKT(kw),ITEMP +C DO 100 J=1,NRHOX +CC LIMIT 2P 90862.70 +CC UPPER LEVELS TO INFINITY +C H=1.E-30 +C S=0. +CC PP 1S 13 +C IF(WAVENO.LT.16886.790)GO TO 30 +C X=0. +C A=X* 1.*EXP(-73975.91 *HCKT(J))*(BC1(J,13)-BC2(J,1)*EHVKT(J)) +C H=H+A +C S=S+A*BNU(J)*STIM(J)/(BC1(J,13)/BC2(J,1)-EHVKT(J)) +CC PP 1D 12 +C IF(WAVENO.LT.18251.980)GO TO 30 +C X=0. +C A=X* 5.*EXP(-72610.72 *HCKT(J))*(BC1(J,12)-BC2(J,1)*EHVKT(J)) +C H=H+A +C S=S+A*BNU(J)*STIM(J)/(BC1(J,12)/BC2(J,1)-EHVKT(J)) +CC PP 3P 11 +C IF(WAVENO.LT.19487.800)GO TO 30 +C X=0. +C A=X* 9.*EXP(-71374.90 *HCKT(J))*(BC1(J,11)-BC2(J,1)*EHVKT(J)) +C H=H+A +C S=S+A*BNU(J)*STIM(J)/(BC1(J,11)/BC2(J,1)-EHVKT(J)) +CC PP 3S 10 +C IF(WAVENO.LT.20118.750)GO TO 30 +C X=0. +C A=X* 3.*EXP(-70743.95 *HCKT(J))*(BC1(J,10)-BC2(J,1)*EHVKT(J)) +C H=H+A +C S=S+A*BNU(J)*STIM(J)/(BC1(J,10)/BC2(J,1)-EHVKT(J)) +CC PP 3D 9 +C IF(WAVENO.LT.21140.700)GO TO 30 +C X=0. +C A=X*15.*EXP(-69722.00 *HCKT(J))*(BC1(J, 9)-BC2(J,1)*EHVKT(J)) +C H=H+A +C S=S+A*BNU(J)*STIM(J)/(BC1(J,9)/BC2(J,1)-EHVKT(J)) +CC PP 1P 8 +C IF(WAVENO.LT.22006.370)GO TO 30 +C X=2.1E-18*(22006.370/WAVENO)**1.5 +C A=X* 3.*EXP(-68856.33 *HCKT(J))*(BC1(J, 8)-BC2(J,1)*EHVKT(J)) +C H=H+A +C S=S+A*BNU(J)*STIM(J)/(BC1(J,8)/BC2(J,1)-EHVKT(J)) +CC PS 1P 6 +C IF(WAVENO.LT.28880.880)GO TO 30 +C X=1.54E-18*(28880.880/WAVENO)**1.2 +C A=X* 3.*EXP(-61981.82 *HCKT(J))*(BC1(J, 6)-BC2(J,1)*EHVKT(J)) +C H=H+A +C S=S+A*BNU(J)*STIM(J)/(BC1(J,6)/BC2(J,1)-EHVKT(J)) +CC PS 3P 5 +C IF(WAVENO.LT.30489.700)GO TO 30 +C X=0.2E-18*(30489.700/WAVENO)**1.2 +C A=X* 9.*EXP(-60373.00 *HCKT(J))*(BC1(J, 5)-BC2(J,1)*EHVKT(J)) +C H=H+A +C S=S+A*BNU(J)*STIM(J)/(BC1(J,5)/BC2(J,1)-EHVKT(J)) +CC P3 3P 14 +CC LIMIT 4P 133856.20 +C IF(WAVENO.LT.58601.270)GO TO 30 +C X=0. +C A=X* 9.*EXP(-75254.93 *HCKT(J))*(BC1(J,14)-BC2(J,1)*EHVKT(J)) +C H=H+A +C S=S+A*BNU(J)*STIM(J)/(BC1(J,14)/BC2(J,1)-EHVKT(J)) +CC P2 1S 3 +CC LIMIT 2P0.5 90820.42 +C IF(WAVENO.LT.69172.400)GO TO 30 +C X=33.6E-18*(69172.400/WAVENO)**1.5- +C 1 24.0E-18*(69172.400/WAVENO)**2.5 +C X=X/3. +C A=X* 1.*EXP(-21648.02 *HCKT(J))*(BC1(J, 3)-BC2(J,1)*EHVKT(J)) +C H=H+A +C S=S+A*BNU(J)*STIM(J)/(BC1(J,3)/BC2(J,1)-EHVKT(J)) +CC LIMIT 2P1.5 90883.84 +C IF(WAVENO.LT.69235.820)GO TO 30 +C A=A*2. +C H=H+A +C S=S+A*BNU(J)*STIM(J)/(BC1(J,3)/BC2(J,1)-EHVKT(J)) +CC P3 3D 7 +CC LIMIT 4P 133856.20 +C IF(WAVENO.LT.69767.350)GO TO 30 +C X=16.E-18*(69767.350/WAVENO)**3 +C A=X*15.*EXP(-64088.85 *HCKT(J))*(BC1(J, 7)-BC2(J,1)*EHVKT(J)) +C H=H+A +C S=S+A*BNU(J)*STIM(J)/(BC1(J,7)/BC2(J,1)-EHVKT(J)) +CC P2 1D 2 +CC LIMIT 2P0.5 90820.42 +C IF(WAVENO.LT.80627.760)GO TO 30 +C X=28.7E-18*(80627.760/WAVENO)**1.5- +C 1 18.4E-18*(80627.760/WAVENO)**2.5 +C X=X/3. +C A=X* 5.*EXP(-10192.66 *HCKT(J))*(BC1(J, 2)-BC2(J,1)*EHVKT(J)) +C H=H+A +C S=S+A*BNU(J)*STIM(J)/(BC1(J,2)/BC2(J,1)-EHVKT(J)) +CC LIMIT 2P0.5 90820.42 +C IF(WAVENO.LT.80691.180)GO TO 30 +C A=A*2. +C H=H+A +C S=S+A*BNU(J)*STIM(J)/(BC1(J,2)/BC2(J,1)-EHVKT(J)) +CC P2 3P 1 +CC LIMIT 2P0.5 90820.42 +C IF(WAVENO.LT.90777.000)GO TO 30 +C X=38.6E-18*(90777.000/WAVENO)**2- +C 1 28.2E-18*(90777.000/WAVENO)**3 +C X=X/3. +C A=X* 5.*EXP(- 43.42 *HCKT(J))*(BC1(J, 1)-BC2(J,1)*EHVKT(J)) +C H=H+A +C S=S+A*BNU(J)*STIM(J)/(BC1(J,1)/BC2(J,1)-EHVKT(J)) +CC LIMIT 2P0.5 90820.42 +C IF(WAVENO.LT.90804.000)GO TO 30 +C A=X* 3.*EXP(- 16.42 *HCKT(J))*(BC1(J, 1)-BC2(J,1)*EHVKT(J)) +C H=H+A +C S=S+A*BNU(J)*STIM(J)/(BC1(J,1)/BC2(J,1)-EHVKT(J)) +CC LIMIT 2P0.5 90820.42 +C IF(WAVENO.LT.90820.420)GO TO 30 +C A=X* 1.*1. *(BC1(J, 1)-BC2(J,1)*EHVKT(J)) +C H=H+A +C S=S+A*BNU(J)*STIM(J)/(BC1(J,1)/BC2(J,1)-EHVKT(J)) +CC LIMIT 2P1.5 90883.84 +C IF(WAVENO.LT.90840.420)GO TO 30 +C X=X*2. +C A=X* 5.*EXP(- 43.42 *HCKT(J))*(BC1(J, 1)-BC2(J,1)*EHVKT(J)) +C H=H+A +C S=S+A*BNU(J)*STIM(J)/(BC1(J,1)/BC2(J,1)-EHVKT(J)) +CC LIMIT 2P1.5 90883.84 +C IF(WAVENO.LT.90867.420)GO TO 30 +C A=X* 3.*EXP(- 16.42 *HCKT(J))*(BC1(J, 1)-BC2(J,1)*EHVKT(J)) +C H=H+A +C S=S+A*BNU(J)*STIM(J)/(BC1(J,1)/BC2(J,1)-EHVKT(J)) +CC LIMIT 2P1.5 90883.84 +C IF(WAVENO.LT.90883.840)GO TO 30 +C A=X* 1.*1. *(BC1(J, 1)-BC2(J,1)*EHVKT(J)) +C H=H+A +C S=S+A*BNU(J)*STIM(J)/(BC1(J,1)/BC2(J,1)-EHVKT(J)) +CC P3 5S 4 +CC LIMIT 4P 133856.20 +C IF(WAVENO.LT.100121.000)GO TO 30 +C X=1.E-18*(100121.000/WAVENO)**3 +C A=X* 5.*EXP(-33735.20 *HCKT(J))*(BC1(J, 4)-BC2(J,1)*EHVKT(J)) +C H=H+A +C S=S+A*BNU(J)*STIM(J)/(BC1(J,4)/BC2(J,1)-EHVKT(J)) +CC +C 30 H=H*XNFPC(J,1)/RHO(J) +C S=S*XNFPC(J,1)/RHO(J) +C AC1(J)=H +C IF(H.GT.0.)SC1(J)=S/H +C 100 CONTINUE +C RETURN +C END + SUBROUTINE MG1OP + IMPLICIT REAL*8 (A-H,O-Z) + PARAMETER (kw=99) + COMMON /BMG/BMG1(kw,11),AMG1(kw),SMG1(kw),XNFPMG(kw,2),BMG2(kw,6) + COMMON /FREQ/FREQ,FREQLG,EHVKT(kw),STIM(kw),BNU(kw),WAVENO + COMMON /RHOX/RHOX(kw),NRHOX + COMMON /STATE/P(kw),XNE(kw),XNATOM(kw),RHO(kw),PTOTAL(kw) + COMMON /TEMP/T(kw),TKEV(kw),TK(kw),HKT(kw),TLOG(kw),HCKT(kw),ITEMP + DO 100 J=1,NRHOX +C LIMIT 2S 61671.02 + H=1.D-30 + S=0. +C 3D 3D + IF(WAVENO.LT.13713.986D0)GO TO 30 + X=25.D-18*(13713.986D0/WAVENO)**2.7 + A=X*15.*EXP(-47957.034D0*HCKT(J))*(BMG1(J,8)-BMG2(J,1)*EHVKT(J)) + H=H+A + S=S+A*BNU(J)*STIM(J)/(BMG1(J,8)/BMG2(J,1)-EHVKT(J)) +C 4P 3P + IF(WAVENO.LT.13823.223D0)GO TO 30 + X=33.8D-18*(13823.223D0/WAVENO)**2.8 + A=X* 9.*EXP(-47847.797D0*HCKT(J))*(BMG1(J,7)-BMG2(J,1)*EHVKT(J)) + H=H+A + S=S+A*BNU(J)*STIM(J)/(BMG1(J,7)/BMG2(J,1)-EHVKT(J)) +C 3D 1D + IF(WAVENO.LT.15267.955D0)GO TO 30 + X=45.D-18*(15267.955D0/WAVENO)**2.7 + A=X* 5.*EXP(-46403.065D0*HCKT(J))*(BMG1(J,6)-BMG2(J,1)*EHVKT(J)) + H=H+A + S=S+A*BNU(J)*STIM(J)/(BMG1(J,6)/BMG2(J,1)-EHVKT(J)) +C 4S 1S + IF(WAVENO.LT.18167.687D0)GO TO 30 + X=.43D-18*(18167.687D0/WAVENO)**2.6 + A=X* 1.*EXP(-43503.333D0*HCKT(J))*(BMG1(J,5)-BMG2(J,1)*EHVKT(J)) + H=H+A + S=S+A*BNU(J)*STIM(J)/(BMG1(J,5)/BMG2(J,1)-EHVKT(J)) +C 4S 3S + IF(WAVENO.LT.20473.617D0)GO TO 30 + X=2.1D-18*(20473.617D0/WAVENO)**2.6 + A=X* 3.*EXP(-41197.043D0*HCKT(J))*(BMG1(J,4)-BMG2(J,1)*EHVKT(J)) + H=H+A + S=S+A*BNU(J)*STIM(J)/(BMG1(J,4)/BMG2(J,1)-EHVKT(J)) +C 3P 1P + IF(WAVENO.LT.26619.756D0)GO TO 30 + X=16.D-18*(26619.756D0/WAVENO)**2.1- + 1 7.8D-18*(26619.756D0/WAVENO)**9.5 + A=X* 3.*EXP(-35051.264D0*HCKT(J))*(BMG1(J,3)-BMG2(J,1)*EHVKT(J)) + H=H+A + S=S+A*BNU(J)*STIM(J)/(BMG1(J,3)/BMG2(J,1)-EHVKT(J)) +C 3P 3P + IF(WAVENO.LT.39759.842D0)GO TO 30 + X=20.D-18*(39759.842D0/WAVENO)**2.7 + X= MAX (X,40.D-18*(39759.842D0/WAVENO)**14) + A=X* 5.*EXP(-21911.178D0*HCKT(J))*(BMG1(J,2)-BMG2(J,1)*EHVKT(J)) + H=H+A + S=S+A*BNU(J)*STIM(J)/(BMG1(J,2)/BMG2(J,1)-EHVKT(J)) + IF(WAVENO.LT.39800.556D0)GO TO 30 + A=X* 3.*EXP(-21870.464D0*HCKT(J))*(BMG1(J,2)-BMG2(J,1)*EHVKT(J)) + H=H+A + S=S+A*BNU(J)*STIM(J)/(BMG1(J,2)/BMG2(J,1)-EHVKT(J)) + IF(WAVENO.LT.39820.615D0)GO TO 30 + A=X* 1.*EXP(-21850.405D0*HCKT(J))*(BMG1(J,2)-BMG2(J,1)*EHVKT(J)) + H=H+A + S=S+A*BNU(J)*STIM(J)/(BMG1(J,2)/BMG2(J,1)-EHVKT(J)) +C 3S 1S + IF(WAVENO.LT.61671.020D0)GO TO 30 + X=1.1D-18*(61671.020D0/WAVENO)**10 + A=X* 1.*1. *(BMG1(J,1)-BMG2(J,1)*EHVKT(J)) + H=H+A + S=S+A*BNU(J)*STIM(J)/(BMG1(J,1)/BMG2(J,1)-EHVKT(J)) +C + 30 IF(H.GT.0.)SMG1(J)=S/H + 100 AMG1(J)=H*XNFPMG(J,1)/RHO(J) + RETURN + END + SUBROUTINE AL1OP + IMPLICIT REAL*8 (A-H,O-Z) + PARAMETER (kw=99) + COMMON /BAL/BAL1(kw,9),AAL1(kw),SAL1(kw),XNFPAL(kw,2),BAL2(kw,1) + COMMON /FREQ/FREQ,FREQLG,EHVKT(kw),STIM(kw),BNU(kw),WAVENO + COMMON /RHOX/RHOX(kw),NRHOX + COMMON /STATE/P(kw),XNE(kw),XNATOM(kw),RHO(kw),PTOTAL(kw) + COMMON /TEMP/T(kw),TKEV(kw),TK(kw),HKT(kw),TLOG(kw),HCKT(kw),ITEMP + DO 100 J=1,NRHOX +C LIMIT 1S 48278.37 + H=1.D-30 + S=0. + BSTIMB=BNU(J)*STIM(J)*BAL2(J,1) + BEHVKT=BAL2(J,1)*EHVKT(J) +C 4F 2F + IF(WAVENO.LT.6958.993D0)GO TO 30 + X=0. + A=X*14.*EXP(-41319.377D0*HCKT(J))*(BAL1(J,9)-BAL2(J,1)*EHVKT(J)) + H=H+A + S=S+A*BNU(J)*STIM(J)/(BAL1(J,9)/BAL2(J,1)-EHVKT(J)) +C 5P 2P + IF(WAVENO.LT.8002.467D0)GO TO 30 + X=50.D-18*(8002.467D0/WAVENO)**3 + A=X* 6.*EXP(-40275.903D0*HCKT(J))*(BAL1(J,8)-BAL2(J,1)*EHVKT(J)) + H=H+A + S=S+A*BNU(J)*STIM(J)/(BAL1(J,8)/BAL2(J,1)-EHVKT(J)) +C 4D 2D + IF(WAVENO.LT.9346.231D0)GO TO 30 + X=50.D-18*(9346.231D0/WAVENO)**3 + A=X*10.*EXP(-38932.139D0*HCKT(J))*(BAL1(J,7)-BAL2(J,1)*EHVKT(J)) + H=H+A + S=S+A*BNU(J)*STIM(J)/(BAL1(J,7)/BAL2(J,1)-EHVKT(J)) +C 5S 2S + IF(WAVENO.LT.10588.957D0)GO TO 30 + X=56.7D-18*(10588.957D0/WAVENO)**1.9 + A=X* 2.*EXP(-37689.413D0*HCKT(J))*(BAL1(J,6)-BAL2(J,1)*EHVKT(J)) + H=H+A + S=S+A*BNU(J)*STIM(J)/(BAL1(J,6)/BAL2(J,1)-EHVKT(J)) +C 4P 2P + IF(WAVENO.LT.15318.007D0)GO TO 30 + X=14.5D-18*15318.007D0/WAVENO + A=X* 6.*EXP(-32960.363D0*HCKT(J))*(BAL1(J,5)-BAL2(J,1)*EHVKT(J)) + H=H+A + S=S+A*BNU(J)*STIM(J)/(BAL1(J,5)/BAL2(J,1)-EHVKT(J)) +C 3D 2D + IF(WAVENO.LT.15842.129D0)GO TO 30 + X=47.D-18*(15842.129D0/WAVENO)**1.83 + A=X*10.*EXP(-32436.241D0*HCKT(J))*(BAL1(J,4)-BAL2(J,1)*EHVKT(J)) + H=H+A + S=S+A*BNU(J)*STIM(J)/(BAL1(J,4)/BAL2(J,1)-EHVKT(J)) +C 4S 2S + IF(WAVENO.LT.22930.614D0)GO TO 30 + X=10.D-18*(22930.614D0/WAVENO)**2 + A=X* 2.*EXP(-25347.756D0*HCKT(J))*(BAL1(J,2)-BAL2(J,1)*EHVKT(J)) + H=H+A + S=S+A*BNU(J)*STIM(J)/(BAL1(J,2)/BAL2(J,1)-EHVKT(J)) +C 3P 2P + IF(WAVENO.LT.48166.309D0)GO TO 30 + X=65.D-18*(48166.309D0/WAVENO)**5 + A=X* 4.*EXP( -112.061D0*HCKT(J))*(BAL1(J,1)-BAL2(J,1)*EHVKT(J)) + H=H+A + S=S+A*BNU(J)*STIM(J)/(BAL1(J,1)/BAL2(J,1)-EHVKT(J)) + IF(WAVENO.LT.48278.370D0)GO TO 30 + A=X* 2.*1. *(BAL1(J,1)-BAL2(J,1)*EHVKT(J)) + H=H+A + S=S+A*BNU(J)*STIM(J)/(BAL1(J,1)/BAL2(J,1)-EHVKT(J)) +C P2 4P + IF(WAVENO.LT.55903.260D0)GO TO 30 + X=10.D-18*(55903.260D0/WAVENO)**2 + A=X*12.*EXP(-29097.11D0 *HCKT(J))*(BAL1(J,3)-BAL2(J,1)*EHVKT(J)) + H=H+A + S=S+A*BNU(J)*STIM(J)/(BAL1(J,3)/BAL2(J,1)-EHVKT(J)) +C + 30 IF(H.GT.0.)SAL1(J)=S/H + 100 AAL1(J)=H*XNFPAL(J,1)/RHO(J) + RETURN + END + SUBROUTINE SI1OP + IMPLICIT REAL*8 (A-H,O-Z) + PARAMETER (kw=99) + COMMON /BSI/BSI1(kw,11),ASI1(kw),SSI1(kw),XNFPSI(kw,2),BSI2(kw,10) + COMMON /FREQ/FREQ,FREQLG,EHVKT(kw),STIM(kw),BNU(kw),WAVENO + COMMON /RHOX/RHOX(kw),NRHOX + COMMON /STATE/P(kw),XNE(kw),XNATOM(kw),RHO(kw),PTOTAL(kw) + COMMON /TEMP/T(kw),TKEV(kw),TK(kw),HKT(kw),TLOG(kw),HCKT(kw),ITEMP + DO 100 J=1,NRHOX +C LIMIT 2P 65939.10 + H=1.D-30 + S=0. +C PP 3P + IF(WAVENO.LT.16810.969D0)GO TO 30 + X=0. + A=X* 9.*EXP(-49128.131D0*HCKT(J))*(BSI1(J,11)-BSI2(J,1)*EHVKT(J)) + H=H+A + S=S+A*BNU(J)*STIM(J)/(BSI1(J,11)/BSI2(J,1)-EHVKT(J)) +C PP 3D + IF(WAVENO.LT.17777.641D0)GO TO 30 + X=18.D-18*(17777.641D0/WAVENO)**3 + A=X*15.*EXP(-48161.459D0*HCKT(J))*(BSI1(J,10)-BSI2(J,1)*EHVKT(J)) + H=H+A + S=S+A*BNU(J)*STIM(J)/(BSI1(J,10)/BSI2(J,1)-EHVKT(J)) +C PD 1D + IF(WAVENO.LT.18587.546D0)GO TO 30 + X=0. + A=X* 5.*EXP(-47351.554D0*HCKT(J))*(BSI1(J, 9)-BSI2(J,1)*EHVKT(J)) + H=H+A + S=S+A*BNU(J)*STIM(J)/(BSI1(J,9)/BSI2(J,1)-EHVKT(J)) +C PP 1P + IF(WAVENO.LT.18655.039D0)GO TO 30 + X=0. + A=X* 3.*EXP(-47284.061D0*HCKT(J))*(BSI1(J, 8)-BSI2(J,1)*EHVKT(J)) + H=H+A + S=S+A*BNU(J)*STIM(J)/(BSI1(J,8)/BSI2(J,1)-EHVKT(J)) +C PS 1P + IF(WAVENO.LT.24947.216D0)GO TO 30 + X=4.09D-18*(24947.216D0/WAVENO)**2 + A=X* 3.*EXP(-40991.884D0*HCKT(J))*(BSI1(J, 6)-BSI2(J,1)*EHVKT(J)) + H=H+A + S=S+A*BNU(J)*STIM(J)/(BSI1(J,6)/BSI2(J,1)-EHVKT(J)) +C PS 3P + IF(WAVENO.LT.26079.180D0)GO TO 30 + X=1.25D-18*(26079.180D0/WAVENO)**2 + A=X* 9.*EXP(-39859.920D0*HCKT(J))*(BSI1(J, 5)-BSI2(J,1)*EHVKT(J)) + H=H+A + S=S+A*BNU(J)*STIM(J)/(BSI1(J,5)/BSI2(J,1)-EHVKT(J)) +C P2 1S +C LIMIT 2P0.5 65747.55 + IF(WAVENO.LT.50353.180D0)GO TO 30 + EPS=(WAVENO-70000.D0)*2./6500. +C fits to Nahar, S.N. and Pradhan, A.K. J.Phys.B 26, 1109-1127, 1993. + RESON1=(97.D-18*EPS+94.D-18)/(EPS**2+1.) +C EPS=(WAVENO-89700.D0)*2./75. +C RESON2=900.D-18/(EPS**2+1.) + X=37.D-18*(50353.180D0/WAVENO)**2.40+RESON1 + BOLT=1.*EXP(-15394.370D0*HCKT(J))*(BSI1(J, 3)-BSI2(J,1)*EHVKT(J)) + A=X*BOLT/3. + H=H+A + S=S+A*BNU(J)*STIM(J)/(BSI1(J,3)/BSI2(J,1)-EHVKT(J)) +C LIMIT 2P1.5 66035.00 + IF(WAVENO.LT.50640.630D0)GO TO 30 + X=37.D-18*(50640.630D0/WAVENO)**2.40+RESON1 + A=X*BOLT*2./3. + H=H+A + S=S+A*BNU(J)*STIM(J)/(BSI1(J,3)/BSI2(J,1)-EHVKT(J)) +C P2 1D +C LIMIT 2P0.5 65747.55 +C fits to Nahar, S.N. and Pradhan, A.K. J.Phys.B 26, 1109-1127, 1993. + IF(WAVENO.LT.59448.700D0)GO TO 30 + EPS=(WAVENO-78600.D0)*2./13000. + RESON1=(-10.D-18*EPS+77.D-18)/(EPS**2+1.) +C EPS=(WAVENO-98000.D0)*2./400. +C RESON2=(65.D-18*EPS+65.D-18)/(EPS**2+1.) +C EPS=(WAVENO-99500.D0)*2./50. +C RESON3=204.D-18/(EPS**2+1.) + X=24.5D-18*(59448.700D0/WAVENO)**1.85+RESON1 + BOLT=5.*EXP(- 6298.850D0*HCKT(J))*(BSI1(J, 2)-BSI2(J,1)*EHVKT(J)) + A=X*BOLT/3. + H=H+A + S=S+A*BNU(J)*STIM(J)/(BSI1(J,2)/BSI2(J,1)-EHVKT(J)) +C LIMIT 2P1.5 66035.00 + IF(WAVENO.LT.59736.150D0)GO TO 30 + X=24.5D-18*(59736.150D0/WAVENO)**1.85+RESON1 + A=X*BOLT*2./3. + H=H+A + S=S+A*BNU(J)*STIM(J)/(BSI1(J,1)/BSI2(J,1)-EHVKT(J)) +C P3 3D +C LIMIT 4P 108749.82 + IF(WAVENO.LT.63446.510D0)GO TO 30 + X=18.D-18*(63446.510D0/WAVENO)**3 + A=X*15.*EXP(-45303.310D0*HCKT(J))*(BSI1(J, 7)-BSI2(J,1)*EHVKT(J)) + H=H+A + S=S+A*BNU(J)*STIM(J)/(BSI1(J,7)/BSI2(J,1)-EHVKT(J)) +C P2 3P +C LIMIT 2P0.5 65747.55 + IF(WAVENO.LT.65524.393D0)GO TO 30 +C fits to Nahar, S.N. and Pradhan, A.K. J.Phys.B 26, 1109-1127, 1993. +C RESON1=0. +C RESON2=0. +C RESON3=0. +C IF(WAVENO.LT.100000.D0)THEN +C EPS=(WAVENO-92200.D0)*2./950. +C RESON1=30.D-18*EPS/(EPS**2+1.) +C ENDIF +C IF(WAVENO.GT.92200D0.AND.WAVENO.LT.103600.D0)THEN +C EPS=(WAVENO-100000.D0)*2./300. +C RESON2=30.D-18*EPS/(EPS**2+1.) +C ENDIF +C IF(WAVENO.GT.100000D0.AND.WAVENO.LT.105000.D0)THEN +C EPS=(WAVENO-103600.D0)*2./150. +C RESON3=20.D-18*EPS/(EPS**2+1.) +C ENDIF + X=72.D-18*(65524.393D0/WAVENO)**1.90 + IF(WAVENO.GT.74000.D0)X=93.D-18*(65524.393D0/WAVENO)**4.00 +C X=X+RESON1+RESON2+RESON3 + X=X/3. + A=X* 5.*EXP(- 223.157D0*HCKT(J))*(BSI1(J, 1)-BSI2(J,1)*EHVKT(J)) + H=H+A + S=S+A*BNU(J)*STIM(J)/(BSI1(J,1)/BSI2(J,1)-EHVKT(J)) + IF(WAVENO.LT.65670.435D0)GO TO 30 + A=X* 3.*EXP(- 77.115D0*HCKT(J))*(BSI1(J, 1)-BSI2(J,1)*EHVKT(J)) + H=H+A + S=S+A*BNU(J)*STIM(J)/(BSI1(J,1)/BSI2(J,1)-EHVKT(J)) + IF(WAVENO.LT.65747.550D0)GO TO 30 + A=X* 1.*1. *(BSI1(J, 1)-BSI2(J,1)*EHVKT(J)) + H=H+A + S=S+A*BNU(J)*STIM(J)/(BSI1(J,1)/BSI2(J,1)-EHVKT(J)) +C LIMIT 2P1.5 66035.00 + IF(WAVENO.LT.65811.843D0)GO TO 30 + X=X*2. + A=X* 5.*EXP(- 223.157D0*HCKT(J))*(BSI1(J, 1)-BSI2(J,1)*EHVKT(J)) + H=H+A + S=S+A*BNU(J)*STIM(J)/(BSI1(J,1)/BSI2(J,1)-EHVKT(J)) + IF(WAVENO.LT.65957.885D0)GO TO 30 + A=X* 3.*EXP(- 77.115D0*HCKT(J))*(BSI1(J, 1)-BSI2(J,1)*EHVKT(J)) + H=H+A + S=S+A*BNU(J)*STIM(J)/(BSI1(J,1)/BSI2(J,1)-EHVKT(J)) + IF(WAVENO.LT.66035.000D0)GO TO 30 + A=X* 1.*1. *(BSI1(J, 1)-BSI2(J,1)*EHVKT(J)) + H=H+A + S=S+A*BNU(J)*STIM(J)/(BSI1(J,1)/BSI2(J,1)-EHVKT(J)) +C P3 5S +C LIMIT 4P 108749.82 + IF(WAVENO.LT.75423.767D0)GO TO 30 + X=15.D-18*(75423.767D0/WAVENO)**3 + A=X* 5.*EXP(-33326.053D0*HCKT(J))*(BSI1(J, 4)-BSI2(J,1)*EHVKT(J)) + H=H+A + S=S+A*BNU(J)*STIM(J)/(BSI1(J,4)/BSI2(J,1)-EHVKT(J)) +C + 30 SSI1(J)=BNU(J) + IF(H.GT.0.)SSI1(J)=S/H + 100 ASI1(J)=H*XNFPSI(J,1)/RHO(J) + RETURN + END +C SUBROUTINE SI1OP +C IMPLICIT REAL*8 (A-H,O-Z) +C PARAMETER (kw=99) +C COMMON /BSI/BSI1(kw,11),ASI1(kw),SSI1(kw),XNFPSI(kw,2),BSI2(kw,10) +C COMMON /FREQ/FREQ,FREQLG,EHVKT(kw),STIM(kw),BNU(kw),WAVENO +C COMMON /RHOX/RHOX(kw),NRHOX +C COMMON /STATE/P(kw),XNE(kw),XNATOM(kw),RHO(kw),PTOTAL(kw) +C COMMON /TEMP/T(kw),TKEV(kw),TK(kw),HKT(kw),TLOG(kw),HCKT(kw),ITEMP +C DO 100 J=1,NRHOX +CC LIMIT 2P 65939.10 +C H=1.E-30 +C S=0. +CC PP 3P +C IF(WAVENO.LT.16810.969)GO TO 30 +C X=0. +C A=X* 9.*EXP(-49128.131*HCKT(J))*(BSI1(J,11)-BSI2(J,1)*EHVKT(J)) +C H=H+A +C S=S+A*BNU(J)*STIM(J)/(BSI1(J,11)/BSI2(J,1)-EHVKT(J)) +CC PP 3D +C IF(WAVENO.LT.17777.641)GO TO 30 +C X=18.E-18*(17777.641/WAVENO)**3 +C A=X*15.*EXP(-48161.459*HCKT(J))*(BSI1(J,10)-BSI2(J,1)*EHVKT(J)) +C H=H+A +C S=S+A*BNU(J)*STIM(J)/(BSI1(J,10)/BSI2(J,1)-EHVKT(J)) +CC PD 1D +C IF(WAVENO.LT.18587.546)GO TO 30 +C X=0. +C A=X* 5.*EXP(-47351.554*HCKT(J))*(BSI1(J, 9)-BSI2(J,1)*EHVKT(J)) +C H=H+A +C S=S+A*BNU(J)*STIM(J)/(BSI1(J,9)/BSI2(J,1)-EHVKT(J)) +CC PP 1P +C IF(WAVENO.LT.18655.039)GO TO 30 +C X=0. +C A=X* 3.*EXP(-47284.061*HCKT(J))*(BSI1(J, 8)-BSI2(J,1)*EHVKT(J)) +C H=H+A +C S=S+A*BNU(J)*STIM(J)/(BSI1(J,8)/BSI2(J,1)-EHVKT(J)) +CC PS 1P +C IF(WAVENO.LT.24947.216)GO TO 30 +C X=4.09E-18*(24947.216/WAVENO)**2 +C A=X* 3.*EXP(-40991.884*HCKT(J))*(BSI1(J, 6)-BSI2(J,1)*EHVKT(J)) +C H=H+A +C S=S+A*BNU(J)*STIM(J)/(BSI1(J,6)/BSI2(J,1)-EHVKT(J)) +CC PS 3P +C IF(WAVENO.LT.26079.180)GO TO 30 +C X=1.25E-18*(26079.180/WAVENO)**2 +C A=X* 9.*EXP(-39859.920*HCKT(J))*(BSI1(J, 5)-BSI2(J,1)*EHVKT(J)) +C H=H+A +C S=S+A*BNU(J)*STIM(J)/(BSI1(J,5)/BSI2(J,1)-EHVKT(J)) +CC P2 1S +CC LIMIT 2P0.5 65747.55 +C IF(WAVENO.LT.50353.180)GO TO 30 +C X=1./3.*46.E-18*(50353.180/WAVENO)**.5 +C BOLT=1.*EXP(-15394.370*HCKT(J))*(BSI1(J, 3)-BSI2(J,1)*EHVKT(J)) +C A=X*BOLT +C H=H+A +C S=S+A*BNU(J)*STIM(J)/(BSI1(J,3)/BSI2(J,1)-EHVKT(J)) +CC LIMIT 2P1.5 66035.00 +C IF(WAVENO.LT.50640.630)GO TO 30 +C X=2./3.*46.E-18*(50640.630/WAVENO)**.5 +C A=X*BOLT +C H=H+A +C S=S+A*BNU(J)*STIM(J)/(BSI1(J,3)/BSI2(J,1)-EHVKT(J)) +CC P2 1D +CC LIMIT 2P0.5 65747.55 +C IF(WAVENO.LT.59448.700)GO TO 30 +C X=1./3.*35.E-18*(59448.700/WAVENO)**3 +C BOLT=5.*EXP(- 6298.850*HCKT(J))*(BSI1(J, 2)-BSI2(J,1)*EHVKT(J)) +C A=X*BOLT +C H=H+A +C S=S+A*BNU(J)*STIM(J)/(BSI1(J,2)/BSI2(J,1)-EHVKT(J)) +CC LIMIT 2P1.5 66035.00 +C IF(WAVENO.LT.59736.150)GO TO 30 +C X=2./3.*35.E-18*(59736.150/WAVENO)**3 +C BOLT=5.*EXP(- 6298.850*HCKT(J))*(BSI1(J, 2)-BSI2(J,1)*EHVKT(J)) +C A=X*BOLT +C H=H+A +C S=S+A*BNU(J)*STIM(J)/(BSI1(J,1)/BSI2(J,1)-EHVKT(J)) +CC P3 3D +CC LIMIT 4P 108749.82 +C IF(WAVENO.LT.63446.510)GO TO 30 +C X=18.E-18*(63446.510/WAVENO)**3 +C A=X*15.*EXP(-45303.310*HCKT(J))*(BSI1(J, 7)-BSI2(J,1)*EHVKT(J)) +C H=H+A +C S=S+A*BNU(J)*STIM(J)/(BSI1(J,7)/BSI2(J,1)-EHVKT(J)) +CC P2 3P +CC LIMIT 2P0.5 65747.55 +C IF(WAVENO.LT.65524.393)GO TO 30 +C X=37.E-18 +C IF(WAVENO.GT.74000.)X=X*(74000./WAVENO)**5 +C X=X/3. +C A=X* 5.*EXP(- 223.157*HCKT(J))*(BSI1(J, 1)-BSI2(J,1)*EHVKT(J)) +C H=H+A +C S=S+A*BNU(J)*STIM(J)/(BSI1(J,1)/BSI2(J,1)-EHVKT(J)) +C IF(WAVENO.LT.65670.435)GO TO 30 +C A=X* 3.*EXP(- 77.115*HCKT(J))*(BSI1(J, 1)-BSI2(J,1)*EHVKT(J)) +C H=H+A +C S=S+A*BNU(J)*STIM(J)/(BSI1(J,1)/BSI2(J,1)-EHVKT(J)) +C IF(WAVENO.LT.65747.550)GO TO 30 +C A=X* 1.*1. *(BSI1(J, 1)-BSI2(J,1)*EHVKT(J)) +C H=H+A +C S=S+A*BNU(J)*STIM(J)/(BSI1(J,1)/BSI2(J,1)-EHVKT(J)) +CC LIMIT 2P1.5 66035.00 +C IF(WAVENO.LT.65811.843)GO TO 30 +C X=X*2. +C A=X* 5.*EXP(- 223.157*HCKT(J))*(BSI1(J, 1)-BSI2(J,1)*EHVKT(J)) +C H=H+A +C S=S+A*BNU(J)*STIM(J)/(BSI1(J,1)/BSI2(J,1)-EHVKT(J)) +C IF(WAVENO.LT.65957.885)GO TO 30 +C A=X* 3.*EXP(- 77.115*HCKT(J))*(BSI1(J, 1)-BSI2(J,1)*EHVKT(J)) +C H=H+A +C S=S+A*BNU(J)*STIM(J)/(BSI1(J,1)/BSI2(J,1)-EHVKT(J)) +C IF(WAVENO.LT.66035.000)GO TO 30 +C A=X* 1.*1. *(BSI1(J, 1)-BSI2(J,1)*EHVKT(J)) +C H=H+A +C S=S+A*BNU(J)*STIM(J)/(BSI1(J,1)/BSI2(J,1)-EHVKT(J)) +CC P3 5S +CC LIMIT 4P 108749.82 +C IF(WAVENO.LT.75423.767)GO TO 30 +C X=15.E-18*(75423.767/WAVENO)**3 +C A=X* 5.*EXP(-33326.053*HCKT(J))*(BSI1(J, 4)-BSI2(J,1)*EHVKT(J)) +C H=H+A +C S=S+A*BNU(J)*STIM(J)/(BSI1(J,4)/BSI2(J,1)-EHVKT(J)) +CC +C 30 SSI1(J)=BNU(J) +C IF(H.GT.0.)SSI1(J)=S/H +C 100 ASI1(J)=H*XNFPSI(J,1)/RHO(J) +C RETURN +C END + SUBROUTINE FE1OP + IMPLICIT REAL*8 (A-H,O-Z) + PARAMETER (kw=99) + COMMON /BFE/BFE1(kw,15),AFE1(kw),SFE1(kw),XNFPFE(kw,1) + COMMON /BSI/BSI1(kw,11),ASI1(kw),SSI1(kw),XNFPSI(kw,2),BSI2(kw,10) + COMMON /FLUX/FLUX,FLXERR(kw),FLXDRV(kw),FLXRAD(kw) + COMMON /FREQ/FREQ,FREQLG,EHVKT(kw),STIM(kw),BNU(kw),WAVENO + COMMON /RHOX/RHOX(kw),NRHOX + COMMON /STATE/P(kw),XNE(kw),XNATOM(kw),RHO(kw),PTOTAL(kw) + COMMON /TEMP/T(kw),TKEV(kw),TK(kw),HKT(kw),TLOG(kw),HCKT(kw),ITEMP + DIMENSION BFUDGE(kw) + EQUIVALENCE (FLXRAD(1),BFUDGE(1)) + DIMENSION G(48),E(48),WNO(48) + DATA G/25.,35.,21.,15.,9.,35.,33.,21.,27.,49.,9.,21.,27.,9.,9., + 1 25.,33.,15.,35.,3.,5.,11.,15.,13.,15.,9.,21.,15.,21.,25.,35., + 2 9.,5.,45.,27.,21.,15.,21.,15.,25.,21.,35.,5.,15.,45.,35.,55.,25./ + DATA E/500.,7500.,12500.,17500.,19000.,19500.,19500.,21000., + 1 22000.,23000.,23000.,24000.,24000.,24500.,24500.,26000.,26500., + 2 26500.,27000.,27500.,28500.,29000.,29500.,29500.,29500.,30000., + 3 31500.,31500.,33500.,33500.,34000.,34500.,34500.,35000.,35500., + 4 37000.,37000.,37000.,38500.,40000.,40000.,41000.,41000.,43000., + 5 43000.,43000.,43000.,44000./ + DATA WNO/63500.,58500.,53500.,59500.,45000.,44500.,44500.,43000., + 1 58000.,41000.,54000.,40000.,40000.,57500.,55500.,38000.,57500., + 2 57500.,37000.,54500.,53500.,55000.,34500.,34500.,34500.,34000., + 3 32500.,32500.,32500.,32500.,32000.,29500.,29500.,31000.,30500., + 4 29000.,27000.,54000.,27500.,24000.,47000.,23000.,44000.,42000., + 5 42000.,21000.,42000.,42000./ + DO 1 J=1,NRHOX + BFUDGE(J)=BSI1(J,1) + 1 AFE1(J)=0. + IF(WAVENO.LT.21000.D0)RETURN + DO 10 I=1,48 + IF(WNO(I).GT.WAVENO)GO TO 10 + XSECT=3.D-18/(1.+((WNO(I)+3000.D0-WAVENO)/WNO(I)/.1)**4) + DO 5 J=1,NRHOX + 5 AFE1(J)=AFE1(J)+XSECT*G(I)*EXP(-E(I)*HCKT(J)) + 10 CONTINUE + DO 15 J=1,NRHOX + AFE1(J)=AFE1(J)*STIM(J)*XNFPFE(J,1)/RHO(J) + 15 SFE1(J)=BNU(J)*STIM(J)/(BFUDGE(J)-EHVKT(J)) + RETURN + END + FUNCTION CHOP(J) +C CROSS-SECTION TIMES PARTITION FUNCTION + IMPLICIT REAL*8 (A-H,O-Z) + PARAMETER (kw=99) + COMMON /FREQ/FREQ,FREQLG,EHVKT(kw),STIM(kw),BNU(kw),WAVENO + COMMON /RHOX/RHOX(kw),NRHOX + COMMON /STATE/P(kw),XNE(kw),XNATOM(kw),RHO(kw),PTOTAL(kw) + COMMON /TEMP/T(kw),TKEV(kw),TK(kw),HKT(kw),TLOG(kw),HCKT(kw),ITEMP + DIMENSION CROSSCH(15,105),PARTCH(41),CROSSCHT(15) + DIMENSION C1(150),C2(150),C3(150),C4(150),C5(150) + DIMENSION C6(150),C7(150),C8(150),C9(150),C10(150) + DIMENSION C11(75) + EQUIVALENCE (CROSSCH(1, 1),C1(1)),(CROSSCH(1,11),C2(1)) + EQUIVALENCE (CROSSCH(1,21),C3(1)),(CROSSCH(1,31),C4(1)) + EQUIVALENCE (CROSSCH(1,41),C5(1)),(CROSSCH(1,51),C6(1)) + EQUIVALENCE (CROSSCH(1,61),C7(1)),(CROSSCH(1,71),C8(1)) + EQUIVALENCE (CROSSCH(1,81),C9(1)),(CROSSCH(1,91),C10(1)) + EQUIVALENCE (CROSSCH(1,101),C11(1)) + DATA C1/-38.000,-38.000,-38.000,-38.000,-38.000,-38.000,-38.000, 0.1 + 1-38.000,-38.000,-38.000,-38.000,-38.000,-38.000,-38.000,-38.000, 0.1 + 2 -32.727,-31.151,-30.133,-29.432,-28.925,-28.547,-28.257, 0.2 + 2-28.030,-27.848,-27.701,-27.580,-27.479,-27.395,-27.322,-27.261, 0.2 + 3 -31.588,-30.011,-28.993,-28.290,-27.784,-27.405,-27.115, 0.3 + 3-26.887,-26.705,-26.558,-26.437,-26.336,-26.251,-26.179,-26.117, 0.3 + 4 -30.407,-28.830,-27.811,-27.108,-26.601,-26.223,-25.932, 0.4 + 4-25.705,-25.523,-25.376,-25.255,-25.154,-25.069,-24.997,-24.935, 0.4 + 5 -29.513,-27.937,-26.920,-26.218,-25.712,-25.334,-25.043, 0.5 + 5-24.816,-24.635,-24.487,-24.366,-24.266,-24.181,-24.109,-24.047, 0.5 + 6 -28.910,-27.341,-26.327,-25.628,-25.123,-24.746,-24.457, 0.6 + 6-24.230,-24.049,-23.902,-23.782,-23.681,-23.597,-23.525,-23.464, 0.6 + 7 -28.517,-26.961,-25.955,-25.261,-24.760,-24.385,-24.098, 0.7 + 7-23.873,-23.694,-23.548,-23.429,-23.329,-23.245,-23.174,-23.113, 0.7 + 8 -28.213,-26.675,-25.680,-24.993,-24.497,-24.127,-23.843, 0.8 + 8-23.620,-23.443,-23.299,-23.181,-23.082,-22.999,-22.929,-22.869, 0.8 + 9 -27.942,-26.427,-25.446,-24.769,-24.280,-23.915,-23.635, 0.9 + 9-23.416,-23.241,-23.100,-22.983,-22.887,-22.805,-22.736,-22.677, 0.9 + A -27.706,-26.210,-25.241,-24.572,-24.088,-23.728,-23.451, 1.0 + A-23.235,-23.063,-22.923,-22.808,-22.713,-22.633,-22.565,-22.507/ 1.0 + DATA C2/-27.475,-26.000,-25.043,-24.382,-23.905,-23.548,-23.275, 1.1 + 1-23.062,-22.891,-22.753,-22.640,-22.546,-22.467,-22.400,-22.343, 1.1 + 2 -27.221,-25.783,-24.844,-24.193,-23.723,-23.372,-23.102, 1.2 + 2-22.892,-22.724,-22.588,-22.476,-22.384,-22.306,-22.240,-22.184, 1.2 + 3 -26.863,-25.506,-24.607,-23.979,-23.523,-23.182,-22.919, 1.3 + 3-22.714,-22.550,-22.417,-22.309,-22.218,-22.142,-22.078,-22.023, 1.3 + 4 -26.685,-25.347,-24.457,-23.835,-23.382,-23.044,-22.784, 1.4 + 4-22.580,-22.418,-22.286,-22.178,-22.089,-22.014,-21.950,-21.896, 1.4 + 5 -26.085,-24.903,-24.105,-23.538,-23.120,-22.805,-22.561, 1.5 + 5-22.370,-22.217,-22.093,-21.991,-21.906,-21.835,-21.775,-21.723, 1.5 + 6 -25.902,-24.727,-23.936,-23.376,-22.964,-22.654,-22.415, 1.6 + 6-22.227,-22.076,-21.955,-21.855,-21.772,-21.702,-21.644,-21.593, 1.6 + 7 -25.215,-24.196,-23.510,-23.019,-22.655,-22.378,-22.163, 1.7 + 7-21.992,-21.855,-21.744,-21.653,-21.577,-21.513,-21.459,-21.412, 1.7 + 8 -24.914,-23.937,-23.284,-22.820,-22.475,-22.212,-22.007, 1.8 + 8-21.845,-21.715,-21.609,-21.522,-21.449,-21.388,-21.336,-21.292, 1.8 + 9 -24.519,-23.637,-23.039,-22.606,-22.281,-22.030,-21.834, 1.9 + 9-21.678,-21.552,-21.450,-21.365,-21.295,-21.236,-21.185,-21.142, 1.9 + A -24.086,-23.222,-22.650,-22.246,-21.948,-21.722,-21.546, 2.0 + A-21.407,-21.296,-21.205,-21.131,-21.070,-21.018,-20.974,-20.937/ 2.0 + DATA C3/-23.850,-23.018,-22.472,-22.088,-21.805,-21.590,-21.422, 2.1 + 1-21.289,-21.182,-21.095,-21.024,-20.964,-20.914,-20.872,-20.835, 2.1 + 2 -23.136,-22.445,-21.994,-21.676,-21.440,-21.259,-21.117, 2.2 + 2-21.004,-20.912,-20.837,-20.775,-20.723,-20.679,-20.642,-20.611, 2.2 + 3 -23.199,-22.433,-21.927,-21.573,-21.314,-21.119,-20.969, 2.3 + 3-20.851,-20.758,-20.682,-20.621,-20.571,-20.529,-20.493,-20.463, 2.3 + 4 -22.696,-22.020,-21.585,-21.286,-21.071,-20.912,-20.791, 2.4 + 4-20.697,-20.622,-20.563,-20.514,-20.475,-20.442,-20.414,-20.391, 2.4 + 5 -22.119,-21.557,-21.194,-20.943,-20.761,-20.624,-20.518, 2.5 + 5-20.434,-20.367,-20.313,-20.268,-20.231,-20.201,-20.175,-20.153, 2.5 + 6 -21.855,-21.300,-20.931,-20.673,-20.485,-20.344,-20.235, 2.6 + 6-20.151,-20.084,-20.031,-19.988,-19.953,-19.924,-19.900,-19.880, 2.6 + 7 -21.126,-20.673,-20.382,-20.184,-20.044,-19.943,-19.868, 2.7 + 7-19.811,-19.769,-19.736,-19.710,-19.690,-19.674,-19.662,-19.652, 2.7 + 8 -20.502,-20.150,-19.922,-19.766,-19.657,-19.578,-19.520, 2.8 + 8-19.478,-19.446,-19.422,-19.404,-19.390,-19.379,-19.371,-19.365, 2.8 + 9 -20.030,-19.724,-19.530,-19.399,-19.309,-19.245,-19.199, 2.9 + 9-19.166,-19.142,-19.125,-19.112,-19.103,-19.096,-19.091,-19.088, 2.9 + A -19.640,-19.364,-19.189,-19.074,-18.996,-18.943,-18.906, 3.0 + A-18.881,-18.863,-18.852,-18.844,-18.839,-18.837,-18.836,-18.836/ 3.0 + DATA C4/-19.333,-19.092,-18.939,-18.838,-18.770,-18.725,-18.695, 3.1 + 1-18.675,-18.662,-18.655,-18.651,-18.649,-18.649,-18.651,-18.653, 3.1 + 2 -19.070,-18.880,-18.756,-18.674,-18.621,-18.585,-18.562, 3.2 + 2-18.548,-18.540,-18.536,-18.536,-18.537,-18.539,-18.542,-18.546, 3.2 + 3 -18.851,-18.708,-18.617,-18.558,-18.521,-18.498,-18.484, 3.3 + 3-18.477,-18.475,-18.476,-18.478,-18.482,-18.487,-18.493,-18.498, 3.3 + 4 -18.709,-18.599,-18.533,-18.494,-18.471,-18.459,-18.454, 3.4 + 4-18.454,-18.457,-18.462,-18.469,-18.476,-18.483,-18.490,-18.498, 3.4 + 5 -18.656,-18.572,-18.524,-18.497,-18.485,-18.480,-18.482, 3.5 + 5-18.486,-18.493,-18.501,-18.510,-18.519,-18.527,-18.536,-18.544, 3.5 + 6 -18.670,-18.613,-18.582,-18.566,-18.561,-18.562,-18.568, 3.6 + 6-18.575,-18.583,-18.592,-18.601,-18.610,-18.619,-18.627,-18.635, 3.6 + 7 -18.728,-18.700,-18.687,-18.683,-18.685,-18.691,-18.698, 3.7 + 7-18.706,-18.715,-18.723,-18.731,-18.739,-18.745,-18.752,-18.758, 3.7 + 8 -18.839,-18.835,-18.836,-18.842,-18.849,-18.857,-18.865, 3.8 + 8-18.872,-18.878,-18.883,-18.888,-18.892,-18.895,-18.898,-18.900, 3.8 + 9 -19.034,-19.041,-19.049,-19.057,-19.064,-19.069,-19.071, 3.9 + 9-19.071,-19.070,-19.068,-19.065,-19.061,-19.058,-19.054,-19.051, 3.9 + A -19.372,-19.378,-19.382,-19.380,-19.372,-19.359,-19.341, 4.0 + A-19.321,-19.300,-19.280,-19.261,-19.243,-19.227,-19.212,-19.199/ 4.0 + DATA C5/-19.780,-19.777,-19.763,-19.732,-19.686,-19.631,-19.573, 4.1 + 1-19.517,-19.465,-19.419,-19.379,-19.344,-19.314,-19.288,-19.265, 4.1 + 2 -20.151,-20.133,-20.087,-20.009,-19.911,-19.810,-19.715, 4.2 + 2-19.631,-19.559,-19.497,-19.446,-19.402,-19.365,-19.333,-19.306, 4.2 + 3 -20.525,-20.454,-20.312,-20.138,-19.970,-19.825,-19.705, 4.3 + 3-19.607,-19.528,-19.464,-19.411,-19.367,-19.330,-19.300,-19.274, 4.3 + 4 -20.869,-20.655,-20.366,-20.104,-19.894,-19.731,-19.604, 4.4 + 4-19.505,-19.426,-19.363,-19.312,-19.271,-19.236,-19.208,-19.184, 4.4 + 5 -21.179,-20.768,-20.380,-20.081,-19.856,-19.686,-19.556, 4.5 + 5-19.454,-19.375,-19.311,-19.260,-19.218,-19.184,-19.155,-19.131, 4.5 + 6 -21.167,-20.601,-20.206,-19.925,-19.719,-19.565,-19.447, 4.6 + 6-19.355,-19.283,-19.226,-19.180,-19.143,-19.112,-19.087,-19.066, 4.6 + 7 -20.918,-20.348,-19.976,-19.720,-19.536,-19.401,-19.299, 4.7 + 7-19.220,-19.159,-19.112,-19.073,-19.043,-19.018,-18.998,-18.981, 4.7 + 8 -20.753,-20.204,-19.847,-19.602,-19.427,-19.299,-19.203, 4.8 + 8-19.129,-19.072,-19.028,-18.993,-18.965,-18.942,-18.924,-18.909, 4.8 + 9 -20.456,-19.987,-19.677,-19.460,-19.302,-19.186,-19.098, 4.9 + 9-19.030,-18.978,-18.937,-18.904,-18.878,-18.857,-18.841,-18.827, 4.9 + A -20.154,-19.734,-19.461,-19.272,-19.136,-19.035,-18.960, 5.0 + A-18.902,-18.858,-18.824,-18.797,-18.775,-18.759,-18.745,-18.735/ 5.0 + DATA C6/-19.941,-19.544,-19.288,-19.114,-18.992,-18.903,-18.837, 5.1 + 1-18.788,-18.751,-18.723,-18.701,-18.684,-18.671,-18.661,-18.654, 5.1 + 2 -19.657,-19.321,-19.104,-18.956,-18.853,-18.779,-18.724, 5.2 + 2-18.684,-18.655,-18.632,-18.615,-18.602,-18.592,-18.585,-18.579, 5.2 + 3 -19.388,-19.109,-18.930,-18.810,-18.725,-18.664,-18.620, 5.3 + 3-18.586,-18.562,-18.543,-18.529,-18.518,-18.510,-18.503,-18.498, 5.3 + 4 -19.201,-18.953,-18.794,-18.686,-18.611,-18.556,-18.515, 5.4 + 4-18.485,-18.462,-18.446,-18.433,-18.423,-18.416,-18.410,-18.406, 5.4 + 5 -18.923,-18.719,-18.588,-18.500,-18.439,-18.396,-18.365, 5.5 + 5-18.344,-18.328,-18.318,-18.311,-18.307,-18.304,-18.303,-18.302, 5.5 + 6 -18.614,-18.458,-18.361,-18.298,-18.258,-18.232,-18.216, 5.6 + 6-18.206,-18.202,-18.201,-18.202,-18.205,-18.208,-18.213,-18.218, 5.6 + 7 -18.419,-18.295,-18.222,-18.178,-18.153,-18.139,-18.132, 5.7 + 7-18.131,-18.133,-18.138,-18.143,-18.150,-18.157,-18.164,-18.172, 5.7 + 8 -18.296,-18.201,-18.148,-18.118,-18.101,-18.094,-18.091, 5.8 + 8-18.093,-18.096,-18.101,-18.107,-18.113,-18.120,-18.126,-18.132, 5.8 + 9 -18.021,-17.992,-17.977,-17.970,-17.967,-17.968,-17.970, 5.9 + 9-17.974,-17.978,-17.983,-17.989,-17.994,-18.000,-18.005,-18.011, 5.9 + A -17.694,-17.686,-17.686,-17.691,-17.698,-17.708,-17.718, 6.0 + A-17.729,-17.740,-17.750,-17.761,-17.771,-17.781,-17.790,-17.798/ 6.0 + DATA C7/-17.374,-17.384,-17.400,-17.420,-17.440,-17.462,-17.483, 6.1 + 1-17.503,-17.523,-17.541,-17.558,-17.575,-17.590,-17.603,-17.616, 6.1 + 2 -17.169,-17.199,-17.230,-17.262,-17.293,-17.323,-17.351, 6.2 + 2-17.378,-17.404,-17.427,-17.449,-17.469,-17.488,-17.505,-17.520, 6.2 + 3 -17.151,-17.184,-17.217,-17.250,-17.282,-17.313,-17.342, 6.3 + 3-17.369,-17.395,-17.418,-17.440,-17.461,-17.480,-17.497,-17.513, 6.3 + 4 -17.230,-17.260,-17.290,-17.320,-17.348,-17.375,-17.401, 6.4 + 4-17.425,-17.448,-17.469,-17.489,-17.508,-17.525,-17.541,-17.556, 6.4 + 5 -17.379,-17.403,-17.425,-17.446,-17.467,-17.486,-17.505, 6.5 + 5-17.524,-17.541,-17.558,-17.574,-17.588,-17.602,-17.615,-17.627, 6.5 + 6 -17.596,-17.604,-17.609,-17.612,-17.616,-17.622,-17.628, 6.6 + 6-17.636,-17.644,-17.652,-17.661,-17.670,-17.679,-17.687,-17.695, 6.6 + 7 -17.846,-17.823,-17.795,-17.770,-17.750,-17.735,-17.725, 6.7 + 7-17.719,-17.716,-17.715,-17.716,-17.719,-17.722,-17.726,-17.730, 6.7 + 8 -18.089,-18.015,-17.942,-17.882,-17.836,-17.802,-17.777, 6.8 + 8-17.760,-17.748,-17.740,-17.736,-17.734,-17.733,-17.734,-17.736, 6.8 + 9 -18.299,-18.156,-18.038,-17.947,-17.881,-17.833,-17.798, 6.9 + 9-17.774,-17.757,-17.745,-17.738,-17.733,-17.730,-17.729,-17.729, 6.9 + A -18.441,-18.243,-18.096,-17.991,-17.915,-17.860,-17.821, 7.0 + A-17.792,-17.772,-17.757,-17.746,-17.738,-17.733,-17.730,-17.728/ 7.0 + DATA C8/-18.474,-18.262,-18.111,-18.004,-17.926,-17.869,-17.826, 7.1 + 1-17.795,-17.771,-17.753,-17.740,-17.730,-17.722,-17.717,-17.713, 7.1 + 2 -18.387,-18.191,-18.053,-17.952,-17.878,-17.823,-17.782, 7.2 + 2-17.752,-17.729,-17.711,-17.698,-17.689,-17.681,-17.676,-17.672, 7.2 + 3 -18.161,-17.990,-17.874,-17.793,-17.736,-17.696,-17.668, 7.3 + 3-17.648,-17.634,-17.625,-17.619,-17.616,-17.614,-17.614,-17.615, 7.3 + 4 -17.908,-17.774,-17.690,-17.637,-17.604,-17.583,-17.572, 7.4 + 4-17.567,-17.566,-17.568,-17.571,-17.576,-17.581,-17.587,-17.593, 7.4 + 5 -17.681,-17.589,-17.540,-17.515,-17.506,-17.505,-17.511, 7.5 + 5-17.520,-17.530,-17.542,-17.554,-17.566,-17.578,-17.589,-17.600, 7.5 + 6 -17.647,-17.606,-17.584,-17.575,-17.573,-17.576,-17.582, 7.6 + 6-17.589,-17.597,-17.605,-17.614,-17.623,-17.631,-17.639,-17.646, 7.6 + 7 -17.300,-17.291,-17.291,-17.297,-17.307,-17.319,-17.333, 7.7 + 7-17.347,-17.361,-17.375,-17.389,-17.402,-17.415,-17.427,-17.438, 7.7 + 8 -16.786,-16.802,-16.825,-16.853,-16.883,-16.914,-16.944, 7.8 + 8-16.974,-17.003,-17.030,-17.055,-17.079,-17.101,-17.122,-17.141, 7.8 + 9 -16.489,-16.533,-16.579,-16.625,-16.670,-16.713,-16.754, 7.9 + 9-16.793,-16.830,-16.864,-16.896,-16.925,-16.952,-16.977,-17.000, 7.9 + A -16.694,-16.724,-16.756,-16.789,-16.823,-16.856,-16.888, 8.0 + A-16.919,-16.949,-16.976,-17.002,-17.026,-17.048,-17.069,-17.088/ 8.0 + DATA C9/-16.935,-16.951,-16.971,-16.993,-17.016,-17.040,-17.064, 8.1 + 1-17.088,-17.111,-17.132,-17.153,-17.172,-17.190,-17.206,-17.222, 8.1 + 2 -17.200,-17.208,-17.220,-17.235,-17.251,-17.269,-17.286, 8.2 + 2-17.304,-17.322,-17.338,-17.354,-17.369,-17.384,-17.397,-17.409, 8.2 + 3 -17.597,-17.591,-17.589,-17.590,-17.594,-17.600,-17.608, 8.3 + 3-17.617,-17.626,-17.635,-17.645,-17.654,-17.662,-17.671,-17.679, 8.3 + 4 -18.166,-18.134,-18.107,-18.085,-18.068,-18.056,-18.047, 8.4 + 4-18.041,-18.038,-18.036,-18.035,-18.035,-18.036,-18.038,-18.039, 8.4 + 5 -19.000,-18.917,-18.838,-18.770,-18.714,-18.669,-18.632, 8.5 + 5-18.603,-18.579,-18.560,-18.545,-18.532,-18.522,-18.514,-18.507, 8.5 + 6 -20.313,-19.982,-19.754,-19.592,-19.472,-19.380,-19.309, 8.6 + 6-19.253,-19.208,-19.172,-19.143,-19.119,-19.099,-19.083,-19.069, 8.6 + 7 -19.751,-19.611,-19.520,-19.461,-19.423,-19.398,-19.382, 8.7 + 7-19.372,-19.366,-19.364,-19.363,-19.364,-19.366,-19.368,-19.371, 8.7 + 8 -19.581,-19.431,-19.337,-19.277,-19.240,-19.218,-19.207, 8.8 + 8-19.202,-19.203,-19.207,-19.212,-19.220,-19.228,-19.236,-19.245, 8.8 + 9 -19.685,-19.506,-19.389,-19.311,-19.258,-19.222,-19.199, 8.9 + 9-19.184,-19.175,-19.170,-19.168,-19.169,-19.171,-19.174,-19.177, 8.9 + A -19.977,-19.756,-19.606,-19.501,-19.425,-19.370,-19.330, 9.0 + A-19.300,-19.278,-19.262,-19.250,-19.241,-19.235,-19.230,-19.227/ 9.0 + DATAC10/-20.445,-20.158,-19.958,-19.815,-19.711,-19.633,-19.574, 9.1 + 1-19.528,-19.493,-19.465,-19.442,-19.425,-19.410,-19.398,-19.389, 9.1 + 2 -20.980,-20.625,-20.391,-20.229,-20.110,-20.020,-19.949, 9.2 + 2-19.892,-19.846,-19.807,-19.775,-19.748,-19.724,-19.704,-19.687, 9.2 + 3 -21.404,-21.023,-20.771,-20.594,-20.461,-20.358,-20.274, 9.3 + 3-20.205,-20.148,-20.099,-20.058,-20.022,-19.991,-19.965,-19.942, 9.3 + 4 -21.309,-20.970,-20.753,-20.603,-20.495,-20.412,-20.348, 9.4 + 4-20.295,-20.252,-20.215,-20.185,-20.158,-20.135,-20.115,-20.098, 9.4 + 5 -21.221,-20.906,-20.707,-20.574,-20.480,-20.412,-20.361, 9.5 + 5-20.322,-20.292,-20.268,-20.249,-20.233,-20.221,-20.210,-20.201, 9.5 + 6 -21.441,-21.097,-20.878,-20.728,-20.623,-20.546,-20.489, 9.6 + 6-20.446,-20.413,-20.387,-20.368,-20.352,-20.340,-20.330,-20.322, 9.6 + 7 -21.668,-21.305,-21.071,-20.911,-20.797,-20.713,-20.650, 9.7 + 7-20.602,-20.565,-20.536,-20.514,-20.496,-20.481,-20.470,-20.460, 9.7 + 8 -21.926,-21.556,-21.316,-21.150,-21.031,-20.942,-20.874, 9.8 + 8-20.822,-20.782,-20.750,-20.724,-20.704,-20.687,-20.674,-20.663, 9.8 + 9 -22.319,-21.937,-21.686,-21.510,-21.380,-21.282,-21.206, 9.9 + 9-21.147,-21.099,-21.061,-21.031,-21.006,-20.985,-20.968,-20.954, 9.9 + A -22.969,-22.561,-22.288,-22.092,-21.945,-21.832,-21.743, 10.0 + A-21.672,-21.616,-21.570,-21.533,-21.503,-21.477,-21.457,-21.439/ 10.0 + DATAC11/-24.001,-23.527,-23.199,-22.957,-22.772,-22.629,-22.516, 10.1 + 1-22.427,-22.355,-22.297,-22.250,-22.212,-22.180,-22.153,-22.131, 10.1 + 2 -24.233,-23.774,-23.477,-23.273,-23.128,-23.022,-22.943, 10.2 + 2-22.883,-22.837,-22.802,-22.774,-22.752,-22.735,-22.721,-22.710, 10.2 + 3 -24.550,-23.913,-23.521,-23.266,-23.094,-22.976,-22.893, 10.3 + 3-22.836,-22.796,-22.768,-22.750,-22.737,-22.730,-22.726,-22.725, 10.3 + 4 -24.301,-23.665,-23.274,-23.019,-22.848,-22.730,-22.648, 10.4 + 4-22.591,-22.552,-22.525,-22.507,-22.495,-22.489,-22.485,-22.485, 10.4 + 5 -24.519,-23.883,-23.491,-23.237,-23.065,-22.948,-22.866, 10.5 + 5-22.809,-22.770,-22.743,-22.724,-22.713,-22.706,-22.703,-22.702/ 10.5 + DATA PARTCH/ + 1 203.741, 249.643, 299.341, 353.477, 412.607, 477.237, + 2 547.817, 624.786, 708.543, 799.463, 897.912, 1004.227, + 3 1118.738, 1241.761, 1373.588, 1514.481, 1664.677, 1824.394, + 4 1993.801, 2173.050, 2362.234, 2561.424, 2770.674, 2989.930, + 5 3219.204, 3458.378, 3707.355, 3966.005, 4234.155, 4511.604, + 6 4798.135, 5093.554, 5397.593, 5709.948, 6030.401, 6358.646, + 7 6694.379, 7037.313, 7387.147, 7743.579, 8106.313/ + DATA FREQ1/0./ + 10 CHOP=0. + IF(FREQ.EQ.FREQ1)GO TO 30 + FREQ1=FREQ + WAVENO=FREQ/2.99792458D10 + EVOLT=WAVENO/8065.479D0 + N=EVOLT*10. + EN=FLOAT(N)*.1 + IF(N.LT.20)RETURN + IF(N.GE.105)RETURN + DO 21 IT=1,15 + 21 CROSSCHT(IT)=(CROSSCH(IT,N)+(CROSSCH(IT,N+1)-CROSSCH(IT,N))* + 1(EVOLT-EN)/.1) +C PRINT 26,CROSSCHT +C 26 FORMAT(3H0CH,15F8.3) + 30 IF(T(J).GE.9000.)RETURN + IF(N.LT.20)RETURN + IF(N.GE.105)RETURN + IT=(T(J)-1000.)/200.+1. + IT=MAX0(IT,1) + TN=FLOAT(IT)*200.+800. + PART=PARTCH(IT)+(PARTCH(IT+1)-PARTCH(IT))*(T(J)-TN)/200. + IT=(T(J)-2000.)/500.+1. + IT=MAX0(IT,1) + TN=FLOAT(IT)*500.+1500. + CHOP=EXP((CROSSCHT(IT)+(CROSSCHT(IT+1)-CROSSCHT(IT))* + 1(T(J)-TN)/500.)*2.30258509299405D0)*PART + RETURN + END + FUNCTION OHOP(J) +C CROSS-SECTION TIMES PARTITION FUNCTION + IMPLICIT REAL*8 (A-H,O-Z) + PARAMETER (kw=99) + COMMON /FREQ/FREQ,FREQLG,EHVKT(kw),STIM(kw),BNU(kw),WAVENO + COMMON /RHOX/RHOX(kw),NRHOX + COMMON /STATE/P(kw),XNE(kw),XNATOM(kw),RHO(kw),PTOTAL(kw) + COMMON /TEMP/T(kw),TKEV(kw),TK(kw),HKT(kw),TLOG(kw),HCKT(kw),ITEMP + DIMENSION CROSSOH(15,130),PARTOH(41),CROSSOHT(15) + DIMENSION C1(150),C2(150),C3(150),C4(150),C5(150) + DIMENSION C6(150),C7(150),C8(150),C9(150),C10(150) + DIMENSION C11(150),C12(150),C13(150) + EQUIVALENCE (CROSSOH(1, 1),C1(1)),(CROSSOH(1,11),C2(1)) + EQUIVALENCE (CROSSOH(1,21),C3(1)),(CROSSOH(1,31),C4(1)) + EQUIVALENCE (CROSSOH(1,41),C5(1)),(CROSSOH(1,51),C6(1)) + EQUIVALENCE (CROSSOH(1,61),C7(1)),(CROSSOH(1,71),C8(1)) + EQUIVALENCE (CROSSOH(1,81),C9(1)),(CROSSOH(1,91),C10(1)) + EQUIVALENCE (CROSSOH(1,101),C11(1)) + EQUIVALENCE (CROSSOH(1,111),C12(1)) + EQUIVALENCE (CROSSOH(1,121),C13(1)) + DATA C1/-30.855,-29.121,-27.976,-27.166,-26.566,-26.106,-25.742, 2.1 + 1-25.448,-25.207,-25.006,-24.836,-24.691,-24.566,-24.457,-24.363, 2.1 + 2 -30.494,-28.760,-27.615,-26.806,-26.206,-25.745,-25.381, 2.2 + 2-25.088,-24.846,-24.645,-24.475,-24.330,-24.205,-24.097,-24.002, 2.2 + 3 -30.157,-28.425,-27.280,-26.472,-25.872,-25.411,-25.048, 2.3 + 3-24.754,-24.513,-24.312,-24.142,-23.997,-23.872,-23.764,-23.669, 2.3 + 4 -29.848,-28.117,-26.974,-26.165,-25.566,-25.105,-24.742, 2.4 + 4-24.448,-24.207,-24.006,-23.836,-23.692,-23.567,-23.458,-23.364, 2.4 + 5 -29.567,-27.837,-26.693,-25.885,-25.286,-24.826,-24.462, 2.5 + 5-24.169,-23.928,-23.727,-23.557,-23.412,-23.287,-23.179,-23.084, 2.5 + 6 -29.307,-27.578,-26.436,-25.628,-25.029,-24.569,-24.205, 2.6 + 6-23.912,-23.671,-23.470,-23.300,-23.155,-23.031,-22.922,-22.828, 2.6 + 7 -29.068,-27.341,-26.199,-25.391,-24.792,-24.332,-23.969, 2.7 + 7-23.676,-23.435,-23.234,-23.064,-22.920,-22.795,-22.687,-22.592, 2.7 + 8 -28.820,-27.115,-25.978,-25.172,-24.574,-24.115,-23.752, 2.8 + 8-23.459,-23.218,-23.017,-22.848,-22.703,-22.579,-22.470,-22.376, 2.8 + 9 -28.540,-26.891,-25.768,-24.968,-24.372,-23.914,-23.552, 2.9 + 9-23.259,-23.019,-22.818,-22.649,-22.504,-22.380,-22.272,-22.177, 2.9 + A -28.275,-26.681,-25.574,-24.779,-24.186,-23.729,-23.368, 3.0 + A-23.076,-22.836,-22.636,-22.467,-22.322,-22.198,-22.090,-21.996/ 3.0 + DATA C2/-27.993,-26.470,-25.388,-24.602,-24.014,-23.560,-23.200, 3.1 + 1-22.909,-22.669,-22.470,-22.301,-22.157,-22.033,-21.925,-21.831, 3.1 + 2 -27.698,-26.252,-25.204,-24.433,-23.851,-23.401,-23.043, 3.2 + 2-22.754,-22.515,-22.316,-22.148,-22.005,-21.881,-21.773,-21.679, 3.2 + 3 -27.398,-26.026,-25.019,-24.267,-23.696,-23.251,-22.896, 3.3 + 3-22.609,-22.372,-22.174,-22.007,-21.864,-21.741,-21.634,-21.540, 3.3 + 4 -27.100,-25.791,-24.828,-24.102,-23.543,-23.106,-22.756, 3.4 + 4-22.472,-22.238,-22.041,-21.875,-21.733,-21.611,-21.504,-21.411, 3.4 + 5 -26.807,-25.549,-24.631,-23.933,-23.391,-22.964,-22.621, 3.5 + 5-22.341,-22.109,-21.915,-21.751,-21.610,-21.488,-21.383,-21.290, 3.5 + 6 -26.531,-25.310,-24.431,-23.761,-23.238,-22.823,-22.488, 3.6 + 6-22.214,-21.986,-21.795,-21.633,-21.494,-21.374,-21.269,-21.178, 3.6 + 7 -26.239,-25.066,-24.225,-23.585,-23.082,-22.681,-22.356, 3.7 + 7-22.089,-21.866,-21.679,-21.520,-21.383,-21.265,-21.162,-21.072, 3.7 + 8 -25.945,-24.824,-24.017,-23.405,-22.923,-22.538,-22.223, 3.8 + 8-21.964,-21.748,-21.565,-21.410,-21.276,-21.160,-21.059,-20.970, 3.8 + 9 -25.663,-24.587,-23.810,-23.222,-22.761,-22.391,-22.088, 3.9 + 9-21.838,-21.629,-21.452,-21.300,-21.170,-21.057,-20.958,-20.872, 3.9 + A -25.372,-24.350,-23.603,-23.038,-22.596,-22.241,-21.950, 4.0 + A-21.710,-21.508,-21.337,-21.190,-21.064,-20.954,-20.858,-20.774/ 4.0 + DATA C3/-25.076,-24.111,-23.396,-22.853,-22.429,-22.088,-21.809, 4.1 + 1-21.578,-21.384,-21.220,-21.078,-20.957,-20.851,-20.758,-20.676, 4.1 + 2 -24.779,-23.870,-23.189,-22.669,-22.261,-21.934,-21.667, 4.2 + 2-21.445,-21.259,-21.101,-20.965,-20.848,-20.746,-20.656,-20.578, 4.2 + 3 -24.486,-23.629,-22.983,-22.486,-22.095,-21.781,-21.524, 4.3 + 3-21.311,-21.132,-20.980,-20.850,-20.737,-20.639,-20.553,-20.478, 4.3 + 4 -24.183,-23.382,-22.774,-22.302,-21.928,-21.627,-21.381, 4.4 + 4-21.177,-21.005,-20.859,-20.734,-20.625,-20.531,-20.449,-20.376, 4.4 + 5 -23.867,-23.127,-22.561,-22.116,-21.761,-21.474,-21.238, 4.5 + 5-21.043,-20.878,-20.738,-20.617,-20.513,-20.423,-20.344,-20.274, 4.5 + 6 -23.538,-22.862,-22.340,-21.926,-21.592,-21.320,-21.096, 4.6 + 6-20.909,-20.751,-20.617,-20.502,-20.402,-20.315,-20.239,-20.172, 4.6 + 7 -23.234,-22.604,-22.120,-21.734,-21.422,-21.166,-20.953, 4.7 + 7-20.776,-20.625,-20.497,-20.387,-20.291,-20.208,-20.135,-20.071, 4.7 + 8 -22.934,-22.347,-21.898,-21.541,-21.250,-21.010,-20.811, 4.8 + 8-20.643,-20.500,-20.378,-20.273,-20.182,-20.102,-20.033,-19.971, 4.8 + 9 -22.637,-22.092,-21.676,-21.345,-21.075,-20.853,-20.666, 4.9 + 9-20.508,-20.374,-20.259,-20.159,-20.073,-19.997,-19.931,-19.872, 4.9 + A -22.337,-21.835,-21.452,-21.147,-20.899,-20.693,-20.520, 5.0 + A-20.373,-20.247,-20.139,-20.046,-19.964,-19.892,-19.830,-19.774/ 5.0 + DATA C4/-22.049,-21.584,-21.230,-20.950,-20.721,-20.531,-20.372, 5.1 + 1-20.236,-20.119,-20.019,-19.931,-19.855,-19.788,-19.729,-19.676, 5.1 + 2 -21.768,-21.337,-21.011,-20.754,-20.544,-20.370,-20.223, 5.2 + 2-20.098,-19.991,-19.898,-19.817,-19.746,-19.683,-19.628,-19.579, 5.2 + 3 -21.494,-21.096,-20.796,-20.559,-20.367,-20.208,-20.074, 5.3 + 3-19.960,-19.861,-19.776,-19.701,-19.636,-19.578,-19.527,-19.482, 5.3 + 4 -21.233,-20.861,-20.585,-20.368,-20.193,-20.048,-19.926, 5.4 + 4-19.821,-19.732,-19.654,-19.586,-19.526,-19.473,-19.426,-19.384, 5.4 + 5 -20.983,-20.635,-20.380,-20.181,-20.021,-19.889,-19.778, 5.5 + 5-19.683,-19.602,-19.531,-19.469,-19.415,-19.367,-19.324,-19.286, 5.5 + 6 -20.743,-20.418,-20.182,-19.999,-19.853,-19.733,-19.633, 5.6 + 6-19.547,-19.474,-19.410,-19.354,-19.305,-19.261,-19.223,-19.189, 5.6 + 7 -20.515,-20.210,-19.991,-19.824,-19.690,-19.581,-19.490, 5.7 + 7-19.413,-19.347,-19.290,-19.240,-19.196,-19.157,-19.122,-19.092, 5.7 + 8 -20.297,-20.011,-19.808,-19.654,-19.532,-19.434,-19.352, 5.8 + 8-19.282,-19.223,-19.172,-19.127,-19.088,-19.054,-19.023,-18.996, 5.8 + 9 -20.090,-19.822,-19.633,-19.491,-19.381,-19.291,-19.218, 5.9 + 9-19.156,-19.103,-19.057,-19.018,-18.983,-18.952,-18.925,-18.901, 5.9 + A -19.893,-19.642,-19.467,-19.337,-19.236,-19.155,-19.089, 6.0 + A-19.034,-18.987,-18.946,-18.912,-18.881,-18.854,-18.831,-18.810/ 6.0 + DATA C5/-19.705,-19.472,-19.309,-19.190,-19.098,-19.025,-18.966, 6.1 + 1-18.917,-18.876,-18.840,-18.810,-18.783,-18.760,-18.739,-18.721, 6.1 + 2 -19.527,-19.310,-19.161,-19.051,-18.968,-18.903,-18.851, 6.2 + 2-18.807,-18.771,-18.740,-18.713,-18.690,-18.670,-18.653,-18.637, 6.2 + 3 -19.357,-19.159,-19.022,-18.922,-18.847,-18.789,-18.743, 6.3 + 3-18.704,-18.673,-18.646,-18.623,-18.603,-18.586,-18.571,-18.558, 6.3 + 4 -19.195,-19.016,-18.892,-18.803,-18.736,-18.684,-18.643, 6.4 + 4-18.610,-18.583,-18.560,-18.540,-18.523,-18.509,-18.496,-18.485, 6.4 + 5 -19.042,-18.883,-18.772,-18.693,-18.634,-18.589,-18.553, 6.5 + 5-18.525,-18.501,-18.481,-18.465,-18.451,-18.438,-18.428,-18.419, 6.5 + 6 -18.894,-18.758,-18.662,-18.593,-18.542,-18.503,-18.473, 6.6 + 6-18.448,-18.428,-18.412,-18.398,-18.386,-18.376,-18.367,-18.359, 6.6 + 7 -18.752,-18.639,-18.559,-18.501,-18.458,-18.426,-18.400, 6.7 + 7-18.380,-18.363,-18.350,-18.338,-18.328,-18.320,-18.313,-18.306, 6.7 + 8 -18.611,-18.523,-18.460,-18.415,-18.381,-18.355,-18.334, 6.8 + 8-18.318,-18.304,-18.293,-18.284,-18.276,-18.269,-18.263,-18.258, 6.8 + 9 -18.471,-18.408,-18.362,-18.329,-18.304,-18.285,-18.269, 6.9 + 9-18.257,-18.247,-18.238,-18.231,-18.224,-18.219,-18.214,-18.210, 6.9 + A -18.330,-18.290,-18.261,-18.239,-18.223,-18.211,-18.201, 7.0 + A-18.192,-18.185,-18.179,-18.174,-18.169,-18.165,-18.162,-18.159/ 7.0 + DATA C6/-18.190,-18.168,-18.154,-18.143,-18.135,-18.129,-18.124, 7.1 + 1-18.120,-18.116,-18.112,-18.109,-18.106,-18.104,-18.102,-18.100, 7.1 + 2 -18.055,-18.047,-18.043,-18.042,-18.040,-18.039,-18.039, 7.2 + 2-18.038,-18.037,-18.036,-18.035,-18.034,-18.033,-18.033,-18.032, 7.2 + 3 -17.929,-17.931,-17.935,-17.939,-17.943,-17.946,-17.948, 7.3 + 3-17.950,-17.952,-17.953,-17.955,-17.956,-17.957,-17.958,-17.959, 7.3 + 4 -17.818,-17.826,-17.834,-17.842,-17.849,-17.855,-17.860, 7.4 + 4-17.865,-17.869,-17.872,-17.875,-17.878,-17.881,-17.883,-17.886, 7.4 + 5 -17.724,-17.736,-17.747,-17.758,-17.767,-17.775,-17.782, 7.5 + 5-17.788,-17.793,-17.798,-17.803,-17.807,-17.811,-17.815,-17.819, 7.5 + 6 -17.651,-17.665,-17.678,-17.690,-17.701,-17.710,-17.718, 7.6 + 6-17.725,-17.732,-17.738,-17.744,-17.749,-17.755,-17.760,-17.765, 7.6 + 7 -17.601,-17.615,-17.629,-17.642,-17.653,-17.663,-17.672, 7.7 + 7-17.680,-17.688,-17.695,-17.701,-17.708,-17.714,-17.720,-17.726, 7.7 + 8 -17.572,-17.587,-17.602,-17.614,-17.626,-17.636,-17.645, 7.8 + 8-17.654,-17.662,-17.670,-17.677,-17.684,-17.691,-17.698,-17.704, 7.8 + 9 -17.565,-17.581,-17.595,-17.607,-17.619,-17.629,-17.638, 7.9 + 9-17.647,-17.656,-17.664,-17.671,-17.679,-17.686,-17.693,-17.700, 7.9 + A -17.580,-17.594,-17.608,-17.620,-17.630,-17.640,-17.650, 8.0 + A-17.658,-17.667,-17.675,-17.682,-17.690,-17.697,-17.704,-17.711/ 8.0 + DATA C7/-17.613,-17.626,-17.639,-17.649,-17.659,-17.669,-17.677, 8.1 + 1-17.686,-17.694,-17.701,-17.709,-17.716,-17.723,-17.730,-17.737, 8.1 + 2 -17.663,-17.675,-17.685,-17.695,-17.703,-17.711,-17.719, 8.2 + 2-17.727,-17.734,-17.741,-17.748,-17.755,-17.761,-17.768,-17.774, 8.2 + 3 -17.728,-17.737,-17.745,-17.752,-17.759,-17.766,-17.772, 8.3 + 3-17.778,-17.785,-17.791,-17.797,-17.803,-17.808,-17.814,-17.820, 8.3 + 4 -17.803,-17.809,-17.814,-17.818,-17.823,-17.828,-17.832, 8.4 + 4-17.837,-17.842,-17.847,-17.852,-17.856,-17.861,-17.866,-17.871, 8.4 + 5 -17.884,-17.886,-17.888,-17.889,-17.891,-17.893,-17.896, 8.5 + 5-17.899,-17.902,-17.905,-17.908,-17.912,-17.915,-17.919,-17.922, 8.5 + 6 -17.966,-17.964,-17.961,-17.959,-17.958,-17.958,-17.958, 8.6 + 6-17.959,-17.960,-17.961,-17.963,-17.964,-17.966,-17.968,-17.970, 8.6 + 7 -18.040,-18.034,-18.028,-18.023,-18.019,-18.016,-18.013, 8.7 + 7-18.012,-18.010,-18.010,-18.009,-18.009,-18.009,-18.009,-18.010, 8.7 + 8 -18.096,-18.087,-18.078,-18.071,-18.065,-18.059,-18.055, 8.8 + 8-18.051,-18.047,-18.045,-18.042,-18.040,-18.039,-18.037,-18.036, 8.8 + 9 -18.125,-18.115,-18.105,-18.097,-18.089,-18.082,-18.076, 8.9 + 9-18.070,-18.065,-18.061,-18.057,-18.053,-18.051,-18.048,-18.046, 8.9 + A -18.120,-18.112,-18.103,-18.095,-18.087,-18.079,-18.072, 9.0 + A-18.066,-18.060,-18.055,-18.050,-18.046,-18.042,-18.039,-18.036/ 9.0 + DATA C8/-18.083,-18.078,-18.071,-18.064,-18.057,-18.050,-18.044, 9.1 + 1-18.037,-18.032,-18.026,-18.022,-18.017,-18.014,-18.010,-18.007, 9.1 + 2 -18.025,-18.022,-18.017,-18.012,-18.006,-18.000,-17.994, 9.2 + 2-17.989,-17.984,-17.979,-17.975,-17.971,-17.968,-17.965,-17.963, 9.2 + 3 -17.957,-17.955,-17.952,-17.948,-17.943,-17.938,-17.934, 9.3 + 3-17.929,-17.925,-17.922,-17.918,-17.916,-17.913,-17.911,-17.910, 9.3 + 4 -17.890,-17.889,-17.886,-17.882,-17.879,-17.875,-17.871, 9.4 + 4-17.867,-17.864,-17.862,-17.860,-17.858,-17.857,-17.856,-17.855, 9.4 + 5 -17.831,-17.829,-17.826,-17.822,-17.819,-17.815,-17.812, 9.5 + 5-17.810,-17.807,-17.806,-17.804,-17.803,-17.803,-17.803,-17.803, 9.5 + 6 -17.786,-17.782,-17.777,-17.773,-17.769,-17.766,-17.763, 9.6 + 6-17.761,-17.759,-17.758,-17.757,-17.757,-17.757,-17.758,-17.759, 9.6 + 7 -17.753,-17.747,-17.741,-17.735,-17.731,-17.727,-17.724, 9.7 + 7-17.722,-17.721,-17.720,-17.720,-17.720,-17.721,-17.722,-17.724, 9.7 + 8 -17.733,-17.724,-17.716,-17.709,-17.703,-17.699,-17.696, 9.8 + 8-17.694,-17.693,-17.692,-17.692,-17.693,-17.694,-17.695,-17.697, 9.8 + 9 -17.723,-17.711,-17.700,-17.691,-17.685,-17.680,-17.676, 9.9 + 9-17.674,-17.673,-17.672,-17.673,-17.673,-17.675,-17.676,-17.678, 9.9 + A -17.718,-17.702,-17.689,-17.679,-17.672,-17.667,-17.663, 10.0 + A-17.660,-17.659,-17.659,-17.659,-17.660,-17.661,-17.663,-17.665/ 10.0 + DATA C9/-17.713,-17.695,-17.681,-17.670,-17.662,-17.656,-17.653, 10.1 + 1-17.650,-17.649,-17.649,-17.649,-17.650,-17.651,-17.653,-17.655, 10.1 + 2 -17.705,-17.686,-17.671,-17.660,-17.652,-17.647,-17.643, 10.2 + 2-17.641,-17.640,-17.640,-17.640,-17.641,-17.643,-17.645,-17.647, 10.2 + 3 -17.690,-17.671,-17.657,-17.647,-17.640,-17.635,-17.632, 10.3 + 3-17.630,-17.630,-17.630,-17.631,-17.632,-17.634,-17.636,-17.639, 10.3 + 4 -17.667,-17.649,-17.637,-17.629,-17.623,-17.619,-17.618, 10.4 + 4-17.617,-17.617,-17.618,-17.619,-17.621,-17.623,-17.626,-17.628, 10.4 + 5 -17.635,-17.621,-17.611,-17.605,-17.601,-17.600,-17.599, 10.5 + 5-17.599,-17.601,-17.602,-17.604,-17.607,-17.609,-17.612,-17.615, 10.5 + 6 -17.596,-17.585,-17.579,-17.576,-17.575,-17.575,-17.576, 10.6 + 6-17.578,-17.580,-17.582,-17.585,-17.588,-17.591,-17.595,-17.598, 10.6 + 7 -17.550,-17.544,-17.542,-17.542,-17.544,-17.546,-17.548, 10.7 + 7-17.552,-17.555,-17.558,-17.562,-17.566,-17.570,-17.573,-17.577, 10.7 + 8 -17.501,-17.500,-17.501,-17.504,-17.508,-17.513,-17.517, 10.8 + 8-17.521,-17.526,-17.530,-17.535,-17.539,-17.544,-17.548,-17.553, 10.8 + 9 -17.449,-17.452,-17.457,-17.463,-17.470,-17.476,-17.482, 10.9 + 9-17.488,-17.493,-17.499,-17.504,-17.509,-17.514,-17.519,-17.524, 10.9 + A -17.396,-17.403,-17.412,-17.420,-17.429,-17.437,-17.444, 11.0 + A-17.451,-17.458,-17.464,-17.470,-17.476,-17.481,-17.487,-17.492/ 11.0 + DATAC10/-17.344,-17.355,-17.366,-17.377,-17.387,-17.396,-17.405, 11.1 + 1-17.413,-17.420,-17.427,-17.434,-17.440,-17.446,-17.452,-17.458, 11.1 + 2 -17.295,-17.307,-17.321,-17.333,-17.345,-17.355,-17.365, 11.2 + 2-17.373,-17.382,-17.389,-17.397,-17.404,-17.410,-17.417,-17.423, 11.2 + 3 -17.249,-17.264,-17.278,-17.292,-17.304,-17.316,-17.326, 11.3 + 3-17.335,-17.344,-17.352,-17.360,-17.368,-17.375,-17.382,-17.389, 11.3 + 4 -17.209,-17.225,-17.241,-17.255,-17.268,-17.280,-17.291, 11.4 + 4-17.301,-17.310,-17.319,-17.327,-17.335,-17.343,-17.350,-17.357, 11.4 + 5 -17.177,-17.194,-17.210,-17.225,-17.239,-17.251,-17.262, 11.5 + 5-17.272,-17.282,-17.291,-17.300,-17.308,-17.316,-17.324,-17.331, 11.5 + 6 -17.154,-17.172,-17.189,-17.204,-17.218,-17.230,-17.242, 11.6 + 6-17.252,-17.262,-17.272,-17.280,-17.289,-17.298,-17.306,-17.314, 11.6 + 7 -17.144,-17.162,-17.179,-17.194,-17.208,-17.220,-17.232, 11.7 + 7-17.242,-17.253,-17.262,-17.271,-17.280,-17.289,-17.297,-17.306, 11.7 + 8 -17.146,-17.164,-17.181,-17.196,-17.210,-17.222,-17.234, 11.8 + 8-17.245,-17.255,-17.265,-17.274,-17.283,-17.292,-17.301,-17.309, 11.8 + 9 -17.163,-17.180,-17.197,-17.212,-17.225,-17.237,-17.249, 11.9 + 9-17.260,-17.270,-17.280,-17.289,-17.298,-17.307,-17.316,-17.325, 11.9 + A -17.193,-17.211,-17.227,-17.241,-17.254,-17.266,-17.277, 12.0 + A-17.288,-17.298,-17.308,-17.317,-17.327,-17.336,-17.345,-17.353/ 12.0 + DATAC11/-17.239,-17.256,-17.271,-17.284,-17.297,-17.309,-17.320, 12.1 + 1-17.330,-17.340,-17.350,-17.359,-17.369,-17.378,-17.387,-17.395, 12.1 + 2 -17.299,-17.315,-17.329,-17.342,-17.354,-17.365,-17.376, 12.2 + 2-17.386,-17.396,-17.405,-17.415,-17.424,-17.433,-17.442,-17.451, 12.2 + 3 -17.373,-17.388,-17.402,-17.414,-17.425,-17.436,-17.446, 12.3 + 3-17.456,-17.466,-17.475,-17.484,-17.493,-17.502,-17.511,-17.520, 12.3 + 4 -17.462,-17.476,-17.489,-17.500,-17.511,-17.521,-17.531, 12.4 + 4-17.541,-17.550,-17.559,-17.569,-17.578,-17.587,-17.595,-17.604, 12.4 + 5 -17.567,-17.581,-17.592,-17.603,-17.613,-17.623,-17.632, 12.5 + 5-17.641,-17.651,-17.660,-17.669,-17.678,-17.686,-17.695,-17.704, 12.5 + 6 -17.689,-17.701,-17.712,-17.722,-17.732,-17.741,-17.750, 12.6 + 6-17.759,-17.768,-17.777,-17.786,-17.795,-17.803,-17.812,-17.821, 12.6 + 7 -17.829,-17.840,-17.851,-17.860,-17.869,-17.878,-17.887, 12.7 + 7-17.896,-17.904,-17.913,-17.922,-17.930,-17.939,-17.948,-17.956, 12.7 + 8 -17.988,-18.000,-18.010,-18.019,-18.028,-18.036,-18.045, 12.8 + 8-18.053,-18.062,-18.070,-18.079,-18.087,-18.096,-18.104,-18.112, 12.8 + 9 -18.171,-18.183,-18.192,-18.201,-18.210,-18.218,-18.227, 12.9 + 9-18.235,-18.243,-18.252,-18.260,-18.268,-18.277,-18.285,-18.293, 12.9 + A -18.381,-18.393,-18.403,-18.413,-18.422,-18.430,-18.438, 13.0 + A-18.447,-18.455,-18.463,-18.471,-18.479,-18.487,-18.495,-18.503/ 13.0 + DATAC12/-18.625,-18.638,-18.650,-18.660,-18.669,-18.678,-18.687, 13.1 + 1-18.695,-18.703,-18.711,-18.719,-18.726,-18.734,-18.742,-18.750, 13.1 + 2 -18.912,-18.929,-18.943,-18.955,-18.966,-18.975,-18.984, 13.2 + 2-18.993,-19.001,-19.008,-19.016,-19.023,-19.031,-19.038,-19.045, 13.2 + 3 -19.260,-19.283,-19.303,-19.320,-19.333,-19.345,-19.355, 13.3 + 3-19.364,-19.372,-19.380,-19.387,-19.394,-19.400,-19.407,-19.413, 13.3 + 4 -19.704,-19.740,-19.771,-19.796,-19.816,-19.832,-19.845, 13.4 + 4-19.855,-19.863,-19.870,-19.876,-19.882,-19.887,-19.892,-19.897, 13.4 + 5 -20.339,-20.386,-20.424,-20.454,-20.476,-20.492,-20.502, 13.5 + 5-20.509,-20.513,-20.516,-20.518,-20.520,-20.521,-20.523,-20.524, 13.5 + 6 -21.052,-21.075,-21.093,-21.105,-21.114,-21.120,-21.123, 13.6 + 6-21.125,-21.126,-21.127,-21.128,-21.130,-21.131,-21.133,-21.135, 13.6 + 7 -21.174,-21.203,-21.230,-21.255,-21.278,-21.299,-21.320, 13.7 + 7-21.339,-21.357,-21.375,-21.392,-21.408,-21.424,-21.439,-21.454, 13.7 + 8 -21.285,-21.317,-21.346,-21.372,-21.395,-21.416,-21.435, 13.8 + 8-21.452,-21.468,-21.483,-21.497,-21.511,-21.524,-21.536,-21.548, 13.8 + 9 -21.396,-21.429,-21.459,-21.486,-21.511,-21.532,-21.551, 13.9 + 9-21.569,-21.585,-21.600,-21.614,-21.627,-21.640,-21.652,-21.663, 13.9 + A -21.516,-21.549,-21.580,-21.609,-21.635,-21.658,-21.678, 14.0 + A-21.696,-21.713,-21.728,-21.742,-21.755,-21.767,-21.779,-21.790/ 14.0 + DATAC13/-21.651,-21.681,-21.711,-21.738,-21.763,-21.785,-21.804, 14.1 + 1-21.821,-21.837,-21.851,-21.864,-21.876,-21.887,-21.898,-21.908, 14.1 + 2 -21.810,-21.831,-21.853,-21.874,-21.893,-21.910,-21.925, 14.2 + 2-21.938,-21.950,-21.961,-21.971,-21.980,-21.989,-21.998,-22.006, 14.2 + 3 -22.009,-22.016,-22.026,-22.037,-22.048,-22.058,-22.066, 14.3 + 3-22.074,-22.081,-22.088,-22.094,-22.099,-22.105,-22.111,-22.117, 14.3 + 4 -22.353,-22.317,-22.296,-22.284,-22.276,-22.270,-22.266, 14.4 + 4-22.262,-22.260,-22.258,-22.257,-22.257,-22.257,-22.258,-22.259, 14.4 + 5 -22.705,-22.609,-22.552,-22.515,-22.488,-22.468,-22.451, 14.5 + 5-22.438,-22.427,-22.418,-22.410,-22.405,-22.400,-22.397,-22.395, 14.5 + 6 -22.889,-22.791,-22.731,-22.690,-22.659,-22.634,-22.612, 14.6 + 6-22.594,-22.579,-22.566,-22.555,-22.546,-22.539,-22.533,-22.528, 14.6 + 7 -23.211,-23.109,-23.041,-22.989,-22.945,-22.906,-22.872, 14.7 + 7-22.842,-22.816,-22.793,-22.774,-22.757,-22.743,-22.732,-22.722, 14.7 + 8 -25.312,-24.669,-24.250,-23.959,-23.746,-23.587,-23.463, 14.8 + 8-23.366,-23.288,-23.225,-23.173,-23.131,-23.095,-23.066,-23.041, 14.8 + 9 -25.394,-24.752,-24.333,-24.041,-23.829,-23.669,-23.546, 14.9 + 9-23.449,-23.371,-23.308,-23.256,-23.214,-23.178,-23.149,-23.124, 14.9 + A -25.430,-24.787,-24.369,-24.077,-23.865,-23.705,-23.582, 15.0 + A-23.484,-23.407,-23.344,-23.292,-23.249,-23.214,-23.185,-23.160/ 15.0 + DATA PARTOH/ + 1 145.979, 178.033, 211.618, 247.053, 284.584, 324.398, + 2 366.639, 411.425, 458.854, 509.012, 561.976, 617.823, + 3 676.626, 738.448, 803.363, 871.437, 942.735, 1017.330, + 4 1095.284, 1176.654, 1261.510, 1349.898, 1441.875, 1537.483, + 5 1636.753, 1739.733, 1846.434, 1956.883, 2071.080, 2189.029, + 6 2310.724, 2436.155, 2565.283, 2698.103, 2834.571, 2974.627, + 7 3118.242, 3265.366, 3415.912, 3569.837, 3727.077/ + DATA FREQ1/0./ + 10 OHOP=0. + IF(FREQ.EQ.FREQ1)GO TO 30 + FREQ1=FREQ + WAVENO=FREQ/2.99792458D10 + EVOLT=WAVENO/8065.479D0 + N=EVOLT*10.-20. + EN=FLOAT(N)*.1+2. + IF(N.LE.0)RETURN + IF(N.GE.130)RETURN + DO 21 IT=1,15 + 21 CROSSOHT(IT)=(CROSSOH(IT,N)+(CROSSOH(IT,N+1)-CROSSOH(IT,N))* + 1(EVOLT-EN)/.1) +C PRINT 26,CROSSOHT +C 26 FORMAT(3H0OH,15F8.3) + 30 IF(T(J).GE.9000.)RETURN + IF(N.LE.0)RETURN + IF(N.GE.130)RETURN + IT=(T(J)-1000.)/200.+1. + IT=MAX0(IT,1) + TN=FLOAT(IT)*200.+800. + PART=PARTOH(IT)+(PARTOH(IT+1)-PARTOH(IT))*(T(J)-TN)/200. + IT=(T(J)-2000.)/500.+1. + IT=MAX0(IT,1) + TN=FLOAT(IT)*500.+1500. + OHOP=EXP((CROSSOHT(IT)+(CROSSOHT(IT+1)-CROSSOHT(IT))* + 1(T(J)-TN)/500.)*2.30258509299405D0)*PART + RETURN + END + SUBROUTINE H2COLLOP(AH2COLL) +C H2-H2 and H2-He collision induced dipole +C Borysow, A., Jorgensen, U.G., and Zheng, C. A&A 324, 185-195, 1997. +C also www.astro.ku.dk/~aborysow + IMPLICIT REAL*8 (A-H,O-Z) + PARAMETER (kw=99) + COMMON /BHE/BHE1(kw,29),AHE1(kw),SHE1(kw),BHE2(kw,6),AHE2(kw), + 1 SHE2(kw),AHEMIN(kw),SIGHE(kw),XNFPHE(kw,3),XNFHE(kw,2) + COMMON /BHYD/BHYD(kw,8),AHYD(kw),SHYD(kw),AH2P(kw),BMIN(kw), + 1 AHMIN(kw),SHMIN(kw),SIGH(kw),SIGH2(kw),AHLINE(kw), + 2 SHLINE(kw),XNFPH(kw,2),XNFH(kw) + COMMON /FREQ/FREQ,FREQLG,EHVKT(kw),STIM(kw),BNU(kw),WAVENO + COMMON /RHOX/RHOX(kw),NRHOX + COMMON /STATE/P(kw),XNE(kw),XNATOM(kw),RHO(kw),PTOTAL(kw) + COMMON /TEMP/T(kw),TKEV(kw),TK(kw),HKT(kw),TLOG(kw),HCKT(kw),ITEMP + DIMENSION XNH2(kw),AH2COLL(kw) + DIMENSION H2HE(7,81),H2H2(7,81),H2HENU(7),H2H2NU(7) + DIMENSION H2HE1(7,9),H2HE2(7,9),H2HE3(7,9),H2HE4(7,9),H2HE5(7,9) + DIMENSION H2HE6(7,9),H2HE7(7,9),H2HE8(7,9),H2HE9(7,9) + DIMENSION H2H21(7,9),H2H22(7,9),H2H23(7,9),H2H24(7,9),H2H25(7,9) + DIMENSION H2H26(7,9),H2H27(7,9),H2H28(7,9),H2H29(7,9) + EQUIVALENCE (H2HE(1, 1),H2HE1(1,1)),(H2HE(1,10),H2HE2(1,1)) + EQUIVALENCE (H2HE(1,19),H2HE3(1,1)),(H2HE(1,28),H2HE4(1,1)) + EQUIVALENCE (H2HE(1,37),H2HE5(1,1)),(H2HE(1,46),H2HE6(1,1)) + EQUIVALENCE (H2HE(1,55),H2HE7(1,1)),(H2HE(1,64),H2HE8(1,1)) + EQUIVALENCE (H2HE(1,73),H2HE9(1,1)) + EQUIVALENCE (H2H2(1, 1),H2H21(1,1)),(H2H2(1,10),H2H22(1,1)) + EQUIVALENCE (H2H2(1,19),H2H23(1,1)),(H2H2(1,28),H2H24(1,1)) + EQUIVALENCE (H2H2(1,37),H2H25(1,1)),(H2H2(1,46),H2H26(1,1)) + EQUIVALENCE (H2H2(1,55),H2H27(1,1)),(H2H2(1,64),H2H28(1,1)) + EQUIVALENCE (H2H2(1,73),H2H29(1,1)) + DATA H2H21/ + 1 -46.000,-46.000,-46.000,-46.000,-46.000,-46.000,-46.000, + 2 -45.350,-45.350,-45.350,-45.350,-45.350,-45.350,-45.350, + 3 -44.850,-44.850,-44.850,-44.850,-44.850,-45.850,-45.850, + 4 -44.375,-44.465,-44.497,-44.504,-44.502,-44.657,-44.656, + 5 -44.161,-44.216,-44.249,-44.255,-44.245,-44.231,-44.227, + 6 -44.160,-44.081,-44.081,-44.076,-44.063,-44.047,-44.042, + 7 -44.249,-44.017,-43.966,-43.940,-43.918,-43.898,-43.891, + 8 -44.450,-44.020,-43.900,-43.844,-43.806,-43.776,-43.764, + 9 -44.712,-44.080,-43.881,-43.785,-43.726,-43.682,-43.662/ + DATA H2H22/ + 1 -45.016,-44.186,-43.902,-43.763,-43.677,-43.616,-43.586, + 2 -45.308,-44.319,-43.958,-43.773,-43.659,-43.579,-43.537, + 3 -45.452,-44.442,-44.034,-43.810,-43.669,-43.570,-43.514, + 4 -45.306,-44.500,-44.100,-43.858,-43.697,-43.580,-43.511, + 5 -45.081,-44.452,-44.111,-43.887,-43.724,-43.598,-43.518, + 6 -44.801,-44.302,-44.049,-43.876,-43.734,-43.608,-43.522, + 7 -44.494,-44.104,-43.945,-43.832,-43.720,-43.603,-43.516, + 8 -44.177,-43.936,-43.849,-43.783,-43.704,-43.596,-43.511, + 9 -44.042,-43.865,-43.807,-43.767,-43.712,-43.611,-43.527/ + DATA H2H23/ + 1 -44.148,-43.922,-43.846,-43.806,-43.763,-43.662,-43.578, + 2 -44.293,-44.042,-43.936,-43.884,-43.843,-43.742,-43.653, + 3 -44.444,-44.179,-44.052,-43.984,-43.937,-43.832,-43.739, + 4 -44.594,-44.311,-44.173,-44.091,-44.033,-43.924,-43.827, + 5 -44.818,-44.448,-44.292,-44.196,-44.124,-44.012,-43.910, + 6 -45.097,-44.600,-44.414,-44.300,-44.210,-44.095,-43.989, + 7 -45.437,-44.782,-44.548,-44.409,-44.294,-44.177,-44.068, + 8 -45.771,-44.992,-44.702,-44.533,-44.391,-44.269,-44.154, + 9 -46.088,-45.218,-44.873,-44.672,-44.503,-44.374,-44.251/ + DATA H2H24/ + 1 -46.371,-45.438,-45.046,-44.813,-44.621,-44.483,-44.351, + 2 -46.554,-45.632,-45.209,-44.949,-44.738,-44.590,-44.448, + 3 -46.593,-45.788,-45.352,-45.074,-44.848,-44.692,-44.542, + 4 -46.513,-45.887,-45.463,-45.181,-44.950,-44.786,-44.627, + 5 -46.391,-45.917,-45.542,-45.271,-45.041,-44.873,-44.707, + 6 -46.197,-45.896,-45.601,-45.350,-45.124,-44.952,-44.781, + 7 -46.086,-45.911,-45.664,-45.423,-45.198,-45.023,-44.848, + 8 -46.127,-45.958,-45.723,-45.487,-45.265,-45.089,-44.913, + 9 -46.077,-45.963,-45.755,-45.534,-45.322,-45.149,-44.973/ + DATA H2H25/ + 1 -46.057,-45.947,-45.770,-45.571,-45.371,-45.204,-45.030, + 2 -46.122,-45.959,-45.792,-45.610,-45.422,-45.260,-45.088, + 3 -46.302,-46.023,-45.840,-45.662,-45.480,-45.322,-45.149, + 4 -46.560,-46.146,-45.928,-45.741,-45.557,-45.394,-45.218, + 5 -46.891,-46.327,-46.058,-45.844,-45.648,-45.477,-45.292, + 6 -47.245,-46.558,-46.226,-45.967,-45.753,-45.568,-45.372, + 7 -47.527,-46.793,-46.408,-46.110,-45.871,-45.668,-45.457, + 8 -47.729,-47.001,-46.589,-46.254,-45.992,-45.771,-45.544, + 9 -47.829,-47.161,-46.750,-46.391,-46.111,-45.872,-45.630/ + DATA H2H26/ + 1 -47.825,-47.265,-46.879,-46.547,-46.239,-45.980,-45.719, + 2 -47.740,-47.317,-46.979,-46.658,-46.345,-46.075,-45.803, + 3 -47.635,-47.340,-47.055,-46.755,-46.444,-46.166,-45.882, + 4 -47.593,-47.358,-47.122,-46.844,-46.536,-46.252,-45.961, + 5 -47.488,-47.375,-47.178,-46.921,-46.621,-46.334,-46.036, + 6 -47.517,-47.387,-47.213,-46.982,-46.696,-46.412,-46.109, + 7 -47.511,-47.385,-47.234,-47.031,-46.765,-46.485,-46.180, + 8 -47.601,-47.428,-47.274,-47.084,-46.834,-46.558,-46.251, + 9 -47.740,-47.509,-47.339,-47.150,-46.906,-46.632,-46.322/ + DATA H2H27/ + 1 -48.007,-47.632,-47.429,-47.233,-46.988,-46.710,-46.395, + 2 -48.371,-47.825,-47.563,-47.341,-47.081,-46.794,-46.469, + 3 -48.778,-48.074,-47.739,-47.476,-47.189,-46.884,-46.547, + 4 -49.170,-48.341,-47.936,-47.625,-47.304,-46.977,-46.625, + 5 -49.531,-48.604,-48.136,-47.780,-47.424,-47.074,-46.704, + 6 -49.869,-48.850,-48.328,-47.932,-47.543,-47.170,-46.784, + 7 -50.189,-49.080,-48.510,-48.078,-47.660,-47.264,-46.863, + 8 -50.496,-49.299,-48.682,-48.218,-47.774,-47.358,-46.940, + 9 -50.797,-49.508,-48.847,-48.353,-47.885,-47.449,-47.018/ + DATA H2H28/ + 1 -51.088,-49.711,-49.008,-48.484,-47.993,-47.540,-47.094, + 2 -51.374,-49.907,-49.163,-48.613,-48.100,-47.629,-47.170, + 3 -51.655,-50.102,-49.317,-48.740,-48.205,-47.717,-47.246, + 4 -51.931,-50.293,-49.468,-48.865,-48.309,-47.804,-47.321, + 5 -52.205,-50.481,-49.617,-48.989,-48.413,-47.891,-47.396, + 6 -52.475,-50.670,-49.767,-49.112,-48.516,-47.978,-47.470, + 7 -52.742,-50.855,-49.915,-49.235,-48.619,-48.064,-47.545, + 8 -53.010,-51.038,-50.062,-49.358,-48.721,-48.150,-47.619, + 9 -53.277,-51.221,-50.209,-49.481,-48.824,-48.236,-47.692/ + DATA H2H29/ + 1 -53.545,-51.399,-50.353,-49.602,-48.925,-48.321,-47.765, + 2 -53.812,-51.575,-50.496,-49.722,-49.026,-48.405,-47.839, + 3 -54.080,-51.748,-50.634,-49.840,-49.125,-48.489,-47.911, + 4 -54.347,-51.918,-50.769,-49.954,-49.222,-48.571,-47.984, + 5 -54.615,-52.086,-50.900,-50.065,-49.317,-48.653,-48.055, + 6 -54.882,-52.253,-51.029,-50.174,-49.411,-48.733,-48.125, + 7 -55.150,-52.419,-51.158,-50.282,-49.506,-48.813,-48.196, + 8 -55.417,-52.584,-51.288,-50.399,-49.642,-48.903,-48.268, + 9 -55.685,-52.778,-51.420,-50.527,-49.732,-48.981,-48.338/ + DATA H2HE1/ + 1 -46.000,-46.000,-46.000,-46.000,-46.000,-46.000,-46.000, + 2 -44.288,-44.288,-44.288,-44.288,-44.288,-44.288,-44.288, + 3 -44.288,-44.142,-44.045,-43.997,-43.949,-44.900,-43.852, + 4 -44.362,-44.090,-43.978,-43.901,-43.833,-43.939,-43.716, + 5 -44.461,-44.114,-43.954,-43.863,-43.786,-43.717,-43.654, + 6 -44.601,-44.195,-43.973,-43.875,-43.791,-43.715,-43.646, + 7 -44.777,-44.292,-44.012,-43.905,-43.813,-43.732,-43.658, + 8 -45.000,-44.402,-44.061,-43.946,-43.844,-43.756,-43.678, + 9 -45.268,-44.530,-44.122,-43.996,-43.883,-43.786,-43.703/ + DATA H2HE2/ + 1 -45.562,-44.680,-44.199,-44.059,-43.932,-43.823,-43.733, + 2 -45.841,-44.841,-44.289,-44.128,-43.983,-43.862,-43.766, + 3 -46.012,-44.969,-44.371,-44.182,-44.017,-43.891,-43.789, + 4 -45.931,-44.975,-44.394,-44.173,-43.999,-43.872,-43.779, + 5 -45.621,-44.790,-44.293,-44.062,-43.905,-43.793,-43.726, + 6 -45.151,-44.469,-44.084,-43.871,-43.755,-43.705,-43.666, + 7 -44.620,-44.131,-43.871,-43.715,-43.640,-43.644,-43.628, + 8 -44.166,-43.892,-43.748,-43.674,-43.639,-43.628,-43.625, + 9 -44.023,-43.837,-43.743,-43.710,-43.691,-43.663,-43.660/ + DATA H2HE3/ + 1 -44.190,-43.942,-43.830,-43.782,-43.755,-43.735,-43.719, + 2 -44.446,-44.120,-43.967,-43.884,-43.839,-43.807,-43.776, + 3 -44.689,-44.312,-44.120,-44.011,-43.932,-43.872,-43.826, + 4 -44.904,-44.491,-44.269,-44.134,-44.022,-43.941,-43.881, + 5 -45.133,-44.656,-44.407,-44.244,-44.115,-44.016,-43.941, + 6 -45.398,-44.824,-44.543,-44.359,-44.217,-44.098,-44.006, + 7 -45.701,-45.010,-44.686,-44.481,-44.322,-44.186,-44.076, + 8 -46.024,-45.221,-44.843,-44.610,-44.431,-44.275,-44.147, + 9 -46.350,-45.449,-45.015,-44.747,-44.542,-44.366,-44.219/ + DATA H2HE4/ + 1 -46.736,-45.674,-45.189,-44.887,-44.657,-44.458,-44.294, + 2 -46.993,-45.865,-45.347,-45.023,-44.771,-44.551,-44.367, + 3 -47.031,-45.981,-45.469,-45.141,-44.878,-44.640,-44.437, + 4 -46.787,-46.008,-45.553,-45.244,-44.979,-44.727,-44.506, + 5 -46.496,-45.969,-45.618,-45.343,-45.085,-44.820,-44.579, + 6 -46.310,-45.953,-45.689,-45.449,-45.198,-44.919,-44.656, + 7 -46.295,-46.001,-45.787,-45.572,-45.321,-45.021,-44.732, + 8 -46.434,-46.122,-45.919,-45.717,-45.453,-45.123,-44.804, + 9 -46.671,-46.306,-46.085,-45.896,-45.588,-45.224,-44.873/ + DATA H2HE5/ + 1 -46.964,-46.539,-46.284,-46.068,-45.723,-45.320,-44.937, + 2 -47.295,-46.807,-46.501,-46.241,-45.858,-45.412,-44.998, + 3 -47.662,-47.097,-46.723,-46.415,-45.996,-45.500,-45.056, + 4 -48.050,-47.399,-46.949,-46.583,-46.135,-45.587,-45.111, + 5 -48.416,-47.683,-47.169,-46.749,-46.274,-45.671,-45.165, + 6 -48.678,-47.892,-47.359,-46.907,-46.412,-45.752,-45.215, + 7 -48.720,-47.963,-47.494,-47.044,-46.551,-45.828,-45.263, + 8 -48.583,-47.912,-47.566,-47.160,-46.689,-45.901,-45.309, + 9 -48.380,-47.807,-47.574,-47.236,-46.828,-45.972,-45.354/ + DATA H2HE6/ + 1 -48.164,-47.692,-47.543,-47.281,-46.953,-46.041,-45.397, + 2 -47.988,-47.603,-47.513,-47.300,-47.028,-46.106,-45.438, + 3 -47.874,-47.562,-47.506,-47.326,-47.085,-46.171,-45.479, + 4 -47.846,-47.571,-47.518,-47.361,-47.141,-46.235,-45.519, + 5 -47.827,-47.577,-47.536,-47.397,-47.194,-46.298,-45.558, + 6 -47.841,-47.583,-47.548,-47.416,-47.234,-46.357,-45.596, + 7 -47.949,-47.631,-47.550,-47.411,-47.253,-46.412,-45.632, + 8 -48.168,-47.763,-47.580,-47.428,-47.282,-46.467,-45.668, + 9 -48.442,-47.955,-47.682,-47.516,-47.360,-46.528,-45.704/ + DATA H2HE7/ + 1 -48.685,-48.145,-47.839,-47.654,-47.473,-46.593,-45.741, + 2 -48.859,-48.310,-47.990,-47.778,-47.575,-46.655,-45.777, + 3 -48.989,-48.445,-48.118,-47.878,-47.660,-46.714,-45.813, + 4 -49.121,-48.560,-48.250,-47.981,-47.749,-46.773,-45.847, + 5 -49.277,-48.667,-48.390,-48.094,-47.842,-46.831,-45.881, + 6 -49.469,-48.778,-48.525,-48.202,-47.933,-46.888,-45.916, + 7 -49.697,-48.907,-48.650,-48.303,-48.019,-46.943,-45.949, + 8 -49.939,-49.059,-48.774,-48.403,-48.104,-46.996,-45.982, + 9 -50.225,-49.227,-48.898,-48.504,-48.190,-47.049,-46.015/ + DATA H2HE8/ + 1 -50.537,-49.406,-49.016,-48.603,-48.273,-47.101,-46.048, + 2 -50.831,-49.598,-49.130,-48.697,-48.354,-47.152,-46.080, + 3 -50.981,-49.807,-49.239,-48.791,-48.435,-47.202,-46.112, + 4 -51.106,-50.006,-49.345,-48.882,-48.514,-47.251,-46.145, + 5 -51.231,-50.131,-49.445,-48.972,-48.591,-47.299,-46.176, + 6 -51.356,-50.256,-49.540,-49.060,-48.667,-47.347,-46.208, + 7 -51.481,-50.381,-49.629,-49.143,-48.741,-47.392,-46.239, + 8 -51.606,-50.506,-49.711,-49.225,-48.813,-47.437,-46.271, + 9 -51.731,-50.631,-49.787,-49.303,-48.885,-47.481,-46.302/ + DATA H2HE9/ + 1 -51.856,-50.756,-49.858,-49.377,-48.955,-47.523,-46.333, + 2 -51.981,-50.881,-49.929,-49.449,-49.023,-47.566,-46.364, + 3 -52.106,-51.006,-50.000,-49.517,-49.089,-47.607,-46.395, + 4 -52.231,-51.131,-50.069,-49.581,-49.154,-47.647,-46.425, + 5 -52.356,-51.256,-50.133,-49.642,-49.217,-47.687,-46.456, + 6 -52.481,-51.381,-50.204,-49.699,-49.278,-47.726,-46.486, + 7 -52.606,-51.506,-50.275,-49.752,-49.337,-47.765,-46.517, + 8 -52.731,-51.631,-50.347,-49.803,-49.396,-47.802,-46.548, + 9 -52.856,-51.756,-50.418,-49.850,-49.450,-47.839,-46.578/ + DATA ITEMP1/0/ + IF(ITEMP.EQ.ITEMP1)GO TO 20 + ITEMP1=ITEMP + DO 11 J=1,NRHOX +C 11 XNH2(J)=(XNFPH(J,1)*2.*BHYD(J,1))**2*EXP(4.477D0/TKEV(J)-4.6628D1+ +C 1(1.8031D-3+(-5.0239D-7+(8.1424D-11-5.0501D-15*T(J))*T(J))*T(J))* +C 2T(J)-1.5*TLOG(J)) + 11 XNH2(J)=(XNFPH(J,1)*2.*BHYD(J,1))**2*EXP(4.478/TKEV(J)-4.64584D1+ + 1(1.63660D-3+(-4.93992D-7+(1.11822D-10+(-1.49567D-14+ + 2(1.06206D-18-3.08720D-23*T(J))*T(J))*T(J))*T(J))*T(J))*T(J)- + 3 1.5*TLOG(J)) +C PRINT 12,XNH2 + 12 FORMAT(1P10E12.3) + 20 WAVENO=FREQ/2.99792458D10 + IF(WAVENO.GT.20000.)THEN + DO 19 J=1,NRHOX + 19 AH2COLL(J)=0. + RETURN + ENDIF + NU=WAVENO/250. + NU=MIN(79,NU) + DELNU=(WAVENO-250.*NU)/250. +C PRINT 12,WAVENO,DELNU + DO 21 IT=1,7 + H2H2NU(IT)=H2H2(IT,NU+1)*DELNU+H2H2(IT,NU+2)*(1.-DELNU) + 21 H2HENU(IT)=H2H2(IT,NU+1)*DELNU+H2HE(IT,NU+2)*(1.-DELNU) + DO 22 J=1,NRHOX + IT=T(J)/1000. + IT=MAX(1,MIN(6,IT)) + DELT=(T(J)-1000.*IT)/1000. + DELT=MAX(0.D0,MIN(1.D0,DELT)) + XH2H2=H2H2NU(IT)*DELT+H2H2NU(IT+1)*(1.-DELT) + XH2HE=H2HENU(IT)*DELT+H2HENU(IT+1)*(1.-DELT) +C PRINT 12, XH2H2,XH2HE,XNFHE(J,1),XNH2(J),RHO(J) + 22 AH2COLL(J)=(10.**XH2HE*XNFHE(J,1)+10.**XH2H2*XNH2(J))*XNH2(J)/ + 1 RHO(J)*STIM(J) +C PRINT 12, AH2COLL + RETURN + END + SUBROUTINE LUKEOP + IMPLICIT REAL*8 (A-H,O-Z) + PARAMETER (kw=99) +C SI2,MG2,CA2,N1,O1 + COMMON /FREQ/FREQ,FREQLG,EHVKT(kw),STIM(kw),BNU(kw),WAVENO + COMMON /OPS/ACOOL(kw),ALUKE(kw),AHOT(kw),SIGEL(kw),ALINES(kw), + 1 SIGLIN(kw),AXLINE(kw),SIGXL(kw),AXCONT(kw),SIGX(kw), + 2 SXLINE(kw),SXCONT(kw) + COMMON /RHOX/RHOX(kw),NRHOX + COMMON /STATE/P(kw),XNE(kw),XNATOM(kw),RHO(kw),PTOTAL(kw) + COMMON /TEMP/T(kw),TKEV(kw),TK(kw),HKT(kw),TLOG(kw),HCKT(kw),ITEMP + DIMENSION XNFPN(kw),XNFPO(kw),XNFPMG(kw),XNFPSI(kw),XNFPCA(kw) + REAL*8 N1OP,MG2OP + DATA ITEMP1/0/ + IF(ITEMP.EQ.ITEMP1)GO TO 10 + ITEMP1=ITEMP + CALL POPS(7.D0,1,XNFPN) + CALL POPS(8.D0,1,XNFPO) + CALL POPS(12.01D0,1,XNFPMG) + CALL POPS(14.01D0,1,XNFPSI) + CALL POPS(20.01D0,1,XNFPCA) + 10 DO 11 J=1,NRHOX + 11 ALUKE(J)=(N1OP(J)*XNFPN(J)+O1OP(J)*XNFPO(J)+MG2OP(J)*XNFPMG(J)+ + 1SI2OP(J)*XNFPSI(J)+CA2OP(J)*XNFPCA(J))*STIM(J)/RHO(J) + RETURN + END + REAL*8 FUNCTION N1OP(J) + IMPLICIT REAL*8 (A-H,O-Z) + PARAMETER (kw=99) +C CROSS-SECTION TIMES PARTITION FUNCTION + COMMON /FREQ/FREQ,FREQLG,EHVKT(kw),STIM(kw),BNU(kw),WAVENO + COMMON /RHOX/RHOX(kw),NRHOX + COMMON /TEMP/T(kw),TKEV(kw),TK(kw),HKT(kw),TLOG(kw),HCKT(kw),ITEMP + DIMENSION C1130(kw),C1020(kw) + DATA FREQ1,ITEMP1/0.,0/ + IF(ITEMP.EQ.ITEMP1)GO TO 30 + ITEMP1=ITEMP + DO 20 K=1,NRHOX + C1130(K)=6.*EXP(-3.575/TKEV(K)) + 20 C1020(K)=10.*EXP(-2.384/TKEV(K)) + 30 IF(FREQ.EQ.FREQ1)GO TO 40 + X1130=0. + X1020=0. + X853=0. + IF(FREQ.GE.3.517915D15)X853= + 1SEATON(3.517915D15,1.142D-17,2.D0,4.29D0) + IF(FREQ.GE.2.941534D15)X1020= + 1SEATON(2.941534D15,4.41D-18,1.5D0,3.85D0) + IF(FREQ.GE.2.653317D15)X1130= + 1SEATON(2.653317D15,4.2D-18,1.5D0,4.34D0) + FREQ1=FREQ + 40 N1OP=X853*4.+X1020*C1020(J)+X1130*C1130(J) + RETURN + END + FUNCTION O1OP(J) + IMPLICIT REAL*8 (A-H,O-Z) + PARAMETER (kw=99) +C FROM DEANE PETERSON AFTER PEACH +C CROSS-SECTION TIMES PARTITION FUNCTION + COMMON /FREQ/FREQ,FREQLG,EHVKT(kw),STIM(kw),BNU(kw),WAVENO + DATA FREQ1/0./ + IF(FREQ.EQ.FREQ1)GO TO 1 + X911=0. + IF(FREQ.GE.3.28805D15)X911=SEATON(3.28805D15,2.94D-18,1.D0,2.66D0) + FREQ1=FREQ + 1 O1OP=X911*9. + RETURN + END + REAL*8 FUNCTION MG2OP(J) + IMPLICIT REAL*8 (A-H,O-Z) + PARAMETER (kw=99) +C CROSS-SECTION TIMES PARTITION FUNCTION + COMMON /FREQ/FREQ,FREQLG,EHVKT(kw),STIM(kw),BNU(kw),WAVENO + COMMON /RHOX/RHOX(kw),NRHOX + COMMON /TEMP/T(kw),TKEV(kw),TK(kw),HKT(kw),TLOG(kw),HCKT(kw),ITEMP + DIMENSION C1169(kw) + DATA FREQ1,ITEMP1/0.,0/ + IF(ITEMP.EQ.ITEMP1)GO TO 30 + ITEMP1=ITEMP + DO 20 K=1,NRHOX + 20 C1169(K)=6.*EXP(-4.43/TKEV(K)) + 30 IF(FREQ.EQ.FREQ1)GO TO 40 + X1169=0. + X824=0. + IF(FREQ.GE.3.635492D15)X824= + 1SEATON(3.635492D15,1.40D-19,4.D0,6.7D0) + IF(FREQ.GE.2.564306D15)X1169=5.11D-19*(2.564306D15/FREQ)**3 + FREQ1=FREQ + 40 MG2OP=X824*2.+X1169*C1169(J) + RETURN + END + FUNCTION SI2OP(J) + IMPLICIT REAL*8 (A-H,O-Z) + PARAMETER (kw=99) +C CROSS-SECTION TIMES THE PARTITION FUNCTION + COMMON /FREQ/FREQ,FREQLG,EHVKT(kw),STIM(kw),BNU(kw),WAVENO + COMMON /RHOX/RHOX(kw),NRHOX + COMMON /TEMP/T(kw),TKEV(kw),TK(kw),HKT(kw),TLOG(kw),HCKT(kw),ITEMP + DIMENSION FLOG(9),FREQSI(7),PEACH(6,14),X(6),TLG(6),DT(kw),NT(kw) + DATA PEACH/ +C 10000 12000 14000 16000 18000 20000 WAVE(A) + 1 -43.8941, -43.8941, -43.8941, -43.8941, -43.8941, -43.8941, 500 + 2 -42.2444, -42.2444, -42.2444, -42.2444, -42.2444, -42.2444, 600 + 3 -40.6054, -40.6054, -40.6054, -40.6054, -40.6054, -40.6054, 759 + 4 -54.2389, -52.2906, -50.8799, -49.8033, -48.9485, -48.2490, 760 + 5 -50.4108, -48.4892, -47.1090, -46.0672, -45.2510, -44.5933, 1905 + 6 -52.0936, -50.0741, -48.5999, -47.4676, -46.5649, -45.8246, 1906 + 7 -51.9548, -49.9371, -48.4647, -47.3340, -46.4333, -45.6947, 1975 + 8 -54.2407, -51.7319, -49.9178, -48.5395, -47.4529, -46.5709, 1976 + 9 -52.7355, -50.2218, -48.4059, -47.0267, -45.9402, -45.0592, 3245 + T -53.5387, -50.9189, -49.0200, -47.5750, -46.4341, -45.5082, 3246 + 1 -53.2417, -50.6234, -48.7252, -47.2810, -46.1410, -45.2153, 3576 + 2 -53.5097, -50.8535, -48.9263, -47.4586, -46.2994, -45.3581, 3577 + 3 -54.0561, -51.2365, -49.1980, -47.6497, -46.4302, -45.4414, 3900 + 4 -53.8469, -51.0256, -48.9860, -47.4368, -46.2162, -45.2266/ 4200 + DATA FREQSI/4.9965417D15,3.9466738D15,1.5736321D15,1.5171539D15, + 1 9.2378947E14,8.3825004E14,7.6869872E14/ +C 2P,2D,2P,2D,2P + DATA FLOG/36.32984D0,36.14752D0,35.91165D0,34.99216D0,34.95561D0, + 1 34.45951D0,34.36234D0,34.27572D0,34.20161D0/ + DATA TLG/9.21034D0,9.39266D0,9.54681D0,9.68034D0,9.79813D0, + 1 9.90349D0/ + DATA FREQ1,ITEMP1/0.,0/ + IF(ITEMP.EQ.ITEMP1)GO TO 20 + ITEMP1=ITEMP + DO 11 K=1,NRHOX + N=MAX0(MIN0(5, INT(T(K)/2000.)-4),1) + NT(K)=N + 11 DT(K)=(TLOG(K)-TLG(N))/(TLG(N+1)-TLG(N)) + GO TO 21 + 20 IF(FREQ.EQ.FREQ1)GO TO 30 + 21 FREQ1=FREQ + DO 22 N=1,7 + IF(FREQ.GT.FREQSI(N))GO TO 23 + 22 CONTINUE + N=8 + 23 D=(FREQLG-FLOG(N))/(FLOG(N+1)-FLOG(N)) + IF(N.GT.2)N=2*N-2 + IF(N.EQ.14)N=13 + D1=1.-D + DO 24 IT=1,6 + 24 X(IT)=PEACH(IT,N+1)*D+PEACH(IT,N)*D1 + 30 N=NT(J) + SI2OP=EXP(X(N)*(1.-DT(J))+X(N+1)*DT(J))*6. + RETURN + END + FUNCTION CA2OP(J) + IMPLICIT REAL*8 (A-H,O-Z) + PARAMETER (kw=99) +C CROSS-SECTION TIMES THE PARTITION FUNCTION + COMMON /FREQ/FREQ,FREQLG,EHVKT(kw),STIM(kw),BNU(kw),WAVENO + COMMON /RHOX/RHOX(kw),NRHOX + COMMON /TEMP/T(kw),TKEV(kw),TK(kw),HKT(kw),TLOG(kw),HCKT(kw),ITEMP + DIMENSION C1218(kw),C1420(kw) + DATA FREQ1,ITEMP1/0.,0/ + IF(ITEMP.EQ.ITEMP1)GO TO 30 + ITEMP1=ITEMP + DO 20 K=1,NRHOX + C1218(K)=10.*EXP(-1.697/TKEV(K)) + 20 C1420(K)=6.*EXP(-3.142/TKEV(K)) + 30 IF(FREQ.EQ.FREQ1)GO TO 40 + X1420=0. + X1218=0. + X1044=0. + IF(FREQ.GE.2.870454D15)X1044=5.4D-20*(2.870454D15/FREQ)**3 + IF(FREQ.GE.2.460127D15)X1218=1.64D-17*SQRT(2.460127D15/FREQ) + IF(FREQ.GE.2.110779D15)X1420= + 1SEATON(2.110779D15,4.13D-18,3.D0,.69D0) + FREQ1=FREQ + 40 CA2OP=X1044*2.+X1218*C1218(J)+X1420*C1420(J) + RETURN + END + SUBROUTINE HOTOP + IMPLICIT REAL*8 (A-H,O-Z) + PARAMETER (kw=99) + COMMON /FREQ/FREQ,FREQLG,EHVKT(kw),STIM(kw),BNU(kw),WAVENO + COMMON /OPS/ACOOL(kw),ALUKE(kw),AHOT(kw),SIGEL(kw),ALINES(kw), + 1 SIGLIN(kw),AXLINE(kw),SIGXL(kw),AXCONT(kw),SIGX(kw), + 2 SXLINE(kw),SXCONT(kw) + COMMON /RHOX/RHOX(kw),NRHOX + COMMON /STATE/P(kw),XNE(kw),XNATOM(kw),RHO(kw),PTOTAL(kw) + COMMON /TEMP/T(kw),TKEV(kw),TK(kw),HKT(kw),TLOG(kw),HCKT(kw),ITEMP + DIMENSION XNFP(kw,21),XNF(kw,6),CODE8(8),XNFSUMQQ(kw,5) + DIMENSION A(420) + DIMENSION A1(63),A2(63),A3(63),A4(63),A5(63),A6(63),A7(42) + EQUIVALENCE (A(1),A1(1)),(A(64),A2(1)),(A(127),A3(1)) + EQUIVALENCE (A(190),A4(1)),(A(253),A5(1)),(A(316),A6(1)) + EQUIVALENCE (A(379),A7(1)) + DATA A1/ + 1 4.149945D15, 6.90D-18, 1.000, 6., 6., 13.71, 2., 6.01 + 2 4.574341D15, 2.50D-18, 1.000, 4., 2., 11.96, 2., 6.01 + 3 5.220770D15, 1.08D-17, 1.000, 4., 10., 9.28, 2., 6.01 + 4 5.222307D15, 5.35D-18, 3.769, 2., 1., 0.00, 16., 10.00 + 5 5.892577D15, 4.60D-18, 1.950, 6., 6., 0.00, 2., 6.01 + 6 6.177022D15, 3.50D-18, 1.000, 4., 12., 5.33, 2., 6.01 + 7 6.181062D15, 6.75D-18, 3.101, 5., 1., 4.05, 6., 7.01 + 8 6.701879D15, 6.65D-18, 2.789, 5., 5., 1.90, 6., 7.01 + 9 7.158382D15, 6.65D-18, 2.860, 6., 9., 0.00, 6./ 7.01 + DATA A2/ + 1 7.284488D15, 3.43D-18, 4.174, 5., 6., 5.02, 11., 8.01 + 2 7.693612D15, 3.53D-18, 3.808, 5., 10., 3.33, 11., 8.01 + 3 7.885955D15, 2.32D-18, 3.110, 5., 6., 5.02, 11., 8.01 + 4 8.295079D15, 3.97D-18, 3.033, 5., 10., 3.33, 11., 8.01 + 5 8.497686D15, 7.32D-18, 3.837, 5., 4., 0.00, 11., 8.01 + 6 8.509966D15, 2.00D-18, 1.750, 7., 3., 12.69, 3., 6.02 + 7 8.572854D15, 1.68D-18, 3.751, 5., 6., 5.02, 11., 8.01 + 8 9.906370D15, 4.16D-18, 2.717, 3., 6., 0.00, 17., 10.01 + 9 1.000693D16, 2.40D-18, 1.750, 7., 9., 6.50, 3./ 6.02 + DATA A3/ + 1 1.046078D16, 4.80D-18, 1.000, 4., 10., 12.53, 7., 7.02 + 2 1.067157D16, 2.71D-18, 2.148, 3., 6., 0.00, 17., 10.01 + 3 1.146734D16, 2.06D-18, 1.626, 6., 6., 0.00, 7., 7.02 + 4 1.156813D16, 5.20D-19, 2.126, 3., 6., 0.00, 17., 10.01 + 5 1.157840D16, 9.10D-19, 4.750, 4., 1., 0.00, 3., 6.02 + 6 1.177220D16, 5.30D-18, 1.000, 4., 12., 7.10, 7., 7.02 + 7 1.198813D16, 3.97D-18, 2.780, 6., 1., 5.35, 12., 8.02 + 8 1.325920D16, 3.79D-18, 2.777, 6., 5., 2.51, 12., 8.02 + 9 1.327649D16, 3.65D-18, 2.014, 6., 9., 0.00, 12./ 8.02 + DATA A4/ + 1 1.361466D16, 7.00D-18, 1.000, 2., 5., 7.48, 12., 8.02 + 2 1.365932D16, 9.30D-19, 1.500, 7., 6., 8.00, 4., 6.03 + 3 1.481487D16, 1.10D-18, 1.750, 7., 3., 16.20, 8., 7.03 + 4 1.490032D16, 5.49D-18, 3.000, 5., 1., 6.91, 18., 10.02 + 5 1.533389D16, 1.80D-18, 2.277, 4., 9., 0.00, 18., 10.02 + 6 1.559452D16, 8.70D-19, 3.000, 6., 2., 0.00, 4., 6.03 + 7 1.579688D16, 4.17D-18, 2.074, 4., 5., 3.20, 18., 10.02 + 8 1.643205D16, 1.39D-18, 2.792, 5., 5., 3.20, 18., 10.02 + 9 1.656208D16, 2.50D-18, 2.346, 5., 9., 0.00, 18./ 10.02 + DATA A5/ + 1 1.671401D16, 1.30D-18, 1.750, 7., 9., 8.35, 8., 7.03 + 2 1.719725D16, 1.48D-18, 2.225, 5., 9., 0.00, 18., 10.02 + 3 1.737839D16, 2.70D-18, 1.000, 4., 10., 15.74, 13., 8.03 + 4 1.871079D16, 1.27D-18, .831, 6., 6., 0.00, 13., 8.03 + 5 1.873298D16, 9.10D-19, 3.000, 4., 1., 0.00, 8., 7.03 + 6 1.903597D16, 2.90D-18, 1.000, 4., 12., 8.88, 13., 8.03 + 7 2.060738D16, 4.60D-18, 1.000, 3., 12., 22.84, 19., 10.03 + 8 2.125492D16, 5.90D-19, 1.000, 6., 6., 9.99, 9., 7.04 + 9 2.162610D16, 1.69D-18, 1.937, 5., 6., 7.71, 19./ 10.03 + DATA A6/ + 1 2.226127D16, 1.69D-18, 1.841, 5., 10., 5.08, 19., 10.03 + 2 2.251163D16, 9.30D-19, 2.455, 6., 6., 7.71, 19., 10.03 + 3 2.278001D16, 7.90D-19, 1.000, 6., 9., 10.20, 14., 8.04 + 4 2.317678D16, 1.65D-18, 2.277, 6., 10., 5.08, 19., 10.03 + 5 2.348946D16, 3.11D-18, 1.963, 6., 4., 0.00, 19., 10.03 + 6 2.351911D16, 7.30D-19, 1.486, 5., 6., 7.71, 19., 10.03 + 7 2.366973D16, 5.00D-19, 1.000, 4., 2., 0.00, 9., 7.04 + 8 2.507544D16, 6.90D-19, 1.000, 6., 3., 19.69, 14., 8.04 + 9 2.754065D16, 7.60D-19, 1.000, 2., 1., 0.00, 14./ 8.04 + DATA A7/ + 1 2.864850D16, 1.54D-18, 2.104, 6., 1., 7.92, 20., 10.04 + 2 2.965598D16, 1.53D-18, 2.021, 6., 5., 3.76, 20., 10.04 + 3 3.054151D16, 1.40D-18, 1.471, 6., 9., 0.00, 20., 10.04 + 4 3.085141D16, 2.80D-18, 1.000, 4., 5., 11.01, 20., 10.04 + 5 3.339687D16, 3.60D-19, 1.000, 6., 2., 0.00, 15., 8.05 + 6 3.818757D16, 4.90D-19, 1.145, 6., 6., 0.00, 21./ 10.05 + DATA NUM/60/ + DATA CODE8/6.05D0,7.05D0,8.05D0,10.05D0,12.05D0,14.05D0,16.05D0, + 1 26.05D0/ + DATA ITEMP1/0/ + IF(ITEMP.EQ.ITEMP1)GO TO 95 + ITEMP1=ITEMP + CALL POPS(6.03D0,11,XNFP) + CALL POPS(7.04D0,11,XNFP(1,5)) + CALL POPS(8.05D0,11,XNFP(1,10)) + CALL POPS(10.05D0,11,XNFP(1,16)) +C + DO 90 ICHARGE=1,5 + DO 90 J=1,NRHOX + 90 XNFSUMQQ(J,ICHARGE)=0. + DO 91 ICODE=1,8 + CALL POPS(CODE8(ICODE),12,XNF) + DO 91 IZ=1,5 + DO 91 J=1,NRHOX + 91 XNFSUMQQ(J,IZ)=XNFSUMQQ(J,IZ)+IZ**2*XNF(J,IZ+1) +C + 95 CONTINUE +C FREE-FREE C,N,O,NE,MG,SI,S,FE I-V + DO 200 J=1,NRHOX + FREE=COULFF(J,1)*XNFSUMQQ(J,1)+COULFF(J,2)*XNFSUMQQ(J,2)+ + 1 COULFF(J,3)*XNFSUMQQ(J,3)+COULFF(J,4)*XNFSUMQQ(J,4)+ + 2 COULFF(J,5)*XNFSUMQQ(J,5) + 200 AHOT(J)=FREE*3.6919D8/FREQ**3*XNE(J)/SQRT(T(J)) +C + L=-6 + DO 20 I=1,NUM + L=L+7 + IF(FREQ.LT.A(L))GO TO 20 + XSECT=A(L+1)*(A(L+2)+(A(L)/FREQ)-A(L+2)*(A(L)/FREQ))* + 1 SQRT((A(L)/FREQ)** INT(A(L+3))) + ID=A(L+6) + DO 10 J=1,NRHOX + XX=XSECT*XNFP(J,ID)*A(L+4) +C IF(XX.GT.AHOT(J)/100.)AHOT(J)=AHOT(J)+XX/EXP(A(L+5)/TKEV(J)) + IF(XX.GT.AHOT(J)/100.)AHOT(J)=AHOT(J)+XX*EXP(-A(L+5)/TKEV(J)) + 10 CONTINUE + 20 CONTINUE + DO 30 J=1,NRHOX + 30 AHOT(J)=AHOT(J)*STIM(J)/RHO(J) + RETURN + END + FUNCTION SEATON(FREQ0,XSECT,POWER,A) + IMPLICIT REAL*8 (A-H,O-Z) + PARAMETER (kw=99) + COMMON /FREQ/FREQ,FREQLG,EHVKT(kw),STIM(kw),BNU(kw),WAVENO + SEATON=XSECT*(A+(1.-A)*(FREQ0/FREQ))* + 1SQRT((FREQ0/FREQ)**( INT(2.*POWER+.01))) + RETURN + END + SUBROUTINE ELECOP + IMPLICIT REAL*8 (A-H,O-Z) + PARAMETER (kw=99) + COMMON /OPS/ACOOL(kw),ALUKE(kw),AHOT(kw),SIGEL(kw),ALINES(kw), + 1 SIGLIN(kw),AXLINE(kw),SIGXL(kw),AXCONT(kw),SIGX(kw), + 2 SXLINE(kw),SXCONT(kw) + COMMON /RHOX/RHOX(kw),NRHOX + COMMON /STATE/P(kw),XNE(kw),XNATOM(kw),RHO(kw),PTOTAL(kw) + DO 1 J=1,NRHOX + 1 SIGEL(J)=.6653D-24*XNE(J)/RHO(J) + RETURN + END + SUBROUTINE H2RAOP + IMPLICIT REAL*8 (A-H,O-Z) + PARAMETER (kw=99) + COMMON /BHYD/BHYD(kw,8),AHYD(kw),SHYD(kw),AH2P(kw),BMIN(kw), + 1 AHMIN(kw),SHMIN(kw),SIGH(kw),SIGH2(kw),AHLINE(kw), + 2 SHLINE(kw),XNFPH(kw,2),XNFH(kw) + COMMON /FREQ/FREQ,FREQLG,EHVKT(kw),STIM(kw),BNU(kw),WAVENO + COMMON /RHOX/RHOX(kw),NRHOX + COMMON /STATE/P(kw),XNE(kw),XNATOM(kw),RHO(kw),PTOTAL(kw) + COMMON /TEMP/T(kw),TKEV(kw),TK(kw),HKT(kw),TLOG(kw),HCKT(kw),ITEMP + DIMENSION XNH2(kw) + DATA ITEMP1/0/ + IF(ITEMP.EQ.ITEMP1)GO TO 20 + ITEMP1=ITEMP + DO 11 J=1,NRHOX +C 11 XNH2(J)=(XNFPH(J,1)*2.*BHYD(J,1))**2*EXP(4.477D0/TKEV(J)-4.6628D1+ +C 1(1.8031D-3+(-5.0239D-7+(8.1424D-11-5.0501D-15*T(J))*T(J))*T(J))* +C 2T(J)-1.5*TLOG(J))/RHO(J) + 11 XNH2(J)=(XNFPH(J,1)*2.*BHYD(J,1))**2*EXP(4.478D0/TKEV(J)- + 1 4.64584D1+(1.63660D-3+(-4.93992D-7+(1.11822D-10+(-1.49567D-14+ + 2(1.06206D-18-3.08720D-23*T(J))*T(J))*T(J))*T(J))*T(J))*T(J)- + 3 1.5*TLOG(J))/RHO(J) + 20 WAVE=2.99792458D18/ MIN (FREQ,2.922D15) + WW=WAVE**2 + SIG=(8.14D-13+1.28D-6/WW+1.61D0/(WW*WW))/(WW*WW) + DO 21 J=1,NRHOX + SIGH2(J)=SIG*XNH2(J) +C IF(T(J).GT.0.)SIGH2(J)=0. + 21 CONTINUE + RETURN + END + SUBROUTINE HLINOP + IMPLICIT REAL*8 (A-H,O-Z) + PARAMETER (kw=99) +C REQUIRES STARK AND COULX + COMMON /BHYD/BHYD(kw,8),AHYD(kw),SHYD(kw),AH2P(kw),BMIN(kw), + 1 AHMIN(kw),SHMIN(kw),SIGH(kw),SIGH2(kw),AHLINE(kw), + 2 SHLINE(kw),XNFPH(kw,2),XNFH(kw) + COMMON /FREQ/FREQ,FREQLG,EHVKT(kw),STIM(kw),BNU(kw),WAVENO + COMMON /RHOX/RHOX(kw),NRHOX + COMMON /STATE/P(kw),XNE(kw),XNATOM(kw),RHO(kw),PTOTAL(kw) + COMMON /TEMP/T(kw),TKEV(kw),TK(kw),HKT(kw),TLOG(kw),HCKT(kw),ITEMP + DIMENSION BOLT(kw,4),MLAST(kw) + DATA ITEMP1/0/ + IF(ITEMP.EQ.ITEMP1)GO TO 20 + DO 10 J=1,NRHOX + MLAST(J)=1100./XNE(J)**.133333333 + DO 10 N=1,4 + 10 BOLT(J,N)=EXP(-(13.595D0-13.595D0/DBLE(N*N))/TKEV(J))* + 1 2.*DBLE(N*N)*BHYD(J,N)*XNFPH(J,1)/RHO(J) + ITEMP1=ITEMP + 20 N=SQRT(3.28805D15/FREQ) + IF(N.EQ.0.OR.N.GT.4)RETURN + GO TO (21,22,30,30),N + 21 IF(FREQ.LT.2.D15)RETURN + GO TO 30 + 22 IF(FREQ.LT.4.44D14)RETURN + 30 MFREQ=SQRT(3.28805D15/(3.28805D15/DBLE(N*N)-FREQ)) + DO 50 J=1,NRHOX + M1=MFREQ + M2=M1+1 + M1=MAX0(M1,N+1) + H=0. + S=0. + IF(M1.LE.6)GO TO 39 + IF(M1.GT.MLAST(J))GO TO 45 + M1=M1-1 + M2=M2+3 + IF(N.LT.4.OR.M1.GT.8)GO TO 39 + H=STARK(3,4,J)*(1.-EHVKT(J)*BHYD(J,4)/BHYD(J,3))*BOLT(J,3) + S=H*BNU(J)*STIM(J)/(BHYD(J,3)/BHYD(J,4)-EHVKT(J)) + 39 DO 40 M=M1,M2 + BHYDJM=1. + IF(M.LE.6)BHYDJM=BHYD(J,M) +C ASSUMING FREQ APROXIMATELY FREQNM + A=STARK(N,M,J)*(1.-EHVKT(J)*BHYDJM/BHYD(J,N))*BOLT(J,N) + H=H+A + 40 S=S+A*BNU(J)*STIM(J)/(BHYD(J,N)/BHYDJM-EHVKT(J)) + AHLINE(J)=H + SHLINE(J)=S/H + GO TO 50 + 45 AHLINE(J)=COULX(N,3.28806D15/DBLE(N*N),1.)*(1.-EHVKT(J)/ + 1BHYD(J,N))*BOLT(J,N) + SHLINE(J)=BNU(J)*STIM(J)/(BHYD(J,N)-EHVKT(J)) + 50 CONTINUE + RETURN + END + FUNCTION STARK(N,M,J) + IMPLICIT REAL*8 (A-H,O-Z) + PARAMETER (kw=99) + COMMON /FREQ/FREQ,FREQLG,EHVKT(kw),STIM(kw),BNU(kw),WAVENO + COMMON /RHOX/RHOX(kw),NRHOX + COMMON /STATE/P(kw),XNE(kw),XNATOM(kw),RHO(kw),PTOTAL(kw) + COMMON /TEMP/T(kw),TKEV(kw),TK(kw),HKT(kw),TLOG(kw),HCKT(kw),ITEMP + COMMON /TURBPR/VTURB(kw),PTURB(kw),TRBFDG,TRBCON,TRBPOW,TRBSND, + 1 IFTURB + DIMENSION F0(kw) + DIMENSION KNMTAB(5,4),FSTARK(10,4) + REAL*8 NN,MM,IMPACT,KNM,KNMTAB + DATA KNMTAB/.000356,.000523,.00109,.00149,.00225,.0125,.0177,.028, + 1.0348,.0493,.124,.171,.223,.261,.342,.683,.866,1.02,1.19,1.46/ + DATA FSTARK/.1387,.07910,.02126,.01394,.006462,.004814,.002779, + 1 .002216,.001443,.001201,.3921,.1193,.03766,.02209,.01139, + 2 .008036,.005007,.003850,.002658,.002151,.6103,.1506,.04931, + 3 .02768,.01485,.01023,.006588,.004996,.003542,.002838,.8163,.1788, + 4 .05985,.03189,.01762,.01196,.007825,.005882,.004233,.003375/ +C IF YOUR RYDBERG IS DIFFERENT YOU MAY GET LINES IN STRANGE PLACES + DATA RYD/3.28805D15/ + DATA ITEMP1/0/ + EXINT(X)=- LOG(X)-.57516D0+(.97996D0-(.21654D0-(.033572D0- + 1 (.0029222D0-1.05439D-4*X)*X)*X)*X)*X + IF(ITEMP.EQ.ITEMP1)GO TO 20 + DO 10 K=1,NRHOX + 10 F0(K)=1.25D-9*XNE(K)**.6666667 + ITEMP1=ITEMP + 20 XN=N + XM=M + X=XN/XM + XX=X**2 + NN=N*N + MM=M*M + MMINN=M-N + IF(MMINN.GT.5)GO TO 21 + KNM=KNMTAB(MMINN,N) + GO TO 22 + 21 KNM=5.5D-5*(NN*MM)**2/(MM-NN) + 22 IF(MMINN.GT.10)GO TO 23 + FNM=FSTARK(MMINN,N) + GO TO 30 + 23 FNM=FSTARK(10,N)*((20.*XN+100.)/(XN+10.)/XM/(1.-XX))**3 + 30 FREQNM=RYD*(1./NN-1./MM) + DEL=ABS(FREQ-FREQNM) + DBETA=2.99792458D18/FREQNM**2/F0(J)/KNM + BETA=DBETA*DEL + Y1=MM*DEL*HKT(J)/2. + Y2=(3.14159D0*3.14159D0/2./.0265384D0/2.99792458D10)*DEL**2/XNE(J) + QSTAT=1.5+.5*(Y1**2-1.384D0)/(Y1**2+1.384D0) + IMPACT=0. + IF(Y1.GT.8..OR.Y1.GE.Y2)GO TO 40 + EXY2=0. + IF(Y2.LE.8.)EXY2=EXINT(Y2) + IMPACT=1.438*SQRT(Y1*(1.-XX))*(.4*EXP(-Y1)+EXINT(Y1)-.5*EXY2) + 40 IF(BETA.GT.20.)GO TO 45 + PROF=8./(80.+BETA**3) + RATIO=QSTAT+IMPACT + GO TO 50 + 45 PROF=1.5/BETA/BETA/SQRT(BETA) + DIOI=6.28D0*1.48D-25*(2.*MM*RYD/DEL)*XNE(J)*(SQRT(2.*MM*RYD/DEL)* + 1(1.3*QSTAT+.30*IMPACT)-3.9*RYD*HKT(J)) + RATIO=QSTAT*MIN(1.+DIOI,1.25D0)+IMPACT + 50 STARK=.0265384D0*FNM*PROF*DBETA*RATIO + RETURN + END + FUNCTION COULX(N,FREQ,Z) + IMPLICIT REAL*8 (A-H,O-Z) + PARAMETER (kw=99) + DIMENSION A(6),B(6),C(6) + DATA A/.9916D0,1.105D0,1.101D0,1.101D0,1.102D0,1.0986D0/ + DATA B/2.719D13,-2.375D14,-9.863D13,-5.765D13,-3.909D13,-2.704D13/ + DATA C/-2.268D30,4.077D28,1.035D28,4.593D27,2.371D27,1.229D27/ + IF(FREQ.LT.Z*Z*3.28805D15/DBLE(N*N))GO TO 1 + COULX=2.815E29/FREQ/FREQ/FREQ/DBLE(N**5)*Z**4 + IF(N.GT.6)RETURN + COULX=COULX*(A(N)+(B(N)+C(N)*(Z*Z/FREQ))*(Z*Z/FREQ)) + RETURN + 1 COULX=0. + RETURN + END + SUBROUTINE LINOP(N,NSTEPS,STEPWT) + IMPLICIT REAL*8 (A-H,O-Z) + PARAMETER (kw=99) + COMMON /FREQ/FREQ,FREQLG,EHVKT(kw),STIM(kw),BNU(kw),WAVENO + COMMON /OPS/ACOOL(kw),ALUKE(kw),AHOT(kw),SIGEL(kw),ALINES(kw), + 1 SIGLIN(kw),AXLINE(kw),SIGXL(kw),AXCONT(kw),SIGX(kw), + 2 SXLINE(kw),SXCONT(kw) + COMMON /RHOX/RHOX(kw),NRHOX + COMMON /STATE/P(kw),XNE(kw),XNATOM(kw),RHO(kw),PTOTAL(kw) + COMMON /TEMP/T(kw),TKEV(kw),TK(kw),HKT(kw),TLOG(kw),HCKT(kw),ITEMP + DIMENSION STEPS(9,29,10) + DIMENSION WT(10) + DIMENSION CO1(kw),CO2(kw),CO3(kw),CO4(kw),INEJ(kw),ITJ(kw) + DIMENSION TABT(29),TABNE(9) + DATA TABT/3.48,3.52,3.56,3.60,3.64,3.68,3.72,3.76,3.80,3.84,3.88, + 1 3.92,3.96,4.0,4.05,4.10,4.15,4.20,4.25,4.30,4.35,4.40,4.45,4.5, + 2 4.6,4.7,4.8,4.9,5.0/ + DATA TABNE/17.,16.,15.,14.,13.,12.,11.,10.,9./ + DATA ITEMP1/0/ + DATA TENLOG/2.30258509299405D0/ + IF(ITEMP.EQ.ITEMP1)GO TO 20 + ITEMP1=ITEMP + DO 15 J=1,NRHOX + TL=TLOG(J)/TENLOG + DO 10 IT=2,29 + IF(TL.LT.TABT(IT))GO TO 11 + 10 CONTINUE + IT=29 + 11 XNELOG= LOG10(XNE(J)) + DO 12 INE=2,9 + IF(XNELOG.GT.TABNE(INE))GO TO 13 + 12 CONTINUE + INE=9 + 13 INEJ(J)=INE + ITJ(J)=IT + X=(TL-TABT(IT-1))/(TABT(IT)-TABT(IT-1)) + Y=(XNELOG-TABNE(INE-1))/(TABNE(INE)-TABNE(INE-1)) + CO1(J)=(1.-X)*(1.-Y)*TENLOG + CO2(J)=(1.-X)*Y*TENLOG + CO3(J)=X*(1.-Y)*TENLOG + CO4(J)=X*Y*TENLOG + 15 CONTINUE + WT(1)=1./60. + WT(2)=2./60. + WT(3)=3./60. + WT(4)=6./60. + WT(5)=6./60. + WT(6)=6./60. + WT(7)=6./60. + WT(8)=10./60. + WT(9)=10./60. + WT(10)=10./60. + REWIND 9 + WLEND=0. + 20 WAVE=2.99792458D17/FREQ + 21 IF(WAVE.LT.WLEND)GO TO 22 + READ(9)WLBEG,WLEND,STEPS + GO TO 21 + 22 NSTEPS=10 + STEPWT=WT(N) + DO 25 J=1,NRHOX + IT=ITJ(J) + INE=INEJ(J) + 25 ALINES(J)=EXP(CO1(J)*STEPS(INE-1,IT-1,N)+CO2(J)*STEPS(INE,IT-1,N)+ + 1CO3(J)*STEPS(INE-1,IT,N)+CO4(J)*STEPS(INE,IT,N)) + RETURN + END + SUBROUTINE LINSOP(J,NSTEPS,STEPWT) + IMPLICIT REAL*8 (A-H,O-Z) + PARAMETER (kw=99) +C DUMMY FOR LINE ABSORPTION DISTRIBUTION FUNCTIONS S=J + COMMON /OPS/ACOOL(kw),ALUKE(kw),AHOT(kw),SIGEL(kw),ALINES(kw), + 1 SIGLIN(kw),AXLINE(kw),SIGXL(kw),AXCONT(kw),SIGX(kw), + 2 SXLINE(kw),SXCONT(kw) + RETURN + END + SUBROUTINE XLINOP + RETURN + END + SUBROUTINE XLISOP + IMPLICIT REAL*8 (A-H,O-Z) + PARAMETER (kw=99) + COMMON /OPS/ACOOL(kw),ALUKE(kw),AHOT(kw),SIGEL(kw),ALINES(kw), + 1 SIGLIN(kw),AXLINE(kw),SIGXL(kw),AXCONT(kw),SIGX(kw), + 2 SXLINE(kw),SXCONT(kw) +C DUMMY LINE SCATTERING ROUTINE + RETURN + END + SUBROUTINE XCONOP + IMPLICIT REAL*8 (A-H,O-Z) + PARAMETER (kw=99) +C DUMMY CONTINUOUS OPACITY ROUTINE + COMMON /OPS/ACOOL(kw),ALUKE(kw),AHOT(kw),SIGEL(kw),ALINES(kw), + 1 SIGLIN(kw),AXLINE(kw),SIGXL(kw),AXCONT(kw),SIGX(kw), + 2 SXLINE(kw),SXCONT(kw) + RETURN + END + SUBROUTINE XSOP + IMPLICIT REAL*8 (A-H,O-Z) + PARAMETER (kw=99) +C DUMMY SCATTERING ROUTINE + COMMON /OPS/ACOOL(kw),ALUKE(kw),AHOT(kw),SIGEL(kw),ALINES(kw), + 1 SIGLIN(kw),AXLINE(kw),SIGXL(kw),AXCONT(kw),SIGX(kw), + 2 SXLINE(kw),SXCONT(kw) + RETURN + END + SUBROUTINE JOSH(IFSCAT,IFSURF) + IMPLICIT REAL*8 (A-H,O-Z) + PARAMETER (kw=99) +C IFSCAT=1 SOLVE INTEGRAL EQUATION FOR SOURCE FUNCTION +C IFSCAT=0 SET SNU=SBAR +C IFSURF=0 CALCULATE J AND H +C IFSURF=1 CALCULATE SURFACE FLUX +C IFSURF=2 CALCULATE SURFACE SPECIFIC INTENSITY + COMMON /ABTOT/ABTOT(kw),ALPHA(kw) +C COMMON /MATX/COEFJ(51,51),COEFH(51,51),XTAU(51),NXTAU + COMMON /MATXJ/COEFJ(51,51) + COMMON /MATXH/COEFH(51,51) + REAL*4 COEFJ,COEFH,XTAU + COMMON /MUS/ANGLE(20),SURFI(20),NMU + COMMON /OPTOT/ACONT(kw),SCONT(kw),ALINE(kw),SLINE(kw),SIGMAC(kw), + 1 SIGMAL(kw) + COMMON /PRD/PRDDOP,PRDPOW,ITPRD,NITPRD,SIGPRD(kw),NUPRD,LINPRD + COMMON /PZERO/PZERO,PCON,PRAD0,PTURB0,KNU(kw),PRADK(kw),RADEN(kw) + REAL*8 KNU + COMMON /RHOX/RHOX(kw),NRHOX + COMMON /TAUSHJ/TAUNU(kw),SNU(kw),HNU(kw),JNU(kw),JMINS(kw) + REAL*8 JNU,JMINS + REAL*4 XS(51),XSBAR(51),XALPHA(51),DIAG(51),XH(51),XJS(51) + REAL*4 CK(51),CH(51),DELXS,ERRORX,XJ,XBETA(51),XK + REAL*8 XSBAR8(51),XALPHA8(51),XS8(51),XH8(51),XJS8(51),XTAU8(51) + REAL*8 XBETA8(51) + REAL*8 BETA(kw) + REAL*8 A(kw),B(kw),C(kw),SNUBAR(kw),CTWO(kw),B2CT(kw),B2CT1(kw) + REAL*8 EXTAU(51,20),NEW + DATA CH/ + 1 7.15528131D-07, 1.49142693D-06, 1.52106577D-06, 2.98150826D-06, + 2 5.33941056D-06, 9.13329677D-06, 1.61715943D-05, 2.97035986D-05, + 3 5.33166603D-05, 9.11154202D-05, 1.61084638D-04, 2.95118050D-04, + 4 5.27450291D-04, 8.67939554D-04, 1.61498412D-03, 2.50720908D-03, + 5 3.20994272D-03, 5.61912498D-03, 8.60872678D-03, 1.04706492D-02, + 6 1.33110350D-02, 1.62635669D-02, 1.90288834D-02, 2.18877215D-02, + 7 2.36015432D-02, 2.10819542D-02, 1.80345085D-02, 1.64786074D-02, + 8 1.49382707D-02, 1.19676525D-02, 9.90213640D-03, 8.17766134D-03, + 8 6.11252524D-03, 4.84035723D-03, 3.06078210D-03, 2.40512565D-03, + 9 2.01712688D-03, 1.33288081D-03, 7.83530239D-04, 4.31428343D-04, + T 1.76504589D-04, 4.75738016D-05, 1.65963702D-05, 5.41117970D-06, + 1 2.08043571D-06, 7.11612643D-07, 8.08788982D-08, 1.95130507D-08, + 3 4.33638281D-09, 8.87765583D-10, 3.90236420D-11/ + DATA CK/ + 1 3.57771910D-07, 7.45730404D-07, 7.60575176D-07, 1.49091113D-06, + 2 2.67016185D-06, 4.56793896D-06, 8.08956065D-06, 1.48632944D-05, + 3 2.66928291D-05, 4.56529851D-05, 8.08134864D-05, 1.48363324D-04, + 4 2.66052346D-04, 4.39771306D-04, 8.25088180D-04, 1.29440730D-03, + 5 1.67680858D-03, 2.98973685D-03, 4.68314718D-03, 5.84855257D-03, + 6 7.64854718D-03, 9.63155832D-03, 1.16419578D-02, 1.38551742D-02, + 7 1.54840983D-02, 1.42877987D-02, 1.25930300D-02, 1.17983138D-02, + 8 1.09717194D-02, 8.98320694D-03, 7.59950886D-03, 6.38808031D-03, + 9 4.86854184D-03, 3.91568616D-03, 2.51398841D-03, 2.00142385D-03, + T 1.70069211D-03, 1.14058319D-03, 6.80292083D-04, 3.80097074D-04, + 1 1.57705377D-04, 4.31706540D-05, 1.51795348D-05, 4.98576401D-06, + 2 1.92979223D-06, 6.63957223D-07, 7.65236692D-08, 1.84933668D-08, + 3 4.12596224D-09, 8.47334369D-10, 3.81791959D-11/ + DATA XTAU8/0.,.0000032,.0000056,.00001,.000018,.000032,.000056, + 1.0001,.00018,.00032,.00056,.001,.0018,.0032,.0056,.01,.016,.025, + 2.042,.065,.096,.139,.196,.273,.375,.5,.63,.78,.95,1.15,1.35,1.6, + 3 1.85,2.15,2.45,2.75,3.15,3.65,4.25,5.0,6.,7.,8.,9.,10.,11.5, + 4 13.,14.5,16.,18.,20./ + DATA EXTAU/1020*0./ + DATA NXTAU/51/ + DO 10 J=1,NRHOX + ABTOT(J)=ACONT(J)+ALINE(J)+SIGMAC(J)+SIGMAL(J) + ALPHA(J)=(SIGMAC(J)+SIGMAL(J))/ABTOT(J) +C ALPHA(J)=(SIGMAC(J)+SIGMAL(J)+SIGPRD(J))/ABTOT(J) +C BETA(J)=(ACONT(J)+ALINE(J))/ABTOT(J) + 10 SNUBAR(J)=(ACONT(J)*SCONT(J)+ALINE(J)*SLINE(J))/ + 1(ACONT(J)+ALINE(J)) + CALL INTEG(RHOX,ABTOT,TAUNU,NRHOX,ABTOT(1)*RHOX(1)) + MAXJ=0 + IF(IFSCAT.EQ.1)GO TO 30 +C + DO 20 J=1,NRHOX + 20 SNU(J)=SNUBAR(J) + IF(IFSURF.EQ.2)GO TO 70 + MAXJ=MAP1(TAUNU,SNU,NRHOX,XTAU8,XS8,NXTAU) + DO 22 L=1,NXTAU + 22 XS(L)=XS8(L) + IF(IFSURF.EQ.1)GO TO 60 + DO 21 J=1,NRHOX + 21 ALPHA(J)=0. +C + 30 IF(TAUNU(1).GT.XTAU8(NXTAU))MAXJ=1 + IF(MAXJ.EQ.1)GO TO 401 + MAXJ=MAP1(TAUNU,SNUBAR,NRHOX,XTAU8,XSBAR8,NXTAU) + MAXJ=MAP1(TAUNU,ALPHA,NRHOX,XTAU8,XALPHA8,NXTAU) +C MAXJ=MAP1(TAUNU,BETA,NRHOX,XTAU8,XBETA8,NXTAU) + DO 31 L=1,NXTAU +C IN CASE OF BAD INTERPOLATION + XALPHA(L)=MIN(MAX(XALPHA8(L),0.D0),1.D0) + XSBAR(L)=MAX(XSBAR8(L),1.D-38) +C XBETA(L)=MAX(XBETA8(L),0.D0) + IF(XTAU8(L).LT.TAUNU(1))THEN + XSBAR(L)=MAX(SNUBAR(1),1.D-38) + XALPHA(L)=MIN(MAX(ALPHA(1),0.D0),1.D0) +C XBETA(L)=MAX(BETA(1),0.D0) + ENDIF + XS(L)=XSBAR(L) + DIAG(L)=1.-XALPHA(L)*COEFJ(L,L) +C 31 XSBAR(L)=XBETA(L)*XSBAR(L) + 31 XSBAR(L)=(1.-XALPHA(L))*XSBAR(L) +C THE LIMIT ON DO 34, THE MAXIMUM NUMBER OF ITERATIONS, IS ARBITRARY + DO 34 L=1,NXTAU + IFERR=0 + K=NXTAU+1 + DO 33 KK=1,NXTAU + K=K-1 + DELXS=0. + DO 32 M=1,NXTAU + 32 DELXS=DELXS+COEFJ(K,M)*XS(M) + DELXS=(DELXS*XALPHA(K)+XSBAR(K)-XS(K))/DIAG(K) + ERRORX=ABS(DELXS/XS(K)) + IF(ERRORX.GT..00001)IFERR=1 + 33 XS(K)=MAX(XS(K)+DELXS,1.D-38) + 39 IF(IFERR.EQ.0)GO TO 35 + 34 CONTINUE +C + 35 IF(IFSURF.EQ.1)GO TO 60 + DO 305 M=1,NXTAU + 305 XS8(M)=XS(M) + IF(IFSURF.EQ.2)GO TO 670 + MDUMMY=MAP1(XTAU8,XS8,NXTAU,TAUNU,SNU,MAXJ) + IF(MAXJ.EQ.NRHOX)GO TO 46 + 401 MAXJ1=MAXJ+1 + IF(MAXJ.EQ.1)MAXJ1=1 + DO 40 J=MAXJ1,NRHOX + 40 SNU(J)=SNUBAR(J) + M=MAX0(MAXJ-1,1) + NM1=NRHOX-M+1 + NMJ=NRHOX-MAXJ+1 +C THE LIMIT ON DO 45 IS ARBITRARY + DO 45 L=1,NXTAU + ERROR=0. + CALL DERIV(TAUNU(M),SNU(M),HNU(M),NM1) + DO 41 J=M,NRHOX + 41 HNU(J)=HNU(J)/3. + CALL DERIV(TAUNU(MAXJ),HNU(MAXJ),JMINS(MAXJ),NMJ) + DO 43 J=MAXJ1,NRHOX + JNU(J)=JMINS(J)+SNU(J) +C SNEW=BETA(J)*SNUBAR(J)+ALPHA(J)*JNU(J) + SNEW=(1.-ALPHA(J))*SNUBAR(J)+ALPHA(J)*JNU(J) + ERROR=ABS(SNEW-SNU(J))/SNEW+ERROR + 43 SNU(J)=SNEW + IF(ERROR.LT..00001)GO TO 46 + 45 CONTINUE + 46 IF(IFSURF.EQ.2)GO TO 70 + IF(MAXJ.EQ.1)THEN + KNU(1)=JNU(1)/3. + RETURN + ENDIF +C + 50 DO 51 L=1,NXTAU + XJS(L)=-XS(L) + DO 501 M=1,NXTAU + 501 XJS(L)=XJS(L)+COEFJ(L,M)*XS(M) + XJS8(L)=XJS(L) + XH(L)=0. + DO 502 M=1,NXTAU + 502 XH(L)=XH(L)+COEFH(L,M)*XS(M) + 51 XH8(L)=XH(L) + MDUMMY=MAP1(XTAU8,XJS8,NXTAU,TAUNU,JMINS,MAXJ) + MDUMMY=MAP1(XTAU8,XH8,NXTAU,TAUNU,HNU,MAXJ) + XK=0. + DO 52 M=1,NXTAU + 52 XK=XK+CK(M)*XS(M) + KNU(1)=XK + DO 53 J=1,MAXJ + 53 JNU(J)=JMINS(J)+SNU(J) + RETURN +C + 60 XH(1)=0. + DO 61 M=1,NXTAU + 61 XH(1)=XH(1)+CH(M)*XS(M) + HNU(1)=XH(1) + RETURN +C +C ASSUMES REAL*8 AND LARGE EXPONENT RANGE + 670 CALL PARCOE(XS8,XTAU8,A,B,C,NXTAU) + N1=NXTAU-1 + DO 671 J=1,NXTAU + CTWO(J)=C(J)*2. + 671 B2CT(J)=B(J)+CTWO(J)*XTAU8(J) + DO 672 J=1,N1 + 672 B2CT1(J)=B(J)+CTWO(J)*XTAU8(J+1) + IF(EXTAU(1,1).EQ.0.)THEN + DO 673 MU=1,NMU + DO 673 J=1,NXTAU + TANGLE=XTAU8(J)/ANGLE(MU) + IF(TANGLE.LT.300.)EXTAU(J,MU)=EXP(-TANGLE) + 673 CONTINUE + ENDIF + DO 675 MU=1,NMU + SURFI(MU)=0. + DO 674 J=1,N1 + IF(EXTAU(J,MU).EQ.0.)GO TO 675 + 674 SURFI(MU)=SURFI(MU)+ + 1EXTAU(J,MU)*(XS8(J)+(B2CT(J)+CTWO(J)*ANGLE(MU))*ANGLE(MU))- + 2EXTAU(J+1,MU)*(XS8(J+1)+(B2CT1(J)+CTWO(J)*ANGLE(MU))*ANGLE(MU)) + SURFI(MU)=SURFI(MU)+EXTAU(NXTAU,MU)*(XS8(NXTAU)+(B2CT(NXTAU)+ + 1CTWO(NXTAU)*ANGLE(MU))*ANGLE(MU)) + 675 CONTINUE + RETURN +C + 70 CALL PARCOE(SNU,TAUNU,A,B,C,NRHOX) + N1=NRHOX-1 + DO 71 J=1,NRHOX + CTWO(J)=C(J)*2. + 71 B2CT(J)=B(J)+CTWO(J)*TAUNU(J) + DO 710 J=1,N1 + 710 B2CT1(J)=B(J)+CTWO(J)*TAUNU(J+1) + DO 75 MU=1,NMU + OLD=1. + SUM=0. + DO 73 J=1,N1 + TANGLE=TAUNU(J+1)/ANGLE(MU) + NEW=EXP(-TANGLE) + D=TANGLE-TAUNU(J)/ANGLE(MU) + IF(D.LE..03)GO TO 72 + SUM=SUM+OLD*(SNU(J)+(B2CT(J)+CTWO(J)*ANGLE(MU))*ANGLE(MU))- + 1 NEW*(SNU(J+1)+(B2CT1(J)+CTWO(J)*ANGLE(MU))*ANGLE(MU)) +C REAL*4 +C IF(TANGLE.LT.50.)GO TO 73 +C REAL*8 G-FLOATING + IF(TANGLE.LT.300.)GO TO 73 + SURFI(MU)=SUM + GO TO 75 + 72 DDDDD=1. + IF(D.GT..001)DDDDD=((((D/9.+1.)*D/8.+1.)*D/7.+1.)*D/6.+1.)*D/5.+1. + SUM=SUM+NEW*(SNU(J)+(SNU(J)+B2CT(J)*ANGLE(MU)+(SNU(J)+(B2CT(J)+ + 1CTWO(J)*ANGLE(MU))*ANGLE(MU))*(DDDDD*D/4.+1.)*D/3.)*D/2.)*D + 73 OLD=NEW + SURFI(MU)=SUM+OLD*(SNU(NRHOX)+(B2CT(NRHOX)+CTWO(NRHOX)*ANGLE(MU))* + 1ANGLE(MU)) + 75 CONTINUE + RETURN + END + SUBROUTINE BLOCKJ +C COMMON /MATX/CJ(2601),CH(2601),XTAU(51),NXTAU + COMMON /MATXJ/CJ(2601) + DIMENSION CJ 1(36),CJ 2(36),CJ 3(36),CJ 4(36),CJ 5(36) + DIMENSION CJ 6(36),CJ 7(36),CJ 8(36),CJ 9(36),CJ 10(36) + DIMENSION CJ 11(36),CJ 12(36),CJ 13(36),CJ 14(36),CJ 15(36) + DIMENSION CJ 16(36),CJ 17(36),CJ 18(36),CJ 19(36),CJ 20(36) + DIMENSION CJ 21(36),CJ 22(36),CJ 23(36),CJ 24(36),CJ 25(36) + DIMENSION CJ 26(36),CJ 27(36),CJ 28(36),CJ 29(36),CJ 30(36) + DIMENSION CJ 31(36),CJ 32(36),CJ 33(36),CJ 34(36),CJ 35(36) + DIMENSION CJ 36(36),CJ 37(36),CJ 38(36),CJ 39(36),CJ 40(36) + DIMENSION CJ 41(36),CJ 42(36),CJ 43(36),CJ 44(36),CJ 45(36) + DIMENSION CJ 46(36),CJ 47(36),CJ 48(36),CJ 49(36),CJ 50(36) + DIMENSION CJ 51(36),CJ 52(36),CJ 53(36),CJ 54(36),CJ 55(36) + DIMENSION CJ 56(36),CJ 57(36),CJ 58(36),CJ 59(36),CJ 60(36) + DIMENSION CJ 61(36),CJ 62(36),CJ 63(36),CJ 64(36),CJ 65(36) + DIMENSION CJ 66(36),CJ 67(36),CJ 68(36),CJ 69(36),CJ 70(36) + DIMENSION CJ 71(36),CJ 72(36),CJ 73( 9) + EQUIVALENCE (CJ 1(1),CJ ( 1)),(CJ 2(1),CJ ( 37)) + EQUIVALENCE (CJ 3(1),CJ ( 73)),(CJ 4(1),CJ ( 109)) + EQUIVALENCE (CJ 5(1),CJ ( 145)),(CJ 6(1),CJ ( 181)) + EQUIVALENCE (CJ 7(1),CJ ( 217)),(CJ 8(1),CJ ( 253)) + EQUIVALENCE (CJ 9(1),CJ ( 289)),(CJ 10(1),CJ ( 325)) + EQUIVALENCE (CJ 11(1),CJ ( 361)),(CJ 12(1),CJ ( 397)) + EQUIVALENCE (CJ 13(1),CJ ( 433)),(CJ 14(1),CJ ( 469)) + EQUIVALENCE (CJ 15(1),CJ ( 505)),(CJ 16(1),CJ ( 541)) + EQUIVALENCE (CJ 17(1),CJ ( 577)),(CJ 18(1),CJ ( 613)) + EQUIVALENCE (CJ 19(1),CJ ( 649)),(CJ 20(1),CJ ( 685)) + EQUIVALENCE (CJ 21(1),CJ ( 721)),(CJ 22(1),CJ ( 757)) + EQUIVALENCE (CJ 23(1),CJ ( 793)),(CJ 24(1),CJ ( 829)) + EQUIVALENCE (CJ 25(1),CJ ( 865)),(CJ 26(1),CJ ( 901)) + EQUIVALENCE (CJ 27(1),CJ ( 937)),(CJ 28(1),CJ ( 973)) + EQUIVALENCE (CJ 29(1),CJ (1009)),(CJ 30(1),CJ (1045)) + EQUIVALENCE (CJ 31(1),CJ (1081)),(CJ 32(1),CJ (1117)) + EQUIVALENCE (CJ 33(1),CJ (1153)),(CJ 34(1),CJ (1189)) + EQUIVALENCE (CJ 35(1),CJ (1225)),(CJ 36(1),CJ (1261)) + EQUIVALENCE (CJ 37(1),CJ (1297)),(CJ 38(1),CJ (1333)) + EQUIVALENCE (CJ 39(1),CJ (1369)),(CJ 40(1),CJ (1405)) + EQUIVALENCE (CJ 41(1),CJ (1441)),(CJ 42(1),CJ (1477)) + EQUIVALENCE (CJ 43(1),CJ (1513)),(CJ 44(1),CJ (1549)) + EQUIVALENCE (CJ 45(1),CJ (1585)),(CJ 46(1),CJ (1621)) + EQUIVALENCE (CJ 47(1),CJ (1657)),(CJ 48(1),CJ (1693)) + EQUIVALENCE (CJ 49(1),CJ (1729)),(CJ 50(1),CJ (1765)) + EQUIVALENCE (CJ 51(1),CJ (1801)),(CJ 52(1),CJ (1837)) + EQUIVALENCE (CJ 53(1),CJ (1873)),(CJ 54(1),CJ (1909)) + EQUIVALENCE (CJ 55(1),CJ (1945)),(CJ 56(1),CJ (1981)) + EQUIVALENCE (CJ 57(1),CJ (2017)),(CJ 58(1),CJ (2053)) + EQUIVALENCE (CJ 59(1),CJ (2089)),(CJ 60(1),CJ (2125)) + EQUIVALENCE (CJ 61(1),CJ (2161)),(CJ 62(1),CJ (2197)) + EQUIVALENCE (CJ 63(1),CJ (2233)),(CJ 64(1),CJ (2269)) + EQUIVALENCE (CJ 65(1),CJ (2305)),(CJ 66(1),CJ (2341)) + EQUIVALENCE (CJ 67(1),CJ (2377)),(CJ 68(1),CJ (2413)) + EQUIVALENCE (CJ 69(1),CJ (2449)),(CJ 70(1),CJ (2485)) + EQUIVALENCE (CJ 71(1),CJ (2521)),(CJ 72(1),CJ (2557)) + EQUIVALENCE (CJ 73(1),CJ (2593)) + DATA CJ 1/ + 1 9.79744820D-06, 8.96296860D-06, 8.35934549D-06, 7.89335126D-06, + 2 7.44161783D-06, 7.01338932D-06, 6.60406268D-06, 6.18398056D-06, + 3 5.76053476D-06, 5.34734829D-06, 4.94621727D-06, 4.53113519D-06, + 4 4.11083148D-06, 3.69997631D-06, 3.30117385D-06, 2.88937415D-06, + 5 2.55730770D-06, 2.24433006D-06, 1.88506336D-06, 1.58859300D-06, + 6 1.33086897D-06, 1.09505641D-06, 8.86720269D-07, 6.98736456D-07, + 7 5.33933743D-07, 4.00542516D-07, 3.06250782D-07, 2.30467716D-07, + 8 1.70827079D-07, 1.22755304D-07, 8.97411915D-08, 6.17573521D-08, + 9 4.31436590D-08, 2.84810947D-08, 1.90445828D-08, 1.28647073D-08/ + DATA CJ 2/ + 1 7.72163607D-09, 4.14498085D-09, 2.00041016D-09, 8.21655030D-10, + 2 2.57654521D-10, 8.26321572D-11, 2.69513765D-11, 8.90661828D-12, + 3 2.97449037D-12, 5.83155356D-13, 1.16051514D-13, 2.33699420D-14, + 4 4.75155459D-15, 5.75016867D-16, 7.03774182D-17, 1.84495605D-05, + 5 2.04340585D-05, 1.83893753D-05, 1.67455934D-05, 1.56681842D-05, + 6 1.47030431D-05, 1.38123877D-05, 1.29157909D-05, 1.20215185D-05, + 7 1.11539807D-05, 1.03144214D-05, 9.44721432D-06, 8.57000031D-06, + 8 7.71299640D-06, 6.88139393D-06, 6.02284144D-06, 5.33058911D-06, + 9 4.67816358D-06, 3.92926961D-06, 3.31128764D-06, 2.77407705D-06/ + DATA CJ 3/ + 1 2.28254302D-06, 1.84828352D-06, 1.45644794D-06, 1.11293201D-06, + 2 8.34890799D-07, 6.38348903D-07, 4.80386613D-07, 3.56071674D-07, + 3 2.55870903D-07, 1.87056331D-07, 1.28726866D-07, 8.99285240D-08, + 4 5.93659104D-08, 3.96964700D-08, 2.68151550D-08, 1.60949529D-08, + 5 8.63978399D-09, 4.16964794D-09, 1.71265479D-09, 5.37054134D-10, + 6 1.72238158D-10, 5.61773464D-11, 1.85649208D-11, 6.20001617D-12, + 7 1.21552673D-12, 2.41897316D-13, 4.87122141D-14, 9.90412136D-15, + 8 1.19856284D-15, 1.46694406D-16, 1.73787847D-05, 1.87918674D-05, + 9 2.08999830D-05, 1.83387653D-05, 1.62807705D-05, 1.51671131D-05/ + DATA CJ 4/ + 1 1.41811027D-05, 1.32240507D-05, 1.22888417D-05, 1.13916825D-05, + 2 1.05286937D-05, 9.64030881D-06, 8.74342375D-06, 7.86815095D-06, + 3 7.01932516D-06, 6.14328580D-06, 5.43706123D-06, 4.77153058D-06, + 4 4.00764123D-06, 3.37730951D-06, 2.82937491D-06, 2.32803523D-06, + 5 1.88511642D-06, 1.48546973D-06, 1.13510730D-06, 8.51525287D-07, + 6 6.51067057D-07, 4.89957364D-07, 3.63165556D-07, 2.60968439D-07, + 7 1.90782877D-07, 1.31291340D-07, 9.17200485D-08, 6.05485677D-08, + 8 4.04872778D-08, 2.73493468D-08, 1.64155829D-08, 8.81189759D-09, + 9 4.25271133D-09, 1.74677236D-09, 5.47752673D-10, 1.75669266D-10/ + DATA CJ 5/ + 1 5.72964369D-11, 1.89347458D-11, 6.32352422D-12, 1.23974071D-12, + 2 2.46716040D-13, 4.96825863D-14, 1.01014163D-14, 1.22243878D-15, + 3 1.49616625D-16, 3.25551939D-05, 3.36923300D-05, 3.51339037D-05, + 4 3.88807453D-05, 3.39978572D-05, 3.01736404D-05, 2.80557516D-05, + 5 2.60587444D-05, 2.41623827D-05, 2.23709199D-05, 2.06616637D-05, + 6 1.89100581D-05, 1.71462550D-05, 1.54274129D-05, 1.37618090D-05, + 7 1.20435652D-05, 1.06587206D-05, 9.35383616D-06, 7.85622517D-06, + 8 6.62051755D-06, 5.54637186D-06, 4.56358554D-06, 3.69533249D-06, + 9 2.91191152D-06, 2.22510520D-06, 1.66920873D-06, 1.27625797D-06/ + DATA CJ 6/ + 1 9.60441144D-07, 7.11896566D-07, 5.11564087D-07, 3.73982533D-07, + 2 2.57364048D-07, 1.79794324D-07, 1.18690371D-07, 7.93652009D-08, + 3 5.36115600D-08, 3.21786438D-08, 1.72735185D-08, 8.33637456D-09, + 4 3.42410898D-09, 1.07373157D-09, 3.44355456D-10, 1.12315261D-10, + 5 3.71168073D-11, 1.23956785D-11, 2.43019968D-12, 4.83624689D-13, + 6 9.73902009D-14, 1.98012828D-14, 2.39628331D-15, 2.93285700D-16, + 7 5.51439894D-05, 5.61737699D-05, 5.70971222D-05, 5.97158543D-05, + 8 6.64856520D-05, 5.78678247D-05, 5.11761113D-05, 4.71765037D-05, + 9 4.35390905D-05, 4.02099897D-05, 3.70855896D-05, 3.39125099D-05/ + DATA CJ 7/ + 1 3.07335362D-05, 2.76442550D-05, 2.46552200D-05, 2.15743729D-05, + 2 1.90924626D-05, 1.67544242D-05, 1.40714918D-05, 1.18579707D-05, + 3 9.93395930D-06, 8.17364957D-06, 6.61851880D-06, 5.21535125D-06, + 4 3.98524025D-06, 2.98960335D-06, 2.28581302D-06, 1.72017429D-06, + 5 1.27502343D-06, 9.16222511D-07, 6.69810519D-07, 4.60944116D-07, + 6 3.22015062D-07, 2.12576632D-07, 1.42144487D-07, 9.60192338D-08, + 7 5.76324937D-08, 3.09371550D-08, 1.49305800D-08, 6.13263252D-09, + 8 1.92306956D-09, 6.16745755D-10, 2.01158282D-10, 6.64767407D-11, + 9 2.22008383D-11, 4.35252215D-12, 8.66178627D-13, 1.74427211D-13/ + DATA CJ 8/ + 1 3.54643725D-14, 4.29177646D-15, 5.25278713D-16, 8.91694801D-05, + 2 9.01232630D-05, 9.09107328D-05, 9.25454757D-05, 9.72160435D-05, + 3 1.08952038D-04, 9.40609395D-05, 8.21386656D-05, 7.52804540D-05, + 4 6.92140241D-05, 6.36798786D-05, 5.81457739D-05, 5.26491551D-05, + 5 4.73328076D-05, 4.22021470D-05, 3.69215245D-05, 3.26707758D-05, + 6 2.86680627D-05, 2.40761116D-05, 2.02882014D-05, 1.69960157D-05, + 7 1.39841085D-05, 1.13233607D-05, 8.92267193D-06, 6.81810177D-06, + 8 5.11470759D-06, 3.91063057D-06, 2.94291447D-06, 2.18133635D-06, + 9 1.56749018D-06, 1.14592288D-06, 7.88590043D-07, 5.50907755D-07/ + DATA CJ 9/ + 1 3.63678755D-07, 2.43182435D-07, 1.64270749D-07, 9.85982526D-08, + 2 5.29275745D-08, 2.55433660D-08, 1.04917571D-08, 3.29000168D-09, + 3 1.05513294D-09, 3.44142921D-10, 1.13728830D-10, 3.79813302D-11, + 4 7.44632040D-12, 1.48186329D-12, 2.98411029D-13, 6.06726381D-14, + 5 7.34239348D-15, 8.98649491D-16, 1.48734554D-04, 1.49668443D-04, + 6 1.50406412D-04, 1.51853966D-04, 1.54848007D-04, 1.63105701D-04, + 7 1.83690606D-04, 1.57030317D-04, 1.35729830D-04, 1.23968355D-04, + 8 1.13534508D-04, 1.03387927D-04, 9.34668387D-05, 8.39522065D-05, + 9 7.48117928D-05, 6.54283214D-05, 5.78852350D-05, 5.07874030D-05/ + DATA CJ 10/ + 1 4.26485228D-05, 3.59366977D-05, 3.01041834D-05, 2.47687422D-05, + 2 2.00556632D-05, 1.58034172D-05, 1.20757841D-05, 9.05877784D-06, + 3 6.92617657D-06, 5.21222091D-06, 3.86337217D-06, 2.77618035D-06, + 4 2.02953927D-06, 1.39666621D-06, 9.75707553D-07, 6.44107267D-07, + 5 4.30697222D-07, 2.90937554D-07, 1.74625805D-07, 9.37391181D-08, + 6 4.52393852D-08, 1.85817455D-08, 5.82685384D-09, 1.86872322D-09, + 7 6.09503895D-10, 2.01422551D-10, 6.72678568D-11, 1.31880025D-11, + 8 2.62449257D-12, 5.28508532D-13, 1.07455822D-13, 1.30039311D-14, + 9 1.59157564D-15, 2.56079901D-04, 2.57031747D-04, 2.57766555D-04/ + DATA CJ 11/ + 1 2.59163661D-04, 2.61888194D-04, 2.67327121D-04, 2.81742190D-04, + 2 3.19354058D-04, 2.70603482D-04, 2.32425980D-04, 2.11306977D-04, + 3 1.91402222D-04, 1.72512615D-04, 1.54685828D-04, 1.37706011D-04, + 4 1.20357383D-04, 1.06446541D-04, 9.33741396D-05, 7.83973100D-05, + 5 6.60530846D-05, 5.53292123D-05, 4.55210463D-05, 3.68579859D-05, + 6 2.90425875D-05, 2.21917680D-05, 1.66471758D-05, 1.27280184D-05, + 7 9.57827123D-06, 7.09951281D-06, 5.10161560D-06, 3.72954698D-06, + 8 2.56655106D-06, 1.79298202D-06, 1.18362336D-06, 7.91455799D-07, + 9 5.34630571D-07, 3.20894151D-07, 1.72255713D-07, 8.31321299D-08/ + DATA CJ 12/ + 1 3.41458713D-08, 1.07074315D-08, 3.43396440D-09, 1.12002317D-09, + 2 3.70133495D-10, 1.23611166D-10, 2.42342125D-11, 4.82275355D-12, + 3 9.71184154D-13, 1.97460132D-13, 2.38959340D-14, 2.92466775D-15, + 4 4.28478665D-04, 4.29422059D-04, 4.30140918D-04, 4.31484994D-04, + 5 4.34020658D-04, 4.38774835D-04, 4.48007289D-04, 4.74192413D-04, + 6 5.41887598D-04, 4.55714167D-04, 3.88809223D-04, 3.48834385D-04, + 7 3.12498533D-04, 2.79274664D-04, 2.48145828D-04, 2.16625539D-04, + 8 1.91470492D-04, 1.67889720D-04, 1.40916781D-04, 1.18707073D-04, + 9 9.94231585D-05, 8.17917639D-05, 6.62222043D-05, 5.21781154D-05/ + DATA CJ 13/ + 1 3.98685750D-05, 2.99067370D-05, 2.28655892D-05, 1.72069282D-05, + 2 1.27538260D-05, 9.16465428D-06, 6.69979937D-06, 4.61055441D-06, + 3 3.22090046D-06, 2.12624430D-06, 1.42175560D-06, 9.60397422D-07, + 4 5.76444952D-07, 3.09434371D-07, 1.49335410D-07, 6.13382136D-08, + 5 1.92343401D-08, 6.16860678D-09, 2.01195275D-09, 6.64888375D-10, + 6 2.22048435D-10, 4.35329925D-11, 8.66332015D-12, 1.74457896D-12, + 7 3.54705773D-13, 4.29252289D-14, 5.25369629D-15, 6.81346346D-04, + 8 6.82255817D-04, 6.82943987D-04, 6.84219429D-04, 6.86585612D-04, + 9 6.90881586D-04, 6.98754285D-04, 7.15098144D-04, 7.61797141D-04/ + DATA CJ 14/ + 1 8.79148726D-04, 7.30251735D-04, 6.11067411D-04, 5.42551059D-04, + 2 4.82001904D-04, 4.26857355D-04, 3.71876578D-04, 3.28350939D-04, + 3 2.87718988D-04, 2.41367155D-04, 2.03264175D-04, 1.70210809D-04, + 4 1.40006824D-04, 1.13344596D-04, 8.93004808D-05, 6.82295010D-05, + 5 5.11791622D-05, 3.91286652D-05, 2.94446879D-05, 2.18241298D-05, + 6 1.56821832D-05, 1.14643071D-05, 7.88923736D-06, 5.51132513D-06, + 7 3.63822025D-06, 2.43275575D-06, 1.64332221D-06, 9.86342258D-07, + 8 5.29464043D-07, 2.55522410D-07, 1.04953205D-07, 3.29109410D-08, + 9 1.05547740D-08, 3.44253802D-09, 1.13765089D-09, 3.79933350D-10/ + DATA CJ 15/ + 1 7.44864964D-11, 1.48232305D-11, 2.98503002D-12, 6.06912361D-13, + 2 7.34463078D-14, 8.98921998D-15, 1.11484772D-03, 1.11575700D-03, + 3 1.11644237D-03, 1.11770657D-03, 1.12003104D-03, 1.12418195D-03, + 4 1.13155813D-03, 1.14602725D-03, 1.17595605D-03, 1.25851233D-03, + 5 1.46433575D-03, 1.19777795D-03, 9.84898023D-04, 8.67486801D-04, + 6 7.63496933D-04, 6.62669548D-04, 5.84007289D-04, 5.11122829D-04, + 7 4.28377739D-04, 3.60559179D-04, 3.01823315D-04, 2.48203963D-04, + 8 2.00902454D-04, 1.58263961D-04, 1.20908862D-04, 9.06877167D-05, + 9 6.93314047D-05, 5.21706171D-05, 3.86672514D-05, 2.77844799D-05/ + DATA CJ 16/ + 1 2.03112075D-05, 1.39770538D-05, 9.76407481D-06, 6.44553426D-06, + 2 4.30987268D-06, 2.91128982D-06, 1.74737828D-06, 9.37977549D-07, + 3 4.52670223D-07, 1.85928420D-07, 5.83025562D-08, 1.86979588D-08, + 4 6.09849176D-09, 2.01535459D-09, 6.73052396D-10, 1.31952557D-10, + 5 2.62592423D-11, 5.28794933D-12, 1.07513735D-12, 1.30108980D-13, + 6 1.59242422D-14, 1.87645118D-03, 1.87738833D-03, 1.87809318D-03, + 7 1.87938984D-03, 1.88176229D-03, 1.88596108D-03, 1.89330275D-03, + 8 1.90726205D-03, 1.93448596D-03, 1.98883781D-03, 2.13292357D-03, + 9 2.50895650D-03, 2.02160072D-03, 1.64022652D-03, 1.42967764D-03/ + DATA CJ 17/ + 1 1.23180309D-03, 1.08166934D-03, 9.44527709D-04, 7.90233024D-04, + 2 6.64466714D-04, 5.55869126D-04, 4.56912546D-04, 3.69718850D-04, + 3 2.91182454D-04, 2.22414806D-04, 1.66800680D-04, 1.27509362D-04, + 4 9.59420089D-05, 7.11054588D-05, 5.10907704D-05, 3.73475053D-05, + 5 2.56997018D-05, 1.79528489D-05, 1.18509126D-05, 7.92410065D-06, + 6 5.35260374D-06, 3.21262703D-06, 1.72448625D-06, 8.32230538D-07, + 7 3.41823776D-07, 1.07186229D-07, 3.43749330D-08, 1.12115909D-08, + 8 3.70504943D-09, 1.23734148D-09, 2.42580742D-10, 4.82746345D-11, + 9 9.72126355D-12, 1.97650655D-12, 2.39188535D-13, 2.92745938D-14/ + DATA CJ 18/ + 1 3.05596719D-03, 3.05690144D-03, 3.05760323D-03, 3.05889229D-03, + 2 3.06124422D-03, 3.06538575D-03, 3.07256282D-03, 3.08598245D-03, + 3 3.11130067D-03, 3.15877520D-03, 3.25098448D-03, 3.51262193D-03, + 4 4.18929515D-03, 3.32802567D-03, 2.66019874D-03, 2.26255826D-03, + 5 1.97241133D-03, 1.71470116D-03, 1.42979273D-03, 1.19998887D-03, + 6 1.00267078D-03, 8.23483583D-04, 6.65943148D-04, 5.24251321D-04, + 7 4.00308105D-04, 3.00140478D-04, 2.29403448D-04, 1.72588821D-04, + 8 1.27898063D-04, 9.18898504D-05, 6.71676646D-05, 4.62170248D-05, + 9 3.22840871D-05, 2.13103008D-05, 1.42486670D-05, 9.62450663D-06/ + DATA CJ 19/ + 1 5.77646456D-06, 3.10063265D-06, 1.49631817D-06, 6.14572206D-07, + 2 1.92708225D-07, 6.18011032D-08, 2.01565561D-08, 6.66099210D-09, + 3 2.22449327D-09, 4.36107753D-10, 8.67867310D-11, 1.74765026D-11, + 4 3.55326822D-12, 4.29999393D-13, 5.26279611D-14, 4.58905399D-03, + 5 4.58994482D-03, 4.59061355D-03, 4.59184086D-03, 4.59407675D-03, + 6 4.59800330D-03, 4.60477562D-03, 4.61732873D-03, 4.64062203D-03, + 7 4.68292875D-03, 4.76051134D-03, 4.92176307D-03, 5.38442458D-03, + 8 6.54922376D-03, 5.03719066D-03, 3.84919968D-03, 3.34188460D-03, + 9 2.88688751D-03, 2.39518284D-03, 2.00456361D-03, 1.67194936D-03/ + DATA CJ 20/ + 1 1.37143155D-03, 1.10808371D-03, 8.71743749D-04, 6.65317431D-04, + 2 4.98659080D-04, 3.81044905D-04, 2.86621113D-04, 2.12371138D-04, + 3 1.52561656D-04, 1.11506092D-04, 7.67190760D-05, 5.35872980D-05, + 4 3.53701589D-05, 2.36483834D-05, 1.59731092D-05, 9.58640571D-06, + 5 5.14549598D-06, 2.48305034D-06, 1.01981189D-06, 3.19766809D-07, + 6 1.02546081D-07, 3.34450069D-08, 1.10521721D-08, 3.69092105D-09, + 7 7.23588135D-10, 1.43994616D-10, 2.89963727D-11, 5.89541038D-12, + 8 7.13428630D-13, 8.73165412D-14, 7.63344239D-03, 7.63436095D-03, + 9 7.63505020D-03, 7.63631460D-03, 7.63861604D-03, 7.64265143D-03/ + DATA CJ 21/ + 1 7.64959272D-03, 7.66239614D-03, 7.68593738D-03, 7.72797518D-03, + 2 7.80267307D-03, 7.94918588D-03, 8.25219168D-03, 9.08595967D-03, + 3 1.11718179D-02, 8.50948584D-03, 6.67067668D-03, 5.66624412D-03, + 4 4.63749691D-03, 3.85370081D-03, 3.20032500D-03, 2.61728999D-03, + 5 2.11034644D-03, 1.65770792D-03, 1.26373000D-03, 9.46397409D-04, + 6 7.22788157D-04, 5.43449520D-04, 4.02532513D-04, 2.89087221D-04, + 7 2.11247909D-04, 1.45315957D-04, 1.01486491D-04, 6.69768382D-05, + 8 4.47757942D-05, 3.02408867D-05, 1.81477045D-05, 9.73991532D-06, + 9 4.69979281D-06, 1.93010363D-06, 6.05148839D-07, 1.94054898D-07/ + DATA CJ 22/ + 1 6.32876542D-08, 2.09132360D-08, 6.98388223D-09, 1.36911508D-09, + 2 2.72448318D-10, 5.48621737D-11, 1.11541473D-11, 1.34978709D-12, + 3 1.65198131D-13, 1.06716479D-02, 1.06724962D-02, 1.06731327D-02, + 4 1.06743000D-02, 1.06764237D-02, 1.06801444D-02, 1.06865355D-02, + 5 1.06982944D-02, 1.07198145D-02, 1.07579188D-02, 1.08245983D-02, + 6 1.09515714D-02, 1.11999257D-02, 1.16984658D-02, 1.30537716D-02, + 7 1.64947744D-02, 1.24602153D-02, 9.56746194D-03, 7.64827637D-03, + 8 6.27825452D-03, 5.17676322D-03, 4.21361197D-03, 3.38651398D-03, + 9 2.65388823D-03, 2.01962478D-03, 1.51059058D-03, 1.15272726D-03/ + DATA CJ 23/ + 1 8.66154710D-04, 6.41233882D-04, 4.60319778D-04, 3.36269473D-04, + 2 2.31249862D-04, 1.61465725D-04, 1.06538851D-04, 7.12127109D-05, + 3 4.80898278D-05, 2.88550145D-05, 1.54845115D-05, 7.47082608D-06, + 4 3.06775966D-06, 9.61734204D-07, 3.08377280D-07, 1.00565701D-07, + 5 3.32300398D-08, 1.10965833D-08, 2.17526303D-09, 4.32852492D-10, + 6 8.71597423D-11, 1.77202052D-11, 2.14430323D-12, 2.62432019D-13, + 7 1.24208536D-02, 1.24215406D-02, 1.24220560D-02, 1.24230012D-02, + 8 1.24247202D-02, 1.24277306D-02, 1.24328975D-02, 1.24423905D-02, + 9 1.24597184D-02, 1.24902550D-02, 1.25432456D-02, 1.26425720D-02/ + DATA CJ 24/ + 1 1.28308312D-02, 1.31867664D-02, 1.38836281D-02, 1.61371087D-02, + 2 2.09342998D-02, 1.50640284D-02, 1.04396460D-02, 8.52366488D-03, + 3 6.96923411D-03, 5.63914478D-03, 4.51383247D-03, 3.52682352D-03, + 4 2.67803436D-03, 1.99989867D-03, 1.52453504D-03, 1.14460280D-03, + 5 8.46833440D-04, 6.07587365D-04, 4.43675885D-04, 3.05000337D-04, + 6 2.12901324D-04, 1.40441165D-04, 9.38549059D-05, 6.33698772D-05, + 7 3.80168928D-05, 2.03976823D-05, 9.83979455D-06, 4.03995811D-06, + 8 1.26634031D-06, 4.06007089D-07, 1.32393704D-07, 4.37443103D-08, + 9 1.46069081D-08, 2.86322161D-09, 5.69721947D-10, 1.14715681D-10/ + DATA CJ 25/ + 1 2.33218140D-11, 2.82205447D-12, 3.45369833D-13, 1.94810935D-02, + 2 1.94818503D-02, 1.94824179D-02, 1.94834588D-02, 1.94853517D-02, + 3 1.94886657D-02, 1.94943513D-02, 1.95047890D-02, 1.95238140D-02, + 4 1.95572554D-02, 1.96150267D-02, 1.97224258D-02, 1.99228219D-02, + 5 2.02906364D-02, 2.09790973D-02, 2.24766315D-02, 2.59060675D-02, + 6 3.37894606D-02, 2.36650522D-02, 1.67865205D-02, 1.34852146D-02, + 7 1.07554640D-02, 8.52894897D-03, 6.62031125D-03, 5.00327821D-03, + 8 3.72392321D-03, 2.83262704D-03, 2.12313739D-03, 1.56873156D-03, + 9 1.12430016D-03, 8.20332823D-04, 5.63506593D-04, 3.93125304D-04/ + DATA CJ 26/ + 1 2.59191151D-04, 1.73143499D-04, 1.16866620D-04, 7.00863842D-05, + 2 3.75917115D-05, 1.81285895D-05, 7.44097441D-06, 2.33174953D-06, + 3 7.47439487D-07, 2.43692177D-07, 8.05085341D-08, 2.68803496D-08, + 4 5.26840946D-09, 1.04820661D-09, 2.11044554D-10, 4.29029307D-11, + 5 5.19111983D-12, 6.35267562D-13, 2.68144794D-02, 2.68152340D-02, + 6 2.68158000D-02, 2.68168377D-02, 2.68187248D-02, 2.68220282D-02, + 7 2.68276939D-02, 2.68380900D-02, 2.68570222D-02, 2.68902478D-02, + 8 2.69474868D-02, 2.70533594D-02, 2.72490323D-02, 2.76017887D-02, + 9 2.82397420D-02, 2.95368461D-02, 3.16415686D-02, 3.66967999D-02/ + DATA CJ 27/ + 1 4.98810707D-02, 3.43114781D-02, 2.40016204D-02, 1.87161429D-02, + 2 1.45996143D-02, 1.12081149D-02, 8.40567489D-03, 6.22335553D-03, + 3 4.71782027D-03, 3.52695811D-03, 2.60069160D-03, 1.86076446D-03, + 4 1.35601978D-03, 9.30420718D-04, 6.48541490D-04, 4.27250986D-04, + 5 2.85234445D-04, 1.92429775D-04, 1.15342167D-04, 6.18339132D-05, + 6 2.98055973D-05, 1.22285626D-05, 3.83040581D-06, 1.22745361D-06, + 7 4.00099709D-07, 1.32156222D-07, 4.41179135D-08, 8.64532737D-09, + 8 1.71983935D-09, 3.46231251D-10, 7.03783355D-11, 8.51470572D-12, + 9 1.04191002D-12, 2.93105845D-02, 2.93111926D-02, 2.93116486D-02/ + DATA CJ 28/ + 1 2.93124848D-02, 2.93140052D-02, 2.93166665D-02, 2.93212301D-02, + 2 2.93296012D-02, 2.93448369D-02, 2.93715472D-02, 2.94174786D-02, + 3 2.95021568D-02, 2.96577012D-02, 2.99349550D-02, 3.04259264D-02, + 4 3.13820917D-02, 3.28196439D-02, 3.52993354D-02, 4.37293513D-02, + 5 6.16813834D-02, 4.10710605D-02, 2.73272861D-02, 2.08412122D-02, + 6 1.57078159D-02, 1.16349995D-02, 8.54306269D-03, 6.44256291D-03, + 7 4.79727031D-03, 3.52654009D-03, 2.51682379D-03, 1.83075442D-03, + 8 1.25402197D-03, 8.72988704D-04, 5.74439671D-04, 3.83149531D-04, + 9 2.58298944D-04, 1.54704606D-04, 8.28739739D-05, 3.99203092D-05/ + DATA CJ 29/ + 1 1.63679751D-05, 5.12384714D-06, 1.64119506D-06, 5.34777682D-07, + 2 1.76593238D-07, 5.89393441D-08, 1.15466876D-08, 2.29654360D-09, + 3 4.62254965D-10, 9.39497631D-11, 1.13648268D-11, 1.39050368D-12, + 4 3.38719415D-02, 3.38724916D-02, 3.38729041D-02, 3.38736604D-02, + 5 3.38750357D-02, 3.38774427D-02, 3.38815700D-02, 3.38891395D-02, + 6 3.39029120D-02, 3.39270440D-02, 3.39685030D-02, 3.40448073D-02, + 7 3.41845344D-02, 3.44321947D-02, 3.48663543D-02, 3.56957363D-02, + 8 3.69034406D-02, 3.89082216D-02, 4.34786937D-02, 5.48837934D-02, + 9 7.92311401D-02, 5.11201902D-02, 3.29130965D-02, 2.41709942D-02/ + DATA CJ 30/ + 1 1.75449024D-02, 1.27168996D-02, 9.51480609D-03, 7.04353074D-03, + 2 5.15471899D-03, 3.66546818D-03, 2.65931636D-03, 1.81718603D-03, + 3 1.26276077D-03, 8.29549046D-04, 5.52603530D-04, 3.72158022D-04, + 4 2.22659715D-04, 1.19153630D-04, 5.73421433D-05, 2.34905250D-05, + 5 7.34723417D-06, 2.35189262D-06, 7.65991588D-07, 2.52849277D-07, + 6 8.43647141D-08, 1.65217439D-08, 3.28511655D-09, 6.61088474D-10, + 7 1.34336273D-10, 1.62470060D-11, 1.98752421D-12, 3.78705822D-02, + 8 3.78710789D-02, 3.78714514D-02, 3.78721343D-02, 3.78733761D-02, + 9 3.78755493D-02, 3.78792755D-02, 3.78861088D-02, 3.78985392D-02/ + DATA CJ 31/ + 1 3.79203122D-02, 3.79576958D-02, 3.80264251D-02, 3.81520308D-02, + 2 3.83738644D-02, 3.87602803D-02, 3.94896661D-02, 4.05309718D-02, + 3 4.22050142D-02, 4.58079989D-02, 5.18680175D-02, 6.69949177D-02, + 4 9.99650283D-02, 6.22151021D-02, 3.79264661D-02, 2.68360813D-02, + 5 1.90636001D-02, 1.40947336D-02, 1.03444628D-02, 7.52188726D-03, + 6 5.32118372D-03, 3.84637814D-03, 2.61953759D-03, 1.81578530D-03, + 7 1.19014956D-03, 7.91436695D-04, 5.32265138D-04, 3.17985329D-04, + 8 1.69927045D-04, 8.16723406D-05, 3.34177509D-05, 1.04402136D-05, + 9 3.33917358D-06, 1.08684559D-06, 3.58580423D-07, 1.19593740D-07/ + DATA CJ 32/ + 1 2.34095416D-08, 4.65290141D-09, 9.36054907D-10, 1.90163622D-10, + 2 2.29927543D-11, 2.81213504D-12, 4.07045732D-02, 4.07050138D-02, + 3 4.07053442D-02, 4.07059501D-02, 4.07070517D-02, 4.07089796D-02, + 4 4.07122849D-02, 4.07183460D-02, 4.07293704D-02, 4.07486759D-02, + 5 4.07818096D-02, 4.08426810D-02, 4.09537773D-02, 4.11495151D-02, + 6 4.14890357D-02, 4.21248963D-02, 4.30212543D-02, 4.44338295D-02, + 7 4.73542676D-02, 5.19486346D-02, 5.96595030D-02, 8.00440021D-02, + 8 1.23805652D-01, 7.36099127D-02, 4.22094370D-02, 2.93020252D-02, + 9 2.12632345D-02, 1.53999160D-02, 1.10899988D-02, 7.78581980D-03/ + DATA CJ 33/ + 1 5.59792888D-03, 3.79408528D-03, 2.62063726D-03, 1.71219569D-03, + 2 1.13580719D-03, 7.62385553D-04, 4.54536615D-04, 2.42425104D-04, + 3 1.16311835D-04, 4.75131868D-05, 1.48204245D-05, 4.73468735D-06, + 4 1.53971465D-06, 5.07644565D-07, 1.69215319D-07, 3.31006873D-08, + 5 6.57573986D-09, 1.32234067D-09, 2.68548744D-10, 3.24584914D-11, + 6 3.96867843D-12, 4.32342833D-02, 4.32346787D-02, 4.32349753D-02, + 7 4.32355189D-02, 4.32365074D-02, 4.32382374D-02, 4.32412033D-02, + 8 4.32466417D-02, 4.32565325D-02, 4.32738504D-02, 4.33035646D-02, + 9 4.33581273D-02, 4.34576211D-02, 4.36326376D-02, 4.39353696D-02/ + DATA CJ 34/ + 1 4.44994366D-02, 4.52881489D-02, 4.65156962D-02, 4.89934064D-02, + 2 5.27270383D-02, 5.86246340D-02, 6.89792766D-02, 9.55178919D-02, + 3 1.53805931D-01, 8.72665990D-02, 4.81287151D-02, 3.42518696D-02, + 4 2.42867642D-02, 1.72256496D-02, 1.19534085D-02, 8.52602534D-03, + 5 5.73789848D-03, 3.94296355D-03, 2.56435298D-03, 1.69519482D-03, + 6 1.13475697D-03, 6.74616532D-04, 3.58827677D-04, 1.71739540D-04, + 7 6.99968308D-05, 2.17862780D-05, 6.94913635D-06, 2.25715388D-06, + 8 7.43486392D-07, 2.47641764D-07, 4.83984298D-08, 9.60806708D-09, + 9 1.93104607D-09, 3.91989428D-10, 4.73549560D-11, 5.78776151D-12/ + DATA CJ 35/ + 1 4.32087632D-02, 4.32091029D-02, 4.32093576D-02, 4.32098246D-02, + 2 4.32106738D-02, 4.32121598D-02, 4.32147075D-02, 4.32193789D-02, + 3 4.32278743D-02, 4.32427472D-02, 4.32682614D-02, 4.33150958D-02, + 4 4.34004438D-02, 4.35504092D-02, 4.38093044D-02, 4.42899816D-02, + 5 4.49583505D-02, 4.59898809D-02, 4.80394281D-02, 5.10451508D-02, + 6 5.55906118D-02, 6.30744680D-02, 7.57836932D-02, 1.10123496D-01, + 7 1.85653774D-01, 1.03646665D-01, 5.94714146D-02, 4.05637117D-02, + 8 2.79429568D-02, 1.89929637D-02, 1.33657202D-02, 8.89196126D-03, + 9 6.06091784D-03, 3.91386910D-03, 2.57362900D-03, 1.71569689D-03/ + DATA CJ 36/ + 1 1.01565207D-03, 5.38061069D-04, 2.56602824D-04, 1.04242060D-04, + 2 3.23436807D-05, 1.02933846D-05, 3.33770653D-06, 1.09794325D-06, + 3 3.65311742D-07, 7.13048076D-08, 1.41415068D-08, 2.83995095D-09, + 4 5.76120933D-10, 6.95510376D-11, 8.49584676D-12, 3.61991027D-02, + 5 3.61993546D-02, 3.61995435D-02, 3.61998898D-02, 3.62005195D-02, + 6 3.62016216D-02, 3.62035109D-02, 3.62069750D-02, 3.62132746D-02, + 7 3.62243025D-02, 3.62432184D-02, 3.62779330D-02, 3.63411687D-02, + 8 3.64521995D-02, 3.66436361D-02, 3.69982490D-02, 3.74895600D-02, + 9 3.82437785D-02, 3.97276968D-02, 4.18684883D-02, 4.50254746D-02/ + DATA CJ 37/ + 1 5.00133841D-02, 5.80103385D-02, 7.21340556D-02, 1.13025502D-01, + 2 1.99418938D-01, 1.09586908D-01, 5.94793914D-02, 3.95984015D-02, + 3 2.61425920D-02, 1.80656790D-02, 1.18401639D-02, 7.98800065D-03, + 4 5.11311185D-03, 3.34058255D-03, 2.21597730D-03, 1.30517128D-03, + 5 6.88176910D-04, 3.26823531D-04, 1.32263645D-04, 4.08905223D-05, + 6 1.29798657D-05, 4.20064215D-06, 1.37970996D-06, 4.58502450D-07, + 7 8.93659154D-08, 1.77037640D-08, 3.55218722D-09, 7.20086542D-10, + 8 8.68632550D-11, 1.06039398D-11, 2.93072216D-02, 2.93074062D-02, + 9 2.93075447D-02, 2.93077986D-02, 2.93082602D-02, 2.93090679D-02/ + DATA CJ 38/ + 1 2.93104528D-02, 2.93129919D-02, 2.93176092D-02, 2.93256917D-02, + 2 2.93395542D-02, 2.93649910D-02, 2.94113137D-02, 2.94926082D-02, + 3 2.96326546D-02, 2.98916735D-02, 3.02496816D-02, 3.07973230D-02, + 4 3.18679302D-02, 3.33963795D-02, 3.56156824D-02, 3.90380654D-02, + 5 4.43148129D-02, 5.31920594D-02, 6.91640591D-02, 1.16575775D-01, + 6 2.09934433D-01, 1.12013093D-01, 5.82642687D-02, 3.70523334D-02, + 7 2.49076025D-02, 1.59750451D-02, 1.06254412D-02, 6.72152469D-03, + 8 4.35445309D-03, 2.87016476D-03, 1.67963537D-03, 8.80394242D-04, + 9 4.15953076D-04, 1.67551113D-04, 5.15743081D-05, 1.63204537D-05/ + DATA CJ 39/ + 1 5.26947577D-06, 1.72764130D-06, 5.73294937D-07, 1.11549698D-07, + 2 2.20694579D-08, 4.42352504D-09, 8.95959064D-10, 1.07979712D-10, + 3 1.31720886D-11, 2.56383409D-02, 2.56384908D-02, 2.56386032D-02, + 4 2.56388093D-02, 2.56391840D-02, 2.56398398D-02, 2.56409641D-02, + 5 2.56430254D-02, 2.56467737D-02, 2.56533350D-02, 2.56645878D-02, + 6 2.56852340D-02, 2.57228259D-02, 2.57887774D-02, 2.59023307D-02, + 7 2.61121441D-02, 2.64017019D-02, 2.68436483D-02, 2.77041846D-02, + 8 2.89248481D-02, 3.06808077D-02, 3.33507344D-02, 3.73782881D-02, + 9 4.39205671D-02, 5.52858594D-02, 7.56826005D-02, 1.25832006D-01/ + DATA CJ 40/ + 1 2.30642137D-01, 1.18332498D-01, 5.71643469D-02, 3.76047112D-02, + 2 2.34557191D-02, 1.53226318D-02, 9.55330997D-03, 6.12663729D-03, + 3 4.00811123D-03, 2.32818065D-03, 1.21213576D-03, 5.69369511D-04, + 4 2.28164697D-04, 6.98955884D-05, 2.20433677D-05, 7.09934098D-06, + 5 2.32303675D-06, 7.69668743D-07, 1.49486186D-07, 2.95334964D-08, + 6 5.91300771D-09, 1.19656261D-09, 1.44067978D-10, 1.75607129D-11, + 7 2.22761665D-02, 2.22762878D-02, 2.22763789D-02, 2.22765457D-02, + 8 2.22768492D-02, 2.22773802D-02, 2.22782905D-02, 2.22799595D-02, + 9 2.22829944D-02, 2.22883068D-02, 2.22974173D-02, 2.23141315D-02/ + DATA CJ 41/ + 1 2.23445596D-02, 2.23979289D-02, 2.24897765D-02, 2.26593445D-02, + 2 2.28930634D-02, 2.32491203D-02, 2.39401206D-02, 2.49151104D-02, + 3 2.63070342D-02, 2.83995587D-02, 3.15019911D-02, 3.64043040D-02, + 4 4.45264732D-02, 5.81378958D-02, 7.88629990D-02, 1.36137259D-01, + 5 2.57211631D-01, 1.30192772D-01, 6.63608831D-02, 3.93311909D-02, + 6 2.48502333D-02, 1.51148435D-02, 9.53662310D-03, 6.16693160D-03, + 7 3.54233209D-03, 1.82616568D-03, 8.50690362D-04, 3.38428996D-04, + 8 1.02988259D-04, 3.23302532D-05, 1.03769100D-05, 3.38662021D-06, + 9 1.11972018D-06, 2.16945941D-07, 4.27817069D-08, 8.55290917D-09/ + DATA CJ 42/ + 1 1.72871725D-09, 2.07874878D-10, 2.53124541D-11, 1.72345593D-02, + 2 1.72346481D-02, 1.72347146D-02, 1.72348367D-02, 1.72350586D-02, + 3 1.72354470D-02, 1.72361127D-02, 1.72373334D-02, 1.72395531D-02, + 4 1.72434383D-02, 1.72501011D-02, 1.72623239D-02, 1.72845732D-02, + 5 1.73235899D-02, 1.73907151D-02, 1.75145682D-02, 1.76851231D-02, + 6 1.79446101D-02, 1.84470178D-02, 1.91532719D-02, 2.01562308D-02, + 7 2.16523609D-02, 2.38450945D-02, 2.72488293D-02, 3.27267114D-02, + 8 4.14736368D-02, 5.40800824D-02, 7.55433816D-02, 1.36071502D-01, + 9 2.66937747D-01, 1.30878244D-01, 5.70704857D-02, 3.54810703D-02/ + DATA CJ 43/ + 1 2.10071223D-02, 1.30176391D-02, 8.31203265D-03, 4.71755468D-03, + 2 2.40684877D-03, 1.11154500D-03, 4.38918146D-04, 1.32672849D-04, + 3 4.14559690D-05, 1.32607288D-05, 4.31651874D-06, 1.42423313D-06, + 4 2.75284873D-07, 5.41870348D-08, 1.08174709D-08, 2.18388654D-09, + 5 2.62281135D-10, 3.19056755D-11, 1.37799601D-02, 1.37800274D-02, + 6 1.37800778D-02, 1.37801704D-02, 1.37803386D-02, 1.37806330D-02, + 7 1.37811376D-02, 1.37820629D-02, 1.37837454D-02, 1.37866904D-02, + 8 1.37917405D-02, 1.38010045D-02, 1.38178664D-02, 1.38474308D-02, + 9 1.38982799D-02, 1.39920548D-02, 1.41210902D-02, 1.43171872D-02/ + DATA CJ 44/ + 1 1.46961074D-02, 1.52270987D-02, 1.59778404D-02, 1.70905750D-02, + 2 1.87061758D-02, 2.11789725D-02, 2.50716330D-02, 3.10732443D-02, + 3 3.92866830D-02, 5.24646620D-02, 7.45948113D-02, 1.44921051D-01, + 4 2.88593785D-01, 1.37313825D-01, 6.35764233D-02, 3.58313861D-02, + 5 2.14391887D-02, 1.33813743D-02, 7.44208358D-03, 3.73383866D-03, + 6 1.70148693D-03, 6.64396181D-04, 1.98863645D-04, 6.17263113D-05, + 7 1.96498532D-05, 6.37293608D-06, 2.09672615D-06, 4.03929604D-07, + 8 7.93103504D-08, 1.58017896D-08, 3.18509708D-09, 3.81879489D-10, + 9 4.63921497D-11, 1.10836014D-02, 1.10836534D-02, 1.10836924D-02/ + DATA CJ 45/ + 1 1.10837639D-02, 1.10838939D-02, 1.10841214D-02, 1.10845115D-02, + 2 1.10852267D-02, 1.10865271D-02, 1.10888033D-02, 1.10927065D-02, + 3 1.10998664D-02, 1.11128976D-02, 1.11357432D-02, 1.11750288D-02, + 4 1.12474539D-02, 1.13470595D-02, 1.14983165D-02, 1.17902001D-02, + 5 1.21983629D-02, 1.27737467D-02, 1.36229698D-02, 1.48484789D-02, + 6 1.67074935D-02, 1.95944437D-02, 2.39552086D-02, 2.97559740D-02, + 7 3.86981296D-02, 5.32679383D-02, 8.05305435D-02, 1.50256705D-01, + 8 3.10028330D-01, 1.43359269D-01, 5.79514507D-02, 3.41359790D-02, + 9 2.07888262D-02, 1.13072749D-02, 5.57200234D-03, 2.50380051D-03/ + DATA CJ 46/ + 1 9.66527996D-04, 2.86446076D-04, 8.83262559D-05, 2.79849270D-05, + 2 9.04393983D-06, 2.96723592D-06, 5.69809173D-07, 1.11611337D-07, + 3 2.21956566D-08, 4.46712809D-09, 5.34730172D-10, 6.48783939D-11, + 4 8.05345169D-03, 8.05348793D-03, 8.05351512D-03, 8.05356495D-03, + 5 8.05365555D-03, 8.05381410D-03, 8.05408592D-03, 8.05458428D-03, + 6 8.05549048D-03, 8.05707659D-03, 8.05979643D-03, 8.06478541D-03, + 7 8.07386492D-03, 8.08978091D-03, 8.11714522D-03, 8.16757597D-03, + 8 8.23689741D-03, 8.34208772D-03, 8.54480995D-03, 8.82771009D-03, + 9 9.22537505D-03, 9.80990903D-03, 1.06485399D-02, 1.19099547D-02/ + DATA CJ 47/ + 1 1.38442261D-02, 1.67118796D-02, 2.04310483D-02, 2.59634497D-02, + 2 3.44927631D-02, 4.92459652D-02, 7.17143792D-02, 1.53427244D-01, + 3 3.26514616D-01, 1.45742764D-01, 6.13074379D-02, 3.60649980D-02, + 4 1.88174151D-02, 8.98850140D-03, 3.94809638D-03, 1.49719844D-03, + 5 4.37206538D-04, 1.33525468D-04, 4.20207143D-05, 1.35118440D-05, + 6 4.41591581D-06, 8.44260219D-07, 1.64822984D-07, 3.26934692D-08, + 7 6.56642250D-09, 7.84314417D-10, 9.49969176D-11, 6.23899214D-03, + 8 6.23901934D-03, 6.23903975D-03, 6.23907716D-03, 6.23914519D-03, + 9 6.23926423D-03, 6.23946831D-03, 6.23984247D-03, 6.24052283D-03/ + DATA CJ 48/ + 1 6.24171365D-03, 6.24375562D-03, 6.24750111D-03, 6.25431728D-03, + 2 6.26626487D-03, 6.28680368D-03, 6.32464677D-03, 6.37664705D-03, + 3 6.45551338D-03, 6.60736780D-03, 6.81898452D-03, 7.11587158D-03, + 4 7.55107120D-03, 8.17302480D-03, 9.10333057D-03, 1.05183121D-02, + 5 1.25918504D-02, 1.52408962D-02, 1.91039365D-02, 2.48947623D-02, + 6 3.45085256D-02, 4.88880645D-02, 7.83625393D-02, 1.60081234D-01, + 7 3.50633150D-01, 1.58268933D-01, 6.90948156D-02, 3.39747806D-02, + 8 1.55020551D-02, 6.60454805D-03, 2.44930269D-03, 7.02699419D-04, + 9 2.12238793D-04, 6.62828734D-05, 2.11942671D-05, 6.89702873D-06/ + DATA CJ 49/ + 1 1.31225577D-06, 2.55272620D-07, 5.04948874D-08, 1.01195427D-08, + 2 1.20591545D-09, 1.45796071D-10, 3.86282087D-03, 3.86283723D-03, + 3 3.86284949D-03, 3.86287197D-03, 3.86291285D-03, 3.86298440D-03, + 4 3.86310704D-03, 3.86333191D-03, 3.86374079D-03, 3.86445644D-03, + 5 3.86568359D-03, 3.86793446D-03, 3.87203051D-03, 3.87920970D-03, + 6 3.89154986D-03, 3.91428208D-03, 3.94550854D-03, 3.99284634D-03, + 7 4.08391991D-03, 4.21067527D-03, 4.38819654D-03, 4.64778015D-03, + 8 5.01747072D-03, 5.56772337D-03, 6.39868712D-03, 7.60416847D-03, + 9 9.12449772D-03, 1.13047814D-02, 1.44977905D-02, 1.96168808D-02/ + DATA CJ 50/ + 1 2.68935185D-02, 4.08571483D-02, 6.32813848D-02, 1.50625472D-01, + 2 3.39572661D-01, 1.48214255D-01, 4.93249265D-02, 2.20913623D-02, + 3 9.10755191D-03, 3.29653797D-03, 9.28076731D-04, 2.77064012D-04, + 4 8.58448019D-05, 2.72917711D-05, 8.84251505D-06, 1.67419032D-06, + 5 3.24506159D-07, 6.40121059D-08, 1.28003362D-08, 1.52186166D-09, + 6 1.83661677D-10, 2.98227701D-03, 2.98228934D-03, 2.98229858D-03, + 7 2.98231552D-03, 2.98234633D-03, 2.98240025D-03, 2.98249267D-03, + 8 2.98266213D-03, 2.98297027D-03, 2.98350958D-03, 2.98443436D-03, + 9 2.98613057D-03, 2.98921719D-03, 2.99462686D-03, 3.00392462D-03/ + DATA CJ 51/ + 1 3.02104965D-03, 3.04456802D-03, 3.08020825D-03, 3.14873479D-03, + 2 3.24401847D-03, 3.37728863D-03, 3.57180598D-03, 3.84811665D-03, + 3 4.25788866D-03, 4.87350005D-03, 5.76017191D-03, 6.86845602D-03, + 4 8.44008711D-03, 1.07075673D-02, 1.42674113D-02, 1.91878660D-02, + 5 2.82561307D-02, 4.26527329D-02, 7.23734657D-02, 1.66053959D-01, + 6 3.70990169D-01, 1.46316337D-01, 4.02698622D-02, 1.66654154D-02, + 7 5.85171602D-03, 1.60804097D-03, 4.73088651D-04, 1.45155849D-04, + 8 4.58264260D-05, 1.47698909D-05, 2.78019464D-06, 5.36593606D-07, + 9 1.05505562D-07, 2.10437806D-08, 2.49526484D-09, 3.00506659D-10/ + DATA CJ 52/ + 1 2.45811060D-03, 2.45812052D-03, 2.45812796D-03, 2.45814160D-03, + 2 2.45816641D-03, 2.45820983D-03, 2.45828425D-03, 2.45842070D-03, + 3 2.45866882D-03, 2.45910309D-03, 2.45984773D-03, 2.46121352D-03, + 4 2.46369880D-03, 2.46805437D-03, 2.47553979D-03, 2.48932478D-03, + 5 2.50825196D-03, 2.53692541D-03, 2.59202576D-03, 2.66857395D-03, + 6 2.77551117D-03, 2.93133156D-03, 3.15215542D-03, 3.47856747D-03, + 7 3.96667106D-03, 4.66523184D-03, 5.53158490D-03, 6.74834637D-03, + 8 8.48186839D-03, 1.11569348D-02, 1.47721717D-02, 2.12195479D-02, + 9 3.09773686D-02, 5.02403557D-02, 8.47913144D-02, 1.81191796D-01/ + DATA CJ 53/ + 1 4.35742447D-01, 1.57375913D-01, 3.77857605D-02, 1.33290042D-02, + 2 3.53494257D-03, 1.01785399D-03, 3.07954790D-04, 9.62707958D-05, + 3 3.08028604D-05, 5.75212773D-06, 1.10383599D-06, 2.16097638D-07, + 4 4.29560091D-08, 5.07558302D-09, 6.09587246D-10, 1.59316061D-03, + 5 1.59316688D-03, 1.59317159D-03, 1.59318020D-03, 1.59319588D-03, + 6 1.59322330D-03, 1.59327032D-03, 1.59335653D-03, 1.59351327D-03, + 7 1.59378762D-03, 1.59425804D-03, 1.59512085D-03, 1.59669084D-03, + 8 1.59944218D-03, 1.60417019D-03, 1.61287589D-03, 1.62482628D-03, + 9 1.64292426D-03, 1.67768186D-03, 1.72592489D-03, 1.79323589D-03/ + DATA CJ 54/ + 1 1.89114489D-03, 2.02956203D-03, 2.23347321D-03, 2.53694524D-03, + 2 2.96846806D-03, 3.49945234D-03, 4.23810820D-03, 5.27764154D-03, + 3 6.85566320D-03, 8.94419422D-03, 1.25605380D-02, 1.78083775D-02, + 4 2.75074712D-02, 4.34318231D-02, 6.94569400D-02, 1.80213811D-01, + 5 4.82085871D-01, 1.59332134D-01, 2.91552500D-02, 7.98884103D-03, + 6 2.23838591D-03, 6.64530586D-04, 2.04998005D-04, 6.49535002D-05, + 7 1.20017500D-05, 2.28581804D-06, 4.44969147D-07, 8.80630041D-08, + 8 1.03581918D-08, 1.23968941D-09, 9.19353157D-04, 9.19356689D-04, + 9 9.19359338D-04, 9.19364194D-04, 9.19373024D-04, 9.19388477D-04/ + DATA CJ 55/ + 1 9.19414967D-04, 9.19463536D-04, 9.19551848D-04, 9.19706417D-04, + 2 9.19971453D-04, 9.20457558D-04, 9.21342061D-04, 9.22892046D-04, + 3 9.25555409D-04, 9.30458801D-04, 9.37188357D-04, 9.47376741D-04, + 4 9.66933632D-04, 9.94056491D-04, 1.03185805D-03, 1.08675904D-03, + 5 1.16420985D-03, 1.27797277D-03, 1.44658757D-03, 1.68503220D-03, + 6 1.97650300D-03, 2.37877954D-03, 2.93932288D-03, 3.77931108D-03, + 7 4.87354280D-03, 6.72829417D-03, 9.34450658D-03, 1.39897358D-02, + 8 2.12049787D-02, 3.26161983D-02, 5.81647722D-02, 1.80163994D-01, + 9 5.28527592D-01, 1.49377768D-01, 1.15278749D-02, 4.59015236D-03/ + DATA CJ 56/ + 1 1.38941231D-03, 4.28560071D-04, 1.35327423D-04, 2.48657102D-05, + 2 4.71313230D-06, 9.13883767D-07, 1.80285390D-07, 2.11329971D-08, + 3 2.52237838D-09, 4.97079819D-04, 4.97081685D-04, 4.97083085D-04, + 4 4.97085651D-04, 4.97090317D-04, 4.97098482D-04, 4.97112480D-04, + 5 4.97138144D-04, 4.97184809D-04, 4.97266483D-04, 4.97406528D-04, + 6 4.97663382D-04, 4.98130737D-04, 4.98949688D-04, 5.00356809D-04, + 7 5.02947077D-04, 5.06501374D-04, 5.11881044D-04, 5.22202627D-04, + 8 5.36506913D-04, 5.56423251D-04, 5.85308796D-04, 6.25981209D-04, + 9 6.85566078D-04, 7.73559903D-04, 8.97395372D-04, 1.04790530D-03/ + DATA CJ 57/ + 1 1.25423681D-03, 1.53936087D-03, 1.96212602D-03, 2.50592714D-03, + 2 3.41272196D-03, 4.66542054D-03, 6.82886520D-03, 1.00691970D-02, + 3 1.49757493D-02, 2.58195605D-02, 5.09895938D-02, 1.82142093D-01, + 4 6.01661913D-01, 1.50263934D-01, 1.58288354D-02, 5.51672004D-03, + 5 1.65384948D-03, 5.09052680D-04, 9.09755702D-05, 1.69166221D-05, + 6 3.23492020D-06, 6.31498526D-07, 7.32461577D-08, 8.67314425D-09, + 7 1.99897580D-04, 1.99898314D-04, 1.99898865D-04, 1.99899876D-04, + 8 1.99901713D-04, 1.99904927D-04, 1.99910438D-04, 1.99920541D-04, + 9 1.99938912D-04, 1.99971066D-04, 2.00026199D-04, 2.00127316D-04/ + DATA CJ 58/ + 1 2.00311299D-04, 2.00633683D-04, 2.01187569D-04, 2.02207070D-04, + 2 2.03605772D-04, 2.05722301D-04, 2.09781451D-04, 2.15403274D-04, + 3 2.23223904D-04, 2.34552788D-04, 2.50477950D-04, 2.73755006D-04, + 4 3.08022036D-04, 3.56046650D-04, 4.14131503D-04, 4.93307223D-04, + 5 6.01961696D-04, 7.61675253D-04, 9.65031926D-04, 1.29979774D-03, + 6 1.75495195D-03, 2.52510301D-03, 3.64908014D-03, 5.29931482D-03, + 7 8.79054164D-03, 1.67919264D-02, 3.55701775D-02, 1.66679011D-01, + 8 6.41873216D-01, 1.58308363D-01, 1.77085013D-02, 6.03634025D-03, + 9 1.80763238D-03, 3.11806787D-04, 5.65880157D-05, 1.06367396D-05/ + DATA CJ 59/ + 1 2.05017106D-06, 2.34827287D-07, 2.75486735D-08, 5.28818603D-05, + 2 5.28820503D-05, 5.28821928D-05, 5.28824541D-05, 5.28829291D-05, + 3 5.28837603D-05, 5.28851853D-05, 5.28877980D-05, 5.28925486D-05, + 4 5.29008632D-05, 5.29151200D-05, 5.29412674D-05, 5.29888416D-05, + 5 5.30722006D-05, 5.32154105D-05, 5.34789783D-05, 5.38405186D-05, + 6 5.43874713D-05, 5.54359909D-05, 5.68872122D-05, 5.89042335D-05, + 7 6.18224554D-05, 6.59176796D-05, 7.18895835D-05, 8.06530367D-05, + 8 9.28834987D-05, 1.07603823D-04, 1.27556001D-04, 1.54750330D-04, + 9 1.94387175D-04, 2.44363059D-04, 3.25638255D-04, 4.34517962D-04/ + DATA CJ 60/ + 1 6.15363065D-04, 8.73306817D-04, 1.24206340D-03, 1.99323939D-03, + 2 3.61586646D-03, 7.36911421D-03, 1.44074720D-02, 1.54062035D-01, + 3 6.33582634D-01, 1.56936612D-01, 1.73635032D-02, 5.93902443D-03, + 4 9.83219604D-04, 1.72819923D-04, 3.17727814D-05, 6.02693095D-06, + 5 6.79784799D-07, 7.88643246D-08, 1.82807098D-05, 1.82807748D-05, + 6 1.82808235D-05, 1.82809129D-05, 1.82810753D-05, 1.82813597D-05, + 7 1.82818471D-05, 1.82827408D-05, 1.82843657D-05, 1.82872098D-05, + 8 1.82920863D-05, 1.83010300D-05, 1.83173026D-05, 1.83458148D-05, + 9 1.83947973D-05, 1.84849417D-05, 1.86085855D-05, 1.87956191D-05/ + DATA CJ 61/ + 1 1.91541013D-05, 1.96501256D-05, 2.03392769D-05, 2.13358157D-05, + 2 2.27332848D-05, 2.47691753D-05, 2.77527835D-05, 3.19096345D-05, + 3 3.69028889D-05, 4.36557463D-05, 5.28355375D-05, 6.61732519D-05, + 4 8.29308083D-05, 1.10069853D-04, 1.46252852D-04, 2.06020283D-04, + 5 2.90747496D-04, 4.11136869D-04, 6.54752904D-04, 1.17836636D-03, + 6 2.40810384D-03, 5.96195264D-03, 1.74408453D-02, 1.57214854D-01, + 7 6.34718148D-01, 1.61430142D-01, 2.17755787D-02, 3.57256008D-03, + 8 5.94303637D-04, 1.05566722D-04, 1.95664621D-05, 2.16074217D-06, + 9 2.47019226D-07, 5.90993561D-06, 5.90995641D-06, 5.90997201D-06/ + DATA CJ 62/ + 1 5.91000062D-06, 5.91005263D-06, 5.91014365D-06, 5.91029968D-06, + 2 5.91058575D-06, 5.91110593D-06, 5.91201634D-06, 5.91357737D-06, + 3 5.91644034D-06, 5.92164933D-06, 5.93077618D-06, 5.94645523D-06, + 4 5.97530877D-06, 6.01488215D-06, 6.07473829D-06, 6.18944359D-06, + 5 6.34811763D-06, 6.56849358D-06, 6.88701017D-06, 7.33337610D-06, + 6 7.98307221D-06, 8.93403352D-06, 1.02568260D-05, 1.18428606D-05, + 7 1.39833327D-05, 1.68858911D-05, 2.10905717D-05, 2.63556257D-05, + 8 3.48481793D-05, 4.61177632D-05, 6.46293202D-05, 9.07018097D-05, + 9 1.27489574D-04, 2.01259458D-04, 3.57792631D-04, 7.19204235D-04/ + DATA CJ 63/ + 1 1.74517798D-03, 5.82749688D-03, 1.69669437D-02, 1.55348802D-01, + 2 6.23701145D-01, 1.43451922D-01,-3.48187206D-03, 6.67723197D-04, + 3 1.48321433D-04, 2.94977261D-05, 3.38985522D-06, 3.95018156D-07, + 4 2.25483171D-06, 2.25483958D-06, 2.25484548D-06, 2.25485630D-06, + 5 2.25487597D-06, 2.25491039D-06, 2.25496940D-06, 2.25507759D-06, + 6 2.25527431D-06, 2.25561862D-06, 2.25620898D-06, 2.25729171D-06, + 7 2.25926164D-06, 2.26271320D-06, 2.26864252D-06, 2.27955359D-06, + 8 2.29451754D-06, 2.31714912D-06, 2.36051277D-06, 2.42048496D-06, + 9 2.50375229D-06, 2.62405024D-06, 2.79253700D-06, 3.03758083D-06/ + DATA CJ 64/ + 1 3.39586922D-06, 3.89356224D-06, 4.48935327D-06, 5.29197530D-06, + 2 6.37805708D-06, 7.94736586D-06, 9.90683609D-06, 1.30567384D-05, + 3 1.72201765D-05, 2.40272738D-05, 3.35631444D-05, 4.69403195D-05, + 4 7.35652864D-05, 1.29461927D-04, 2.56623835D-04, 6.10103049D-04, + 5 1.98016924D-03, 6.61162926D-03, 1.97409592D-02, 1.66436919D-01, + 6 6.81084221D-01, 1.26300556D-01,-4.66188632D-04, 8.88047485D-04, + 7 1.80476316D-04, 2.02474567D-05, 2.30519837D-06, 7.66178811D-07, + 8 7.66181465D-07, 7.66183455D-07, 7.66187103D-07, 7.66193736D-07, + 9 7.66205345D-07, 7.66225246D-07, 7.66261733D-07, 7.66328077D-07/ + DATA CJ 65/ + 1 7.66444192D-07, 7.66643289D-07, 7.67008435D-07, 7.67672784D-07, + 2 7.68836788D-07, 7.70836355D-07, 7.74515824D-07, 7.79561768D-07, + 3 7.87192752D-07, 8.01812442D-07, 8.22027724D-07, 8.50088062D-07, + 4 8.90613005D-07, 9.47343962D-07, 1.02979830D-06, 1.15025096D-06, + 5 1.31737793D-06, 1.51718372D-06, 1.78595349D-06, 2.14900946D-06, + 6 2.67250263D-06, 3.32462241D-06, 4.37002472D-06, 5.74739251D-06, + 7 7.99091094D-06, 1.11202703D-05, 1.54900517D-05, 2.41361492D-05, + 8 4.21368915D-05, 8.26176837D-05, 1.93279196D-04, 6.10921593D-04, + 9 1.98181686D-03, 6.63905502D-03, 2.11121110D-02, 1.47647210D-01/ + DATA CJ 66/ + 1 7.41809339D-01, 1.33790339D-01, 5.01487182D-04, 1.04568765D-03, + 2 1.20288596D-04, 1.34382316D-05, 8.57088619D-08, 8.57091533D-08, + 3 8.57093719D-08, 8.57097727D-08, 8.57105014D-08, 8.57117766D-08, + 4 8.57139628D-08, 8.57179708D-08, 8.57252587D-08, 8.57380140D-08, + 5 8.57598846D-08, 8.57999953D-08, 8.58729720D-08, 8.60008310D-08, + 6 8.62204624D-08, 8.66245821D-08, 8.71787179D-08, 8.80165955D-08, + 7 8.96213548D-08, 9.18393144D-08, 9.49161071D-08, 9.93558454D-08, + 8 1.05563824D-07, 1.14572453D-07, 1.27704487D-07, 1.45874719D-07, + 9 1.67529054D-07, 1.96553240D-07, 2.35594091D-07, 2.91602843D-07/ + DATA CJ 67/ + 1 3.60979046D-07, 4.71448010D-07, 6.15864232D-07, 8.48941386D-07, + 2 1.17061211D-06, 1.61468936D-06, 2.48048153D-06, 4.24535627D-06, + 3 8.09776422D-06, 1.81670384D-05, 5.32821613D-05, 1.54559697D-04, + 4 4.28901135D-04, 9.55275430D-04,-3.76288900D-03, 1.28758626D-01, + 5 7.30925185D-01, 1.35950613D-01, 3.50239034D-03, 7.39490102D-04, + 6 7.93709107D-05, 2.06439653D-08, 2.06440354D-08, 2.06440880D-08, + 7 2.06441844D-08, 2.06443596D-08, 2.06446663D-08, 2.06451920D-08, + 8 2.06461559D-08, 2.06479084D-08, 2.06509758D-08, 2.06562352D-08, + 9 2.06658810D-08, 2.06834303D-08, 2.07141775D-08, 2.07669938D-08/ + DATA CJ 68/ + 1 2.08641748D-08, 2.09974301D-08, 2.11989155D-08, 2.15848062D-08, + 2 2.21181348D-08, 2.28579477D-08, 2.39254208D-08, 2.54179319D-08, + 3 2.75835584D-08, 3.07400247D-08, 3.51068015D-08, 4.03100133D-08, + 4 4.72828475D-08, 5.66603189D-08, 7.01107091D-08, 8.67680891D-08, + 5 1.13287218D-07, 1.47950783D-07, 2.03890911D-07, 2.81096290D-07, + 6 3.87699179D-07, 5.95628575D-07, 1.01992811D-06, 1.94824133D-06, + 7 4.38748695D-06, 1.30179794D-05, 3.88485065D-05, 1.16417342D-04, + 8 3.47961738D-04, 1.00762108D-03, 2.73564972D-04, 1.32228865D-01, + 9 7.23792490D-01, 1.23663010D-01,-9.29885927D-03,-1.23193146D-04/ + DATA CJ 69/ + 1 4.56812442D-09, 4.56813986D-09, 4.56815144D-09, 4.56817267D-09, + 2 4.56821126D-09, 4.56827881D-09, 4.56839460D-09, 4.56860689D-09, + 3 4.56899290D-09, 4.56966849D-09, 4.57082688D-09, 4.57295137D-09, + 4 4.57681661D-09, 4.58358866D-09, 4.59522127D-09, 4.61662468D-09, + 5 4.64597233D-09, 4.69034496D-09, 4.77532270D-09, 4.89275528D-09, + 6 5.05562923D-09, 5.29059184D-09, 5.61901966D-09, 6.09538996D-09, + 7 6.78936667D-09, 7.74882510D-09, 8.89123179D-09, 1.04209298D-08, + 8 1.24762158D-08, 1.54208935D-08, 1.90632192D-08, 2.48537007D-08, + 9 3.24104017D-08, 4.45831096D-08, 6.13489390D-08, 8.44499966D-08/ + DATA CJ 70/ + 1 1.29392210D-07, 2.20783682D-07, 4.19850164D-07, 9.39902731D-07, + 2 2.76543520D-06, 8.18408673D-06, 2.43693695D-05, 7.29812344D-05, + 3 2.19196312D-04, 1.10653705D-03, 8.66793851D-04, 1.36464968D-01, + 4 7.60579030D-01, 1.08315064D-01,-7.14703041D-03, 9.32044857D-10, + 5 9.32047995D-10, 9.32050349D-10, 9.32054664D-10, 9.32062510D-10, + 6 9.32076240D-10, 9.32099779D-10, 9.32142934D-10, 9.32221403D-10, + 7 9.32358740D-10, 9.32594222D-10, 9.33026093D-10, 9.33811827D-10, + 8 9.35188459D-10, 9.37553133D-10, 9.41903948D-10, 9.47869514D-10, + 9 9.56888953D-10, 9.74161074D-10, 9.98027764D-10, 1.03112604D-09/ + DATA CJ 71/ + 1 1.07886618D-09, 1.14558244D-09, 1.24232345D-09, 1.38320084D-09, + 2 1.57787370D-09, 1.80953521D-09, 2.11953699D-09, 2.53574655D-09, + 3 3.13154835D-09, 3.86780770D-09, 5.03700719D-09, 6.56094325D-09, + 4 9.01229904D-09, 1.23833002D-08, 1.70205327D-08, 2.60240567D-08, + 5 4.42839754D-08, 8.39202093D-08, 1.86998871D-07, 5.46516447D-07, + 6 1.60572524D-06, 4.74612620D-06, 1.41224686D-05, 4.23264569D-05, + 7 2.22304979D-04, 1.15531950D-03, 2.47181017D-03, 1.20822713D-01, + 8 8.05702466D-01, 1.42819359D-02, 3.98573562D-11, 3.98574863D-11, + 9 3.98575839D-11, 3.98577629D-11, 3.98580882D-11, 3.98586575D-11/ + DATA CJ 72/ + 1 3.98596336D-11, 3.98614230D-11, 3.98646767D-11, 3.98703713D-11, + 2 3.98801355D-11, 3.98980426D-11, 3.99306215D-11, 3.99876986D-11, + 3 4.00857347D-11, 4.02660912D-11, 4.05133383D-11, 4.08870542D-11, + 4 4.16023791D-11, 4.25901010D-11, 4.39585256D-11, 4.59296366D-11, + 5 4.86791694D-11, 5.26561680D-11, 5.84281163D-11, 6.63696338D-11, + 6 7.57734928D-11, 8.82877885D-11, 1.04980903D-10, 1.28693399D-10, + 7 1.57746760D-10, 2.03423868D-10, 2.62280518D-10, 3.55705134D-10, + 8 4.82255574D-10, 6.53598367D-10, 9.79681374D-10, 1.62290687D-09, + 9 2.96780567D-09, 6.28523094D-09, 1.69238753D-08, 4.47834951D-08/ + DATA CJ 73/ + 1 1.15119869D-07, 2.80762913D-07, 6.12865151D-07, 7.29517944D-07, + 2-1.85281351D-05,-3.70871197D-04,-9.85146118D-03, 9.43947195D-02, + 3 9.92892411D-01/ +C DATA XTAU/0.,.0000032,.0000056,.00001,.000018, +C A.000032,.000056,.0001,.00018,.00032, +C 1.00056,.001,.0018,.0032,.0056,.01,.016,.025,.042,.065, +C 2.096,.139,.196,.273,.375,.5,.63,.78,.95,1.15,1.35,1.6,1.85,2.15, +C 32.45,2.75,3.15,3.65,4.25,5.0,6.,7.,8.,9.,10.,11.5,13.,14.5,16., +C 4 18.,20./ +C DATA NXTAU/51/ + END + SUBROUTINE BLOCKH +C COMMON /MATX/CJ(2601),CH(2601),XTAU(51),NXTAU + COMMON /MATXH/CH(2601) + DIMENSION CH 1(36),CH 2(36),CH 3(36),CH 4(36),CH 5(36) + DIMENSION CH 6(36),CH 7(36),CH 8(36),CH 9(36),CH 10(36) + DIMENSION CH 11(36),CH 12(36),CH 13(36),CH 14(36),CH 15(36) + DIMENSION CH 16(36),CH 17(36),CH 18(36),CH 19(36),CH 20(36) + DIMENSION CH 21(36),CH 22(36),CH 23(36),CH 24(36),CH 25(36) + DIMENSION CH 26(36),CH 27(36),CH 28(36),CH 29(36),CH 30(36) + DIMENSION CH 31(36),CH 32(36),CH 33(36),CH 34(36),CH 35(36) + DIMENSION CH 36(36),CH 37(36),CH 38(36),CH 39(36),CH 40(36) + DIMENSION CH 41(36),CH 42(36),CH 43(36),CH 44(36),CH 45(36) + DIMENSION CH 46(36),CH 47(36),CH 48(36),CH 49(36),CH 50(36) + DIMENSION CH 51(36),CH 52(36),CH 53(36),CH 54(36),CH 55(36) + DIMENSION CH 56(36),CH 57(36),CH 58(36),CH 59(36),CH 60(36) + DIMENSION CH 61(36),CH 62(36),CH 63(36),CH 64(36),CH 65(36) + DIMENSION CH 66(36),CH 67(36),CH 68(36),CH 69(36),CH 70(36) + DIMENSION CH 71(36),CH 72(36),CH 73( 9) + EQUIVALENCE (CH 1(1),CH ( 1)),(CH 2(1),CH ( 37)) + EQUIVALENCE (CH 3(1),CH ( 73)),(CH 4(1),CH ( 109)) + EQUIVALENCE (CH 5(1),CH ( 145)),(CH 6(1),CH ( 181)) + EQUIVALENCE (CH 7(1),CH ( 217)),(CH 8(1),CH ( 253)) + EQUIVALENCE (CH 9(1),CH ( 289)),(CH 10(1),CH ( 325)) + EQUIVALENCE (CH 11(1),CH ( 361)),(CH 12(1),CH ( 397)) + EQUIVALENCE (CH 13(1),CH ( 433)),(CH 14(1),CH ( 469)) + EQUIVALENCE (CH 15(1),CH ( 505)),(CH 16(1),CH ( 541)) + EQUIVALENCE (CH 17(1),CH ( 577)),(CH 18(1),CH ( 613)) + EQUIVALENCE (CH 19(1),CH ( 649)),(CH 20(1),CH ( 685)) + EQUIVALENCE (CH 21(1),CH ( 721)),(CH 22(1),CH ( 757)) + EQUIVALENCE (CH 23(1),CH ( 793)),(CH 24(1),CH ( 829)) + EQUIVALENCE (CH 25(1),CH ( 865)),(CH 26(1),CH ( 901)) + EQUIVALENCE (CH 27(1),CH ( 937)),(CH 28(1),CH ( 973)) + EQUIVALENCE (CH 29(1),CH (1009)),(CH 30(1),CH (1045)) + EQUIVALENCE (CH 31(1),CH (1081)),(CH 32(1),CH (1117)) + EQUIVALENCE (CH 33(1),CH (1153)),(CH 34(1),CH (1189)) + EQUIVALENCE (CH 35(1),CH (1225)),(CH 36(1),CH (1261)) + EQUIVALENCE (CH 37(1),CH (1297)),(CH 38(1),CH (1333)) + EQUIVALENCE (CH 39(1),CH (1369)),(CH 40(1),CH (1405)) + EQUIVALENCE (CH 41(1),CH (1441)),(CH 42(1),CH (1477)) + EQUIVALENCE (CH 43(1),CH (1513)),(CH 44(1),CH (1549)) + EQUIVALENCE (CH 45(1),CH (1585)),(CH 46(1),CH (1621)) + EQUIVALENCE (CH 47(1),CH (1657)),(CH 48(1),CH (1693)) + EQUIVALENCE (CH 49(1),CH (1729)),(CH 50(1),CH (1765)) + EQUIVALENCE (CH 51(1),CH (1801)),(CH 52(1),CH (1837)) + EQUIVALENCE (CH 53(1),CH (1873)),(CH 54(1),CH (1909)) + EQUIVALENCE (CH 55(1),CH (1945)),(CH 56(1),CH (1981)) + EQUIVALENCE (CH 57(1),CH (2017)),(CH 58(1),CH (2053)) + EQUIVALENCE (CH 59(1),CH (2089)),(CH 60(1),CH (2125)) + EQUIVALENCE (CH 61(1),CH (2161)),(CH 62(1),CH (2197)) + EQUIVALENCE (CH 63(1),CH (2233)),(CH 64(1),CH (2269)) + EQUIVALENCE (CH 65(1),CH (2305)),(CH 66(1),CH (2341)) + EQUIVALENCE (CH 67(1),CH (2377)),(CH 68(1),CH (2413)) + EQUIVALENCE (CH 69(1),CH (2449)),(CH 70(1),CH (2485)) + EQUIVALENCE (CH 71(1),CH (2521)),(CH 72(1),CH (2557)) + EQUIVALENCE (CH 73(1),CH (2593)) + DATA CH 1/ + 1 7.15528120D-07,-7.63679981D-07,-7.15500186D-07,-7.15459313D-07, + 2-7.15399161D-07,-7.15312983D-07,-7.15165254D-07,-7.14858701D-07, + 3-7.14382582D-07,-7.13607800D-07,-7.12377050D-07,-7.10300825D-07, + 4-7.06860448D-07,-7.01420388D-07,-6.93063611D-07,-6.79532139D-07, + 5-6.63270842D-07,-6.41769994D-07,-6.06941637D-07,-5.67254987D-07, + 6-5.22282879D-07,-4.70473751D-07,-4.14388755D-07,-3.53840218D-07, + 7-2.91560381D-07,-2.33727889D-07,-1.88154634D-07,-1.48244615D-07, + 8-1.14444272D-07,-8.53987435D-08,-6.43470333D-08,-4.56539380D-08, + 9-3.26942276D-08,-2.21150989D-08,-1.50875635D-08,-1.03652019D-08/ + DATA CH 2/ + 1-6.33939388D-09,-3.46859459D-09,-1.70493170D-09,-7.13016572D-10, + 2-2.27726935D-10,-7.40657549D-11,-2.44269562D-11,-8.14546806D-12, + 3-2.74070206D-12,-5.42231753D-13,-1.08693370D-13,-2.20183137D-14, + 4-4.49889022D-15,-5.47402692D-16,-6.72957970D-17, 1.49142688D-06, + 5-3.90281313D-07,-1.61431531D-06,-1.49134752D-06,-1.49120973D-06, + 6-1.49097554D-06,-1.49063560D-06,-1.49006119D-06,-1.48907404D-06, + 7-1.48745761D-06,-1.48489081D-06,-1.48056166D-06,-1.47338907D-06, + 8-1.46204838D-06,-1.44462816D-06,-1.41642180D-06,-1.38252570D-06, + 9-1.33770838D-06,-1.26511114D-06,-1.18238754D-06,-1.08864711D-06/ + DATA CH 3/ + 1-9.80655730D-07,-8.63751857D-07,-7.37544289D-07,-6.07728094D-07, + 2-4.87182021D-07,-3.92189148D-07,-3.09000744D-07,-2.38547359D-07, + 3-1.78004914D-07,-1.34124776D-07,-9.51609333D-08,-6.81477476D-08, + 4-4.60966417D-08,-3.14484678D-08,-2.16051921D-08,-1.32138108D-08, + 5-7.22992635D-09,-3.55375351D-09,-1.48620912D-09,-4.74673171D-10, + 6-1.54382378D-10,-5.09154535D-11,-1.69783820D-11,-5.71270866D-12, + 7-1.13022573D-12,-2.26560028D-13,-4.58948851D-14,-9.37746872D-15, + 8-1.14100396D-15,-1.40271087D-16, 1.52106578D-06, 1.68212841D-06, + 9 4.09944249D-07,-1.75645270D-06,-1.52097046D-06,-1.52073553D-06/ + DATA CH 4/ + 1-1.52034786D-06,-1.51978995D-06,-1.51877481D-06,-1.51712012D-06, + 2-1.51449942D-06,-1.51008118D-06,-1.50276284D-06,-1.49119345D-06, + 3-1.47342353D-06,-1.44465254D-06,-1.41007905D-06,-1.36436695D-06, + 4-1.29032132D-06,-1.20594808D-06,-1.11033885D-06,-1.00019498D-06, + 5-8.80961299D-07,-7.52238763D-07,-6.19835885D-07,-4.96887979D-07, + 6-4.00002484D-07,-3.15156696D-07,-2.43299681D-07,-1.81551082D-07, + 7-1.36796756D-07,-9.70566781D-08,-6.95053428D-08,-4.70149442D-08, + 8-3.20749578D-08,-2.20355911D-08,-1.34770434D-08,-7.37395328D-09, + 9-3.62454737D-09,-1.51581560D-09,-4.84129008D-10,-1.57457780D-10/ + DATA CH 5/ + 1-5.19297218D-11,-1.73166017D-11,-5.82650912D-12,-1.15274044D-12, + 2-2.31073221D-13,-4.68091342D-14,-9.56427242D-15,-1.16373329D-15, + 3-1.43065350D-16, 2.98150821D-06, 2.98161961D-06, 3.02985925D-06, + 4 5.50707149D-07,-3.40191479D-06,-2.98116452D-06,-2.98048320D-06, + 5-2.97927252D-06,-2.97725646D-06,-2.97401344D-06,-2.96886903D-06, + 6-2.96020082D-06,-2.94584763D-06,-2.92316158D-06,-2.88832120D-06, + 7-2.83191590D-06,-2.76413769D-06,-2.67452550D-06,-2.52937199D-06, + 8-2.36397499D-06,-2.17655345D-06,-1.96064093D-06,-1.72691069D-06, + 9-1.47458038D-06,-1.21503614D-06,-9.74026455D-07,-7.84106027D-07/ + DATA CH 6/ + 1-6.17786634D-07,-4.76928629D-07,-3.55885746D-07,-2.68155970D-07, + 2-1.90255412D-07,-1.36247871D-07,-9.21610475D-08,-6.28749313D-08, + 3-4.31952603D-08,-2.64183673D-08,-1.44547867D-08,-7.10501576D-09, + 4-2.97137592D-09,-9.49013288D-10,-3.08656397D-10,-1.01795161D-10, + 5-3.39448415D-11,-1.14214051D-11,-2.25965748D-12,-4.52960874D-13, + 6-9.17575200D-14,-1.87483472D-14,-2.28120596D-15,-2.80443572D-16, + 7 5.33941059D-06, 5.33959050D-06, 5.33971838D-06, 5.46288397D-06, + 8 9.45594076D-07,-5.99346507D-06,-5.33838396D-06,-5.33622077D-06, + 9-5.33261638D-06,-5.32678301D-06,-5.31753886D-06,-5.30199406D-06/ + DATA CH 7/ + 1-5.27626139D-06,-5.23560527D-06,-5.17318158D-06,-5.07213438D-06, + 2-4.95072325D-06,-4.79020869D-06,-4.53021687D-06,-4.23397287D-06, + 3-3.89828536D-06,-3.51157189D-06,-3.09294861D-06,-2.64101390D-06, + 4-2.17616046D-06,-1.74450433D-06,-1.40435137D-06,-1.10646897D-06, + 5-8.54188854D-07,-6.37398304D-07,-4.80272397D-07,-3.40750911D-07, + 6-2.44022354D-07,-1.65062027D-07,-1.12610064D-07,-7.73634273D-08, + 7-4.73157247D-08,-2.58887527D-08,-1.27251939D-08,-5.32177962D-09, + 8-1.69969699D-09,-5.52808151D-10,-1.82316613D-10,-6.07956998D-11, + 9-2.04558995D-11,-4.04707848D-12,-8.11259273D-13,-1.64338996D-13/ + DATA CH 8/ + 1-3.35785494D-14,-4.08567126D-15,-5.02278278D-16, 9.13329675D-06, + 2 9.13358176D-06, 9.13380306D-06, 9.13420159D-06, 9.37031962D-06, + 3 1.47104366D-06,-1.03630349D-05,-9.13025211D-06,-9.12398505D-06, + 4-9.11390737D-06,-9.09802697D-06,-9.07135096D-06,-9.02725015D-06, + 5-8.95762338D-06,-8.85075952D-06,-8.67781716D-06,-8.47005078D-06, + 6-8.19539043D-06,-7.75053819D-06,-7.24367751D-06,-6.66934449D-06, + 7-6.00772113D-06,-5.29151194D-06,-4.51831779D-06,-3.72302663D-06, + 8-2.98453429D-06,-2.40259068D-06,-1.89296597D-06,-1.46135960D-06, + 9-1.09047012D-06,-8.21656389D-07,-5.82960842D-07,-4.17476248D-07/ + DATA CH 9/ + 1-2.82389890D-07,-1.92654440D-07,-1.32354098D-07,-8.09481724D-08, + 2-4.42906997D-08,-2.17703641D-08,-9.10454075D-09,-2.90785360D-09, + 3-9.45747879D-10,-3.11908427D-10,-1.04009658D-10,-3.49960749D-11, + 4-6.92376506D-12,-1.38790687D-12,-2.81152041D-13,-5.74463594D-14, + 5-6.98978740D-15,-8.59300205D-16, 1.61715949D-05, 1.61720720D-05, + 6 1.61724330D-05, 1.61730963D-05, 1.61743243D-05, 1.65968833D-05, + 7 3.13002612D-06,-1.85271744D-05,-1.61620847D-05,-1.61440014D-05, + 8-1.61156455D-05,-1.60681414D-05,-1.59898028D-05,-1.58662617D-05, + 9-1.56767807D-05,-1.53702665D-05,-1.50021225D-05,-1.45155180D-05/ + DATA CH 10/ + 1-1.37274731D-05,-1.28296443D-05,-1.18123413D-05,-1.06404566D-05, + 2-9.37191392D-06,-8.00246045D-06,-6.59388527D-06,-5.28591985D-06, + 3-4.25522842D-06,-3.35262610D-06,-2.58820551D-06,-1.93132270D-06, + 4-1.45522738D-06,-1.03247504D-06,-7.39386642D-07,-5.00136599D-07, + 5-3.41207244D-07,-2.34410137D-07,-1.43365879D-07,-7.84424320D-08, + 6-3.85570653D-08,-1.61248655D-08,-5.15003730D-09,-1.67499319D-09, + 7-5.52413963D-10,-1.84209108D-10,-6.19807297D-11,-1.22625154D-11, + 8-2.45808833D-12,-4.97941514D-13,-1.01741831D-13,-1.23794385D-14, + 9-1.52188503D-15, 2.97035986D-05, 2.97044194D-05, 2.97050368D-05/ + DATA CH 11/ + 1 2.97061753D-05, 2.97082586D-05, 2.97119611D-05, 3.03723299D-05, + 2 5.59251004D-06,-3.39127760D-05,-2.96749188D-05,-2.96219260D-05, + 3-2.95338145D-05,-2.93890504D-05,-2.91612567D-05,-2.88123315D-05, + 4-2.82483380D-05,-2.75712512D-05,-2.66765293D-05,-2.52278235D-05, + 5-2.35775061D-05,-2.17077264D-05,-1.95539426D-05,-1.72226003D-05, + 6-1.47058714D-05,-1.21172992D-05,-9.71365644D-06,-7.81957905D-06, + 7-6.16090061D-06,-4.75616197D-06,-3.54904619D-06,-2.67415660D-06, + 8-1.89729441D-06,-1.35870797D-06,-9.19057204D-07,-6.27005937D-07, + 9-4.30754070D-07,-2.63450092D-07,-1.44146186D-07,-7.08525779D-08/ + DATA CH 12/ + 1-2.96310732D-08,-9.46370616D-09,-3.07796454D-09,-1.01511437D-09, + 2-3.38501999D-10,-1.13895526D-10,-2.25335364D-11,-4.51696914D-12, + 3-9.15014236D-13,-1.86960114D-13,-2.27483682D-14,-2.79660454D-15, + 4 5.33166603D-05, 5.33180333D-05, 5.33190646D-05, 5.33209602D-05, + 5 5.33244220D-05, 5.33305318D-05, 5.33411700D-05, 5.45903715D-05, + 6 9.45344212D-06,-5.98750523D-05,-5.32379559D-05,-5.30766673D-05, + 7-5.28137644D-05,-5.24019279D-05,-5.17726607D-05,-5.07570460D-05, + 8-4.95388096D-05,-4.79297869D-05,-4.53254263D-05,-4.23593245D-05, + 9-3.89992680D-05,-3.51292236D-05,-3.09404208D-05,-2.64187551D-05/ + DATA CH 13/ + 1-2.17681883D-05,-1.74499821D-05,-1.40472898D-05,-1.10675313D-05, + 2-8.54399479D-06,-6.37549656D-06,-4.80383043D-06,-3.40827054D-06, + 3-2.44075547D-06,-1.65097143D-06,-1.12633544D-06,-7.73792885D-07, + 4-4.73252449D-07,-2.58938632D-07,-1.27276602D-07,-5.32279265D-08, + 5-1.70001466D-08,-5.52910028D-09,-1.82349841D-09,-6.08066807D-10, + 6-2.04595667D-10,-4.04779745D-11,-8.11402352D-12,-1.64367808D-12, + 7-3.35844075D-13,-4.08638019D-14,-5.02365045D-15, 9.11154221D-05, + 8 9.11176038D-05, 9.11192420D-05, 9.11222497D-05, 9.11277327D-05, + 9 9.11373748D-05, 9.11540492D-05, 9.11851448D-05, 9.35975830D-05/ + DATA CH 14/ + 1 1.47063950D-05,-1.03462574D-04,-9.08852267D-05,-9.04268484D-05, + 2-8.97143077D-05,-8.86303398D-05,-8.68853564D-05,-8.47952605D-05, + 3-8.20369956D-05,-7.75751291D-05,-7.24955321D-05,-6.67426582D-05, + 4-6.01176981D-05,-5.29478997D-05,-4.52090066D-05,-3.72500018D-05, + 5-2.98601473D-05,-2.40372258D-05,-1.89381774D-05,-1.46199094D-05, + 6-1.09092379D-05,-8.21988044D-06,-5.83189075D-06,-4.17635691D-06, + 7-2.82495145D-06,-1.92724820D-06,-1.32401640D-06,-8.09767079D-07, + 8-4.43060175D-07,-2.17777566D-07,-9.10757716D-08,-2.90880576D-08, + 9-9.46053242D-09,-3.12008024D-09,-1.04042571D-09,-3.50070669D-10/ + DATA CH 15/ + 1-6.92592007D-11,-1.38833572D-11,-2.81238403D-12,-5.74639184D-13, + 2-6.99191232D-14,-8.59560278D-15, 1.61084635D-04, 1.61088204D-04, + 3 1.61090883D-04, 1.61095798D-04, 1.61104749D-04, 1.61120458D-04, + 4 1.61147526D-04, 1.61197628D-04, 1.61290476D-04, 1.65663482D-04, + 5 3.12833434D-05,-1.84767463D-04,-1.60383520D-04,-1.59095632D-04, + 6-1.57151752D-04,-1.54037373D-04,-1.50316849D-04,-1.45414273D-04, + 7-1.37492118D-04,-1.28479528D-04,-1.18276734D-04,-1.06530685D-04, + 8-9.38212441D-05,-8.01050512D-05,-6.60003185D-05,-5.29053047D-05, + 9-4.25875346D-05,-3.35527875D-05,-2.59017163D-05,-1.93273550D-05/ + DATA CH 16/ + 1-1.45626021D-05,-1.03318579D-05,-7.39883160D-06,-5.00464369D-06, + 2-3.41426413D-06,-2.34558186D-06,-1.43454739D-06,-7.84901321D-07, + 3-3.85800856D-07,-1.61343209D-07,-5.15300229D-08,-1.67594408D-08, + 4-5.52724107D-09,-1.84311601D-09,-6.20149585D-10,-1.22692260D-10, + 5-2.45942378D-11,-4.98210441D-12,-1.01796509D-12,-1.23860554D-13, + 6-1.52269488D-14, 2.95118060D-04, 2.95124067D-04, 2.95128573D-04, + 7 2.95136840D-04, 2.95151884D-04, 2.95178258D-04, 2.95223609D-04, + 8 2.95307219D-04, 2.95460872D-04, 2.95735401D-04, 3.02765668D-04, + 9 5.58676964D-05,-3.37573852D-04,-2.93054973D-04,-2.89397464D-04/ + DATA CH 17/ + 1-2.83590510D-04,-2.76688687D-04,-2.67619889D-04,-2.52994639D-04, + 2-2.36378122D-04,-2.17582125D-04,-1.95954621D-04,-1.72562085D-04, + 3-1.47323476D-04,-1.21375266D-04,-9.72882826D-05,-7.83117813D-05, + 4-6.16962878D-05,-4.76263106D-05,-3.55369461D-05,-2.67755473D-05, + 5-1.89963282D-05,-1.36034154D-05,-9.20135573D-06,-6.27727001D-06, + 6-4.31241145D-06,-2.63742438D-06,-1.44303115D-06,-7.09283125D-07, + 7-2.96621802D-07,-9.47346057D-08,-3.08109284D-08,-1.01613469D-08, + 8-3.38839182D-09,-1.14008132D-09,-2.25556130D-10,-4.52136250D-11, + 9-9.15898950D-12,-1.87139993D-12,-2.27701364D-13,-2.79926878D-14/ + DATA CH 18/ + 1 5.27450267D-04, 5.27460048D-04, 5.27467385D-04, 5.27480841D-04, + 2 5.27505322D-04, 5.27548208D-04, 5.27621863D-04, 5.27757350D-04, + 3 5.28005233D-04, 5.28444089D-04, 5.29212981D-04, 5.42982886D-04, + 4 9.43257257D-05,-5.94289096D-04,-5.21949862D-04,-5.11218873D-04, + 5-4.98593747D-04,-4.82097985D-04,-4.55597512D-04,-4.25563821D-04, + 6-3.91641331D-04,-3.52647471D-04,-3.10500866D-04,-2.65051281D-04, + 7-2.18341644D-04,-1.74994619D-04,-1.40851146D-04,-1.10959921D-04, + 8-8.56508809D-05,-6.39065263D-05,-4.81490961D-05,-3.41589441D-05, + 9-2.44608124D-05,-1.65448705D-05,-1.12868617D-05,-7.75380763D-06/ + DATA CH 19/ + 1-4.74205493D-06,-2.59450211D-06,-1.27523489D-06,-5.33293310D-07, + 2-1.70319442D-07,-5.53929789D-08,-1.82682443D-08,-6.09165942D-09, + 3-2.04962735D-09,-4.05499382D-10,-8.12834463D-11,-1.64656199D-11, + 4-3.36430424D-12,-4.09347595D-13,-5.03233504D-14, 8.67939526D-04, + 5 8.67954213D-04, 8.67965230D-04, 8.67985431D-04, 8.68022175D-04, + 6 8.68086519D-04, 8.68196952D-04, 8.68399838D-04, 8.68770152D-04, + 7 8.69422777D-04, 8.70555855D-04, 8.72685043D-04, 9.00316828D-04, + 8 1.18726820D-04,-1.05068040D-03,-8.51640282D-04,-8.30180005D-04, + 9-8.02328563D-04,-7.57838031D-04,-7.07603820D-04,-6.50991942D-04/ + DATA CH 20/ + 1-5.86013815D-04,-5.15855799D-04,-4.40257134D-04,-3.62606802D-04, + 2-2.90576808D-04,-2.33857067D-04,-1.84211669D-04,-1.42183646D-04, + 3-1.06079989D-04,-7.99196360D-05,-5.66953416D-05,-4.05972023D-05, + 4-2.74581721D-05,-1.87312937D-05,-1.28676222D-05,-7.86932554D-06, + 5-4.30539149D-06,-2.11610499D-06,-8.84915842D-07,-2.82610874D-07, + 6-9.19117308D-08,-3.03114320D-08,-1.01074120D-08,-3.40075163D-09, + 7-6.72798403D-10,-1.34862967D-10,-2.73190325D-11,-5.58186980D-12, + 8-6.79162392D-13,-8.34926889D-14, 1.61498414D-03, 1.61500857D-03, + 9 1.61502689D-03, 1.61506049D-03, 1.61512159D-03, 1.61522856D-03/ + DATA CH 21/ + 1 1.61541206D-03, 1.61574893D-03, 1.61636286D-03, 1.61744182D-03, + 2 1.61930543D-03, 1.62277036D-03, 1.62924770D-03, 1.68333458D-03, + 3 3.60899758D-04,-1.82730765D-03,-1.58410667D-03,-1.52899488D-03, + 4-1.44234855D-03,-1.34546950D-03,-1.23689296D-03,-1.11271628D-03, + 5-9.78971597D-04,-8.35109934D-04,-6.87538020D-04,-5.50779439D-04, + 6-4.43161682D-04,-3.49011624D-04,-2.69337615D-04,-2.00915634D-04, + 7-1.51349791D-04,-1.07355641D-04,-7.68658545D-05,-5.19840976D-05, + 8-3.54597507D-05,-2.43579442D-05,-1.48953901D-05,-8.14890300D-06, + 9-4.00495346D-06,-1.67469957D-06,-5.34808728D-07,-1.73924801D-07/ + DATA CH 22/ + 1-5.73564345D-08,-1.91250993D-08,-6.43470743D-09,-1.27299579D-09, + 2-2.55167484D-10,-5.16880700D-11,-1.05608383D-11,-1.28494760D-12, + 3-1.57962724D-13, 2.50720905D-03, 2.50724320D-03, 2.50726881D-03, + 4 2.50731578D-03, 2.50740118D-03, 2.50755068D-03, 2.50780708D-03, + 5 2.50827754D-03, 2.50913426D-03, 2.51063770D-03, 2.51322757D-03, + 6 2.51801809D-03, 2.52687709D-03, 2.54289614D-03, 2.63774332D-03, + 7 1.76260415D-04,-2.78126196D-03,-2.45704320D-03,-2.31262955D-03, + 8-2.15394575D-03,-1.97774832D-03,-1.77739883D-03,-1.56245308D-03, + 9-1.33188374D-03,-1.09584644D-03,-8.77427902D-04,-7.05726344D-04/ + DATA CH 23/ + 1-5.55621605D-04,-4.28668973D-04,-3.19696027D-04,-2.40783539D-04, + 2-1.70762699D-04,-1.22247776D-04,-8.26646695D-05,-5.63817215D-05, + 3-3.87261829D-05,-2.36795672D-05,-1.29532571D-05,-6.36557648D-06, + 4-2.66157673D-06,-8.49889370D-07,-2.76373703D-07,-9.11370404D-08, + 5-3.03877430D-08,-1.02237148D-08,-2.02250217D-09,-4.05390165D-10, + 6-8.21157965D-11,-1.67774240D-11,-2.04127682D-12,-2.50935807D-13, + 7 3.20994276D-03, 3.20998251D-03, 3.21001232D-03, 3.21006698D-03, + 8 3.21016637D-03, 3.21034034D-03, 3.21063867D-03, 3.21118592D-03, + 9 3.21218201D-03, 3.21392850D-03, 3.21693250D-03, 3.22247328D-03/ + DATA CH 24/ + 1 3.23266196D-03, 3.25087011D-03, 3.28333413D-03, 3.52880121D-03, + 2 2.90599435D-04,-3.99201557D-03,-3.07880403D-03,-2.86239707D-03, + 3-2.62426711D-03,-2.35540482D-03,-2.06836350D-03,-1.76152461D-03, + 4-1.44821000D-03,-1.15882208D-03,-9.31623746D-04,-7.33184814D-04, + 5-5.65473991D-04,-4.21599458D-04,-3.17461291D-04,-2.25092147D-04, + 6-1.61113538D-04,-1.08927603D-04,-7.42843836D-05,-5.10170507D-05, + 7-3.11911486D-05,-1.70601847D-05,-8.38286988D-06,-3.50466057D-06, + 8-1.11897755D-06,-3.63847665D-07,-1.19974679D-07,-4.00009634D-08, + 9-1.34574290D-08,-2.66207243D-09,-5.33563710D-10,-1.08075026D-10/ + DATA CH 25/ + 1-2.20806555D-11,-2.68642989D-12,-3.30236900D-13, 5.61912502D-03, + 2 5.61918736D-03, 5.61923412D-03, 5.61931984D-03, 5.61947572D-03, + 3 5.61974854D-03, 5.62021633D-03, 5.62107432D-03, 5.62263546D-03, + 4 5.62537113D-03, 5.63007179D-03, 5.63872596D-03, 5.65458361D-03, + 5 5.68273038D-03, 5.73223829D-03, 5.82772200D-03, 6.17039808D-03, + 6 1.43639190D-03,-6.68103918D-03,-5.37711410D-03,-4.91201049D-03, + 7-4.39582996D-03,-3.85110759D-03,-3.27335460D-03,-2.68668446D-03, + 8-2.14696473D-03,-1.72437761D-03,-1.35598680D-03,-1.04510471D-03, + 9-7.78728323D-04,-5.86104634D-04,-4.15382293D-04,-2.97210854D-04/ + DATA CH 26/ + 1-2.00873337D-04,-1.36950183D-04,-9.40333957D-05,-5.74765590D-05, + 2-3.14294076D-05,-1.54399049D-05,-6.45358275D-06,-2.06005782D-06, + 3-6.69737788D-07,-2.20809596D-07,-7.36127593D-08,-2.47632234D-08, + 4-4.89800939D-09,-9.81635331D-10,-1.98820044D-10,-4.06183901D-11, + 5-4.94151282D-12,-6.07419294D-13, 8.60872637D-03, 8.60881218D-03, + 6 8.60887654D-03, 8.60899453D-03, 8.60920907D-03, 8.60958456D-03, + 7 8.61022836D-03, 8.61140900D-03, 8.61355681D-03, 8.61731911D-03, + 8 8.62377964D-03, 8.63565978D-03, 8.65738046D-03, 8.69577446D-03, + 9 8.76277550D-03, 8.88981793D-03, 9.07314195D-03, 9.60580772D-03/ + DATA CH 27/ + 1 5.68967448D-04,-1.02680807D-02,-8.28490183D-03,-7.37632354D-03, + 2-6.43680808D-03,-5.45363991D-03,-4.46443150D-03,-3.56017279D-03, + 3-2.85517842D-03,-2.24242398D-03,-1.72651510D-03,-1.28528029D-03, + 4-9.66674652D-04,-6.84627687D-04,-4.89594200D-04,-3.30726916D-04, + 5-2.25387410D-04,-1.54703712D-04,-9.45251600D-05,-5.16691993D-05, + 6-2.53739882D-05,-1.06022757D-05,-3.38323341D-06,-1.09963342D-06, + 7-3.62473002D-07,-1.20820939D-07,-4.06387087D-08,-8.03682131D-09, + 8-1.61050138D-09,-3.26157577D-10,-6.66275604D-11,-8.10497456D-12, + 9-9.96203776D-13, 1.04706488D-02, 1.04707426D-02, 1.04708129D-02/ + DATA CH 28/ + 1 1.04709419D-02, 1.04711764D-02, 1.04715868D-02, 1.04722905D-02, + 2 1.04735808D-02, 1.04759277D-02, 1.04800379D-02, 1.04870926D-02, + 3 1.05000549D-02, 1.05237187D-02, 1.05654328D-02, 1.06378618D-02, + 4 1.07738115D-02, 1.09663337D-02, 1.12726017D-02, 1.26399636D-02, + 5 1.00257118D-03,-1.32448573D-02,-1.02003884D-02,-8.84301595D-03, + 6-7.45329555D-03,-6.07603131D-03,-4.82977802D-03,-3.86459789D-03, + 7-3.02952045D-03,-2.32888278D-03,-1.73132600D-03,-1.30078168D-03, + 8-9.20311543D-04,-6.57610360D-04,-4.43884672D-04,-3.02318135D-04, + 9-2.07403662D-04,-1.26655650D-04,-6.91945397D-05,-3.39630183D-05/ + DATA CH 29/ + 1-1.41841204D-05,-4.52398956D-06,-1.46986400D-06,-4.84372815D-07, + 2-1.61415718D-07,-5.42826409D-08,-1.07326218D-08,-2.15032417D-09, + 3-4.35418135D-10,-8.89365256D-11,-1.08173327D-11,-1.32944308D-12, + 4 1.33110352D-02, 1.33111436D-02, 1.33112249D-02, 1.33113740D-02, + 5 1.33116450D-02, 1.33121192D-02, 1.33129323D-02, 1.33144233D-02, + 6 1.33171350D-02, 1.33218831D-02, 1.33300305D-02, 1.33449935D-02, + 7 1.33722851D-02, 1.34203163D-02, 1.35034721D-02, 1.36586923D-02, + 8 1.38764431D-02, 1.42174069D-02, 1.49161828D-02, 1.68840513D-02, + 9 1.68049676D-03,-1.75585958D-02,-1.31968210D-02,-1.10288702D-02/ + DATA CH 30/ + 1-8.93226417D-03,-7.06568073D-03,-5.63477235D-03,-4.40515439D-03, + 2-3.37877289D-03,-2.50692076D-03,-1.88069912D-03,-1.32869378D-03, + 3-9.48354161D-04,-6.39452497D-04,-4.35142460D-04,-2.98317864D-04, + 4-1.82035567D-04,-9.93745215D-05,-4.87418148D-05,-2.03423910D-05, + 5-6.48375458D-06,-2.10552910D-06,-6.93572266D-07,-2.31057278D-07, + 6-7.76821776D-08,-1.53542835D-08,-3.07552806D-09,-6.22636771D-10, + 7-1.27155755D-10,-1.54631131D-11,-1.90012484D-12, 1.62635669D-02, + 8 1.62636881D-02, 1.62637789D-02, 1.62639456D-02, 1.62642486D-02, + 9 1.62647788D-02, 1.62656879D-02, 1.62673547D-02, 1.62703861D-02/ + DATA CH 31/ + 1 1.62756934D-02, 1.62847988D-02, 1.63015153D-02, 1.63319866D-02, + 2 1.63855544D-02, 1.64781138D-02, 1.66502535D-02, 1.68902874D-02, + 3 1.72624926D-02, 1.80097009D-02, 1.91301740D-02, 2.20507234D-02, + 4 1.60598467D-03,-2.29301685D-02,-1.64041170D-02,-1.31520191D-02, + 5-1.03269818D-02,-8.19508155D-03,-6.38158993D-03,-4.87910449D-03, + 6-3.61017455D-03,-2.70275023D-03,-1.90566618D-03,-1.35806528D-03, + 7-9.14371740D-04,-6.21497638D-04,-4.25669633D-04,-2.59477519D-04, + 8-1.41505510D-04,-6.93399826D-05,-2.89124421D-05,-9.20687979D-06, + 9-2.98779009D-06,-9.83669747D-07,-3.27560755D-07,-1.10088386D-07/ + DATA CH 32/ + 1-2.17503608D-08,-4.35523904D-09,-8.81474870D-10,-1.79975890D-10, + 2-2.18811141D-11,-2.68824340D-12, 1.90288838D-02, 1.90290141D-02, + 3 1.90291117D-02, 1.90292909D-02, 1.90296165D-02, 1.90301864D-02, + 4 1.90311635D-02, 1.90329549D-02, 1.90362129D-02, 1.90419163D-02, + 5 1.90517000D-02, 1.90696574D-02, 1.91023759D-02, 1.91598480D-02, + 6 1.92590133D-02, 1.94429574D-02, 1.96983785D-02, 2.00918628D-02, + 7 2.08715613D-02, 2.20119512D-02, 2.37371486D-02, 2.83114149D-02, + 8 2.46456465D-03,-2.93002107D-02,-1.96758212D-02,-1.52741478D-02, + 9-1.20287271D-02,-9.31144019D-03,-7.08564280D-03,-5.22193919D-03/ + DATA CH 33/ + 1-3.89775767D-03,-2.74046750D-03,-1.94871813D-03,-1.30935747D-03, + 2-8.88519151D-04,-6.07746487D-04,-3.69934554D-04,-2.01457063D-04, + 3-9.85867634D-05,-4.10554077D-05,-1.30573022D-05,-4.23335105D-06, + 4-1.39273145D-06,-4.63507528D-07,-1.55703706D-07,-3.07449815D-08, + 5-6.15350944D-09,-1.24497731D-09,-2.54117234D-10,-3.08848439D-11, + 6-3.79339169D-12, 2.18877223D-02, 2.18878607D-02, 2.18879644D-02, + 7 2.18881547D-02, 2.18885006D-02, 2.18891059D-02, 2.18901436D-02, + 8 2.18920464D-02, 2.18955065D-02, 2.19015636D-02, 2.19119529D-02, + 9 2.19310185D-02, 2.19657448D-02, 2.20267078D-02, 2.21317887D-02/ + DATA CH 34/ + 1 2.23263409D-02, 2.25956922D-02, 2.30087684D-02, 2.38202866D-02, + 2 2.49891583D-02, 2.67122164D-02, 2.94459970D-02, 3.60952709D-02, + 3 2.92743075D-03,-3.73647840D-02,-2.38681375D-02,-1.85748279D-02, + 4-1.42447859D-02,-1.07616185D-02,-7.88376564D-03,-5.85888497D-03, + 5-4.10243568D-03,-2.90808105D-03,-1.94826632D-03,-1.31904346D-03, + 6-9.00545180D-04,-5.47062546D-04,-2.97330725D-04,-1.45238774D-04, + 7-6.03779764D-05,-1.91696902D-05,-6.20711878D-06,-2.04005630D-06, + 8-6.78401904D-07,-2.27744155D-07,-4.49348897D-08,-8.98804938D-09, + 9-1.81755780D-09,-3.70836723D-10,-4.50505020D-11,-5.53125955D-12/ + DATA CH 35/ + 1 2.36015431D-02, 2.36016814D-02, 2.36017851D-02, 2.36019752D-02, + 2 2.36023209D-02, 2.36029258D-02, 2.36039630D-02, 2.36058645D-02, + 3 2.36093224D-02, 2.36153754D-02, 2.36257567D-02, 2.36448050D-02, + 4 2.36794912D-02, 2.37403567D-02, 2.38451879D-02, 2.40390035D-02, + 5 2.43067409D-02, 2.47159813D-02, 2.55150365D-02, 2.66539649D-02, + 6 2.83052241D-02, 3.08509749D-02, 3.47923899D-02, 4.46119530D-02, + 7 3.20503910D-03,-4.47187614D-02,-2.99247790D-02,-2.25420281D-02, + 8-1.68110438D-02,-1.21916112D-02,-8.99598614D-03,-6.25826949D-03, + 9-4.41481615D-03,-2.94457279D-03,-1.98669550D-03,-1.35260584D-03/ + DATA CH 36/ + 1-8.19247514D-04,-4.43981117D-04,-2.16298007D-04,-8.96923905D-05, + 2-2.84065921D-05,-9.18119435D-06,-3.01326406D-06,-1.00090450D-06, + 3-3.35701359D-07,-6.61622460D-08,-1.32225530D-08,-2.67198497D-09, + 4-5.44850998D-10,-6.61487149D-11,-8.11753486D-12, 2.10819534D-02, + 5 2.10820692D-02, 2.10821561D-02, 2.10823154D-02, 2.10826050D-02, + 6 2.10831118D-02, 2.10839807D-02, 2.10855737D-02, 2.10884705D-02, + 7 2.10935411D-02, 2.11022372D-02, 2.11181919D-02, 2.11472395D-02, + 8 2.11981948D-02, 2.12859096D-02, 2.14479200D-02, 2.16713789D-02, + 9 2.20121631D-02, 2.26748079D-02, 2.36128573D-02, 2.49588564D-02/ + DATA CH 37/ + 1 2.69994181D-02, 3.00695593D-02, 3.50546660D-02, 4.82036877D-02, + 2-7.97111783D-04,-4.87438566D-02,-3.09328678D-02,-2.26544845D-02, + 3-1.62047269D-02,-1.18463299D-02,-8.17351975D-03,-5.73132332D-03, + 4-3.80196984D-03,-2.55452966D-03,-1.73345966D-03,-1.04625341D-03, + 5-5.65090551D-04,-2.74450106D-04,-1.13476006D-04,-3.58373195D-05, + 6-1.15586552D-05,-3.78744381D-06,-1.25645208D-06,-4.20972316D-07, + 7-8.28645553D-08,-1.65443178D-08,-3.34060400D-09,-6.80748360D-10, + 8-8.25891906D-11,-1.01292468D-11, 1.80345087D-02, 1.80346025D-02, + 9 1.80346728D-02, 1.80348018D-02, 1.80350362D-02, 1.80354466D-02/ + DATA CH 38/ + 1 1.80361500D-02, 1.80374397D-02, 1.80397849D-02, 1.80438900D-02, + 2 1.80509298D-02, 1.80638448D-02, 1.80873553D-02, 1.81285880D-02, + 3 1.81995382D-02, 1.83304906D-02, 1.85109119D-02, 1.87856137D-02, + 4 1.93181999D-02, 2.00685569D-02, 2.11377479D-02, 2.27412677D-02, + 5 2.51123942D-02, 2.88515368D-02, 3.50495187D-02, 5.16632021D-02, + 6 3.00500586D-03,-5.10502016D-02,-3.11834652D-02,-2.18472301D-02, + 7-1.57558003D-02,-1.07467788D-02,-7.47494351D-03,-4.92345064D-03, + 8-3.29037961D-03,-2.22343494D-03,-1.33610350D-03,-7.18622045D-04, + 9-3.47694325D-04,-1.43252461D-04,-4.50864884D-05,-1.45053799D-05/ + DATA CH 39/ + 1-4.74387966D-06,-1.57134883D-06,-5.25827462D-07,-1.03351743D-07, + 2-2.06108848D-08,-4.15785767D-09,-8.46641867D-10,-1.02630428D-10, + 3-1.25787831D-11, 1.64786075D-02, 1.64786895D-02, 1.64787510D-02, + 4 1.64788638D-02, 1.64790690D-02, 1.64794279D-02, 1.64800433D-02, + 5 1.64811715D-02, 1.64832231D-02, 1.64868141D-02, 1.64929723D-02, + 6 1.65042692D-02, 1.65248325D-02, 1.65608906D-02, 1.66229198D-02, + 7 1.67373508D-02, 1.68948904D-02, 1.71344875D-02, 1.75980955D-02, + 8 1.82492013D-02, 1.91727468D-02, 2.05483911D-02, 2.25612944D-02, + 9 2.56821454D-02, 3.07104584D-02, 3.88090757D-02, 5.60828824D-02/ + DATA CH 40/ + 1 1.38016993D-03,-5.70339351D-02,-3.20806211D-02,-2.27479574D-02, + 2-1.52901387D-02,-1.05291477D-02,-6.87599889D-03,-4.56641458D-03, + 3-3.07072472D-03,-1.83601908D-03,-9.82842417D-04,-4.73524685D-04, + 4-1.94334826D-04,-6.09350428D-05,-1.95508802D-05,-6.38070901D-06, + 5-2.11006760D-06,-7.05164855D-07,-1.38381964D-07,-2.75628064D-08, + 6-5.55478372D-09,-1.13017307D-09,-1.36879731D-10,-1.67645870D-11, + 7 1.49382707D-02, 1.49383419D-02, 1.49383954D-02, 1.49384934D-02, + 8 1.49386716D-02, 1.49389835D-02, 1.49395182D-02, 1.49404985D-02, + 9 1.49422810D-02, 1.49454010D-02, 1.49507513D-02, 1.49605658D-02/ + DATA CH 41/ + 1 1.49784293D-02, 1.50097490D-02, 1.50636142D-02, 1.51629417D-02, + 2 1.52995974D-02, 1.55072323D-02, 1.59083061D-02, 1.64700506D-02, + 3 1.72637549D-02, 1.84392393D-02, 2.01445276D-02, 2.27531418D-02, + 4 2.68624659D-02, 3.32277631D-02, 4.20505558D-02, 6.32993021D-02, + 5 4.77638112D-03,-6.19856622D-02,-3.71436880D-02,-2.42903955D-02, + 6-1.64402688D-02,-1.05882308D-02,-6.96335960D-03,-4.64839913D-03, + 7-2.75889880D-03,-1.46685643D-03,-7.02504829D-04,-2.86746026D-04, + 8-8.94499336D-05,-2.85938507D-05,-9.30594132D-06,-3.07068166D-06, + 9-1.02437882D-06,-2.00603757D-07,-3.98910777D-08,-8.02885662D-09/ + DATA CH 42/ + 1-1.63180516D-09,-1.97406377D-10,-2.41552084D-11, 1.19676523D-02, + 2 1.19677075D-02, 1.19677488D-02, 1.19678247D-02, 1.19679626D-02, + 3 1.19682039D-02, 1.19686175D-02, 1.19693759D-02, 1.19707550D-02, + 4 1.19731688D-02, 1.19773080D-02, 1.19849008D-02, 1.19987195D-02, + 5 1.20229452D-02, 1.20646023D-02, 1.21413936D-02, 1.22469917D-02, + 6 1.24073222D-02, 1.27166280D-02, 1.31489715D-02, 1.37581127D-02, + 7 1.46565416D-02, 1.59520156D-02, 1.79155963D-02, 2.09638003D-02, + 8 2.55738576D-02, 3.17370854D-02, 4.13539855D-02, 6.47330583D-02, + 9-3.13002439D-03,-6.64300268D-02,-3.38972397D-02,-2.25383908D-02/ + DATA CH 43/ + 1-1.42927434D-02,-9.29930308D-03,-6.15889710D-03,-3.62688409D-03, + 2-1.91468013D-03,-9.11336795D-04,-3.69930636D-04,-1.14801546D-04, + 3-3.65621381D-05,-1.18661438D-05,-3.90696388D-06,-1.30108568D-06, + 4-2.54265702D-07,-5.04812466D-08,-1.01473767D-08,-2.06022904D-09, + 5-2.48953995D-10,-3.04351150D-11, 9.90213654D-03, 9.90218064D-03, + 6 9.90221371D-03, 9.90227434D-03, 9.90238459D-03, 9.90257751D-03, + 7 9.90290825D-03, 9.90351464D-03, 9.90461728D-03, 9.90654721D-03, + 8 9.90985662D-03, 9.91592702D-03, 9.92697457D-03, 9.94634027D-03, + 9 9.97963508D-03, 1.00409936D-02, 1.01253323D-02, 1.02533023D-02/ + DATA CH 44/ + 1 1.04998993D-02, 1.08439750D-02, 1.13275447D-02, 1.20382071D-02, + 2 1.30576130D-02, 1.45908932D-02, 1.69430759D-02, 2.04359677D-02, + 3 2.49835860D-02, 3.18044908D-02, 4.24883980D-02, 7.17810122D-02, + 4 8.67332704D-03,-6.89895852D-02,-3.75877207D-02,-2.31267135D-02, + 5-1.47569239D-02,-9.64269831D-03,-5.60654549D-03,-2.92702753D-03, + 6-1.38022587D-03,-5.55694562D-04,-1.71160116D-04,-5.42248495D-05, + 7-1.75297441D-05,-5.75424343D-06,-1.91162598D-06,-3.72520712D-07, + 8-7.37975875D-08,-1.48084838D-08,-3.00232238D-09,-3.62241875D-10, + 9-4.42306309D-11, 8.17766125D-03, 8.17769672D-03, 8.17772332D-03/ + DATA CH 45/ + 1 8.17777209D-03, 8.17786076D-03, 8.17801593D-03, 8.17828196D-03, + 2 8.17876969D-03, 8.17965656D-03, 8.18120883D-03, 8.18387062D-03, + 3 8.18875298D-03, 8.19763809D-03, 8.21321213D-03, 8.23998502D-03, + 4 8.28931430D-03, 8.35709735D-03, 8.45989986D-03, 8.65784069D-03, + 5 8.93367940D-03, 9.32067034D-03, 9.88797957D-03, 1.06988496D-02, + 6 1.19121548D-02, 1.37590627D-02, 1.64702835D-02, 1.99453256D-02, + 7 2.50435890D-02, 3.27774721D-02, 4.59347375D-02, 7.42013248D-02, + 8-3.84440691D-03,-7.61316789D-02,-3.61005009D-02,-2.25876634D-02, + 9-1.45415779D-02,-8.33864216D-03,-4.30235527D-03,-2.00920297D-03/ + DATA CH 46/ + 1-8.02224334D-04,-2.45245798D-04,-7.72927354D-05,-2.48915407D-05, + 2-8.14674445D-06,-2.70011013D-06,-5.24735849D-07,-1.03734098D-07, + 3-2.07811051D-08,-4.20755327D-09,-5.06922737D-10,-6.18247845D-11, + 4 6.11252521D-03, 6.11255098D-03, 6.11257031D-03, 6.11260575D-03, + 5 6.11267017D-03, 6.11278293D-03, 6.11297622D-03, 6.11333061D-03, + 6 6.11397502D-03, 6.11510290D-03, 6.11703692D-03, 6.12058433D-03, + 7 6.12703979D-03, 6.13835434D-03, 6.15780263D-03, 6.19362889D-03, + 8 6.24284199D-03, 6.31744633D-03, 6.46097742D-03, 6.66074206D-03, + 9 6.94051524D-03, 7.34963242D-03, 7.93233789D-03, 8.79983611D-03/ + DATA CH 47/ + 1 1.01105399D-02, 1.20139653D-02, 1.44190263D-02, 1.78794221D-02, + 2 2.29776191D-02, 3.12457639D-02, 4.32092822D-02, 8.03682628D-02, + 3 7.96504037D-03,-7.77435659D-02,-3.82082769D-02,-2.39372959D-02, + 4-1.33928966D-02,-6.77602270D-03,-3.11640595D-03,-1.22867876D-03, + 5-3.71486061D-04,-1.16205869D-04,-3.72204288D-05,-1.21315871D-05, + 6-4.00773967D-06,-7.75921754D-07,-1.52950062D-07,-3.05712348D-08, + 7-6.17843471D-09,-7.42915499D-10,-9.04651545D-11, 4.84035718D-03, + 8 4.84037714D-03, 4.84039212D-03, 4.84041957D-03, 4.84046948D-03, + 9 4.84055683D-03, 4.84070657D-03, 4.84098112D-03, 4.84148033D-03/ + DATA CH 48/ + 1 4.84235409D-03, 4.84385235D-03, 4.84660042D-03, 4.85160115D-03, + 2 4.86036555D-03, 4.87542922D-03, 4.90317432D-03, 4.94127798D-03, + 3 4.99902191D-03, 5.11005101D-03, 5.26444026D-03, 5.48039520D-03, + 4 5.79563422D-03, 6.24351713D-03, 6.90795579D-03, 7.90675700D-03, + 5 9.34685632D-03, 1.11498855D-02, 1.37134602D-02, 1.74284831D-02, + 6 2.33075143D-02, 3.15464164D-02, 4.71303961D-02, 8.31860584D-02, + 7-1.39809080D-03,-8.27387920D-02,-4.26914313D-02,-2.30114305D-02, + 8-1.13291684D-02,-5.10872289D-03,-1.98326793D-03,-5.91887189D-04, + 9-1.83572375D-04,-5.84402378D-05,-1.89608675D-05,-6.24146835D-06/ + DATA CH 49/ + 1-1.20342928D-06,-2.36485698D-07,-4.71534551D-08,-9.51109020D-09, + 2-1.14126675D-09,-1.38742936D-10, 3.06078216D-03, 3.06079452D-03, + 3 3.06080379D-03, 3.06082079D-03, 3.06085169D-03, 3.06090577D-03, + 4 3.06099849D-03, 3.06116847D-03, 3.06147755D-03, 3.06201853D-03, + 5 3.06294614D-03, 3.06464754D-03, 3.06774352D-03, 3.07316939D-03, + 6 3.08249429D-03, 3.09966707D-03, 3.12324631D-03, 3.15896846D-03, + 7 3.22761787D-03, 3.32299780D-03, 3.45626012D-03, 3.65047653D-03, + 8 3.92579238D-03, 4.33292826D-03, 4.94215751D-03, 5.81499105D-03, + 9 6.89908541D-03, 8.42487188D-03, 1.06056083D-02, 1.39880458D-02/ + DATA CH 50/ + 1 1.85952310D-02, 2.69222098D-02, 3.97570231D-02, 8.17551485D-02, + 2-2.09131453D-03,-8.11066235D-02,-3.25775813D-02,-1.56223141D-02, + 3-6.89366661D-03,-2.63175306D-03,-7.74659828D-04,-2.38122772D-04, + 4-7.53309275D-05,-2.43267140D-05,-7.97870666D-06,-1.53201107D-06, + 5-3.00117305D-07,-5.96957156D-08,-1.20174531D-08,-1.43902739D-09, + 6-1.74654400D-10, 2.40512571D-03, 2.40513525D-03, 2.40514241D-03, + 7 2.40515553D-03, 2.40517939D-03, 2.40522114D-03, 2.40529272D-03, + 8 2.40542396D-03, 2.40566258D-03, 2.40608023D-03, 2.40679639D-03, + 9 2.40810991D-03, 2.41050005D-03, 2.41468874D-03, 2.42188700D-03/ + DATA CH 51/ + 1 2.43514190D-03, 2.45333866D-03, 2.48089982D-03, 2.53384359D-03, + 2 2.60735450D-03, 2.70997012D-03, 2.85933438D-03, 3.07069863D-03, + 3 3.38249757D-03, 3.84744668D-03, 4.51040248D-03, 5.32899596D-03, + 4 6.47276667D-03, 8.09200038D-03, 1.05707708D-02, 1.38891885D-02, + 5 1.97365176D-02, 2.84560234D-02, 4.53047976D-02, 8.93548007D-02, + 6 1.14633644D-02,-8.50321604D-02,-2.84309792D-02,-1.22811274D-02, + 7-4.58861788D-03,-1.32715400D-03,-4.03446003D-04,-1.26653331D-04, + 8-4.06694747D-05,-1.32809492D-05,-2.53758515D-06,-4.95287716D-07, + 9-9.82372640D-08,-1.97315428D-08,-2.35709284D-09,-2.85539273D-10/ + DATA CH 52/ + 1 2.01712685D-03, 2.01713472D-03, 2.01714062D-03, 2.01715144D-03, + 2 2.01717110D-03, 2.01720552D-03, 2.01726451D-03, 2.01737268D-03, + 3 2.01756936D-03, 2.01791361D-03, 2.01850388D-03, 2.01958652D-03, + 4 2.02155648D-03, 2.02500871D-03, 2.03094102D-03, 2.04186369D-03, + 5 2.05685634D-03, 2.07955939D-03, 2.12315372D-03, 2.18364614D-03, + 6 2.26801810D-03, 2.39068326D-03, 2.56398272D-03, 2.81904874D-03, + 7 3.19818241D-03, 3.73643021D-03, 4.39752935D-03, 5.31530603D-03, + 8 6.60386497D-03, 8.55456517D-03, 1.11290500D-02, 1.55742879D-02, + 9 2.20122110D-02, 3.39250844D-02, 5.36878777D-02, 9.95979074D-02/ + DATA CH 53/ + 1 7.38783044D-03,-9.50072179D-02,-2.79356771D-02,-1.01851683D-02, + 2-2.87000689D-03,-8.58470434D-04,-2.66568783D-04,-8.49241131D-05, + 3-2.75671564D-05,-5.23211420D-06,-1.01618882D-06,-2.00793527D-07, + 4-4.02097603D-08,-4.78825897D-09,-5.78618369D-10, 1.33288084D-03, + 5 1.33288594D-03, 1.33288976D-03, 1.33289677D-03, 1.33290952D-03, + 6 1.33293182D-03, 1.33297006D-03, 1.33304017D-03, 1.33316764D-03, + 7 1.33339075D-03, 1.33377332D-03, 1.33447498D-03, 1.33575171D-03, + 8 1.33798900D-03, 1.34183333D-03, 1.34891082D-03, 1.35862388D-03, + 9 1.37332860D-03, 1.40155268D-03, 1.44069144D-03, 1.49523153D-03/ + DATA CH 54/ + 1 1.57442635D-03, 1.68611825D-03, 1.85011482D-03, 2.09306390D-03, + 2 2.43641543D-03, 2.85584007D-03, 3.43430215D-03, 4.23973960D-03, + 3 5.44579212D-03, 7.01592436D-03, 9.67657467D-03, 1.34312915D-02, + 4 2.01127759D-02, 3.05514315D-02, 4.72151598D-02, 1.06374254D-01, + 5 6.17009581D-03,-9.96689690D-02,-2.29826081D-02,-6.35395069D-03, + 6-1.86016685D-03,-5.69117121D-04,-1.79391630D-04,-5.77685069D-05, + 7-1.08675594D-05,-2.09713305D-06,-4.12348604D-07,-8.22550044D-08, + 8-9.75547377D-09,-1.17513816D-09, 7.83530263D-04, 7.83533205D-04, + 9 7.83535411D-04, 7.83539456D-04, 7.83546811D-04, 7.83559683D-04/ + DATA CH 55/ + 1 7.83581748D-04, 7.83622204D-04, 7.83695764D-04, 7.83824512D-04, + 2 7.84045274D-04, 7.84450168D-04, 7.85186888D-04, 7.86477851D-04, + 3 7.88695987D-04, 7.92779208D-04, 7.98382125D-04, 8.06862583D-04, + 4 8.23133638D-04, 8.45683544D-04, 8.77081467D-04, 9.22621229D-04, + 5 9.86747741D-04, 1.08070159D-03, 1.21947081D-03, 1.41480537D-03, + 6 1.65228363D-03, 1.97796366D-03, 2.42825567D-03, 3.09645031D-03, + 7 3.95688231D-03, 5.39401252D-03, 7.38417265D-03, 1.08343660D-02, + 8 1.60328684D-02, 2.39734579D-02, 4.17194172D-02, 1.11167234D-01, + 9 8.12147389D-03,-1.03787203D-01,-1.21664585D-02,-3.86675215D-03/ + DATA CH 56/ + 1-1.18915115D-03,-3.73896986D-04,-1.19964593D-04,-2.24513332D-05, + 2-4.31383088D-06,-8.45232000D-07,-1.68121328D-07,-1.98775513D-08, + 3-2.38852128D-09, 4.31428330D-04, 4.31429921D-04, 4.31431114D-04, + 4 4.31433301D-04, 4.31437277D-04, 4.31444237D-04, 4.31456167D-04, + 5 4.31478041D-04, 4.31517814D-04, 4.31587425D-04, 4.31706786D-04, + 6 4.31925702D-04, 4.32324019D-04, 4.33021975D-04, 4.34221142D-04, + 7 4.36428406D-04, 4.39456738D-04, 4.44039416D-04, 4.52828828D-04, + 8 4.65003230D-04, 4.81941729D-04, 5.06483608D-04, 5.40992089D-04, + 9 5.91451062D-04, 6.65773945D-04, 7.70012232D-04, 8.96197259D-04/ + DATA CH 57/ + 1 1.06838152D-03, 1.30498580D-03, 1.65337178D-03, 2.09788586D-03, + 2 2.83167264D-03, 3.83295521D-03, 5.53558430D-03, 8.03725864D-03, + 3 1.17425654D-02, 1.96937155D-02, 3.83110605D-02, 1.16965943D-01, + 4 1.70596981D-02,-1.04676812D-01,-1.49791483D-02,-4.61490244D-03, + 5-1.41336984D-03,-4.44019379D-04,-8.12146998D-05,-1.53549240D-05, + 6-2.97292628D-06,-5.85942629D-07,-6.86335825D-08,-8.18846903D-09, + 7 1.76504596D-04, 1.76505236D-04, 1.76505716D-04, 1.76506595D-04, + 8 1.76508194D-04, 1.76510993D-04, 1.76515791D-04, 1.76524587D-04, + 9 1.76540581D-04, 1.76568575D-04, 1.76616575D-04, 1.76704609D-04/ + DATA CH 58/ + 1 1.76864784D-04, 1.77145446D-04, 1.77627631D-04, 1.78515097D-04, + 2 1.79732531D-04, 1.81574490D-04, 1.85106158D-04, 1.89995492D-04, + 3 1.96793481D-04, 2.06633635D-04, 2.20451953D-04, 2.40621411D-04, + 4 2.70257059D-04, 3.11687506D-04, 3.61652140D-04, 4.29533409D-04, + 5 5.22318426D-04, 6.58041955D-04, 8.29891879D-04, 1.11086753D-03, + 6 1.48978818D-03, 2.12459025D-03, 3.04004297D-03, 4.36637098D-03, + 7 7.12331778D-03, 1.32969150D-02, 2.85096991D-02, 1.11666537D-01, + 8-4.21396883D-03,-1.10284816D-01,-1.64598789D-02,-5.04576505D-03, + 9-1.54500498D-03,-2.74412953D-04,-5.08407627D-05,-9.70061455D-06/ + DATA CH 59/ + 1-1.89099014D-06,-2.19067018D-07,-2.59202504D-08, 4.75737999D-05, + 2 4.75739692D-05, 4.75740961D-05, 4.75743288D-05, 4.75747518D-05, + 3 4.75754922D-05, 4.75767614D-05, 4.75790884D-05, 4.75833196D-05, + 4 4.75907252D-05, 4.76034231D-05, 4.76267115D-05, 4.76690835D-05, + 5 4.77433262D-05, 4.78708713D-05, 4.81055985D-05, 4.84275557D-05, + 6 4.89145775D-05, 4.98480482D-05, 5.11396923D-05, 5.29342760D-05, + 7 5.55293882D-05, 5.91687194D-05, 6.44709356D-05, 7.22419364D-05, + 8 8.30697594D-05, 9.60776780D-05, 1.13671693D-04, 1.37592294D-04, + 9 1.72353366D-04, 2.16035135D-04, 2.86792225D-04, 3.81147735D-04/ + DATA CH 60/ + 1 5.37033212D-04, 7.58041404D-04, 1.07204934D-03, 1.70711650D-03, + 2 3.06896932D-03, 6.23597647D-03, 1.46455423D-02, 1.10928995D-01, + 3 3.32637354D-04,-1.09275276D-01,-1.61840066D-02,-4.96436691D-03, + 4-8.49428119D-04,-1.53251063D-04,-2.87008566D-05,-5.51873468D-06, + 5-6.30811811D-07,-7.39041184D-08, 1.65963707D-05, 1.65964292D-05, + 6 1.65964730D-05, 1.65965535D-05, 1.65966997D-05, 1.65969557D-05, + 7 1.65973944D-05, 1.65981988D-05, 1.65996615D-05, 1.66022215D-05, + 8 1.66066110D-05, 1.66146615D-05, 1.66293089D-05, 1.66549730D-05, + 9 1.66990618D-05, 1.67801970D-05, 1.68914772D-05, 1.70597947D-05/ + DATA CH 61/ + 1 1.73823576D-05, 1.78285817D-05, 1.84483554D-05, 1.93441974D-05, + 2 2.05997413D-05, 2.24274540D-05, 2.51031596D-05, 2.88259537D-05, + 3 3.32908189D-05, 3.93183762D-05, 4.74950377D-05, 5.93453073D-05, + 4 7.41919140D-05, 9.81549891D-05, 1.29978323D-04, 1.82300609D-04, + 5 2.56075790D-04, 3.60299807D-04, 5.69642755D-04, 1.01491888D-03, + 6 2.04637231D-03, 4.98400307D-03, 1.62482170D-02, 1.09495330D-01, + 7 4.87780468D-04,-1.07070311D-01,-1.85042259D-02,-2.99110492D-03, + 8-5.16537201D-04,-9.40606513D-05,-1.77389579D-05,-1.99116462D-06, + 9-2.30294703D-07, 5.41117987D-06, 5.41119878D-06, 5.41121296D-06/ + DATA CH 62/ + 1 5.41123897D-06, 5.41128625D-06, 5.41136899D-06, 5.41151083D-06, + 2 5.41177089D-06, 5.41224376D-06, 5.41307138D-06, 5.41449045D-06, + 3 5.41709305D-06, 5.42182829D-06, 5.43012499D-06, 5.44437766D-06, + 4 5.47060549D-06, 5.50657593D-06, 5.56097877D-06, 5.66522125D-06, + 5 5.80939544D-06, 6.00958333D-06, 6.29882216D-06, 6.70396889D-06, + 6 7.29329526D-06, 8.15515016D-06, 9.35265992D-06, 1.07866473D-05, + 7 1.27191268D-05, 1.53351846D-05, 1.91171055D-05, 2.38419814D-05, + 8 3.14425618D-05, 4.14968487D-05, 5.79511291D-05, 8.10274507D-05, + 9 1.13439313D-04, 1.78053573D-04, 3.14022833D-04, 6.24374131D-04/ + DATA CH 63/ + 1 1.49124696D-03, 4.87119183D-03, 1.58675957D-02, 1.08112412D-01, + 2-5.64721193D-03,-1.07343941D-01,-1.38176932D-03,-6.67356397D-04, + 3-1.37885383D-04,-2.72730427D-05,-3.15302305D-06,-3.70214196D-07, + 4 2.08043565D-06, 2.08044287D-06, 2.08044828D-06, 2.08045820D-06, + 5 2.08047624D-06, 2.08050781D-06, 2.08056193D-06, 2.08066115D-06, + 6 2.08084156D-06, 2.08115733D-06, 2.08169875D-06, 2.08269172D-06, + 7 2.08449834D-06, 2.08766372D-06, 2.09310134D-06, 2.10310735D-06, + 8 2.11682952D-06, 2.13758185D-06, 2.17734083D-06, 2.23231940D-06, + 9 2.30863775D-06, 2.41886513D-06, 2.57318772D-06, 2.79751407D-06/ + DATA CH 64/ + 1 3.12527806D-06, 3.58015346D-06, 4.12411732D-06, 4.85605468D-06, + 2 5.84511401D-06, 7.27185995D-06, 9.05002713D-06, 1.19022183D-05, + 3 1.56626318D-05, 2.17926082D-05, 3.03508050D-05, 4.23131053D-05, + 4 6.60120571D-05, 1.15442162D-04, 2.26886841D-04, 5.32684722D-04, + 5 1.69371530D-03, 5.52770775D-03, 1.80892239D-02, 1.16234750D-01, + 6 2.76168404D-02,-9.53568850D-02,-2.93943754D-03,-8.38438697D-04, + 7-1.65138689D-04,-1.86290604D-05,-2.14192535D-06, 7.11612643D-07, + 8 7.11615095D-07, 7.11616934D-07, 7.11620305D-07, 7.11626435D-07, + 9 7.11637161D-07, 7.11655550D-07, 7.11689265D-07, 7.11750569D-07/ + DATA CH 65/ + 1 7.11857863D-07, 7.12041833D-07, 7.12379237D-07, 7.12993109D-07, + 2 7.14068666D-07, 7.15916272D-07, 7.19316041D-07, 7.23978257D-07, + 3 7.31028596D-07, 7.44534757D-07, 7.63207949D-07, 7.89123296D-07, + 4 8.26541566D-07, 8.78906601D-07, 9.54982163D-07, 1.06605075D-06, + 5 1.22003998D-06, 1.40397899D-06, 1.65116303D-06, 1.98467729D-06, + 6 2.46491486D-06, 3.06223933D-06, 4.01807902D-06, 5.27484361D-06, + 7 7.31698881D-06, 1.01576386D-05, 1.41127191D-05, 2.19093204D-05, + 8 3.80573906D-05, 7.41150532D-05, 1.71687225D-04, 5.33923293D-04, + 9 1.69603350D-03, 5.53819650D-03, 1.83971155D-02, 1.02940053D-01/ + DATA CH 66/ + 1-6.16317670D-03,-1.00741788D-01,-3.73960779D-03,-9.74975681D-04, + 2-1.09756316D-04,-1.23812238D-05, 8.08788948D-08, 8.08791690D-08, + 3 8.08793747D-08, 8.08797519D-08, 8.08804375D-08, 8.08816375D-08, + 4 8.08836946D-08, 8.08874661D-08, 8.08943238D-08, 8.09063263D-08, + 5 8.09269060D-08, 8.09646492D-08, 8.10333184D-08, 8.11536300D-08, + 6 8.13602954D-08, 8.17405538D-08, 8.22619620D-08, 8.30503349D-08, + 7 8.45602162D-08, 8.66469097D-08, 8.95413560D-08, 9.37174735D-08, + 8 9.95558916D-08, 1.08026390D-07, 1.20370367D-07, 1.37443819D-07, + 9 1.57782504D-07, 1.85030552D-07, 2.21662610D-07, 2.74182728D-07/ + DATA CH 67/ + 1 3.39193538D-07, 4.42631225D-07, 5.77739664D-07, 7.95587506D-07, + 2 1.09593305D-06, 1.51015281D-06, 2.31679844D-06, 3.95882473D-06, + 3 7.53797472D-06, 1.68839094D-05, 4.95306923D-05, 1.44789965D-04, + 4 4.15382842D-04, 1.09942732D-03, 1.31208811D-03, 1.02365061D-01, + 5 4.70799162D-04,-9.82089711D-02,-5.38213464D-03,-6.63214122D-04, + 6-7.19592889D-05, 1.95130503D-08, 1.95131164D-08, 1.95131659D-08, + 7 1.95132568D-08, 1.95134219D-08, 1.95137110D-08, 1.95142064D-08, + 8 1.95151148D-08, 1.95167666D-08, 1.95196575D-08, 1.95246144D-08, + 9 1.95337053D-08, 1.95502450D-08, 1.95792233D-08, 1.96290007D-08/ + DATA CH 68/ + 1 1.97205891D-08, 1.98461735D-08, 2.00360556D-08, 2.03997073D-08, + 2 2.09022661D-08, 2.15993323D-08, 2.26049996D-08, 2.40108548D-08, + 3 2.60502724D-08, 2.90218592D-08, 3.31312256D-08, 3.80255045D-08, + 4 4.45810213D-08, 5.33920847D-08, 6.60213059D-08, 8.16498384D-08, + 5 1.06509044D-07, 1.38970511D-07, 1.91297283D-07, 2.63424155D-07, + 6 3.62884506D-07, 5.56570399D-07, 9.50953805D-07, 1.81143275D-06, + 7 4.06430324D-06, 1.19959897D-05, 3.56109619D-05, 1.06274847D-04, + 8 3.17923256D-04, 9.41771985D-04, 3.54841289D-03, 9.95277362D-02, + 9-4.11990696D-03,-9.78057270D-02, 3.72452157D-03, 5.71822715D-05/ + DATA CH 69/ + 1 4.33638262D-09, 4.33639724D-09, 4.33640820D-09, 4.33642830D-09, + 2 4.33646485D-09, 4.33652880D-09, 4.33663844D-09, 4.33683946D-09, + 3 4.33720496D-09, 4.33784467D-09, 4.33894153D-09, 4.34095316D-09, + 4 4.34461307D-09, 4.35102535D-09, 4.36203991D-09, 4.38230594D-09, + 5 4.41009364D-09, 4.45210675D-09, 4.53256276D-09, 4.64374017D-09, + 6 4.79792631D-09, 5.02033171D-09, 5.33116143D-09, 5.78191679D-09, + 7 6.43840166D-09, 7.34571416D-09, 8.42561144D-09, 9.87098040D-09, + 8 1.18119837D-08, 1.45912712D-08, 1.80267803D-08, 2.34843331D-08, + 9 3.06004650D-08, 4.20522909D-08, 5.78080613D-08, 7.94929896D-08/ + DATA CH 70/ + 1 1.21621788D-07, 2.07132769D-07, 3.92943235D-07, 8.76821801D-07, + 2 2.56764760D-06, 7.55935688D-06, 2.23853323D-05, 6.66856982D-05, + 3 1.99641258D-04, 1.02807083D-03, 4.04552113D-03, 1.02726581D-01, + 4 1.79886089D-02,-8.60501553D-02, 2.60616271D-03, 8.87765567D-10, + 5 8.87768549D-10, 8.87770786D-10, 8.87774887D-10, 8.87782344D-10, + 6 8.87795393D-10, 8.87817763D-10, 8.87858776D-10, 8.87933351D-10, + 7 8.88063871D-10, 8.88287666D-10, 8.88698102D-10, 8.89444837D-10, + 8 8.90753137D-10, 8.93000426D-10, 8.97135224D-10, 9.02804526D-10, + 9 9.11375875D-10, 9.27789361D-10, 9.50468423D-10, 9.81917510D-10/ + DATA CH 71/ + 1 1.02727458D-09, 1.09065231D-09, 1.18253624D-09, 1.31630906D-09, + 2 1.50110859D-09, 1.72094560D-09, 2.01501193D-09, 2.40965166D-09, + 3 2.97428145D-09, 3.67162075D-09, 4.77827845D-09, 6.21961604D-09, + 4 8.53612265D-09, 1.17186469D-08, 1.60922937D-08, 2.45737478D-08, + 5 4.17468094D-08, 7.89451660D-08, 1.75412258D-07, 5.10501814D-07, + 6 1.49282957D-06, 4.38903313D-06, 1.29827929D-05, 3.86624380D-05, + 7 2.01282979D-04, 1.05423514D-03, 4.64098366D-03, 9.04415425D-02, + 8-1.89214643D-03,-1.71716873D-01, 3.90236429D-11, 3.90237704D-11, + 9 3.90238661D-11, 3.90240415D-11, 3.90243603D-11, 3.90249183D-11/ + DATA CH 72/ + 1 3.90258750D-11, 3.90276288D-11, 3.90308179D-11, 3.90363993D-11, + 2 3.90459694D-11, 3.90635206D-11, 3.90954520D-11, 3.91513949D-11, + 3 3.92474829D-11, 3.94242567D-11, 3.96665942D-11, 4.00328934D-11, + 4 4.07340360D-11, 4.17022052D-11, 4.30435973D-11, 4.49758834D-11, + 5 4.76714763D-11, 5.15708862D-11, 5.72310912D-11, 6.50204295D-11, + 6 7.42462624D-11, 8.65270039D-11, 1.02913995D-10, 1.26201174D-10, + 7 1.54746928D-10, 1.99652158D-10, 2.57554840D-10, 3.49544435D-10, + 8 4.74280527D-10, 6.43363594D-10, 9.65652637D-10, 1.60290389D-09, + 9 2.94005367D-09, 6.25723494D-09, 1.70097397D-08, 4.56909069D-08/ + DATA CH 73/ + 1 1.20421289D-07, 3.07324137D-07, 7.38632443D-07, 2.00511821D-06, + 2-4.66809104D-06,-1.85535655D-04,-4.04881136D-03, 8.50154847D-02, + 3 1.69140724D-01/ + END + SUBROUTINE CONVEC + IMPLICIT REAL*8 (A-H,O-Z) + PARAMETER (kw=99) + COMMON /ABROSS/ABROSS(kw),TAUROS(kw) + COMMON /BHE/BHE1(kw,29),AHE1(kw),SHE1(kw),BHE2(kw,6),AHE2(kw), + 1 SHE2(kw),AHEMIN(kw),SIGHE(kw),XNFPHE(kw,3),XNFHE(kw,2) + COMMON /BHYD/BHYD(kw,8),AHYD(kw),SHYD(kw),AH2P(kw),BMIN(kw), + 1 AHMIN(kw),SHMIN(kw),SIGH(kw),SIGH2(kw),AHLINE(kw), + 2 SHLINE(kw),XNFPH(kw,2),XNFH(kw) + COMMON /CONV/DLTDLP(kw),HEATCP(kw),DLRDLT(kw),VELSND(kw), + 1 GRDADB(kw),HSCALE(kw),FLXCNV(kw),VCONV(kw),MIXLTH, + 2 IFCONV + REAL*8 MIXLTH + COMMON /ELEM/ABUND(99),ATMASS(99),ELEM(99),XABUND(99),WTMOLE + COMMON /IF/IFCORR,IFPRES,IFSURF,IFSCAT,IFMOL,NLTEON,IFOP(20) + COMMON /PZERO/PZERO,PCON,PRADK0,PTURB0,KNU(kw),PRADK(kw),EDENS(kw) + REAL*8 KNU + COMMON /RAD/ACCRAD(kw),PRAD(kw) + COMMON /RHOX/RHOX(kw),NRHOX + COMMON /STATE/P(kw),XNE(kw),XNATOM(kw),RHO(kw),PTOTAL(kw) + COMMON /TEMP/T(kw),TKEV(kw),TK(kw),HKT(kw),TLOG(kw),HCKT(kw),ITEMP + COMMON /TEFF/TEFF,GRAV,GLOG + COMMON /TURBPR/VTURB(kw),PTURB(kw),TRBFDG,TRBCON,TRBPOW,TRBSND, + 1 IFTURB + DIMENSION EQ(4),DEQ(4,4),DUMMY(4) + DIMENSION TNEW(4),PNEW(4),ENERGY(4),RHON(4) + DIMENSION DTDRHX(kw) + EQUIVALENCE (DTDRHX(1),DLTDLP(1)) + CALL DERIV(RHOX,T,DTDRHX,NRHOX) +C CALCULATE DERIVATIVES BY EVALUATING FUNCTIONS AT + AND - .001 +C FIRST GUESSES + XH= MAX (XABUND(1),1.D-20) + XHE= MAX (XABUND(2),1.D-20) +C XNHE1=XNATOM(1)*XHE + XNHE1=XNFHE(1,1) + XNH1=XNFH(1) + XNAT=XNATOM(1) + XNEL=XNE(1) + DO 30 J=1,NRHOX + DILUT=1.-EXP(-TAUROS(J)) + TNEW(1)=T(J)*1.001 + PNEW(1)=P(J) + TNEW(2)=T(J)*.999 + PNEW(2)=P(J) + TNEW(3)=T(J) + PNEW(3)=P(J)*1.001 + TNEW(4)=T(J) + PNEW(4)=P(J)*.999 + DO 15 I=1,4 + TN=TNEW(I) + TKN=TN*1.3804D-16 + TKEVN=TN*8.6171D-5 + XNTOT=PNEW(I)/TKN + CT32=2.4148D15*TN*SQRT(TN) + CEQH2=CT32*EXP(-13.595D0/TKEVN) + CEQHH=0. + IF(TN.LT.10000.)CEQHH=EXP(4.477D0/TKEVN-4.6628D1+(1.8031D-3+ + 1(-5.0239D-7+(8.1424D-11-5.0501D-15*TN)*TN)*TN)*TN-1.5* LOG(TN)) +C THE AMIN IS FOR ANY UNFORTUNATE WHO HAS A 360 + CEQHE2=4.*CT32*EXP(-MIN(24.580D0/TKEVN,150.D0)) + CEQHE3=4.*CT32**2*EXP(-MIN(78.983D0/TKEVN,150.D0)) + DO 13 K=1,100 + XNH2=XNH1*CEQH2/XNEL + XNHH=XNH1**2*CEQHH + XNHE2=XNHE1*CEQHE2/XNEL + XNHE3=XNHE1*CEQHE3/XNEL**2 + EQ(1)=XNH1+XNH2+2.*XNHH-XH*XNAT + EQ(2)=XNHE1+XNHE2+XNHE3-XHE*XNAT + EQ(3)=XNH2+XNHE2+2.*XNHE3-XNEL + EQ(4)=XNH1+XNH2+XNHH+XNHE1+XNHE2+XNHE3+XNEL-XNTOT + DEQ(1,1)=(XNH1+XNH2+4.*XNHH)/XNH1 + DEQ(1,2)=0. + DEQ(1,3)=-XH + DEQ(1,4)=-XNH2/XNEL + DEQ(2,1)=0. + DEQ(2,2)=(XNHE1+XNHE2+XNHE3)/XNHE1 + DEQ(2,3)=-XHE + DEQ(2,4)=(-XNHE2-2.*XNHE3)/XNEL + DEQ(3,1)=XNH2/XNH1 + DEQ(3,2)=(XNHE2+XNHE3)/XNHE1 + DEQ(3,3)=0. + DEQ(3,4)=(-XNH2-XNHE2-4.*XNHE3-XNEL)/XNEL + DEQ(4,1)=(XNH1+XNH2+2.*XNHH)/XNH1 + DEQ(4,2)=(XNHE1+XNHE2+XNHE3)/XNHE1 + DEQ(4,3)=0. + DEQ(4,4)=(-XNH2-XNHE2-2.*XNHE3+XNEL)/XNEL +C CALL SOLVIT(DEQ,4,EQ,DUMMY) + Q1311=DEQ(1,3)/DEQ(1,1) + Q1411=DEQ(1,4)/DEQ(1,1) + E111=EQ(1)/DEQ(1,1) + Q2322=DEQ(2,3)/DEQ(2,2) + Q2422=DEQ(2,4)/DEQ(2,2) + E222=EQ(2)/DEQ(2,2) + Q3431=DEQ(3,4)/DEQ(3,1) + Q3231=DEQ(3,2)/DEQ(3,1) + E331=EQ(3)/DEQ(3,1) + Q4441=DEQ(4,4)/DEQ(4,1) + Q4241=DEQ(4,2)/DEQ(4,1) + E441=EQ(4)/DEQ(4,1) + QQQ3=Q1311+Q2322*Q3231 + QQQ4=Q1311+Q2322*Q4241 + QQQQ3=(Q1411+Q2422*Q3231-Q3431)/QQQ3 + EQQQ3=(E111+E222*Q3231-E331)/QQQ3 + QQQQ4=(Q1411+Q2422*Q4241-Q4441)/QQQ4 + EQQQ4=(E111+E222*Q4241-E441)/QQQ4 + EQ(4)=(EQQQ4-EQQQ3)/(QQQQ4-QQQQ3) + EQ(3)=EQQQ3-QQQQ3*EQ(4) + EQ(2)=E222-Q2422*EQ(4)-Q2322*EQ(3) + EQ(1)=E111-Q1411*EQ(4)-Q1311*EQ(3) + ERROR=ABS(EQ(1)/XNH1)+ABS(EQ(2)/XNHE1)+ABS(EQ(3)/XNAT)+ + 1ABS(EQ(4)/XNEL) + XNH1=XNH1-EQ(1) + XNHE1=XNHE1-EQ(2) + XNAT=XNAT-EQ(3) + XNEL=XNEL-EQ(4) + IF(ERROR.LT..00001)GO TO 14 + 13 CONTINUE + CALL EXIT + 14 XNH2=XNH1*CEQH2/XNEL + XNHH=XNH1**2*CEQHH + XNHE2=XNHE1*CEQHE2/XNEL + XNHE3=XNHE1*CEQHE3/XNEL**2 + EHH=-4.476D0/TKEVN+(1.*(1.8031D-3)+(2.*(-5.0739D-7)+ + 1 (3.*(8.1424D-11)+4.*(-5.0501D-15)*TN)*TN)*TN)*TN + RHON(I)=XNAT*WTMOLE*1.660D-24 + DEDENS=(TN/T(J))**4-1. + 15 ENERGY(I)=((1.5*XNTOT+13.595D0/TKEVN*XNH2+EHH*XNHH+ + 1 24.580D0/TKEVN*XNHE2+78.983D0/TKEVN*XNHE3)*TKN+ + 2 3.*PRADK(J)*(1.+DEDENS*DILUT))/RHON(I) +C 2 EDENS(J)*(1.+DEDENS*DILUT))/RHON(I) +C 2 3.*PRAD(J)*(TN/T(J))**4)/RHON(I) + DEDT=(ENERGY(1)-ENERGY(2))/T(J)*500. + DRDT=(RHON(1)-RHON(2))/T(J)*500. + DEDPG=(ENERGY(3)-ENERGY(4))/P(J)*500. + DRDPG=(RHON(3)-RHON(4))/P(J)*500. +C +C CALCULATE THERMODYNAMIC QUANTITIES AND CONVECTIVE FLUX +C IGNORING PTURB AND ASSUMING PRAD PROPORTIONAL TO T**4 + DPDPG=1. + DPDT=4.*PRAD(J)/T(J)*DILUT +C DPDT=4.*PRAD(J)/T(J) + DLTDLP(J)=PTOTAL(J)/T(J)/GRAV*DTDRHX(J) + HEATCV=DEDT-DEDPG*DRDT/DRDPG + HEATCP(J)=DEDT-DEDPG*DPDT/DPDPG-PTOTAL(J)/RHO(J)**2*(DRDT- + 1DRDPG*DPDT/DPDPG) + VELSND(J)=SQRT(HEATCP(J)/HEATCV*DPDPG/DRDPG) + DLRDLT(J)=T(J)/RHO(J)*(DRDT-DRDPG*DPDT/DPDPG) + GRDADB(J)=-PTOTAL(J)/RHO(J)/T(J)*DLRDLT(J)/HEATCP(J) + HSCALE(J)=PTOTAL(J)/RHO(J)/GRAV + VCONV(J)=0. + FLXCNV(J)=0. + IF(MIXLTH.EQ.0.)GO TO 30 + DEL=DLTDLP(J)-GRDADB(J) + IF(DEL.LT.0.)GO TO 30 + VCO=.5*MIXLTH*SQRT(-.5*PTOTAL(J)/RHO(J)*DLRDLT(J)) + FLUXCO=.5*RHO(J)*HEATCP(J)*T(J)*MIXLTH/12.5664D0 + D=8.*5.6697D-5*T(J)**4/(ABROSS(J)*HSCALE(J)*RHO(J))/ + 1(FLUXCO*12.5664D0)/VCO + D=D**2/2. + DDD=(DEL/(D+DEL))**2 + IF(DDD.LT..5)GO TO 24 + DELTA=(1.-SQRT(1.-DDD))/DDD + GO TO 26 + 24 DELTA=.5 + TERM=.5 + UP=-1. + DOWN=2. + 25 UP=UP+2. + DOWN=DOWN+2. + TERM=UP/DOWN*DDD*TERM + DELTA=DELTA+TERM + IF(TERM.GT.1.D-6)GO TO 25 + 26 DELTA=DELTA*DEL**2/(D+DEL) + VCONV(J)=VCO*SQRT(DELTA) + FLXCNV(J)=FLUXCO*VCONV(J)*DELTA + 30 CONTINUE + RETURN + END + SUBROUTINE HIGH + IMPLICIT REAL*8 (A-H,O-Z) + PARAMETER (kw=99) + + COMMON /ABTOT/ABTOT(kw),ALPHA(kw) + COMMON /HEIGHT/HEIGHT(kw) + COMMON /RHOX/RHOX(kw),NRHOX + COMMON /STATE/P(kw),XNE(kw),XNATOM(kw),RHO(kw),PTOTAL(kw) + DIMENSION RHOINV(kw) + EQUIVALENCE (RHOINV(1),ABTOT(1)) + DO 1 J=1,NRHOX + 1 RHOINV(J)=1.D-5/RHO(J) + CALL INTEG(RHOX,RHOINV,HEIGHT,NRHOX,0.) +C CALL INTEG(RHOX,RHOINV,HEIGHT,NRHOX) + RETURN + END + SUBROUTINE TURB + IMPLICIT REAL*8 (A-H,O-Z) + PARAMETER (kw=99) + + COMMON /CONV/DLTDLP(kw),HEATCP(kw),DLRDLT(kw),VELSND(kw), + 1 GRDADB(kw),HSCALE(kw),FLXCNV(kw),VCONV(kw),MIXLTH, + 2 IFCONV + REAL*8 MIXLTH + COMMON /RHOX/RHOX(kw),NRHOX + COMMON /STATE/P(kw),XNE(kw),XNATOM(kw),RHO(kw),PTOTAL(kw) + COMMON /TURBPR/VTURB(kw),PTURB(kw),TRBFDG,TRBCON,TRBPOW,TRBSND, + 1 IFTURB + DO 10 J=1,NRHOX + VTURB(J)=(TRBFDG*RHO(J)**TRBPOW+TRBSND*VELSND(J)/1.D5+TRBCON)*1.D5 + 10 PTURB(J)=RHO(J)*VTURB(J)**2*0.5 + RETURN + END + SUBROUTINE PFIRON(NELEM,ION,TLOG8,POTLOW8,PF) + REAL*8 TLOG8,POTLOW8,PF + DIMENSION POTLO(7),POTLOLOG(7) + DIMENSION PFTAB(7,56,10,9),P63(63,560) + EQUIVALENCE (PFTAB(1,1,1,1),P63(1,1)) + DIMENSION PF001(63),PF002(63),PF003(63),PF004(63),PF005(63) + DIMENSION PF006(63),PF007(63),PF008(63),PF009(63),PF010(63) + DIMENSION PF011(63),PF012(63),PF013(63),PF014(63),PF015(63) + DIMENSION PF016(63),PF017(63),PF018(63),PF019(63),PF020(63) + DIMENSION PF021(63),PF022(63),PF023(63),PF024(63),PF025(63) + DIMENSION PF026(63),PF027(63),PF028(63),PF029(63),PF030(63) + DIMENSION PF031(63),PF032(63),PF033(63),PF034(63),PF035(63) + DIMENSION PF036(63),PF037(63),PF038(63),PF039(63),PF040(63) + DIMENSION PF041(63),PF042(63),PF043(63),PF044(63),PF045(63) + DIMENSION PF046(63),PF047(63),PF048(63),PF049(63),PF050(63) + DIMENSION PF051(63),PF052(63),PF053(63),PF054(63),PF055(63) + DIMENSION PF056(63),PF057(63),PF058(63),PF059(63),PF060(63) + DIMENSION PF061(63),PF062(63),PF063(63),PF064(63),PF065(63) + DIMENSION PF066(63),PF067(63),PF068(63),PF069(63),PF070(63) + DIMENSION PF071(63),PF072(63),PF073(63),PF074(63),PF075(63) + DIMENSION PF076(63),PF077(63),PF078(63),PF079(63),PF080(63) + DIMENSION PF081(63),PF082(63),PF083(63),PF084(63),PF085(63) + DIMENSION PF086(63),PF087(63),PF088(63),PF089(63),PF090(63) + DIMENSION PF091(63),PF092(63),PF093(63),PF094(63),PF095(63) + DIMENSION PF096(63),PF097(63),PF098(63),PF099(63),PF100(63) + DIMENSION PF101(63),PF102(63),PF103(63),PF104(63),PF105(63) + DIMENSION PF106(63),PF107(63),PF108(63),PF109(63),PF110(63) + DIMENSION PF111(63),PF112(63),PF113(63),PF114(63),PF115(63) + DIMENSION PF116(63),PF117(63),PF118(63),PF119(63),PF120(63) + DIMENSION PF121(63),PF122(63),PF123(63),PF124(63),PF125(63) + DIMENSION PF126(63),PF127(63),PF128(63),PF129(63),PF130(63) + DIMENSION PF131(63),PF132(63),PF133(63),PF134(63),PF135(63) + DIMENSION PF136(63),PF137(63),PF138(63),PF139(63),PF140(63) + DIMENSION PF141(63),PF142(63),PF143(63),PF144(63),PF145(63) + DIMENSION PF146(63),PF147(63),PF148(63),PF149(63),PF150(63) + DIMENSION PF151(63),PF152(63),PF153(63),PF154(63),PF155(63) + DIMENSION PF156(63),PF157(63),PF158(63),PF159(63),PF160(63) + DIMENSION PF161(63),PF162(63),PF163(63),PF164(63),PF165(63) + DIMENSION PF166(63),PF167(63),PF168(63),PF169(63),PF170(63) + DIMENSION PF171(63),PF172(63),PF173(63),PF174(63),PF175(63) + DIMENSION PF176(63),PF177(63),PF178(63),PF179(63),PF180(63) + DIMENSION PF181(63),PF182(63),PF183(63),PF184(63),PF185(63) + DIMENSION PF186(63),PF187(63),PF188(63),PF189(63),PF190(63) + DIMENSION PF191(63),PF192(63),PF193(63),PF194(63),PF195(63) + DIMENSION PF196(63),PF197(63),PF198(63),PF199(63),PF200(63) + DIMENSION PF201(63),PF202(63),PF203(63),PF204(63),PF205(63) + DIMENSION PF206(63),PF207(63),PF208(63),PF209(63),PF210(63) + DIMENSION PF211(63),PF212(63),PF213(63),PF214(63),PF215(63) + DIMENSION PF216(63),PF217(63),PF218(63),PF219(63),PF220(63) + DIMENSION PF221(63),PF222(63),PF223(63),PF224(63),PF225(63) + DIMENSION PF226(63),PF227(63),PF228(63),PF229(63),PF230(63) + DIMENSION PF231(63),PF232(63),PF233(63),PF234(63),PF235(63) + DIMENSION PF236(63),PF237(63),PF238(63),PF239(63),PF240(63) + DIMENSION PF241(63),PF242(63),PF243(63),PF244(63),PF245(63) + DIMENSION PF246(63),PF247(63),PF248(63),PF249(63),PF250(63) + DIMENSION PF251(63),PF252(63),PF253(63),PF254(63),PF255(63) + DIMENSION PF256(63),PF257(63),PF258(63),PF259(63),PF260(63) + DIMENSION PF261(63),PF262(63),PF263(63),PF264(63),PF265(63) + DIMENSION PF266(63),PF267(63),PF268(63),PF269(63),PF270(63) + DIMENSION PF271(63),PF272(63),PF273(63),PF274(63),PF275(63) + DIMENSION PF276(63),PF277(63),PF278(63),PF279(63),PF280(63) + DIMENSION PF281(63),PF282(63),PF283(63),PF284(63),PF285(63) + DIMENSION PF286(63),PF287(63),PF288(63),PF289(63),PF290(63) + DIMENSION PF291(63),PF292(63),PF293(63),PF294(63),PF295(63) + DIMENSION PF296(63),PF297(63),PF298(63),PF299(63),PF300(63) + DIMENSION PF301(63),PF302(63),PF303(63),PF304(63),PF305(63) + DIMENSION PF306(63),PF307(63),PF308(63),PF309(63),PF310(63) + DIMENSION PF311(63),PF312(63),PF313(63),PF314(63),PF315(63) + DIMENSION PF316(63),PF317(63),PF318(63),PF319(63),PF320(63) + DIMENSION PF321(63),PF322(63),PF323(63),PF324(63),PF325(63) + DIMENSION PF326(63),PF327(63),PF328(63),PF329(63),PF330(63) + DIMENSION PF331(63),PF332(63),PF333(63),PF334(63),PF335(63) + DIMENSION PF336(63),PF337(63),PF338(63),PF339(63),PF340(63) + DIMENSION PF341(63),PF342(63),PF343(63),PF344(63),PF345(63) + DIMENSION PF346(63),PF347(63),PF348(63),PF349(63),PF350(63) + DIMENSION PF351(63),PF352(63),PF353(63),PF354(63),PF355(63) + DIMENSION PF356(63),PF357(63),PF358(63),PF359(63),PF360(63) + DIMENSION PF361(63),PF362(63),PF363(63),PF364(63),PF365(63) + DIMENSION PF366(63),PF367(63),PF368(63),PF369(63),PF370(63) + DIMENSION PF371(63),PF372(63),PF373(63),PF374(63),PF375(63) + DIMENSION PF376(63),PF377(63),PF378(63),PF379(63),PF380(63) + DIMENSION PF381(63),PF382(63),PF383(63),PF384(63),PF385(63) + DIMENSION PF386(63),PF387(63),PF388(63),PF389(63),PF390(63) + DIMENSION PF391(63),PF392(63),PF393(63),PF394(63),PF395(63) + DIMENSION PF396(63),PF397(63),PF398(63),PF399(63),PF400(63) + DIMENSION PF401(63),PF402(63),PF403(63),PF404(63),PF405(63) + DIMENSION PF406(63),PF407(63),PF408(63),PF409(63),PF410(63) + DIMENSION PF411(63),PF412(63),PF413(63),PF414(63),PF415(63) + DIMENSION PF416(63),PF417(63),PF418(63),PF419(63),PF420(63) + DIMENSION PF421(63),PF422(63),PF423(63),PF424(63),PF425(63) + DIMENSION PF426(63),PF427(63),PF428(63),PF429(63),PF430(63) + DIMENSION PF431(63),PF432(63),PF433(63),PF434(63),PF435(63) + DIMENSION PF436(63),PF437(63),PF438(63),PF439(63),PF440(63) + DIMENSION PF441(63),PF442(63),PF443(63),PF444(63),PF445(63) + DIMENSION PF446(63),PF447(63),PF448(63),PF449(63),PF450(63) + DIMENSION PF451(63),PF452(63),PF453(63),PF454(63),PF455(63) + DIMENSION PF456(63),PF457(63),PF458(63),PF459(63),PF460(63) + DIMENSION PF461(63),PF462(63),PF463(63),PF464(63),PF465(63) + DIMENSION PF466(63),PF467(63),PF468(63),PF469(63),PF470(63) + DIMENSION PF471(63),PF472(63),PF473(63),PF474(63),PF475(63) + DIMENSION PF476(63),PF477(63),PF478(63),PF479(63),PF480(63) + DIMENSION PF481(63),PF482(63),PF483(63),PF484(63),PF485(63) + DIMENSION PF486(63),PF487(63),PF488(63),PF489(63),PF490(63) + DIMENSION PF491(63),PF492(63),PF493(63),PF494(63),PF495(63) + DIMENSION PF496(63),PF497(63),PF498(63),PF499(63),PF500(63) + DIMENSION PF501(63),PF502(63),PF503(63),PF504(63),PF505(63) + DIMENSION PF506(63),PF507(63),PF508(63),PF509(63),PF510(63) + DIMENSION PF511(63),PF512(63),PF513(63),PF514(63),PF515(63) + DIMENSION PF516(63),PF517(63),PF518(63),PF519(63),PF520(63) + DIMENSION PF521(63),PF522(63),PF523(63),PF524(63),PF525(63) + DIMENSION PF526(63),PF527(63),PF528(63),PF529(63),PF530(63) + DIMENSION PF531(63),PF532(63),PF533(63),PF534(63),PF535(63) + DIMENSION PF536(63),PF537(63),PF538(63),PF539(63),PF540(63) + DIMENSION PF541(63),PF542(63),PF543(63),PF544(63),PF545(63) + DIMENSION PF546(63),PF547(63),PF548(63),PF549(63),PF550(63) + DIMENSION PF551(63),PF552(63),PF553(63),PF554(63),PF555(63) + DIMENSION PF556(63),PF557(63),PF558(63),PF559(63),PF560(63) + EQUIVALENCE (PF001(1),P63(001,1)),(PF002(1),P63(1,002)) + EQUIVALENCE (PF003(1),P63(1,003)),(PF004(1),P63(1,004)) + EQUIVALENCE (PF005(1),P63(1,005)),(PF006(1),P63(1,006)) + EQUIVALENCE (PF007(1),P63(1,007)),(PF008(1),P63(1,008)) + EQUIVALENCE (PF009(1),P63(1,009)),(PF010(1),P63(1,010)) + EQUIVALENCE (PF011(1),P63(1,011)),(PF012(1),P63(1,012)) + EQUIVALENCE (PF013(1),P63(1,013)),(PF014(1),P63(1,014)) + EQUIVALENCE (PF015(1),P63(1,015)),(PF016(1),P63(1,016)) + EQUIVALENCE (PF017(1),P63(1,017)),(PF018(1),P63(1,018)) + EQUIVALENCE (PF019(1),P63(1,019)),(PF020(1),P63(1,020)) + EQUIVALENCE (PF021(1),P63(1,021)),(PF022(1),P63(1,022)) + EQUIVALENCE (PF023(1),P63(1,023)),(PF024(1),P63(1,024)) + EQUIVALENCE (PF025(1),P63(1,025)),(PF026(1),P63(1,026)) + EQUIVALENCE (PF027(1),P63(1,027)),(PF028(1),P63(1,028)) + EQUIVALENCE (PF029(1),P63(1,029)),(PF030(1),P63(1,030)) + EQUIVALENCE (PF031(1),P63(1,031)),(PF032(1),P63(1,032)) + EQUIVALENCE (PF033(1),P63(1,033)),(PF034(1),P63(1,034)) + EQUIVALENCE (PF035(1),P63(1,035)),(PF036(1),P63(1,036)) + EQUIVALENCE (PF037(1),P63(1,037)),(PF038(1),P63(1,038)) + EQUIVALENCE (PF039(1),P63(1,039)),(PF040(1),P63(1,040)) + EQUIVALENCE (PF041(1),P63(1,041)),(PF042(1),P63(1,042)) + EQUIVALENCE (PF043(1),P63(1,043)),(PF044(1),P63(1,044)) + EQUIVALENCE (PF045(1),P63(1,045)),(PF046(1),P63(1,046)) + EQUIVALENCE (PF047(1),P63(1,047)),(PF048(1),P63(1,048)) + EQUIVALENCE (PF049(1),P63(1,049)),(PF050(1),P63(1,050)) + EQUIVALENCE (PF051(1),P63(1,051)),(PF052(1),P63(1,052)) + EQUIVALENCE (PF053(1),P63(1,053)),(PF054(1),P63(1,054)) + EQUIVALENCE (PF055(1),P63(1,055)),(PF056(1),P63(1,056)) + EQUIVALENCE (PF057(1),P63(1,057)),(PF058(1),P63(1,058)) + EQUIVALENCE (PF059(1),P63(1,059)),(PF060(1),P63(1,060)) + EQUIVALENCE (PF061(1),P63(1,061)),(PF062(1),P63(1,062)) + EQUIVALENCE (PF063(1),P63(1,063)),(PF064(1),P63(1,064)) + EQUIVALENCE (PF065(1),P63(1,065)),(PF066(1),P63(1,066)) + EQUIVALENCE (PF067(1),P63(1,067)),(PF068(1),P63(1,068)) + EQUIVALENCE (PF069(1),P63(1,069)),(PF070(1),P63(1,070)) + EQUIVALENCE (PF071(1),P63(1,071)),(PF072(1),P63(1,072)) + EQUIVALENCE (PF073(1),P63(1,073)),(PF074(1),P63(1,074)) + EQUIVALENCE (PF075(1),P63(1,075)),(PF076(1),P63(1,076)) + EQUIVALENCE (PF077(1),P63(1,077)),(PF078(1),P63(1,078)) + EQUIVALENCE (PF079(1),P63(1,079)),(PF080(1),P63(1,080)) + EQUIVALENCE (PF081(1),P63(1,081)),(PF082(1),P63(1,082)) + EQUIVALENCE (PF083(1),P63(1,083)),(PF084(1),P63(1,084)) + EQUIVALENCE (PF085(1),P63(1,085)),(PF086(1),P63(1,086)) + EQUIVALENCE (PF087(1),P63(1,087)),(PF088(1),P63(1,088)) + EQUIVALENCE (PF089(1),P63(1,089)),(PF090(1),P63(1,090)) + EQUIVALENCE (PF091(1),P63(1,091)),(PF092(1),P63(1,092)) + EQUIVALENCE (PF093(1),P63(1,093)),(PF094(1),P63(1,094)) + EQUIVALENCE (PF095(1),P63(1,095)),(PF096(1),P63(1,096)) + EQUIVALENCE (PF097(1),P63(1,097)),(PF098(1),P63(1,098)) + EQUIVALENCE (PF099(1),P63(1,099)),(PF100(1),P63(1,100)) + EQUIVALENCE (PF101(1),P63(1,101)),(PF102(1),P63(1,102)) + EQUIVALENCE (PF103(1),P63(1,103)),(PF104(1),P63(1,104)) + EQUIVALENCE (PF105(1),P63(1,105)),(PF106(1),P63(1,106)) + EQUIVALENCE (PF107(1),P63(1,107)),(PF108(1),P63(1,108)) + EQUIVALENCE (PF109(1),P63(1,109)),(PF110(1),P63(1,110)) + EQUIVALENCE (PF111(1),P63(1,111)),(PF112(1),P63(1,112)) + EQUIVALENCE (PF113(1),P63(1,113)),(PF114(1),P63(1,114)) + EQUIVALENCE (PF115(1),P63(1,115)),(PF116(1),P63(1,116)) + EQUIVALENCE (PF117(1),P63(1,117)),(PF118(1),P63(1,118)) + EQUIVALENCE (PF119(1),P63(1,119)),(PF120(1),P63(1,120)) + EQUIVALENCE (PF121(1),P63(1,121)),(PF122(1),P63(1,122)) + EQUIVALENCE (PF123(1),P63(1,123)),(PF124(1),P63(1,124)) + EQUIVALENCE (PF125(1),P63(1,125)),(PF126(1),P63(1,126)) + EQUIVALENCE (PF127(1),P63(1,127)),(PF128(1),P63(1,128)) + EQUIVALENCE (PF129(1),P63(1,129)),(PF130(1),P63(1,130)) + EQUIVALENCE (PF131(1),P63(1,131)),(PF132(1),P63(1,132)) + EQUIVALENCE (PF133(1),P63(1,133)),(PF134(1),P63(1,134)) + EQUIVALENCE (PF135(1),P63(1,135)),(PF136(1),P63(1,136)) + EQUIVALENCE (PF137(1),P63(1,137)),(PF138(1),P63(1,138)) + EQUIVALENCE (PF139(1),P63(1,139)),(PF140(1),P63(1,140)) + EQUIVALENCE (PF141(1),P63(1,141)),(PF142(1),P63(1,142)) + EQUIVALENCE (PF143(1),P63(1,143)),(PF144(1),P63(1,144)) + EQUIVALENCE (PF145(1),P63(1,145)),(PF146(1),P63(1,146)) + EQUIVALENCE (PF147(1),P63(1,147)),(PF148(1),P63(1,148)) + EQUIVALENCE (PF149(1),P63(1,149)),(PF150(1),P63(1,150)) + EQUIVALENCE (PF151(1),P63(1,151)),(PF152(1),P63(1,152)) + EQUIVALENCE (PF153(1),P63(1,153)),(PF154(1),P63(1,154)) + EQUIVALENCE (PF155(1),P63(1,155)),(PF156(1),P63(1,156)) + EQUIVALENCE (PF157(1),P63(1,157)),(PF158(1),P63(1,158)) + EQUIVALENCE (PF159(1),P63(1,159)),(PF160(1),P63(1,160)) + EQUIVALENCE (PF161(1),P63(1,161)),(PF162(1),P63(1,162)) + EQUIVALENCE (PF163(1),P63(1,163)),(PF164(1),P63(1,164)) + EQUIVALENCE (PF165(1),P63(1,165)),(PF166(1),P63(1,166)) + EQUIVALENCE (PF167(1),P63(1,167)),(PF168(1),P63(1,168)) + EQUIVALENCE (PF169(1),P63(1,169)),(PF170(1),P63(1,170)) + EQUIVALENCE (PF171(1),P63(1,171)),(PF172(1),P63(1,172)) + EQUIVALENCE (PF173(1),P63(1,173)),(PF174(1),P63(1,174)) + EQUIVALENCE (PF175(1),P63(1,175)),(PF176(1),P63(1,176)) + EQUIVALENCE (PF177(1),P63(1,177)),(PF178(1),P63(1,178)) + EQUIVALENCE (PF179(1),P63(1,179)),(PF180(1),P63(1,180)) + EQUIVALENCE (PF181(1),P63(1,181)),(PF182(1),P63(1,182)) + EQUIVALENCE (PF183(1),P63(1,183)),(PF184(1),P63(1,184)) + EQUIVALENCE (PF185(1),P63(1,185)),(PF186(1),P63(1,186)) + EQUIVALENCE (PF187(1),P63(1,187)),(PF188(1),P63(1,188)) + EQUIVALENCE (PF189(1),P63(1,189)),(PF190(1),P63(1,190)) + EQUIVALENCE (PF191(1),P63(1,191)),(PF192(1),P63(1,192)) + EQUIVALENCE (PF193(1),P63(1,193)),(PF194(1),P63(1,194)) + EQUIVALENCE (PF195(1),P63(1,195)),(PF196(1),P63(1,196)) + EQUIVALENCE (PF197(1),P63(1,197)),(PF198(1),P63(1,198)) + EQUIVALENCE (PF199(1),P63(1,199)),(PF200(1),P63(1,200)) + EQUIVALENCE (PF201(1),P63(1,201)),(PF202(1),P63(1,202)) + EQUIVALENCE (PF203(1),P63(1,203)),(PF204(1),P63(1,204)) + EQUIVALENCE (PF205(1),P63(1,205)),(PF206(1),P63(1,206)) + EQUIVALENCE (PF207(1),P63(1,207)),(PF208(1),P63(1,208)) + EQUIVALENCE (PF209(1),P63(1,209)),(PF210(1),P63(1,210)) + EQUIVALENCE (PF211(1),P63(1,211)),(PF212(1),P63(1,212)) + EQUIVALENCE (PF213(1),P63(1,213)),(PF214(1),P63(1,214)) + EQUIVALENCE (PF215(1),P63(1,215)),(PF216(1),P63(1,216)) + EQUIVALENCE (PF217(1),P63(1,217)),(PF218(1),P63(1,218)) + EQUIVALENCE (PF219(1),P63(1,219)),(PF220(1),P63(1,220)) + EQUIVALENCE (PF221(1),P63(1,221)),(PF222(1),P63(1,222)) + EQUIVALENCE (PF223(1),P63(1,223)),(PF224(1),P63(1,224)) + EQUIVALENCE (PF225(1),P63(1,225)),(PF226(1),P63(1,226)) + EQUIVALENCE (PF227(1),P63(1,227)),(PF228(1),P63(1,228)) + EQUIVALENCE (PF229(1),P63(1,229)),(PF230(1),P63(1,230)) + EQUIVALENCE (PF231(1),P63(1,231)),(PF232(1),P63(1,232)) + EQUIVALENCE (PF233(1),P63(1,233)),(PF234(1),P63(1,234)) + EQUIVALENCE (PF235(1),P63(1,235)),(PF236(1),P63(1,236)) + EQUIVALENCE (PF237(1),P63(1,237)),(PF238(1),P63(1,238)) + EQUIVALENCE (PF239(1),P63(1,239)),(PF240(1),P63(1,240)) + EQUIVALENCE (PF241(1),P63(1,241)),(PF242(1),P63(1,242)) + EQUIVALENCE (PF243(1),P63(1,243)),(PF244(1),P63(1,244)) + EQUIVALENCE (PF245(1),P63(1,245)),(PF246(1),P63(1,246)) + EQUIVALENCE (PF247(1),P63(1,247)),(PF248(1),P63(1,248)) + EQUIVALENCE (PF249(1),P63(1,249)),(PF250(1),P63(1,250)) + EQUIVALENCE (PF251(1),P63(1,251)),(PF252(1),P63(1,252)) + EQUIVALENCE (PF253(1),P63(1,253)),(PF254(1),P63(1,254)) + EQUIVALENCE (PF255(1),P63(1,255)),(PF256(1),P63(1,256)) + EQUIVALENCE (PF257(1),P63(1,257)),(PF258(1),P63(1,258)) + EQUIVALENCE (PF259(1),P63(1,259)),(PF260(1),P63(1,260)) + EQUIVALENCE (PF261(1),P63(1,261)),(PF262(1),P63(1,262)) + EQUIVALENCE (PF263(1),P63(1,263)),(PF264(1),P63(1,264)) + EQUIVALENCE (PF265(1),P63(1,265)),(PF266(1),P63(1,266)) + EQUIVALENCE (PF267(1),P63(1,267)),(PF268(1),P63(1,268)) + EQUIVALENCE (PF269(1),P63(1,269)),(PF270(1),P63(1,270)) + EQUIVALENCE (PF271(1),P63(1,271)),(PF272(1),P63(1,272)) + EQUIVALENCE (PF273(1),P63(1,273)),(PF274(1),P63(1,274)) + EQUIVALENCE (PF275(1),P63(1,275)),(PF276(1),P63(1,276)) + EQUIVALENCE (PF277(1),P63(1,277)),(PF278(1),P63(1,278)) + EQUIVALENCE (PF279(1),P63(1,279)),(PF280(1),P63(1,280)) + EQUIVALENCE (PF281(1),P63(1,281)),(PF282(1),P63(1,282)) + EQUIVALENCE (PF283(1),P63(1,283)),(PF284(1),P63(1,284)) + EQUIVALENCE (PF285(1),P63(1,285)),(PF286(1),P63(1,286)) + EQUIVALENCE (PF287(1),P63(1,287)),(PF288(1),P63(1,288)) + EQUIVALENCE (PF289(1),P63(1,289)),(PF290(1),P63(1,290)) + EQUIVALENCE (PF291(1),P63(1,291)),(PF292(1),P63(1,292)) + EQUIVALENCE (PF293(1),P63(1,293)),(PF294(1),P63(1,294)) + EQUIVALENCE (PF295(1),P63(1,295)),(PF296(1),P63(1,296)) + EQUIVALENCE (PF297(1),P63(1,297)),(PF298(1),P63(1,298)) + EQUIVALENCE (PF299(1),P63(1,299)),(PF300(1),P63(1,300)) + EQUIVALENCE (PF301(1),P63(1,301)),(PF302(1),P63(1,302)) + EQUIVALENCE (PF303(1),P63(1,303)),(PF304(1),P63(1,304)) + EQUIVALENCE (PF305(1),P63(1,305)),(PF306(1),P63(1,306)) + EQUIVALENCE (PF307(1),P63(1,307)),(PF308(1),P63(1,308)) + EQUIVALENCE (PF309(1),P63(1,309)),(PF310(1),P63(1,310)) + EQUIVALENCE (PF311(1),P63(1,311)),(PF312(1),P63(1,312)) + EQUIVALENCE (PF313(1),P63(1,313)),(PF314(1),P63(1,314)) + EQUIVALENCE (PF315(1),P63(1,315)),(PF316(1),P63(1,316)) + EQUIVALENCE (PF317(1),P63(1,317)),(PF318(1),P63(1,318)) + EQUIVALENCE (PF319(1),P63(1,319)),(PF320(1),P63(1,320)) + EQUIVALENCE (PF321(1),P63(1,321)),(PF322(1),P63(1,322)) + EQUIVALENCE (PF323(1),P63(1,323)),(PF324(1),P63(1,324)) + EQUIVALENCE (PF325(1),P63(1,325)),(PF326(1),P63(1,326)) + EQUIVALENCE (PF327(1),P63(1,327)),(PF328(1),P63(1,328)) + EQUIVALENCE (PF329(1),P63(1,329)),(PF330(1),P63(1,330)) + EQUIVALENCE (PF331(1),P63(1,331)),(PF332(1),P63(1,332)) + EQUIVALENCE (PF333(1),P63(1,333)),(PF334(1),P63(1,334)) + EQUIVALENCE (PF335(1),P63(1,335)),(PF336(1),P63(1,336)) + EQUIVALENCE (PF337(1),P63(1,337)),(PF338(1),P63(1,338)) + EQUIVALENCE (PF339(1),P63(1,339)),(PF340(1),P63(1,340)) + EQUIVALENCE (PF341(1),P63(1,341)),(PF342(1),P63(1,342)) + EQUIVALENCE (PF343(1),P63(1,343)),(PF344(1),P63(1,344)) + EQUIVALENCE (PF345(1),P63(1,345)),(PF346(1),P63(1,346)) + EQUIVALENCE (PF347(1),P63(1,347)),(PF348(1),P63(1,348)) + EQUIVALENCE (PF349(1),P63(1,349)),(PF350(1),P63(1,350)) + EQUIVALENCE (PF351(1),P63(1,351)),(PF352(1),P63(1,352)) + EQUIVALENCE (PF353(1),P63(1,353)),(PF354(1),P63(1,354)) + EQUIVALENCE (PF355(1),P63(1,355)),(PF356(1),P63(1,356)) + EQUIVALENCE (PF357(1),P63(1,357)),(PF358(1),P63(1,358)) + EQUIVALENCE (PF359(1),P63(1,359)),(PF360(1),P63(1,360)) + EQUIVALENCE (PF361(1),P63(1,361)),(PF362(1),P63(1,362)) + EQUIVALENCE (PF363(1),P63(1,363)),(PF364(1),P63(1,364)) + EQUIVALENCE (PF365(1),P63(1,365)),(PF366(1),P63(1,366)) + EQUIVALENCE (PF367(1),P63(1,367)),(PF368(1),P63(1,368)) + EQUIVALENCE (PF369(1),P63(1,369)),(PF370(1),P63(1,370)) + EQUIVALENCE (PF371(1),P63(1,371)),(PF372(1),P63(1,372)) + EQUIVALENCE (PF373(1),P63(1,373)),(PF374(1),P63(1,374)) + EQUIVALENCE (PF375(1),P63(1,375)),(PF376(1),P63(1,376)) + EQUIVALENCE (PF377(1),P63(1,377)),(PF378(1),P63(1,378)) + EQUIVALENCE (PF379(1),P63(1,379)),(PF380(1),P63(1,380)) + EQUIVALENCE (PF381(1),P63(1,381)),(PF382(1),P63(1,382)) + EQUIVALENCE (PF383(1),P63(1,383)),(PF384(1),P63(1,384)) + EQUIVALENCE (PF385(1),P63(1,385)),(PF386(1),P63(1,386)) + EQUIVALENCE (PF387(1),P63(1,387)),(PF388(1),P63(1,388)) + EQUIVALENCE (PF389(1),P63(1,389)),(PF390(1),P63(1,390)) + EQUIVALENCE (PF391(1),P63(1,391)),(PF392(1),P63(1,392)) + EQUIVALENCE (PF393(1),P63(1,393)),(PF394(1),P63(1,394)) + EQUIVALENCE (PF395(1),P63(1,395)),(PF396(1),P63(1,396)) + EQUIVALENCE (PF397(1),P63(1,397)),(PF398(1),P63(1,398)) + EQUIVALENCE (PF399(1),P63(1,399)),(PF400(1),P63(1,400)) + EQUIVALENCE (PF401(1),P63(1,401)),(PF402(1),P63(1,402)) + EQUIVALENCE (PF403(1),P63(1,403)),(PF404(1),P63(1,404)) + EQUIVALENCE (PF405(1),P63(1,405)),(PF406(1),P63(1,406)) + EQUIVALENCE (PF407(1),P63(1,407)),(PF408(1),P63(1,408)) + EQUIVALENCE (PF409(1),P63(1,409)),(PF410(1),P63(1,410)) + EQUIVALENCE (PF411(1),P63(1,411)),(PF412(1),P63(1,412)) + EQUIVALENCE (PF413(1),P63(1,413)),(PF414(1),P63(1,414)) + EQUIVALENCE (PF415(1),P63(1,415)),(PF416(1),P63(1,416)) + EQUIVALENCE (PF417(1),P63(1,417)),(PF418(1),P63(1,418)) + EQUIVALENCE (PF419(1),P63(1,419)),(PF420(1),P63(1,420)) + EQUIVALENCE (PF421(1),P63(1,421)),(PF422(1),P63(1,422)) + EQUIVALENCE (PF423(1),P63(1,423)),(PF424(1),P63(1,424)) + EQUIVALENCE (PF425(1),P63(1,425)),(PF426(1),P63(1,426)) + EQUIVALENCE (PF427(1),P63(1,427)),(PF428(1),P63(1,428)) + EQUIVALENCE (PF429(1),P63(1,429)),(PF430(1),P63(1,430)) + EQUIVALENCE (PF431(1),P63(1,431)),(PF432(1),P63(1,432)) + EQUIVALENCE (PF433(1),P63(1,433)),(PF434(1),P63(1,434)) + EQUIVALENCE (PF435(1),P63(1,435)),(PF436(1),P63(1,436)) + EQUIVALENCE (PF437(1),P63(1,437)),(PF438(1),P63(1,438)) + EQUIVALENCE (PF439(1),P63(1,439)),(PF440(1),P63(1,440)) + EQUIVALENCE (PF441(1),P63(1,441)),(PF442(1),P63(1,442)) + EQUIVALENCE (PF443(1),P63(1,443)),(PF444(1),P63(1,444)) + EQUIVALENCE (PF445(1),P63(1,445)),(PF446(1),P63(1,446)) + EQUIVALENCE (PF447(1),P63(1,447)),(PF448(1),P63(1,448)) + EQUIVALENCE (PF449(1),P63(1,449)),(PF450(1),P63(1,450)) + EQUIVALENCE (PF451(1),P63(1,451)),(PF452(1),P63(1,452)) + EQUIVALENCE (PF453(1),P63(1,453)),(PF454(1),P63(1,454)) + EQUIVALENCE (PF455(1),P63(1,455)),(PF456(1),P63(1,456)) + EQUIVALENCE (PF457(1),P63(1,457)),(PF458(1),P63(1,458)) + EQUIVALENCE (PF459(1),P63(1,459)),(PF460(1),P63(1,460)) + EQUIVALENCE (PF461(1),P63(1,461)),(PF462(1),P63(1,462)) + EQUIVALENCE (PF463(1),P63(1,463)),(PF464(1),P63(1,464)) + EQUIVALENCE (PF465(1),P63(1,465)),(PF466(1),P63(1,466)) + EQUIVALENCE (PF467(1),P63(1,467)),(PF468(1),P63(1,468)) + EQUIVALENCE (PF469(1),P63(1,469)),(PF470(1),P63(1,470)) + EQUIVALENCE (PF471(1),P63(1,471)),(PF472(1),P63(1,472)) + EQUIVALENCE (PF473(1),P63(1,473)),(PF474(1),P63(1,474)) + EQUIVALENCE (PF475(1),P63(1,475)),(PF476(1),P63(1,476)) + EQUIVALENCE (PF477(1),P63(1,477)),(PF478(1),P63(1,478)) + EQUIVALENCE (PF479(1),P63(1,479)),(PF480(1),P63(1,480)) + EQUIVALENCE (PF481(1),P63(1,481)),(PF482(1),P63(1,482)) + EQUIVALENCE (PF483(1),P63(1,483)),(PF484(1),P63(1,484)) + EQUIVALENCE (PF485(1),P63(1,485)),(PF486(1),P63(1,486)) + EQUIVALENCE (PF487(1),P63(1,487)),(PF488(1),P63(1,488)) + EQUIVALENCE (PF489(1),P63(1,489)),(PF490(1),P63(1,490)) + EQUIVALENCE (PF491(1),P63(1,491)),(PF492(1),P63(1,492)) + EQUIVALENCE (PF493(1),P63(1,493)),(PF494(1),P63(1,494)) + EQUIVALENCE (PF495(1),P63(1,495)),(PF496(1),P63(1,496)) + EQUIVALENCE (PF497(1),P63(1,497)),(PF498(1),P63(1,498)) + EQUIVALENCE (PF499(1),P63(1,499)),(PF500(1),P63(1,500)) + EQUIVALENCE (PF501(1),P63(1,501)),(PF502(1),P63(1,502)) + EQUIVALENCE (PF503(1),P63(1,503)),(PF504(1),P63(1,504)) + EQUIVALENCE (PF505(1),P63(1,505)),(PF506(1),P63(1,506)) + EQUIVALENCE (PF507(1),P63(1,507)),(PF508(1),P63(1,508)) + EQUIVALENCE (PF509(1),P63(1,509)),(PF510(1),P63(1,510)) + EQUIVALENCE (PF511(1),P63(1,511)),(PF512(1),P63(1,512)) + EQUIVALENCE (PF513(1),P63(1,513)),(PF514(1),P63(1,514)) + EQUIVALENCE (PF515(1),P63(1,515)),(PF516(1),P63(1,516)) + EQUIVALENCE (PF517(1),P63(1,517)),(PF518(1),P63(1,518)) + EQUIVALENCE (PF519(1),P63(1,519)),(PF520(1),P63(1,520)) + EQUIVALENCE (PF521(1),P63(1,521)),(PF522(1),P63(1,522)) + EQUIVALENCE (PF523(1),P63(1,523)),(PF524(1),P63(1,524)) + EQUIVALENCE (PF525(1),P63(1,525)),(PF526(1),P63(1,526)) + EQUIVALENCE (PF527(1),P63(1,527)),(PF528(1),P63(1,528)) + EQUIVALENCE (PF529(1),P63(1,529)),(PF530(1),P63(1,530)) + EQUIVALENCE (PF531(1),P63(1,531)),(PF532(1),P63(1,532)) + EQUIVALENCE (PF533(1),P63(1,533)),(PF534(1),P63(1,534)) + EQUIVALENCE (PF535(1),P63(1,535)),(PF536(1),P63(1,536)) + EQUIVALENCE (PF537(1),P63(1,537)),(PF538(1),P63(1,538)) + EQUIVALENCE (PF539(1),P63(1,539)),(PF540(1),P63(1,540)) + EQUIVALENCE (PF541(1),P63(1,541)),(PF542(1),P63(1,542)) + EQUIVALENCE (PF543(1),P63(1,543)),(PF544(1),P63(1,544)) + EQUIVALENCE (PF545(1),P63(1,545)),(PF546(1),P63(1,546)) + EQUIVALENCE (PF547(1),P63(1,547)),(PF548(1),P63(1,548)) + EQUIVALENCE (PF549(1),P63(1,549)),(PF550(1),P63(1,550)) + EQUIVALENCE (PF551(1),P63(1,551)),(PF552(1),P63(1,552)) + EQUIVALENCE (PF553(1),P63(1,553)),(PF554(1),P63(1,554)) + EQUIVALENCE (PF555(1),P63(1,555)),(PF556(1),P63(1,556)) + EQUIVALENCE (PF557(1),P63(1,557)),(PF558(1),P63(1,558)) + EQUIVALENCE (PF559(1),P63(1,559)),(PF560(1),P63(1,560)) + DATA PF001/ + 1 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, + 2 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, + 3 1.001, 1.001, 1.001, 1.001, 1.001, 1.001, 1.001, + 4 1.001, 1.001, 1.001, 1.001, 1.001, 1.001, 1.001, + 5 1.002, 1.002, 1.002, 1.002, 1.002, 1.002, 1.001, + 6 1.002, 1.002, 1.002, 1.002, 1.002, 1.002, 1.002, + 7 1.004, 1.004, 1.004, 1.004, 1.004, 1.004, 1.003, + 8 1.005, 1.005, 1.005, 1.005, 1.005, 1.005, 1.004, + 9 1.007, 1.007, 1.007, 1.007, 1.007, 1.007, 1.006/ + DATA PF002/ + 1 1.010, 1.010, 1.010, 1.010, 1.010, 1.010, 1.009, + 2 1.015, 1.015, 1.015, 1.015, 1.015, 1.015, 1.012, + 3 1.020, 1.020, 1.020, 1.020, 1.020, 1.020, 1.016, + 4 1.027, 1.027, 1.027, 1.027, 1.027, 1.027, 1.021, + 5 1.036, 1.036, 1.036, 1.036, 1.036, 1.036, 1.028, + 6 1.048, 1.048, 1.048, 1.048, 1.048, 1.048, 1.036, + 7 1.064, 1.064, 1.064, 1.064, 1.064, 1.063, 1.046, + 8 1.083, 1.083, 1.083, 1.083, 1.083, 1.082, 1.059, + 9 1.107, 1.107, 1.107, 1.107, 1.106, 1.106, 1.074/ + DATA PF003/ + 1 1.137, 1.137, 1.136, 1.136, 1.136, 1.134, 1.092, + 2 1.173, 1.173, 1.173, 1.172, 1.172, 1.169, 1.113, + 3 1.245, 1.244, 1.243, 1.242, 1.240, 1.235, 1.151, + 4 1.341, 1.340, 1.336, 1.333, 1.330, 1.321, 1.198, + 5 1.470, 1.467, 1.460, 1.454, 1.447, 1.430, 1.256, + 6 1.643, 1.638, 1.623, 1.610, 1.596, 1.566, 1.324, + 7 1.877, 1.866, 1.837, 1.810, 1.785, 1.733, 1.405, + 8 2.193, 2.172, 2.117, 2.067, 2.022, 1.934, 1.498, + 9 2.623, 2.584, 2.484, 2.393, 2.314, 2.174, 1.604/ + DATA PF004/ + 1 3.208, 3.139, 2.963, 2.805, 2.673, 2.455, 1.723, + 2 4.003, 3.886, 3.586, 3.323, 3.109, 2.780, 1.856, + 3 5.079, 4.886, 4.396, 3.969, 3.634, 3.151, 2.001, + 4 7.740, 7.327, 6.292, 5.407, 4.743, 3.874, 2.271, + 5 11.943, 11.130, 9.114, 7.417, 6.196, 4.732, 2.573, + 6 18.324, 16.837, 13.185, 10.154, 8.052, 5.718, 2.901, + 7 27.604, 25.059, 18.856, 13.773, 10.361, 6.824, 3.252, + 8 40.529, 36.419, 26.474, 18.417, 13.161, 8.037, 3.618, + 9 57.791, 51.489, 36.344, 24.194, 16.470, 9.338, 3.994/ + DATA PF005/ + 1 79.950, 70.728, 48.693, 31.173, 20.285, 10.708, 4.375, + 2 107.373, 94.424, 63.648, 39.369, 24.584, 12.126, 4.755, + 3 140.190, 122.667, 81.214, 48.743, 29.320, 13.570, 5.129, + 4 178.280, 155.336, 101.281, 59.203, 34.433, 15.022, 5.494, + 5 221.284, 192.109, 123.627, 70.616, 39.851, 16.463, 5.847, + 6 268.640, 232.499, 147.943, 82.815, 45.493, 17.877, 6.184, + 7 319.634, 275.893, 173.857, 95.612, 51.276, 19.251, 6.505, + 8 373.448, 321.597, 200.957, 108.812, 57.120, 20.573, 6.807, + 9 429.222, 368.884, 228.823, 122.221, 62.948, 21.836, 7.090/ + DATA PF006/ + 1 486.101, 417.035, 257.045, 135.655, 68.694, 23.033, 7.355, + 2 543.273, 465.369, 285.238, 148.949, 74.299, 24.160, 7.600, + 3 600.000, 513.270, 313.063, 161.960, 79.715, 25.215, 7.826, + 4 655.640, 560.204, 340.224, 174.566, 84.903, 26.198, 8.034, + 5 709.651, 605.723, 366.480, 186.673, 89.835, 27.109, 8.226, + 6 761.599, 649.468, 391.641, 198.207, 94.492, 27.949, 8.400, + 7 811.155, 691.168, 415.563, 209.116, 98.862, 28.722, 8.559, + 8 858.081, 730.629, 438.150, 219.370, 102.941, 29.431, 8.704, + 9 902.226, 767.732, 459.345, 228.952, 106.728, 30.078, 8.835/ + DATA PF007/ + 1 943.513, 802.414, 479.121, 237.861, 110.229, 30.668, 8.954, + 2 981.926, 834.668, 497.484, 246.106, 113.453, 31.205, 9.062, + 3 2.001, 2.001, 2.001, 2.001, 2.001, 2.001, 2.001, + 4 2.001, 2.001, 2.001, 2.001, 2.001, 2.001, 2.001, + 5 2.002, 2.002, 2.002, 2.002, 2.002, 2.002, 2.002, + 6 2.003, 2.003, 2.003, 2.003, 2.003, 2.003, 2.003, + 7 2.004, 2.004, 2.004, 2.004, 2.004, 2.004, 2.004, + 8 2.006, 2.006, 2.006, 2.006, 2.006, 2.006, 2.006, + 9 2.008, 2.008, 2.008, 2.008, 2.008, 2.008, 2.008/ + DATA PF008/ + 1 2.011, 2.011, 2.011, 2.011, 2.011, 2.011, 2.011, + 2 2.015, 2.015, 2.015, 2.015, 2.015, 2.015, 2.015, + 3 2.020, 2.020, 2.020, 2.020, 2.020, 2.020, 2.020, + 4 2.026, 2.026, 2.026, 2.026, 2.026, 2.026, 2.026, + 5 2.034, 2.034, 2.034, 2.034, 2.034, 2.034, 2.034, + 6 2.044, 2.044, 2.044, 2.044, 2.044, 2.044, 2.044, + 7 2.057, 2.057, 2.057, 2.057, 2.057, 2.057, 2.057, + 8 2.072, 2.072, 2.072, 2.072, 2.072, 2.072, 2.072, + 9 2.090, 2.090, 2.090, 2.090, 2.090, 2.090, 2.090/ + DATA PF009/ + 1 2.111, 2.111, 2.111, 2.111, 2.111, 2.111, 2.111, + 2 2.137, 2.137, 2.137, 2.137, 2.137, 2.137, 2.137, + 3 2.166, 2.166, 2.166, 2.166, 2.166, 2.166, 2.166, + 4 2.201, 2.201, 2.201, 2.201, 2.201, 2.201, 2.201, + 5 2.262, 2.262, 2.262, 2.262, 2.262, 2.262, 2.262, + 6 2.337, 2.337, 2.337, 2.337, 2.337, 2.337, 2.337, + 7 2.426, 2.426, 2.426, 2.426, 2.426, 2.426, 2.426, + 8 2.532, 2.532, 2.532, 2.532, 2.532, 2.532, 2.532, + 9 2.654, 2.654, 2.654, 2.654, 2.654, 2.654, 2.654/ + DATA PF010/ + 1 2.795, 2.795, 2.795, 2.795, 2.795, 2.795, 2.795, + 2 2.956, 2.956, 2.956, 2.956, 2.955, 2.955, 2.955, + 3 3.136, 3.136, 3.136, 3.136, 3.136, 3.136, 3.135, + 4 3.337, 3.337, 3.337, 3.337, 3.337, 3.337, 3.336, + 5 3.561, 3.561, 3.561, 3.561, 3.560, 3.559, 3.557, + 6 3.986, 3.986, 3.986, 3.985, 3.982, 3.979, 3.974, + 7 4.487, 4.487, 4.487, 4.486, 4.476, 4.465, 4.450, + 8 5.091, 5.091, 5.090, 5.087, 5.055, 5.024, 4.988, + 9 5.845, 5.845, 5.843, 5.835, 5.749, 5.668, 5.587/ + DATA PF011/ + 1 6.839, 6.839, 6.834, 6.812, 6.603, 6.418, 6.251, + 2 8.210, 8.210, 8.199, 8.150, 7.690, 7.298, 6.981, + 3 10.161, 10.161, 10.137, 10.036, 9.104, 8.342, 7.778, + 4 12.952, 12.952, 12.906, 12.712, 10.968, 9.588, 8.644, + 5 16.896, 16.896, 16.813, 16.467, 13.414, 11.073, 9.579, + 6 22.330, 22.330, 22.190, 21.610, 16.582, 12.830, 10.579, + 7 29.582, 29.582, 29.360, 28.441, 20.599, 14.885, 11.641, + 8 38.941, 38.941, 38.605, 37.219, 25.564, 17.251, 12.756, + 9 50.615, 50.615, 50.129, 48.131, 31.540, 19.929, 13.915/ + DATA PF012/ + 1 64.715, 64.715, 64.040, 61.273, 38.543, 22.903, 15.106, + 2 81.239, 81.239, 80.334, 76.633, 46.543, 26.147, 16.318, + 3 100.071, 100.071, 98.896, 94.102, 55.463, 29.620, 17.537, + 4 120.997, 120.997, 119.513, 113.476, 65.190, 33.278, 18.750, + 5 143.719, 143.719, 141.894, 134.478, 75.583, 37.068, 19.947, + 6 167.885, 167.885, 165.689, 156.781, 86.480, 40.937, 21.115, + 7 193.110, 193.110, 190.520, 180.032, 97.715, 44.833, 22.246, + 8 219.001, 219.001, 216.001, 203.870, 109.124, 48.709, 23.333, + 9 245.178, 245.178, 241.759, 227.946, 120.549, 52.521, 24.369/ + DATA PF013/ + 1 271.290, 271.290, 267.447, 251.942, 131.852, 56.232, 25.351, + 2 297.023, 297.023, 292.759, 275.570, 142.909, 59.812, 26.274, + 3 322.110, 322.110, 317.432, 298.590, 153.619, 63.237, 27.139, + 4 346.332, 346.332, 341.251, 320.802, 163.900, 66.488, 27.944, + 5 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, + 6 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, + 7 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, + 8 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, + 9 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 1.000/ + DATA PF014/ + 1 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, + 2 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, + 3 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, + 4 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, + 5 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, + 6 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, + 7 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, + 8 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, + 9 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 1.000/ + DATA PF015/ + 1 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, + 2 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, + 3 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, + 4 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, + 5 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, + 6 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, + 7 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, + 8 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, + 9 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 1.000/ + DATA PF016/ + 1 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, + 2 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, + 3 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, + 4 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, + 5 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, + 6 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, + 7 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, + 8 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, + 9 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 1.000/ + DATA PF017/ + 1 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, + 2 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, + 3 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, + 4 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, + 5 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, + 6 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, + 7 1.001, 1.001, 1.001, 1.001, 1.001, 1.001, 1.001, + 8 1.003, 1.003, 1.003, 1.003, 1.003, 1.003, 1.003, + 9 1.010, 1.010, 1.010, 1.010, 1.010, 1.010, 1.010/ + DATA PF018/ + 1 1.029, 1.029, 1.029, 1.029, 1.029, 1.028, 1.027, + 2 1.076, 1.076, 1.076, 1.076, 1.076, 1.072, 1.068, + 3 1.189, 1.189, 1.189, 1.189, 1.189, 1.171, 1.156, + 4 1.448, 1.448, 1.448, 1.448, 1.448, 1.386, 1.336, + 5 2.015, 2.015, 2.015, 2.015, 2.015, 1.829, 1.679, + 6 3.192, 3.192, 3.192, 3.192, 3.192, 2.692, 2.302, + 7 5.496, 5.496, 5.496, 5.496, 5.495, 4.291, 3.371, + 8 9.727, 9.727, 9.727, 9.727, 9.726, 7.090, 5.113, + 9 17.025, 17.025, 17.025, 17.025, 17.022, 11.723, 7.814/ + DATA PF019/ + 1 28.861, 28.861, 28.861, 28.861, 28.855, 18.980, 11.805, + 2 46.977, 46.977, 46.977, 46.977, 46.967, 29.767, 17.438, + 3 73.250, 73.250, 73.250, 73.250, 73.233, 45.030, 25.055, + 4 109.508, 109.508, 109.508, 109.508, 109.482, 65.657, 34.949, + 5 157.338, 157.338, 157.338, 157.338, 157.299, 92.388, 47.334, + 6 217.901, 217.901, 217.901, 217.901, 217.847, 125.722, 62.321, + 7 4.234, 4.234, 4.234, 4.234, 4.234, 4.234, 4.234, + 8 4.257, 4.257, 4.257, 4.257, 4.257, 4.257, 4.257, + 9 4.282, 4.282, 4.282, 4.282, 4.282, 4.282, 4.282/ + DATA PF020/ + 1 4.308, 4.308, 4.308, 4.308, 4.308, 4.308, 4.308, + 2 4.335, 4.335, 4.335, 4.335, 4.335, 4.335, 4.335, + 3 4.363, 4.363, 4.363, 4.363, 4.363, 4.363, 4.363, + 4 4.392, 4.392, 4.392, 4.392, 4.392, 4.392, 4.392, + 5 4.422, 4.422, 4.422, 4.422, 4.422, 4.422, 4.422, + 6 4.453, 4.453, 4.453, 4.453, 4.453, 4.453, 4.453, + 7 4.484, 4.484, 4.484, 4.484, 4.484, 4.484, 4.484, + 8 4.516, 4.516, 4.516, 4.516, 4.516, 4.516, 4.516, + 9 4.548, 4.548, 4.548, 4.548, 4.548, 4.548, 4.548/ + DATA PF021/ + 1 4.581, 4.581, 4.581, 4.581, 4.581, 4.581, 4.581, + 2 4.615, 4.615, 4.615, 4.615, 4.615, 4.615, 4.615, + 3 4.648, 4.648, 4.648, 4.648, 4.648, 4.648, 4.648, + 4 4.682, 4.682, 4.682, 4.682, 4.682, 4.682, 4.682, + 5 4.716, 4.716, 4.716, 4.716, 4.716, 4.716, 4.716, + 6 4.749, 4.749, 4.749, 4.749, 4.749, 4.749, 4.749, + 7 4.783, 4.783, 4.783, 4.783, 4.783, 4.783, 4.783, + 8 4.817, 4.817, 4.817, 4.817, 4.817, 4.817, 4.817, + 9 4.867, 4.867, 4.867, 4.867, 4.867, 4.867, 4.867/ + DATA PF022/ + 1 4.917, 4.917, 4.917, 4.917, 4.917, 4.917, 4.917, + 2 4.966, 4.966, 4.966, 4.966, 4.966, 4.966, 4.966, + 3 5.014, 5.014, 5.014, 5.014, 5.014, 5.014, 5.014, + 4 5.061, 5.061, 5.061, 5.061, 5.061, 5.061, 5.061, + 5 5.107, 5.107, 5.107, 5.107, 5.107, 5.107, 5.107, + 6 5.152, 5.152, 5.152, 5.152, 5.152, 5.152, 5.152, + 7 5.195, 5.195, 5.195, 5.195, 5.195, 5.195, 5.195, + 8 5.237, 5.237, 5.237, 5.237, 5.237, 5.237, 5.237, + 9 5.277, 5.277, 5.277, 5.277, 5.277, 5.277, 5.277/ + DATA PF023/ + 1 5.341, 5.341, 5.341, 5.341, 5.341, 5.341, 5.341, + 2 5.400, 5.400, 5.400, 5.400, 5.400, 5.400, 5.400, + 3 5.456, 5.456, 5.456, 5.456, 5.456, 5.456, 5.456, + 4 5.507, 5.507, 5.507, 5.507, 5.507, 5.507, 5.507, + 5 5.554, 5.554, 5.554, 5.554, 5.554, 5.554, 5.554, + 6 5.597, 5.597, 5.597, 5.597, 5.597, 5.597, 5.597, + 7 5.637, 5.637, 5.637, 5.637, 5.637, 5.637, 5.637, + 8 5.674, 5.674, 5.674, 5.674, 5.674, 5.674, 5.674, + 9 5.708, 5.708, 5.708, 5.708, 5.708, 5.708, 5.708/ + DATA PF024/ + 1 5.743, 5.743, 5.743, 5.743, 5.743, 5.743, 5.743, + 2 5.782, 5.782, 5.782, 5.782, 5.782, 5.782, 5.782, + 3 5.837, 5.837, 5.837, 5.837, 5.837, 5.837, 5.837, + 4 5.926, 5.926, 5.926, 5.926, 5.926, 5.926, 5.926, + 5 6.084, 6.084, 6.084, 6.084, 6.084, 6.083, 6.083, + 6 6.374, 6.374, 6.374, 6.374, 6.373, 6.372, 6.368, + 7 6.909, 6.909, 6.909, 6.908, 6.906, 6.902, 6.884, + 8 7.897, 7.897, 7.896, 7.895, 7.886, 7.872, 7.809, + 9 9.718, 9.718, 9.717, 9.712, 9.683, 9.637, 9.440/ + DATA PF025/ + 1 13.044, 13.044, 13.041, 13.027, 12.942, 12.813, 12.266, + 2 18.991, 18.991, 18.982, 18.946, 18.727, 18.400, 17.045, + 3 29.280, 29.280, 29.258, 29.174, 28.669, 27.918, 24.875, + 4 46.353, 46.353, 46.308, 46.128, 45.061, 43.487, 37.230, + 5 73.396, 73.396, 73.306, 72.954, 70.877, 67.832, 55.938, + 6 114.209, 114.209, 114.046, 113.406, 109.642, 104.162, 83.077, + 7 172.942, 172.942, 172.665, 171.574, 165.183, 155.929, 120.806, + 8 253.710, 253.710, 253.264, 251.510, 241.265, 226.503, 171.153, + 9 5.678, 5.678, 5.678, 5.678, 5.678, 5.678, 5.678/ + DATA PF026/ + 1 5.733, 5.733, 5.733, 5.733, 5.733, 5.733, 5.733, + 2 5.790, 5.790, 5.790, 5.790, 5.790, 5.790, 5.790, + 3 5.849, 5.849, 5.849, 5.849, 5.849, 5.849, 5.849, + 4 5.910, 5.910, 5.910, 5.910, 5.910, 5.910, 5.910, + 5 5.972, 5.972, 5.972, 5.972, 5.972, 5.972, 5.972, + 6 6.035, 6.035, 6.035, 6.035, 6.035, 6.035, 6.035, + 7 6.099, 6.099, 6.099, 6.099, 6.099, 6.099, 6.099, + 8 6.165, 6.165, 6.165, 6.165, 6.165, 6.165, 6.165, + 9 6.231, 6.231, 6.231, 6.231, 6.231, 6.231, 6.231/ + DATA PF027/ + 1 6.298, 6.298, 6.298, 6.298, 6.298, 6.298, 6.298, + 2 6.365, 6.365, 6.365, 6.365, 6.365, 6.365, 6.365, + 3 6.433, 6.433, 6.433, 6.433, 6.433, 6.433, 6.433, + 4 6.501, 6.501, 6.501, 6.501, 6.501, 6.501, 6.501, + 5 6.570, 6.570, 6.570, 6.570, 6.570, 6.570, 6.570, + 6 6.639, 6.639, 6.639, 6.639, 6.639, 6.639, 6.639, + 7 6.708, 6.708, 6.708, 6.708, 6.708, 6.708, 6.708, + 8 6.777, 6.777, 6.777, 6.777, 6.777, 6.777, 6.777, + 9 6.847, 6.847, 6.847, 6.847, 6.847, 6.847, 6.847/ + DATA PF028/ + 1 6.917, 6.917, 6.917, 6.917, 6.917, 6.917, 6.917, + 2 7.023, 7.023, 7.023, 7.023, 7.023, 7.023, 7.023, + 3 7.130, 7.130, 7.130, 7.130, 7.130, 7.130, 7.130, + 4 7.239, 7.239, 7.239, 7.239, 7.239, 7.239, 7.239, + 5 7.350, 7.350, 7.350, 7.350, 7.350, 7.350, 7.350, + 6 7.463, 7.463, 7.463, 7.463, 7.463, 7.463, 7.463, + 7 7.579, 7.579, 7.579, 7.579, 7.579, 7.579, 7.579, + 8 7.699, 7.699, 7.699, 7.699, 7.699, 7.699, 7.699, + 9 7.822, 7.822, 7.822, 7.822, 7.822, 7.822, 7.822/ + DATA PF029/ + 1 7.950, 7.950, 7.950, 7.950, 7.950, 7.950, 7.950, + 2 8.082, 8.082, 8.082, 8.082, 8.082, 8.082, 8.082, + 3 8.312, 8.312, 8.312, 8.312, 8.312, 8.312, 8.312, + 4 8.555, 8.555, 8.555, 8.555, 8.555, 8.555, 8.555, + 5 8.811, 8.811, 8.811, 8.811, 8.811, 8.811, 8.811, + 6 9.078, 9.078, 9.078, 9.078, 9.078, 9.078, 9.078, + 7 9.355, 9.355, 9.355, 9.355, 9.355, 9.355, 9.355, + 8 9.641, 9.641, 9.641, 9.641, 9.641, 9.641, 9.641, + 9 9.932, 9.932, 9.932, 9.932, 9.932, 9.932, 9.932/ + DATA PF030/ + 1 10.226, 10.226, 10.226, 10.226, 10.226, 10.226, 10.226, + 2 10.523, 10.523, 10.523, 10.523, 10.523, 10.523, 10.523, + 3 10.821, 10.821, 10.821, 10.821, 10.821, 10.821, 10.821, + 4 11.125, 11.125, 11.125, 11.125, 11.125, 11.125, 11.125, + 5 11.443, 11.443, 11.443, 11.443, 11.443, 11.443, 11.443, + 6 11.792, 11.792, 11.792, 11.792, 11.792, 11.792, 11.792, + 7 12.207, 12.207, 12.207, 12.207, 12.207, 12.207, 12.207, + 8 12.740, 12.740, 12.740, 12.740, 12.740, 12.740, 12.740, + 9 13.484, 13.484, 13.484, 13.484, 13.484, 13.484, 13.483/ + DATA PF031/ + 1 14.582, 14.582, 14.582, 14.582, 14.582, 14.581, 14.577, + 2 16.277, 16.276, 16.275, 16.275, 16.274, 16.269, 16.252, + 3 18.975, 18.972, 18.968, 18.967, 18.963, 18.945, 18.883, + 4 23.372, 23.363, 23.347, 23.345, 23.332, 23.274, 23.076, + 5 30.624, 30.598, 30.553, 30.545, 30.508, 30.342, 29.788, + 6 42.569, 42.500, 42.384, 42.364, 42.268, 41.846, 40.458, + 7 61.936, 61.776, 61.506, 61.459, 61.235, 60.265, 57.122, + 8 92.494, 92.154, 91.580, 91.481, 91.008, 88.967, 82.453, + 9 139.043, 138.378, 137.254, 137.060, 136.138, 132.180, 119.707/ + DATA PF032/ + 1 207.208, 205.997, 203.952, 203.601, 201.928, 194.787, 172.533, + 2 4.000, 4.000, 4.000, 4.000, 4.000, 4.000, 4.000, + 3 4.000, 4.000, 4.000, 4.000, 4.000, 4.000, 4.000, + 4 4.000, 4.000, 4.000, 4.000, 4.000, 4.000, 4.000, + 5 4.000, 4.000, 4.000, 4.000, 4.000, 4.000, 4.000, + 6 4.000, 4.000, 4.000, 4.000, 4.000, 4.000, 4.000, + 7 4.000, 4.000, 4.000, 4.000, 4.000, 4.000, 4.000, + 8 4.000, 4.000, 4.000, 4.000, 4.000, 4.000, 4.000, + 9 4.000, 4.000, 4.000, 4.000, 4.000, 4.000, 4.000/ + DATA PF033/ + 1 4.000, 4.000, 4.000, 4.000, 4.000, 4.000, 4.000, + 2 4.000, 4.000, 4.000, 4.000, 4.000, 4.000, 4.000, + 3 4.000, 4.000, 4.000, 4.000, 4.000, 4.000, 4.000, + 4 4.000, 4.000, 4.000, 4.000, 4.000, 4.000, 4.000, + 5 4.000, 4.000, 4.000, 4.000, 4.000, 4.000, 4.000, + 6 4.000, 4.000, 4.000, 4.000, 4.000, 4.000, 4.000, + 7 4.001, 4.001, 4.001, 4.001, 4.001, 4.001, 4.001, + 8 4.001, 4.001, 4.001, 4.001, 4.001, 4.001, 4.001, + 9 4.001, 4.001, 4.001, 4.001, 4.001, 4.001, 4.001/ + DATA PF034/ + 1 4.002, 4.002, 4.002, 4.002, 4.002, 4.002, 4.002, + 2 4.003, 4.003, 4.003, 4.003, 4.003, 4.003, 4.003, + 3 4.004, 4.004, 4.004, 4.004, 4.004, 4.004, 4.004, + 4 4.007, 4.007, 4.007, 4.007, 4.007, 4.007, 4.007, + 5 4.012, 4.012, 4.012, 4.012, 4.012, 4.012, 4.012, + 6 4.018, 4.018, 4.018, 4.018, 4.018, 4.018, 4.018, + 7 4.028, 4.028, 4.028, 4.028, 4.028, 4.028, 4.028, + 8 4.041, 4.041, 4.041, 4.041, 4.041, 4.041, 4.041, + 9 4.060, 4.060, 4.060, 4.060, 4.060, 4.060, 4.060/ + DATA PF035/ + 1 4.085, 4.085, 4.085, 4.085, 4.085, 4.085, 4.085, + 2 4.118, 4.118, 4.118, 4.118, 4.118, 4.118, 4.118, + 3 4.160, 4.160, 4.160, 4.160, 4.160, 4.160, 4.160, + 4 4.213, 4.213, 4.213, 4.213, 4.213, 4.213, 4.213, + 5 4.329, 4.329, 4.329, 4.329, 4.329, 4.329, 4.329, + 6 4.488, 4.488, 4.488, 4.488, 4.488, 4.488, 4.488, + 7 4.696, 4.696, 4.696, 4.696, 4.696, 4.696, 4.696, + 8 4.957, 4.957, 4.957, 4.957, 4.957, 4.957, 4.957, + 9 5.276, 5.276, 5.276, 5.276, 5.276, 5.276, 5.276/ + DATA PF036/ + 1 5.654, 5.654, 5.654, 5.654, 5.654, 5.654, 5.654, + 2 6.089, 6.089, 6.089, 6.089, 6.089, 6.089, 6.089, + 3 6.579, 6.579, 6.579, 6.579, 6.579, 6.579, 6.579, + 4 7.119, 7.119, 7.119, 7.119, 7.119, 7.119, 7.119, + 5 7.705, 7.705, 7.705, 7.705, 7.705, 7.705, 7.705, + 6 8.332, 8.332, 8.332, 8.332, 8.332, 8.332, 8.332, + 7 9.000, 9.000, 9.000, 9.000, 9.000, 9.000, 9.000, + 8 9.712, 9.712, 9.712, 9.712, 9.712, 9.712, 9.712, + 9 10.484, 10.484, 10.484, 10.484, 10.484, 10.484, 10.484/ + DATA PF037/ + 1 11.340, 11.340, 11.340, 11.340, 11.340, 11.340, 11.340, + 2 12.326, 12.326, 12.326, 12.326, 12.326, 12.326, 12.326, + 3 13.518, 13.518, 13.518, 13.518, 13.518, 13.518, 13.518, + 4 15.028, 15.028, 15.028, 15.028, 15.028, 15.028, 15.027, + 5 17.035, 17.035, 17.035, 17.035, 17.034, 17.034, 17.033, + 6 19.821, 19.821, 19.821, 19.821, 19.821, 19.819, 19.815, + 7 23.845, 23.845, 23.844, 23.843, 23.842, 23.838, 23.822, + 8 29.849, 29.848, 29.846, 29.844, 29.838, 29.825, 29.774, + 9 39.023, 39.021, 39.016, 39.010, 38.992, 38.952, 38.804/ + DATA PF038/ + 1 53.190, 53.185, 53.171, 53.156, 53.109, 53.004, 52.625, + 2 74.988, 74.975, 74.941, 74.906, 74.795, 74.550, 73.669, + 3 107.977, 107.948, 107.876, 107.799, 107.560, 107.035, 105.170, + 4 2.283, 2.283, 2.283, 2.283, 2.283, 2.283, 2.283, + 5 2.374, 2.374, 2.374, 2.374, 2.374, 2.374, 2.374, + 6 2.469, 2.469, 2.469, 2.469, 2.469, 2.469, 2.469, + 7 2.567, 2.567, 2.567, 2.567, 2.567, 2.567, 2.567, + 8 2.668, 2.668, 2.668, 2.668, 2.668, 2.668, 2.668, + 9 2.773, 2.773, 2.773, 2.773, 2.773, 2.773, 2.773/ + DATA PF039/ + 1 2.880, 2.880, 2.880, 2.880, 2.880, 2.880, 2.880, + 2 2.990, 2.990, 2.990, 2.990, 2.990, 2.990, 2.990, + 3 3.102, 3.102, 3.102, 3.102, 3.102, 3.102, 3.102, + 4 3.217, 3.217, 3.217, 3.217, 3.217, 3.217, 3.217, + 5 3.334, 3.334, 3.334, 3.334, 3.334, 3.334, 3.334, + 6 3.452, 3.452, 3.452, 3.452, 3.452, 3.452, 3.452, + 7 3.573, 3.573, 3.573, 3.573, 3.573, 3.573, 3.573, + 8 3.694, 3.694, 3.694, 3.694, 3.694, 3.694, 3.694, + 9 3.817, 3.817, 3.817, 3.817, 3.817, 3.817, 3.817/ + DATA PF040/ + 1 3.941, 3.941, 3.941, 3.941, 3.941, 3.941, 3.941, + 2 4.066, 4.066, 4.066, 4.066, 4.066, 4.066, 4.066, + 3 4.192, 4.192, 4.192, 4.192, 4.192, 4.192, 4.192, + 4 4.318, 4.318, 4.318, 4.318, 4.318, 4.318, 4.318, + 5 4.445, 4.445, 4.445, 4.445, 4.445, 4.445, 4.445, + 6 4.635, 4.635, 4.635, 4.635, 4.635, 4.635, 4.635, + 7 4.826, 4.826, 4.826, 4.826, 4.826, 4.826, 4.826, + 8 5.017, 5.017, 5.017, 5.017, 5.017, 5.017, 5.017, + 9 5.209, 5.209, 5.209, 5.209, 5.209, 5.209, 5.209/ + DATA PF041/ + 1 5.401, 5.401, 5.401, 5.401, 5.401, 5.401, 5.401, + 2 5.593, 5.593, 5.593, 5.593, 5.593, 5.593, 5.593, + 3 5.787, 5.787, 5.787, 5.787, 5.787, 5.787, 5.787, + 4 5.981, 5.981, 5.981, 5.981, 5.981, 5.981, 5.981, + 5 6.177, 6.177, 6.177, 6.177, 6.177, 6.177, 6.177, + 6 6.374, 6.374, 6.374, 6.374, 6.374, 6.374, 6.374, + 7 6.707, 6.707, 6.707, 6.707, 6.707, 6.707, 6.707, + 8 7.046, 7.046, 7.046, 7.046, 7.046, 7.046, 7.046, + 9 7.391, 7.391, 7.391, 7.391, 7.391, 7.391, 7.391/ + DATA PF042/ + 1 7.743, 7.743, 7.743, 7.743, 7.743, 7.743, 7.743, + 2 8.099, 8.099, 8.099, 8.099, 8.099, 8.099, 8.099, + 3 8.460, 8.460, 8.460, 8.460, 8.460, 8.460, 8.460, + 4 8.825, 8.825, 8.825, 8.825, 8.825, 8.825, 8.825, + 5 9.193, 9.193, 9.193, 9.193, 9.193, 9.193, 9.193, + 6 9.563, 9.563, 9.563, 9.563, 9.563, 9.563, 9.563, + 7 9.940, 9.940, 9.940, 9.940, 9.940, 9.940, 9.940, + 8 10.327, 10.327, 10.327, 10.327, 10.327, 10.327, 10.327, + 9 10.733, 10.733, 10.733, 10.733, 10.733, 10.733, 10.733/ + DATA PF043/ + 1 11.171, 11.171, 11.171, 11.171, 11.171, 11.171, 11.171, + 2 11.662, 11.662, 11.662, 11.662, 11.662, 11.662, 11.662, + 3 12.233, 12.233, 12.233, 12.233, 12.233, 12.233, 12.233, + 4 12.922, 12.922, 12.922, 12.922, 12.922, 12.922, 12.922, + 5 13.783, 13.783, 13.783, 13.783, 13.783, 13.783, 13.783, + 6 14.889, 14.889, 14.889, 14.889, 14.889, 14.889, 14.889, + 7 16.345, 16.345, 16.345, 16.345, 16.345, 16.345, 16.345, + 8 18.301, 18.301, 18.301, 18.301, 18.301, 18.301, 18.301, + 9 20.976, 20.976, 20.976, 20.976, 20.976, 20.976, 20.976/ + DATA PF044/ + 1 24.698, 24.697, 24.697, 24.697, 24.697, 24.696, 24.695, + 2 29.957, 29.956, 29.956, 29.956, 29.956, 29.953, 29.949, + 3 37.491, 37.488, 37.488, 37.488, 37.488, 37.477, 37.465, + 4 48.370, 48.362, 48.362, 48.362, 48.361, 48.333, 48.300, + 5 64.090, 64.068, 64.068, 64.068, 64.067, 63.999, 63.919, + 6 2.206, 2.206, 2.206, 2.206, 2.206, 2.206, 2.206, + 7 2.235, 2.235, 2.235, 2.235, 2.235, 2.235, 2.235, + 8 2.267, 2.267, 2.267, 2.267, 2.267, 2.267, 2.267, + 9 2.302, 2.302, 2.302, 2.302, 2.302, 2.302, 2.302/ + DATA PF045/ + 1 2.339, 2.339, 2.339, 2.339, 2.339, 2.339, 2.339, + 2 2.379, 2.379, 2.379, 2.379, 2.379, 2.379, 2.379, + 3 2.421, 2.421, 2.421, 2.421, 2.421, 2.421, 2.421, + 4 2.466, 2.466, 2.466, 2.466, 2.466, 2.466, 2.466, + 5 2.514, 2.514, 2.514, 2.514, 2.514, 2.514, 2.514, + 6 2.563, 2.563, 2.563, 2.563, 2.563, 2.563, 2.563, + 7 2.615, 2.615, 2.615, 2.615, 2.615, 2.615, 2.615, + 8 2.669, 2.669, 2.669, 2.669, 2.669, 2.669, 2.669, + 9 2.725, 2.725, 2.725, 2.725, 2.725, 2.725, 2.725/ + DATA PF046/ + 1 2.783, 2.783, 2.783, 2.783, 2.783, 2.783, 2.783, + 2 2.843, 2.843, 2.843, 2.843, 2.843, 2.843, 2.843, + 3 2.904, 2.904, 2.904, 2.904, 2.904, 2.904, 2.904, + 4 2.967, 2.967, 2.967, 2.967, 2.967, 2.967, 2.967, + 5 3.031, 3.031, 3.031, 3.031, 3.031, 3.031, 3.031, + 6 3.095, 3.095, 3.095, 3.095, 3.095, 3.095, 3.095, + 7 3.161, 3.161, 3.161, 3.161, 3.161, 3.161, 3.161, + 8 3.261, 3.261, 3.261, 3.261, 3.261, 3.261, 3.261, + 9 3.362, 3.362, 3.362, 3.362, 3.362, 3.362, 3.362/ + DATA PF047/ + 1 3.464, 3.464, 3.464, 3.464, 3.464, 3.464, 3.464, + 2 3.565, 3.565, 3.565, 3.565, 3.565, 3.565, 3.565, + 3 3.666, 3.666, 3.666, 3.666, 3.666, 3.666, 3.666, + 4 3.767, 3.767, 3.767, 3.767, 3.767, 3.767, 3.767, + 5 3.866, 3.866, 3.866, 3.866, 3.866, 3.866, 3.866, + 6 3.963, 3.963, 3.963, 3.963, 3.963, 3.963, 3.963, + 7 4.059, 4.059, 4.059, 4.059, 4.059, 4.059, 4.059, + 8 4.152, 4.152, 4.152, 4.152, 4.152, 4.152, 4.152, + 9 4.302, 4.302, 4.302, 4.302, 4.302, 4.302, 4.302/ + DATA PF048/ + 1 4.445, 4.445, 4.445, 4.445, 4.445, 4.445, 4.445, + 2 4.579, 4.579, 4.579, 4.579, 4.579, 4.579, 4.579, + 3 4.705, 4.705, 4.705, 4.705, 4.705, 4.705, 4.705, + 4 4.823, 4.823, 4.823, 4.823, 4.823, 4.823, 4.823, + 5 4.933, 4.933, 4.933, 4.933, 4.933, 4.933, 4.933, + 6 5.035, 5.035, 5.035, 5.035, 5.035, 5.035, 5.035, + 7 5.132, 5.132, 5.132, 5.132, 5.132, 5.132, 5.132, + 8 5.226, 5.226, 5.226, 5.226, 5.226, 5.226, 5.226, + 9 5.323, 5.323, 5.323, 5.323, 5.323, 5.323, 5.323/ + DATA PF049/ + 1 5.427, 5.427, 5.427, 5.427, 5.427, 5.427, 5.427, + 2 5.549, 5.549, 5.549, 5.549, 5.549, 5.549, 5.549, + 3 5.701, 5.701, 5.701, 5.701, 5.701, 5.701, 5.701, + 4 5.898, 5.898, 5.898, 5.898, 5.898, 5.898, 5.898, + 5 6.157, 6.157, 6.157, 6.157, 6.157, 6.157, 6.157, + 6 6.498, 6.498, 6.498, 6.498, 6.498, 6.498, 6.498, + 7 6.949, 6.949, 6.949, 6.949, 6.949, 6.949, 6.949, + 8 7.540, 7.540, 7.540, 7.540, 7.540, 7.540, 7.540, + 9 8.316, 8.316, 8.316, 8.316, 8.316, 8.316, 8.316/ + DATA PF050/ + 1 9.333, 9.333, 9.333, 9.333, 9.333, 9.333, 9.333, + 2 10.673, 10.673, 10.673, 10.673, 10.673, 10.673, 10.673, + 3 12.449, 12.449, 12.449, 12.449, 12.449, 12.449, 12.449, + 4 14.822, 14.822, 14.822, 14.822, 14.822, 14.822, 14.821, + 5 18.016, 18.016, 18.016, 18.015, 18.015, 18.014, 18.012, + 6 22.346, 22.346, 22.346, 22.344, 22.343, 22.341, 22.333, + 7 28.243, 28.243, 28.243, 28.240, 28.237, 28.230, 28.209, + 8 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, + 9 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 1.000/ + DATA PF051/ + 1 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, + 2 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, + 3 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, + 4 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, + 5 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, + 6 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, + 7 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, + 8 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, + 9 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 1.000/ + DATA PF052/ + 1 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, + 2 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, + 3 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, + 4 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, + 5 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, + 6 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, + 7 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, + 8 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, + 9 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 1.000/ + DATA PF053/ + 1 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, + 2 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, + 3 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, + 4 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, + 5 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, + 6 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, + 7 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, + 8 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, + 9 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 1.000/ + DATA PF054/ + 1 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, + 2 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, + 3 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, + 4 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, + 5 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, + 6 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, + 7 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, + 8 1.001, 1.001, 1.001, 1.001, 1.001, 1.001, 1.001, + 9 1.002, 1.002, 1.002, 1.002, 1.002, 1.002, 1.002/ + DATA PF055/ + 1 1.005, 1.005, 1.005, 1.005, 1.005, 1.005, 1.005, + 2 1.012, 1.012, 1.012, 1.012, 1.012, 1.012, 1.012, + 3 1.024, 1.024, 1.024, 1.024, 1.024, 1.024, 1.024, + 4 1.047, 1.047, 1.047, 1.047, 1.047, 1.047, 1.047, + 5 1.084, 1.084, 1.084, 1.084, 1.084, 1.084, 1.084, + 6 1.142, 1.142, 1.142, 1.142, 1.142, 1.142, 1.142, + 7 1.228, 1.228, 1.228, 1.228, 1.228, 1.228, 1.228, + 8 1.350, 1.350, 1.350, 1.350, 1.350, 1.350, 1.350, + 9 1.517, 1.517, 1.517, 1.517, 1.517, 1.517, 1.517/ + DATA PF056/ + 1 1.739, 1.739, 1.739, 1.739, 1.739, 1.739, 1.739, + 2 2.028, 2.028, 2.028, 2.028, 2.028, 2.028, 2.028, + 3 2.400, 2.400, 2.400, 2.400, 2.400, 2.400, 2.400, + 4 2.876, 2.876, 2.876, 2.876, 2.876, 2.876, 2.876, + 5 3.482, 3.482, 3.482, 3.482, 3.482, 3.482, 3.482, + 6 4.256, 4.256, 4.256, 4.256, 4.256, 4.256, 4.256, + 7 5.249, 5.249, 5.249, 5.249, 5.249, 5.249, 5.248, + 8 6.533, 6.533, 6.533, 6.533, 6.533, 6.532, 6.532, + 9 8.219, 8.219, 8.218, 8.218, 8.218, 8.216, 8.215/ + DATA PF057/ + 1 2.000, 2.000, 2.000, 2.000, 2.000, 2.000, 2.000, + 2 2.000, 2.000, 2.000, 2.000, 2.000, 2.000, 2.000, + 3 2.000, 2.000, 2.000, 2.000, 2.000, 2.000, 2.000, + 4 2.000, 2.000, 2.000, 2.000, 2.000, 2.000, 2.000, + 5 2.000, 2.000, 2.000, 2.000, 2.000, 2.000, 2.000, + 6 2.000, 2.000, 2.000, 2.000, 2.000, 2.000, 2.000, + 7 2.000, 2.000, 2.000, 2.000, 2.000, 2.000, 2.000, + 8 2.000, 2.000, 2.000, 2.000, 2.000, 2.000, 2.000, + 9 2.000, 2.000, 2.000, 2.000, 2.000, 2.000, 2.000/ + DATA PF058/ + 1 2.000, 2.000, 2.000, 2.000, 2.000, 2.000, 2.000, + 2 2.000, 2.000, 2.000, 2.000, 2.000, 2.000, 2.000, + 3 2.000, 2.000, 2.000, 2.000, 2.000, 2.000, 2.000, + 4 2.000, 2.000, 2.000, 2.000, 2.000, 2.000, 2.000, + 5 2.000, 2.000, 2.000, 2.000, 2.000, 2.000, 2.000, + 6 2.000, 2.000, 2.000, 2.000, 2.000, 2.000, 2.000, + 7 2.000, 2.000, 2.000, 2.000, 2.000, 2.000, 2.000, + 8 2.000, 2.000, 2.000, 2.000, 2.000, 2.000, 2.000, + 9 2.000, 2.000, 2.000, 2.000, 2.000, 2.000, 2.000/ + DATA PF059/ + 1 2.000, 2.000, 2.000, 2.000, 2.000, 2.000, 2.000, + 2 2.000, 2.000, 2.000, 2.000, 2.000, 2.000, 2.000, + 3 2.000, 2.000, 2.000, 2.000, 2.000, 2.000, 2.000, + 4 2.000, 2.000, 2.000, 2.000, 2.000, 2.000, 2.000, + 5 2.000, 2.000, 2.000, 2.000, 2.000, 2.000, 2.000, + 6 2.000, 2.000, 2.000, 2.000, 2.000, 2.000, 2.000, + 7 2.000, 2.000, 2.000, 2.000, 2.000, 2.000, 2.000, + 8 2.000, 2.000, 2.000, 2.000, 2.000, 2.000, 2.000, + 9 2.000, 2.000, 2.000, 2.000, 2.000, 2.000, 2.000/ + DATA PF060/ + 1 2.000, 2.000, 2.000, 2.000, 2.000, 2.000, 2.000, + 2 2.000, 2.000, 2.000, 2.000, 2.000, 2.000, 2.000, + 3 2.000, 2.000, 2.000, 2.000, 2.000, 2.000, 2.000, + 4 2.000, 2.000, 2.000, 2.000, 2.000, 2.000, 2.000, + 5 2.000, 2.000, 2.000, 2.000, 2.000, 2.000, 2.000, + 6 2.000, 2.000, 2.000, 2.000, 2.000, 2.000, 2.000, + 7 2.000, 2.000, 2.000, 2.000, 2.000, 2.000, 2.000, + 8 2.000, 2.000, 2.000, 2.000, 2.000, 2.000, 2.000, + 9 2.000, 2.000, 2.000, 2.000, 2.000, 2.000, 2.000/ + DATA PF061/ + 1 2.000, 2.000, 2.000, 2.000, 2.000, 2.000, 2.000, + 2 2.000, 2.000, 2.000, 2.000, 2.000, 2.000, 2.000, + 3 2.001, 2.001, 2.001, 2.001, 2.001, 2.001, 2.001, + 4 2.002, 2.002, 2.002, 2.002, 2.002, 2.002, 2.002, + 5 2.004, 2.004, 2.004, 2.004, 2.004, 2.004, 2.004, + 6 2.010, 2.010, 2.010, 2.010, 2.010, 2.010, 2.010, + 7 2.020, 2.020, 2.020, 2.020, 2.020, 2.020, 2.020, + 8 2.037, 2.037, 2.037, 2.037, 2.037, 2.037, 2.037, + 9 2.064, 2.064, 2.064, 2.064, 2.064, 2.064, 2.064/ + DATA PF062/ + 1 2.105, 2.105, 2.105, 2.105, 2.105, 2.105, 2.105, + 2 2.165, 2.165, 2.165, 2.165, 2.165, 2.165, 2.165, + 3 2.246, 2.246, 2.246, 2.246, 2.246, 2.246, 2.246, + 4 2.353, 2.353, 2.353, 2.353, 2.353, 2.353, 2.353, + 5 2.491, 2.491, 2.491, 2.491, 2.491, 2.491, 2.491, + 6 2.663, 2.663, 2.663, 2.663, 2.663, 2.663, 2.663, + 7 2.874, 2.874, 2.874, 2.874, 2.874, 2.874, 2.874, + 8 3.128, 3.128, 3.128, 3.128, 3.128, 3.128, 3.128, + 9 3.430, 3.430, 3.430, 3.430, 3.430, 3.430, 3.430/ + DATA PF063/ + 1 3.787, 3.787, 3.787, 3.787, 3.787, 3.787, 3.787, + 2 4.211, 4.211, 4.211, 4.211, 4.211, 4.211, 4.211, + 3 9.354, 9.354, 9.354, 9.354, 9.354, 9.354, 9.354, + 4 9.387, 9.387, 9.387, 9.387, 9.387, 9.387, 9.387, + 5 9.421, 9.421, 9.421, 9.421, 9.421, 9.421, 9.421, + 6 9.457, 9.457, 9.457, 9.457, 9.457, 9.457, 9.457, + 7 9.495, 9.495, 9.495, 9.495, 9.495, 9.495, 9.495, + 8 9.537, 9.537, 9.537, 9.537, 9.537, 9.537, 9.537, + 9 9.584, 9.584, 9.584, 9.584, 9.584, 9.584, 9.584/ + DATA PF064/ + 1 9.637, 9.637, 9.637, 9.637, 9.637, 9.637, 9.637, + 2 9.699, 9.699, 9.699, 9.699, 9.699, 9.699, 9.698, + 3 9.772, 9.772, 9.772, 9.772, 9.772, 9.772, 9.770, + 4 9.858, 9.858, 9.858, 9.858, 9.858, 9.858, 9.855, + 5 9.960, 9.960, 9.960, 9.960, 9.960, 9.960, 9.957, + 6 10.083, 10.082, 10.082, 10.082, 10.082, 10.082, 10.077, + 7 10.229, 10.229, 10.229, 10.229, 10.229, 10.229, 10.220, + 8 10.403, 10.403, 10.403, 10.403, 10.403, 10.403, 10.390, + 9 10.611, 10.611, 10.611, 10.611, 10.611, 10.610, 10.592/ + DATA PF065/ + 1 10.858, 10.858, 10.858, 10.858, 10.857, 10.856, 10.829, + 2 11.150, 11.150, 11.150, 11.149, 11.149, 11.147, 11.108, + 3 11.494, 11.494, 11.493, 11.492, 11.491, 11.488, 11.433, + 4 11.898, 11.897, 11.896, 11.895, 11.892, 11.887, 11.809, + 5 12.634, 12.634, 12.629, 12.626, 12.621, 12.609, 12.483, + 6 13.561, 13.559, 13.548, 13.541, 13.529, 13.503, 13.303, + 7 14.722, 14.717, 14.693, 14.675, 14.649, 14.599, 14.289, + 8 16.177, 16.167, 16.112, 16.074, 16.019, 15.926, 15.457, + 9 18.008, 17.987, 17.870, 17.792, 17.683, 17.517, 16.822/ + DATA PF066/ + 1 20.329, 20.285, 20.051, 19.897, 19.690, 19.404, 18.397, + 2 23.296, 23.212, 22.763, 22.472, 22.095, 21.620, 20.191, + 3 27.127, 26.973, 26.148, 25.621, 24.963, 24.200, 22.210, + 4 32.117, 31.843, 30.389, 29.471, 28.364, 27.175, 24.459, + 5 38.653, 38.183, 35.717, 34.176, 32.377, 30.578, 26.934, + 6 54.380, 53.319, 47.808, 44.423, 40.654, 37.275, 31.551, + 7 78.870, 76.678, 65.393, 58.565, 51.278, 45.346, 36.743, + 8 116.106, 111.918, 90.544, 77.783, 64.665, 54.864, 42.444, + 9 170.857, 163.400, 125.634, 103.350, 81.194, 65.852, 48.570/ + DATA PF067/ + 1 248.339, 235.867, 173.143, 136.519, 101.164, 78.280, 55.027, + 2 353.721, 333.997, 235.411, 178.384, 124.757, 92.065, 61.714, + 3 491.573, 461.898, 314.381, 229.759, 152.010, 107.070, 68.531, + 4 665.346, 622.639, 411.369, 291.073, 182.806, 123.117, 75.382, + 5 876.975, 817.898, 526.913, 362.321, 216.879, 139.995, 82.182, + 6 1126.658, 1047.769, 660.704, 443.051, 253.832, 157.477, 88.852, + 7 1412.836, 1310.754, 811.612, 532.405, 293.168, 175.325, 95.330, + 8 1732.350, 1603.906, 977.792, 629.193, 334.323, 193.308, 101.564, + 9 2080.733, 1923.106,1156.840, 731.982, 376.702, 211.209, 107.513/ + DATA PF068/ + 1 2452.574, 2263.394,1345.978, 839.197, 419.712, 228.834, 113.150, + 2 2841.920, 2619.331,1542.244, 949.224, 462.790, 246.011, 118.455, + 3 3242.643, 2985.336,1742.662,1060.485, 505.420, 262.602, 123.419, + 4 3648.772, 3355.984,1944.389,1171.511, 547.151, 278.493, 128.039, + 5 4054.742, 3726.227,2144.821,1280.989, 587.605, 293.601, 132.320, + 6 4455.578, 4091.563,2341.668,1387.789, 626.476, 307.869, 136.270, + 7 4847.004, 4448.129,2532.996,1490.979, 663.531, 321.261, 139.900, + 8 5225.494, 4792.746,2717.237,1589.826, 698.605, 333.763, 143.226, + 9 5588.269, 5122.915,2893.184,1683.784, 731.590, 345.377, 146.264/ + DATA PF069/ + 1 5933.259, 5436.779,3059.966,1772.481, 762.435, 356.119, 149.031, + 2 6259.042, 5733.071,3217.014,1855.695, 791.131, 366.015, 151.546, + 3 6564.769, 6011.041,3364.020,1933.335, 817.704, 375.099, 153.827, + 4 6850.075, 6270.376,3500.899,2005.419, 842.212, 383.413, 155.891, + 5 15.556, 15.556, 15.556, 15.556, 15.556, 15.556, 15.556, + 6 15.791, 15.791, 15.791, 15.791, 15.791, 15.791, 15.791, + 7 16.041, 16.041, 16.041, 16.041, 16.041, 16.041, 16.041, + 8 16.305, 16.305, 16.305, 16.305, 16.305, 16.305, 16.305, + 9 16.584, 16.584, 16.584, 16.584, 16.584, 16.584, 16.584/ + DATA PF070/ + 1 16.878, 16.878, 16.878, 16.878, 16.878, 16.878, 16.878, + 2 17.189, 17.189, 17.189, 17.189, 17.189, 17.189, 17.189, + 3 17.515, 17.515, 17.515, 17.515, 17.515, 17.515, 17.515, + 4 17.859, 17.859, 17.859, 17.859, 17.859, 17.859, 17.859, + 5 18.219, 18.219, 18.219, 18.219, 18.219, 18.219, 18.219, + 6 18.596, 18.596, 18.596, 18.596, 18.596, 18.596, 18.596, + 7 18.990, 18.990, 18.990, 18.990, 18.990, 18.990, 18.990, + 8 19.402, 19.402, 19.402, 19.402, 19.402, 19.402, 19.402, + 9 19.832, 19.832, 19.832, 19.832, 19.832, 19.832, 19.832/ + DATA PF071/ + 1 20.280, 20.280, 20.280, 20.280, 20.280, 20.280, 20.280, + 2 20.746, 20.746, 20.746, 20.746, 20.746, 20.746, 20.746, + 3 21.230, 21.230, 21.230, 21.230, 21.230, 21.230, 21.230, + 4 21.732, 21.732, 21.732, 21.732, 21.732, 21.732, 21.732, + 5 22.254, 22.254, 22.254, 22.254, 22.254, 22.254, 22.254, + 6 22.794, 22.794, 22.794, 22.794, 22.794, 22.794, 22.794, + 7 23.641, 23.641, 23.641, 23.641, 23.641, 23.641, 23.641, + 8 24.534, 24.534, 24.534, 24.534, 24.534, 24.534, 24.534, + 9 25.473, 25.473, 25.473, 25.473, 25.473, 25.473, 25.473/ + DATA PF072/ + 1 26.461, 26.461, 26.461, 26.461, 26.461, 26.461, 26.461, + 2 27.501, 27.501, 27.501, 27.501, 27.501, 27.501, 27.501, + 3 28.598, 28.598, 28.598, 28.598, 28.598, 28.598, 28.597, + 4 29.754, 29.754, 29.754, 29.754, 29.754, 29.754, 29.753, + 5 30.976, 30.976, 30.976, 30.976, 30.976, 30.976, 30.974, + 6 32.271, 32.271, 32.271, 32.271, 32.270, 32.269, 32.266, + 7 33.647, 33.647, 33.647, 33.647, 33.645, 33.642, 33.635, + 8 36.156, 36.156, 36.156, 36.156, 36.145, 36.132, 36.110, + 9 39.018, 39.018, 39.018, 39.018, 38.976, 38.931, 38.862/ + DATA PF073/ + 1 42.411, 42.411, 42.411, 42.409, 42.271, 42.128, 41.943, + 2 46.669, 46.669, 46.669, 46.665, 46.260, 45.863, 45.412, + 3 52.393, 52.392, 52.392, 52.382, 51.324, 50.338, 49.341, + 4 60.565, 60.564, 60.564, 60.540, 58.053, 55.830, 53.805, + 5 72.662, 72.661, 72.661, 72.608, 67.280, 62.695, 58.880, + 6 90.709, 90.706, 90.706, 90.600, 80.095, 71.350, 64.635, + 7 117.238, 117.232, 117.232, 117.035, 97.795, 82.245, 71.122, + 8 155.145, 155.135, 155.135, 154.792, 121.798, 95.819, 78.368, + 9 207.440, 207.424, 207.424, 206.863, 153.505, 112.455, 86.372/ + DATA PF074/ + 1 276.943, 276.918, 276.918, 276.047, 194.150, 132.429, 95.097, + 2 365.969, 365.932, 365.932, 364.643, 244.663, 155.882, 104.478, + 3 476.062, 476.010, 476.010, 474.181, 305.559, 182.799, 114.419, + 4 607.823, 607.751, 607.751, 605.255, 376.879, 213.005, 124.807, + 5 760.843, 760.746, 760.746, 757.453, 458.184, 246.185, 135.512, + 6 933.747, 933.622, 933.622, 929.404, 548.596, 281.905, 146.401, + 7 1124.328, 1124.172,1124.172,1118.914, 646.881, 319.652, 157.341, + 8 1329.741, 1329.550,1329.550,1323.151, 751.544, 358.862, 168.207, + 9 1546.723, 1546.495,1546.495,1538.872, 860.944, 398.963, 178.885/ + DATA PF075/ + 1 1771.815, 1771.547,1771.547,1762.637, 973.389, 439.396, 189.277, + 2 2001.563, 2001.254,2001.254,1991.015,1087.234, 479.645, 199.302, + 3 2232.679, 2232.328,2232.328,2220.738,1200.942, 519.249, 208.895, + 4 2462.169, 2461.775,2461.775,2448.832,1313.141, 557.815, 218.007, + 5 2687.408, 2686.972,2686.972,2672.690,1422.651, 595.020, 226.606, + 6 2906.191, 2905.714,2905.714,2890.122,1528.502, 630.610, 234.672, + 7 9.237, 9.237, 9.237, 9.237, 9.237, 9.237, 9.237, + 8 9.269, 9.269, 9.269, 9.269, 9.269, 9.269, 9.269, + 9 9.300, 9.300, 9.300, 9.300, 9.300, 9.300, 9.300/ + DATA PF076/ + 1 9.329, 9.329, 9.329, 9.329, 9.329, 9.329, 9.329, + 2 9.358, 9.358, 9.358, 9.358, 9.358, 9.358, 9.358, + 3 9.385, 9.385, 9.385, 9.385, 9.385, 9.385, 9.385, + 4 9.411, 9.411, 9.411, 9.411, 9.411, 9.411, 9.411, + 5 9.437, 9.437, 9.437, 9.437, 9.437, 9.437, 9.437, + 6 9.461, 9.461, 9.461, 9.461, 9.461, 9.461, 9.461, + 7 9.484, 9.484, 9.484, 9.484, 9.484, 9.484, 9.484, + 8 9.506, 9.506, 9.506, 9.506, 9.506, 9.506, 9.506, + 9 9.528, 9.528, 9.528, 9.528, 9.528, 9.528, 9.528/ + DATA PF077/ + 1 9.548, 9.548, 9.548, 9.548, 9.548, 9.548, 9.548, + 2 9.568, 9.568, 9.568, 9.568, 9.568, 9.568, 9.568, + 3 9.587, 9.587, 9.587, 9.587, 9.587, 9.587, 9.587, + 4 9.605, 9.605, 9.605, 9.605, 9.605, 9.605, 9.605, + 5 9.622, 9.622, 9.622, 9.622, 9.622, 9.622, 9.622, + 6 9.639, 9.639, 9.639, 9.639, 9.639, 9.639, 9.639, + 7 9.655, 9.655, 9.655, 9.655, 9.655, 9.655, 9.655, + 8 9.670, 9.670, 9.670, 9.670, 9.670, 9.670, 9.670, + 9 9.693, 9.693, 9.693, 9.693, 9.693, 9.693, 9.693/ + DATA PF078/ + 1 9.714, 9.714, 9.714, 9.714, 9.714, 9.714, 9.714, + 2 9.735, 9.735, 9.735, 9.735, 9.735, 9.735, 9.735, + 3 9.755, 9.755, 9.755, 9.755, 9.755, 9.755, 9.755, + 4 9.775, 9.775, 9.775, 9.775, 9.775, 9.775, 9.775, + 5 9.795, 9.795, 9.795, 9.795, 9.795, 9.795, 9.795, + 6 9.816, 9.816, 9.816, 9.816, 9.816, 9.816, 9.816, + 7 9.837, 9.837, 9.837, 9.837, 9.837, 9.837, 9.837, + 8 9.859, 9.859, 9.859, 9.859, 9.859, 9.859, 9.859, + 9 9.883, 9.883, 9.883, 9.883, 9.883, 9.883, 9.883/ + DATA PF079/ + 1 9.927, 9.927, 9.927, 9.927, 9.927, 9.927, 9.927, + 2 9.979, 9.979, 9.979, 9.979, 9.979, 9.979, 9.979, + 3 10.039, 10.039, 10.039, 10.039, 10.039, 10.039, 10.039, + 4 10.112, 10.112, 10.112, 10.112, 10.112, 10.112, 10.111, + 5 10.199, 10.199, 10.199, 10.199, 10.199, 10.199, 10.198, + 6 10.305, 10.305, 10.305, 10.305, 10.305, 10.305, 10.304, + 7 10.439, 10.439, 10.439, 10.439, 10.439, 10.437, 10.435, + 8 10.615, 10.615, 10.615, 10.615, 10.615, 10.607, 10.599, + 9 10.857, 10.857, 10.857, 10.857, 10.857, 10.832, 10.810/ + DATA PF080/ + 1 11.216, 11.216, 11.216, 11.216, 11.216, 11.144, 11.087, + 2 11.774, 11.774, 11.774, 11.774, 11.774, 11.592, 11.455, + 3 12.664, 12.664, 12.664, 12.664, 12.664, 12.248, 11.950, + 4 14.076, 14.076, 14.076, 14.076, 14.076, 13.210, 12.614, + 5 16.266, 16.266, 16.266, 16.266, 16.266, 14.599, 13.493, + 6 19.542, 19.542, 19.542, 19.542, 19.542, 16.553, 14.635, + 7 24.247, 24.247, 24.247, 24.247, 24.247, 19.219, 16.085, + 8 30.728, 30.728, 30.728, 30.728, 30.728, 22.733, 17.878, + 9 39.295, 39.295, 39.295, 39.295, 39.295, 27.209, 20.037/ + DATA PF081/ + 1 50.193, 50.193, 50.193, 50.193, 50.193, 32.723, 22.568, + 2 63.569, 63.569, 63.569, 63.569, 63.569, 39.308, 25.462, + 3 79.455, 79.455, 79.455, 79.455, 79.455, 46.945, 28.692, + 4 97.769, 97.769, 97.769, 97.769, 97.769, 55.571, 32.220, + 5 118.322, 118.322, 118.322, 118.322, 118.322, 65.078, 35.994, + 6 140.832, 140.832, 140.832, 140.832, 140.832, 75.330, 39.958, + 7 164.953, 164.953, 164.953, 164.953, 164.953, 86.164, 44.052, + 8 190.298, 190.298, 190.298, 190.298, 190.298, 97.412, 48.216, + 9 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 1.000/ + DATA PF082/ + 1 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, + 2 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, + 3 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, + 4 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, + 5 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, + 6 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, + 7 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, + 8 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, + 9 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 1.000/ + DATA PF083/ + 1 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, + 2 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, + 3 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, + 4 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, + 5 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, + 6 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, + 7 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, + 8 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, + 9 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 1.000/ + DATA PF084/ + 1 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, + 2 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, + 3 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, + 4 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, + 5 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, + 6 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, + 7 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, + 8 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, + 9 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 1.000/ + DATA PF085/ + 1 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, + 2 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, + 3 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, + 4 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, + 5 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, + 6 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, + 7 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, + 8 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, + 9 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 1.000/ + DATA PF086/ + 1 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, + 2 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, + 3 1.001, 1.001, 1.001, 1.001, 1.001, 1.001, 1.001, + 4 1.002, 1.002, 1.002, 1.002, 1.002, 1.002, 1.002, + 5 1.006, 1.006, 1.006, 1.006, 1.006, 1.006, 1.006, + 6 1.015, 1.015, 1.015, 1.015, 1.015, 1.015, 1.015, + 7 1.039, 1.039, 1.039, 1.039, 1.039, 1.039, 1.038, + 8 1.089, 1.089, 1.089, 1.089, 1.089, 1.089, 1.089, + 9 1.195, 1.195, 1.195, 1.195, 1.195, 1.195, 1.191/ + DATA PF087/ + 1 1.408, 1.408, 1.408, 1.408, 1.408, 1.408, 1.392, + 2 1.831, 1.831, 1.831, 1.831, 1.830, 1.829, 1.775, + 3 2.656, 2.656, 2.656, 2.656, 2.655, 2.649, 2.485, + 4 4.233, 4.233, 4.233, 4.232, 4.229, 4.214, 3.769, + 5 7.146, 7.146, 7.146, 7.143, 7.137, 7.097, 6.017, + 6 12.293, 12.293, 12.293, 12.286, 12.272, 12.184, 9.799, + 7 20.942, 20.942, 20.942, 20.927, 20.897, 20.716, 15.886, + 8 34.722, 34.722, 34.722, 34.693, 34.636, 34.293, 25.233, + 9 55.558, 55.558, 55.558, 55.507, 55.403, 54.796, 38.927/ + DATA PF088/ + 1 85.515, 85.515, 85.515, 85.429, 85.256, 84.245, 58.092, + 2 4.102, 4.102, 4.102, 4.102, 4.102, 4.102, 4.102, + 3 4.116, 4.116, 4.116, 4.116, 4.116, 4.116, 4.116, + 4 4.132, 4.132, 4.132, 4.132, 4.132, 4.132, 4.132, + 5 4.149, 4.149, 4.149, 4.149, 4.149, 4.149, 4.149, + 6 4.168, 4.168, 4.168, 4.168, 4.168, 4.168, 4.168, + 7 4.188, 4.188, 4.188, 4.188, 4.188, 4.188, 4.188, + 8 4.209, 4.209, 4.209, 4.209, 4.209, 4.209, 4.209, + 9 4.231, 4.231, 4.231, 4.231, 4.231, 4.231, 4.231/ + DATA PF089/ + 1 4.255, 4.255, 4.255, 4.255, 4.255, 4.255, 4.255, + 2 4.279, 4.279, 4.279, 4.279, 4.279, 4.279, 4.279, + 3 4.305, 4.305, 4.305, 4.305, 4.305, 4.305, 4.305, + 4 4.332, 4.332, 4.332, 4.332, 4.332, 4.332, 4.332, + 5 4.360, 4.360, 4.360, 4.360, 4.360, 4.360, 4.360, + 6 4.389, 4.389, 4.389, 4.389, 4.389, 4.389, 4.389, + 7 4.419, 4.419, 4.419, 4.419, 4.419, 4.419, 4.419, + 8 4.449, 4.449, 4.449, 4.449, 4.449, 4.449, 4.449, + 9 4.481, 4.481, 4.481, 4.481, 4.481, 4.481, 4.481/ + DATA PF090/ + 1 4.513, 4.513, 4.513, 4.513, 4.513, 4.513, 4.513, + 2 4.545, 4.545, 4.545, 4.545, 4.545, 4.545, 4.545, + 3 4.578, 4.578, 4.578, 4.578, 4.578, 4.578, 4.578, + 4 4.628, 4.628, 4.628, 4.628, 4.628, 4.628, 4.628, + 5 4.678, 4.678, 4.678, 4.678, 4.678, 4.678, 4.678, + 6 4.729, 4.729, 4.729, 4.729, 4.729, 4.729, 4.729, + 7 4.780, 4.780, 4.780, 4.780, 4.780, 4.780, 4.780, + 8 4.830, 4.830, 4.830, 4.830, 4.830, 4.830, 4.830, + 9 4.880, 4.880, 4.880, 4.880, 4.880, 4.880, 4.880/ + DATA PF091/ + 1 4.930, 4.930, 4.930, 4.930, 4.930, 4.930, 4.930, + 2 4.979, 4.979, 4.979, 4.979, 4.979, 4.979, 4.979, + 3 5.027, 5.027, 5.027, 5.027, 5.027, 5.027, 5.027, + 4 5.073, 5.073, 5.073, 5.073, 5.073, 5.073, 5.073, + 5 5.149, 5.149, 5.149, 5.149, 5.149, 5.149, 5.149, + 6 5.220, 5.220, 5.220, 5.220, 5.220, 5.220, 5.220, + 7 5.287, 5.287, 5.287, 5.287, 5.287, 5.287, 5.287, + 8 5.350, 5.350, 5.350, 5.350, 5.350, 5.350, 5.350, + 9 5.409, 5.409, 5.409, 5.409, 5.409, 5.409, 5.409/ + DATA PF092/ + 1 5.464, 5.464, 5.464, 5.464, 5.464, 5.464, 5.464, + 2 5.515, 5.515, 5.515, 5.515, 5.515, 5.515, 5.515, + 3 5.561, 5.561, 5.561, 5.561, 5.561, 5.561, 5.561, + 4 5.604, 5.604, 5.604, 5.604, 5.604, 5.604, 5.604, + 5 5.645, 5.645, 5.645, 5.645, 5.645, 5.645, 5.645, + 6 5.684, 5.684, 5.684, 5.684, 5.684, 5.684, 5.684, + 7 5.726, 5.726, 5.726, 5.726, 5.726, 5.726, 5.726, + 8 5.779, 5.779, 5.779, 5.779, 5.779, 5.779, 5.779, + 9 5.858, 5.858, 5.858, 5.858, 5.858, 5.858, 5.858/ + DATA PF093/ + 1 5.990, 5.990, 5.990, 5.990, 5.990, 5.990, 5.990, + 2 6.221, 6.221, 6.221, 6.221, 6.221, 6.221, 6.221, + 3 6.622, 6.622, 6.622, 6.622, 6.622, 6.622, 6.621, + 4 7.315, 7.315, 7.315, 7.315, 7.315, 7.314, 7.311, + 5 8.505, 8.505, 8.505, 8.505, 8.504, 8.502, 8.490, + 6 10.554, 10.554, 10.553, 10.551, 10.549, 10.542, 10.500, + 7 14.092, 14.092, 14.088, 14.082, 14.075, 14.055, 13.924, + 8 20.178, 20.177, 20.168, 20.151, 20.130, 20.074, 19.717, + 9 30.487, 30.485, 30.462, 30.420, 30.368, 30.230, 29.357/ + DATA PF094/ + 1 47.479, 47.474, 47.423, 47.327, 47.210, 46.900, 44.965, + 2 74.482, 74.472, 74.366, 74.167, 73.927, 73.290, 69.356, + 3 115.643, 115.624, 115.421, 115.040, 114.581, 113.371, 105.967, + 4 5.346, 5.346, 5.346, 5.346, 5.346, 5.346, 5.346, + 5 5.386, 5.386, 5.386, 5.386, 5.386, 5.386, 5.386, + 6 5.428, 5.428, 5.428, 5.428, 5.428, 5.428, 5.428, + 7 5.472, 5.472, 5.472, 5.472, 5.472, 5.472, 5.472, + 8 5.519, 5.519, 5.519, 5.519, 5.519, 5.519, 5.519, + 9 5.568, 5.568, 5.568, 5.568, 5.568, 5.568, 5.568/ + DATA PF095/ + 1 5.620, 5.620, 5.620, 5.620, 5.620, 5.620, 5.620, + 2 5.673, 5.673, 5.673, 5.673, 5.673, 5.673, 5.673, + 3 5.729, 5.729, 5.729, 5.729, 5.729, 5.729, 5.729, + 4 5.786, 5.786, 5.786, 5.786, 5.786, 5.786, 5.786, + 5 5.846, 5.846, 5.846, 5.846, 5.846, 5.846, 5.846, + 6 5.906, 5.906, 5.906, 5.906, 5.906, 5.906, 5.906, + 7 5.969, 5.969, 5.969, 5.969, 5.969, 5.969, 5.969, + 8 6.032, 6.032, 6.032, 6.032, 6.032, 6.032, 6.032, + 9 6.097, 6.097, 6.097, 6.097, 6.097, 6.097, 6.097/ + DATA PF096/ + 1 6.163, 6.163, 6.163, 6.163, 6.163, 6.163, 6.163, + 2 6.230, 6.230, 6.230, 6.230, 6.230, 6.230, 6.230, + 3 6.298, 6.298, 6.298, 6.298, 6.298, 6.298, 6.298, + 4 6.367, 6.367, 6.367, 6.367, 6.367, 6.367, 6.367, + 5 6.437, 6.437, 6.437, 6.437, 6.437, 6.437, 6.437, + 6 6.543, 6.543, 6.543, 6.543, 6.543, 6.543, 6.543, + 7 6.651, 6.651, 6.651, 6.651, 6.651, 6.651, 6.651, + 8 6.762, 6.762, 6.762, 6.762, 6.762, 6.762, 6.762, + 9 6.874, 6.874, 6.874, 6.874, 6.874, 6.874, 6.874/ + DATA PF097/ + 1 6.989, 6.989, 6.989, 6.989, 6.989, 6.989, 6.989, + 2 7.106, 7.106, 7.106, 7.106, 7.106, 7.106, 7.106, + 3 7.227, 7.227, 7.227, 7.227, 7.227, 7.227, 7.227, + 4 7.351, 7.351, 7.351, 7.351, 7.351, 7.351, 7.351, + 5 7.479, 7.479, 7.479, 7.479, 7.479, 7.479, 7.479, + 6 7.611, 7.611, 7.611, 7.611, 7.611, 7.611, 7.611, + 7 7.842, 7.842, 7.842, 7.842, 7.842, 7.842, 7.842, + 8 8.085, 8.085, 8.085, 8.085, 8.085, 8.085, 8.085, + 9 8.341, 8.341, 8.341, 8.341, 8.341, 8.341, 8.341/ + DATA PF098/ + 1 8.610, 8.610, 8.610, 8.610, 8.610, 8.610, 8.610, + 2 8.890, 8.890, 8.890, 8.890, 8.890, 8.890, 8.890, + 3 9.180, 9.180, 9.180, 9.180, 9.180, 9.180, 9.180, + 4 9.477, 9.477, 9.477, 9.477, 9.477, 9.477, 9.477, + 5 9.780, 9.780, 9.780, 9.780, 9.780, 9.780, 9.780, + 6 10.085, 10.085, 10.085, 10.085, 10.085, 10.085, 10.085, + 7 10.392, 10.392, 10.392, 10.392, 10.392, 10.392, 10.392, + 8 10.700, 10.700, 10.700, 10.700, 10.700, 10.700, 10.700, + 9 11.012, 11.012, 11.012, 11.012, 11.012, 11.012, 11.012/ + DATA PF099/ + 1 11.336, 11.336, 11.336, 11.336, 11.336, 11.336, 11.336, + 2 11.687, 11.687, 11.687, 11.687, 11.687, 11.687, 11.687, + 3 12.096, 12.096, 12.096, 12.096, 12.096, 12.096, 12.096, + 4 12.612, 12.612, 12.612, 12.612, 12.612, 12.612, 12.612, + 5 13.314, 13.314, 13.314, 13.314, 13.314, 13.314, 13.314, + 6 14.321, 14.321, 14.321, 14.321, 14.321, 14.321, 14.320, + 7 15.820, 15.820, 15.820, 15.820, 15.820, 15.820, 15.818, + 8 18.107, 18.107, 18.107, 18.107, 18.107, 18.105, 18.098, + 9 21.666, 21.666, 21.666, 21.666, 21.665, 21.656, 21.632/ + DATA PF100/ + 1 27.301, 27.301, 27.300, 27.299, 27.296, 27.267, 27.184, + 2 36.327, 36.325, 36.323, 36.320, 36.312, 36.225, 35.980, + 3 50.809, 50.804, 50.799, 50.791, 50.769, 50.538, 49.898, + 4 73.811, 73.798, 73.785, 73.767, 73.715, 73.162, 71.656, + 5 109.561, 109.532, 109.504, 109.465, 109.352, 108.149, 104.921, + 6 4.000, 4.000, 4.000, 4.000, 4.000, 4.000, 4.000, + 7 4.000, 4.000, 4.000, 4.000, 4.000, 4.000, 4.000, + 8 4.000, 4.000, 4.000, 4.000, 4.000, 4.000, 4.000, + 9 4.000, 4.000, 4.000, 4.000, 4.000, 4.000, 4.000/ + DATA PF101/ + 1 4.000, 4.000, 4.000, 4.000, 4.000, 4.000, 4.000, + 2 4.000, 4.000, 4.000, 4.000, 4.000, 4.000, 4.000, + 3 4.000, 4.000, 4.000, 4.000, 4.000, 4.000, 4.000, + 4 4.000, 4.000, 4.000, 4.000, 4.000, 4.000, 4.000, + 5 4.000, 4.000, 4.000, 4.000, 4.000, 4.000, 4.000, + 6 4.000, 4.000, 4.000, 4.000, 4.000, 4.000, 4.000, + 7 4.000, 4.000, 4.000, 4.000, 4.000, 4.000, 4.000, + 8 4.000, 4.000, 4.000, 4.000, 4.000, 4.000, 4.000, + 9 4.000, 4.000, 4.000, 4.000, 4.000, 4.000, 4.000/ + DATA PF102/ + 1 4.000, 4.000, 4.000, 4.000, 4.000, 4.000, 4.000, + 2 4.000, 4.000, 4.000, 4.000, 4.000, 4.000, 4.000, + 3 4.000, 4.000, 4.000, 4.000, 4.000, 4.000, 4.000, + 4 4.001, 4.001, 4.001, 4.001, 4.001, 4.001, 4.001, + 5 4.001, 4.001, 4.001, 4.001, 4.001, 4.001, 4.001, + 6 4.001, 4.001, 4.001, 4.001, 4.001, 4.001, 4.001, + 7 4.002, 4.002, 4.002, 4.002, 4.002, 4.002, 4.002, + 8 4.003, 4.003, 4.003, 4.003, 4.003, 4.003, 4.003, + 9 4.006, 4.006, 4.006, 4.006, 4.006, 4.006, 4.006/ + DATA PF103/ + 1 4.009, 4.009, 4.009, 4.009, 4.009, 4.009, 4.009, + 2 4.015, 4.015, 4.015, 4.015, 4.015, 4.015, 4.015, + 3 4.023, 4.023, 4.023, 4.023, 4.023, 4.023, 4.023, + 4 4.035, 4.035, 4.035, 4.035, 4.035, 4.035, 4.035, + 5 4.051, 4.051, 4.051, 4.051, 4.051, 4.051, 4.051, + 6 4.072, 4.072, 4.072, 4.072, 4.072, 4.072, 4.072, + 7 4.101, 4.101, 4.101, 4.101, 4.101, 4.101, 4.101, + 8 4.139, 4.139, 4.139, 4.139, 4.139, 4.139, 4.139, + 9 4.224, 4.224, 4.224, 4.224, 4.224, 4.224, 4.224/ + DATA PF104/ + 1 4.346, 4.346, 4.346, 4.346, 4.346, 4.346, 4.346, + 2 4.510, 4.510, 4.510, 4.510, 4.510, 4.510, 4.510, + 3 4.723, 4.723, 4.723, 4.723, 4.723, 4.723, 4.723, + 4 4.990, 4.990, 4.990, 4.990, 4.990, 4.990, 4.990, + 5 5.316, 5.316, 5.316, 5.316, 5.316, 5.316, 5.316, + 6 5.699, 5.699, 5.699, 5.699, 5.699, 5.699, 5.699, + 7 6.140, 6.140, 6.140, 6.140, 6.140, 6.140, 6.140, + 8 6.635, 6.635, 6.635, 6.635, 6.635, 6.635, 6.635, + 9 7.179, 7.179, 7.179, 7.179, 7.179, 7.179, 7.179/ + DATA PF105/ + 1 7.768, 7.768, 7.768, 7.768, 7.768, 7.768, 7.768, + 2 8.398, 8.398, 8.398, 8.398, 8.398, 8.398, 8.398, + 3 9.067, 9.067, 9.067, 9.067, 9.067, 9.067, 9.067, + 4 9.779, 9.779, 9.779, 9.779, 9.779, 9.779, 9.779, + 5 10.549, 10.549, 10.549, 10.549, 10.549, 10.549, 10.549, + 6 11.401, 11.401, 11.401, 11.401, 11.401, 11.401, 11.401, + 7 12.382, 12.382, 12.382, 12.382, 12.382, 12.382, 12.382, + 8 13.562, 13.562, 13.562, 13.562, 13.562, 13.562, 13.562, + 9 15.049, 15.049, 15.049, 15.049, 15.049, 15.049, 15.049/ + DATA PF106/ + 1 17.007, 17.007, 17.007, 17.007, 17.007, 17.007, 17.007, + 2 19.682, 19.682, 19.682, 19.682, 19.682, 19.682, 19.682, + 3 23.456, 23.456, 23.456, 23.455, 23.455, 23.454, 23.453, + 4 28.929, 28.929, 28.929, 28.928, 28.927, 28.923, 28.919, + 5 37.054, 37.054, 37.054, 37.051, 37.047, 37.035, 37.022, + 6 49.314, 49.314, 49.313, 49.306, 49.294, 49.259, 49.219, + 7 67.932, 67.930, 67.929, 67.910, 67.878, 67.784, 67.681, + 8 1.740, 1.740, 1.740, 1.740, 1.740, 1.740, 1.740, + 9 1.807, 1.807, 1.807, 1.807, 1.807, 1.807, 1.807/ + DATA PF107/ + 1 1.877, 1.877, 1.877, 1.877, 1.877, 1.877, 1.877, + 2 1.952, 1.952, 1.952, 1.952, 1.952, 1.952, 1.952, + 3 2.030, 2.030, 2.030, 2.030, 2.030, 2.030, 2.030, + 4 2.112, 2.112, 2.112, 2.112, 2.112, 2.112, 2.112, + 5 2.197, 2.197, 2.197, 2.197, 2.197, 2.197, 2.197, + 6 2.286, 2.286, 2.286, 2.286, 2.286, 2.286, 2.286, + 7 2.379, 2.379, 2.379, 2.379, 2.379, 2.379, 2.379, + 8 2.475, 2.475, 2.475, 2.475, 2.475, 2.475, 2.475, + 9 2.575, 2.575, 2.575, 2.575, 2.575, 2.575, 2.575/ + DATA PF108/ + 1 2.677, 2.677, 2.677, 2.677, 2.677, 2.677, 2.677, + 2 2.783, 2.783, 2.783, 2.783, 2.783, 2.783, 2.783, + 3 2.892, 2.892, 2.892, 2.892, 2.892, 2.892, 2.892, + 4 3.004, 3.004, 3.004, 3.004, 3.004, 3.004, 3.004, + 5 3.118, 3.118, 3.118, 3.118, 3.118, 3.118, 3.118, + 6 3.234, 3.234, 3.234, 3.234, 3.234, 3.234, 3.234, + 7 3.352, 3.352, 3.352, 3.352, 3.352, 3.352, 3.352, + 8 3.473, 3.473, 3.473, 3.473, 3.473, 3.473, 3.473, + 9 3.595, 3.595, 3.595, 3.595, 3.595, 3.595, 3.595/ + DATA PF109/ + 1 3.782, 3.782, 3.782, 3.782, 3.782, 3.782, 3.782, + 2 3.971, 3.971, 3.971, 3.971, 3.971, 3.971, 3.971, + 3 4.163, 4.163, 4.163, 4.163, 4.163, 4.163, 4.163, + 4 4.358, 4.358, 4.358, 4.358, 4.358, 4.358, 4.358, + 5 4.554, 4.554, 4.554, 4.554, 4.554, 4.554, 4.554, + 6 4.752, 4.752, 4.752, 4.752, 4.752, 4.752, 4.752, + 7 4.952, 4.952, 4.952, 4.952, 4.952, 4.952, 4.952, + 8 5.154, 5.154, 5.154, 5.154, 5.154, 5.154, 5.154, + 9 5.358, 5.358, 5.358, 5.358, 5.358, 5.358, 5.358/ + DATA PF110/ + 1 5.564, 5.564, 5.564, 5.564, 5.564, 5.564, 5.564, + 2 5.912, 5.912, 5.912, 5.912, 5.912, 5.912, 5.912, + 3 6.267, 6.267, 6.267, 6.267, 6.267, 6.267, 6.267, + 4 6.628, 6.628, 6.628, 6.628, 6.628, 6.628, 6.628, + 5 6.996, 6.996, 6.996, 6.996, 6.996, 6.996, 6.996, + 6 7.370, 7.370, 7.370, 7.370, 7.370, 7.370, 7.370, + 7 7.750, 7.750, 7.750, 7.750, 7.750, 7.750, 7.750, + 8 8.134, 8.134, 8.134, 8.134, 8.134, 8.134, 8.134, + 9 8.521, 8.521, 8.521, 8.521, 8.521, 8.521, 8.521/ + DATA PF111/ + 1 8.910, 8.910, 8.910, 8.910, 8.910, 8.910, 8.910, + 2 9.301, 9.301, 9.301, 9.301, 9.301, 9.301, 9.301, + 3 9.697, 9.697, 9.697, 9.697, 9.697, 9.697, 9.697, + 4 10.102, 10.102, 10.102, 10.102, 10.102, 10.102, 10.102, + 5 10.526, 10.526, 10.526, 10.526, 10.526, 10.526, 10.526, + 6 10.980, 10.980, 10.980, 10.980, 10.980, 10.980, 10.980, + 7 11.485, 11.485, 11.485, 11.485, 11.485, 11.485, 11.485, + 8 12.070, 12.070, 12.070, 12.070, 12.070, 12.070, 12.070, + 9 12.771, 12.771, 12.771, 12.771, 12.771, 12.771, 12.771/ + DATA PF112/ + 1 13.642, 13.642, 13.642, 13.642, 13.642, 13.642, 13.642, + 2 14.755, 14.755, 14.755, 14.755, 14.755, 14.755, 14.755, + 3 16.211, 16.211, 16.211, 16.211, 16.211, 16.211, 16.211, + 4 18.151, 18.151, 18.151, 18.151, 18.151, 18.151, 18.151, + 5 20.779, 20.779, 20.779, 20.779, 20.779, 20.779, 20.778, + 6 24.385, 24.385, 24.385, 24.385, 24.385, 24.385, 24.384, + 7 29.401, 29.401, 29.401, 29.401, 29.400, 29.399, 29.397, + 8 36.459, 36.459, 36.459, 36.458, 36.456, 36.453, 36.444, + 9 46.484, 46.484, 46.482, 46.479, 46.474, 46.466, 46.438/ + DATA PF113/ + 1 2.076, 2.076, 2.076, 2.076, 2.076, 2.076, 2.076, + 2 2.090, 2.090, 2.090, 2.090, 2.090, 2.090, 2.090, + 3 2.107, 2.107, 2.107, 2.107, 2.107, 2.107, 2.107, + 4 2.126, 2.126, 2.126, 2.126, 2.126, 2.126, 2.126, + 5 2.148, 2.148, 2.148, 2.148, 2.148, 2.148, 2.148, + 6 2.171, 2.171, 2.171, 2.171, 2.171, 2.171, 2.171, + 7 2.197, 2.197, 2.197, 2.197, 2.197, 2.197, 2.197, + 8 2.226, 2.226, 2.226, 2.226, 2.226, 2.226, 2.226, + 9 2.257, 2.257, 2.257, 2.257, 2.257, 2.257, 2.257/ + DATA PF114/ + 1 2.291, 2.291, 2.291, 2.291, 2.291, 2.291, 2.291, + 2 2.327, 2.327, 2.327, 2.327, 2.327, 2.327, 2.327, + 3 2.366, 2.366, 2.366, 2.366, 2.366, 2.366, 2.366, + 4 2.408, 2.408, 2.408, 2.408, 2.408, 2.408, 2.408, + 5 2.452, 2.452, 2.452, 2.452, 2.452, 2.452, 2.452, + 6 2.499, 2.499, 2.499, 2.499, 2.499, 2.499, 2.499, + 7 2.548, 2.548, 2.548, 2.548, 2.548, 2.548, 2.548, + 8 2.599, 2.599, 2.599, 2.599, 2.599, 2.599, 2.599, + 9 2.652, 2.652, 2.652, 2.652, 2.652, 2.652, 2.652/ + DATA PF115/ + 1 2.708, 2.708, 2.708, 2.708, 2.708, 2.708, 2.708, + 2 2.765, 2.765, 2.765, 2.765, 2.765, 2.765, 2.765, + 3 2.855, 2.855, 2.855, 2.855, 2.855, 2.855, 2.855, + 4 2.947, 2.947, 2.947, 2.947, 2.947, 2.947, 2.947, + 5 3.043, 3.043, 3.043, 3.043, 3.043, 3.043, 3.043, + 6 3.141, 3.141, 3.141, 3.141, 3.141, 3.141, 3.141, + 7 3.240, 3.240, 3.240, 3.240, 3.240, 3.240, 3.240, + 8 3.341, 3.341, 3.341, 3.341, 3.341, 3.341, 3.341, + 9 3.443, 3.443, 3.443, 3.443, 3.443, 3.443, 3.443/ + DATA PF116/ + 1 3.544, 3.544, 3.544, 3.544, 3.544, 3.544, 3.544, + 2 3.646, 3.646, 3.646, 3.646, 3.646, 3.646, 3.646, + 3 3.746, 3.746, 3.746, 3.746, 3.746, 3.746, 3.746, + 4 3.911, 3.911, 3.911, 3.911, 3.911, 3.911, 3.911, + 5 4.071, 4.071, 4.071, 4.071, 4.071, 4.071, 4.071, + 6 4.224, 4.224, 4.224, 4.224, 4.224, 4.224, 4.224, + 7 4.371, 4.371, 4.371, 4.371, 4.371, 4.371, 4.371, + 8 4.510, 4.510, 4.510, 4.510, 4.510, 4.510, 4.510, + 9 4.641, 4.641, 4.641, 4.641, 4.641, 4.641, 4.641/ + DATA PF117/ + 1 4.763, 4.763, 4.763, 4.763, 4.763, 4.763, 4.763, + 2 4.879, 4.879, 4.879, 4.879, 4.879, 4.879, 4.879, + 3 4.988, 4.988, 4.988, 4.988, 4.988, 4.988, 4.988, + 4 5.094, 5.094, 5.094, 5.094, 5.094, 5.094, 5.094, + 5 5.202, 5.202, 5.202, 5.202, 5.202, 5.202, 5.202, + 6 5.319, 5.319, 5.319, 5.319, 5.319, 5.319, 5.319, + 7 5.452, 5.452, 5.452, 5.452, 5.452, 5.452, 5.452, + 8 5.616, 5.616, 5.616, 5.616, 5.616, 5.616, 5.616, + 9 5.824, 5.824, 5.824, 5.824, 5.824, 5.824, 5.824/ + DATA PF118/ + 1 6.096, 6.096, 6.096, 6.096, 6.096, 6.096, 6.096, + 2 6.452, 6.452, 6.452, 6.452, 6.452, 6.452, 6.452, + 3 6.921, 6.921, 6.921, 6.921, 6.921, 6.921, 6.921, + 4 7.538, 7.538, 7.538, 7.538, 7.538, 7.538, 7.538, + 5 8.347, 8.347, 8.347, 8.347, 8.347, 8.347, 8.347, + 6 9.412, 9.412, 9.412, 9.412, 9.412, 9.412, 9.412, + 7 10.816, 10.816, 10.816, 10.816, 10.816, 10.816, 10.816, + 8 12.672, 12.672, 12.672, 12.672, 12.672, 12.672, 12.672, + 9 15.136, 15.136, 15.136, 15.136, 15.136, 15.136, 15.136/ + DATA PF119/ + 1 18.418, 18.418, 18.418, 18.418, 18.418, 18.417, 18.417, + 2 22.807, 22.807, 22.807, 22.806, 22.806, 22.804, 22.803, + 3 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, + 4 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, + 5 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, + 6 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, + 7 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, + 8 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, + 9 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 1.000/ + DATA PF120/ + 1 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, + 2 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, + 3 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, + 4 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, + 5 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, + 6 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, + 7 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, + 8 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, + 9 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 1.000/ + DATA PF121/ + 1 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, + 2 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, + 3 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, + 4 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, + 5 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, + 6 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, + 7 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, + 8 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, + 9 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 1.000/ + DATA PF122/ + 1 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, + 2 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, + 3 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, + 4 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, + 5 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, + 6 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, + 7 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, + 8 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, + 9 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 1.000/ + DATA PF123/ + 1 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, + 2 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, + 3 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, + 4 1.001, 1.001, 1.001, 1.001, 1.001, 1.001, 1.001, + 5 1.002, 1.002, 1.002, 1.002, 1.002, 1.002, 1.002, + 6 1.006, 1.006, 1.006, 1.006, 1.006, 1.006, 1.006, + 7 1.013, 1.013, 1.013, 1.013, 1.013, 1.013, 1.013, + 8 1.026, 1.026, 1.026, 1.026, 1.026, 1.026, 1.026, + 9 1.050, 1.050, 1.050, 1.050, 1.050, 1.050, 1.050/ + DATA PF124/ + 1 1.089, 1.089, 1.089, 1.089, 1.089, 1.089, 1.089, + 2 1.150, 1.150, 1.150, 1.150, 1.150, 1.150, 1.150, + 3 1.239, 1.239, 1.239, 1.239, 1.239, 1.239, 1.239, + 4 1.366, 1.366, 1.366, 1.366, 1.366, 1.366, 1.366, + 5 1.538, 1.538, 1.538, 1.538, 1.538, 1.538, 1.538, + 6 1.767, 1.767, 1.767, 1.767, 1.767, 1.767, 1.767, + 7 2.064, 2.064, 2.064, 2.064, 2.064, 2.064, 2.064, + 8 2.447, 2.447, 2.447, 2.447, 2.447, 2.447, 2.447, + 9 2.936, 2.936, 2.936, 2.936, 2.936, 2.936, 2.936/ + DATA PF125/ + 1 3.559, 3.559, 3.559, 3.559, 3.559, 3.559, 3.559, + 2 4.352, 4.352, 4.352, 4.352, 4.352, 4.352, 4.352, + 3 5.362, 5.362, 5.362, 5.362, 5.362, 5.362, 5.362, + 4 6.658, 6.658, 6.658, 6.658, 6.658, 6.658, 6.657, + 5 18.535, 18.535, 18.535, 18.535, 18.535, 18.535, 18.535, + 6 18.752, 18.752, 18.752, 18.752, 18.752, 18.752, 18.752, + 7 18.985, 18.985, 18.985, 18.985, 18.985, 18.985, 18.985, + 8 19.235, 19.235, 19.235, 19.235, 19.235, 19.235, 19.235, + 9 19.507, 19.507, 19.507, 19.507, 19.507, 19.507, 19.507/ + DATA PF126/ + 1 19.804, 19.804, 19.804, 19.804, 19.804, 19.804, 19.803, + 2 20.128, 20.128, 20.128, 20.128, 20.128, 20.128, 20.128, + 3 20.484, 20.484, 20.484, 20.484, 20.484, 20.484, 20.484, + 4 20.877, 20.877, 20.877, 20.877, 20.877, 20.877, 20.876, + 5 21.312, 21.312, 21.312, 21.312, 21.312, 21.312, 21.310, + 6 21.793, 21.793, 21.793, 21.793, 21.793, 21.793, 21.790, + 7 22.327, 22.327, 22.327, 22.327, 22.327, 22.327, 22.321, + 8 22.920, 22.920, 22.920, 22.920, 22.920, 22.920, 22.911, + 9 23.581, 23.581, 23.581, 23.581, 23.581, 23.581, 23.566/ + DATA PF127/ + 1 24.318, 24.317, 24.317, 24.317, 24.317, 24.317, 24.293, + 2 25.139, 25.139, 25.139, 25.139, 25.139, 25.138, 25.101, + 3 26.056, 26.056, 26.056, 26.055, 26.055, 26.054, 25.997, + 4 27.081, 27.081, 27.080, 27.080, 27.079, 27.077, 26.991, + 5 28.227, 28.227, 28.226, 28.225, 28.224, 28.220, 28.093, + 6 29.511, 29.510, 29.508, 29.506, 29.503, 29.496, 29.312, + 7 31.733, 31.730, 31.724, 31.719, 31.713, 31.697, 31.383, + 8 34.379, 34.372, 34.356, 34.342, 34.328, 34.294, 33.775, + 9 37.545, 37.529, 37.488, 37.457, 37.425, 37.356, 36.524/ + DATA PF128/ + 1 41.362, 41.325, 41.232, 41.160, 41.092, 40.958, 39.662, + 2 46.010, 45.929, 45.726, 45.572, 45.434, 45.185, 43.220, + 3 51.744, 51.574, 51.154, 50.842, 50.574, 50.131, 47.224, + 4 58.920, 58.584, 57.756, 57.154, 56.655, 55.895, 51.695, + 5 68.042, 67.404, 65.844, 64.730, 63.839, 62.583, 56.648, + 6 79.799, 78.639, 75.824, 73.844, 72.314, 70.303, 62.092, + 7 95.116, 93.090, 88.205, 84.822, 82.286, 79.164, 68.025, + 8 131.993, 127.261, 115.968, 108.320, 102.854, 96.755, 78.982, + 9 189.917, 179.842, 156.008, 140.187, 129.345, 118.258, 91.202/ + DATA PF129/ + 1 279.274, 259.512, 213.134, 182.893, 162.928, 144.026, 104.554, + 2 412.955, 376.930, 292.988, 239.112, 204.704, 174.276, 118.868, + 3 605.594, 544.075, 401.634, 311.493, 255.591, 209.058, 133.941, + 4 872.307, 773.192, 544.990, 402.378, 316.216, 248.241, 149.555, + 5 1227.144, 1075.526, 728.194, 513.542, 386.834, 291.515, 165.489, + 6 1681.515, 1460.060, 955.010, 645.975, 467.280, 338.413, 181.529, + 7 2242.879, 1932.476,1227.386, 799.750, 556.974, 388.337, 197.474, + 8 2913.895, 2494.504,1545.219, 973.996, 654.956, 440.605, 213.148, + 9 3692.133, 3143.729,1906.344,1166.966, 759.962, 494.488, 228.399/ + DATA PF130/ + 1 4570.325, 3873.835,2306.737,1376.177, 870.513, 549.252, 243.103, + 2 5537.061, 4675.195,2740.862,1598.609, 985.009, 604.189, 257.162, + 3 6577.779, 5535.696,3202.113,1830.909,1101.824, 658.649, 270.507, + 4 7675.888, 6441.655,3683.277,2069.608,1219.385, 712.055, 283.088, + 5 8813.880, 7378.722,4176.982,2311.297,1336.234, 763.916, 294.879, + 6 9974.329, 8332.684,4676.071,2552.781,1451.076, 813.833, 305.870, + 711140.706, 9290.118,5173.903,2791.186,1562.802, 861.495, 316.067, + 812297.992,10238.870,5664.560,3024.025,1670.504, 906.677, 325.486, + 913433.066,11168.362,6142.975,3249.236,1773.475, 949.232, 334.153/ + DATA PF131/ + 114534.923,12069.755,6604.986,3465.182,1871.195, 989.078, 342.101, + 215594.715,12935.977,7047.331,3670.636,1963.316,1026.195, 349.368, + 316605.689,13761.657,7467.596,3864.749,2049.642,1060.606, 355.993, + 417563.033,14543.000,7864.145,4047.004,2130.106,1092.375, 362.018, + 518463.662,15277.609,8236.023,4217.170,2204.748,1121.595, 367.486, + 619305.992,15964.296,8582.854,4375.258,2273.691,1148.380, 372.439, + 7 38.022, 38.022, 38.022, 38.022, 38.022, 38.022, 38.022, + 8 38.750, 38.750, 38.750, 38.750, 38.750, 38.750, 38.750, + 9 39.484, 39.484, 39.484, 39.484, 39.484, 39.484, 39.484/ + DATA PF132/ + 1 40.226, 40.226, 40.226, 40.226, 40.226, 40.226, 40.226, + 2 40.979, 40.979, 40.979, 40.979, 40.979, 40.979, 40.979, + 3 41.744, 41.744, 41.744, 41.744, 41.744, 41.744, 41.744, + 4 42.525, 42.525, 42.525, 42.525, 42.525, 42.525, 42.525, + 5 43.324, 43.324, 43.324, 43.324, 43.324, 43.324, 43.324, + 6 44.144, 44.144, 44.144, 44.144, 44.144, 44.144, 44.144, + 7 44.987, 44.987, 44.987, 44.987, 44.987, 44.987, 44.987, + 8 45.858, 45.858, 45.858, 45.858, 45.858, 45.858, 45.858, + 9 46.759, 46.759, 46.759, 46.759, 46.759, 46.759, 46.759/ + DATA PF133/ + 1 47.694, 47.694, 47.694, 47.694, 47.694, 47.694, 47.694, + 2 48.666, 48.666, 48.666, 48.666, 48.666, 48.666, 48.666, + 3 49.680, 49.680, 49.680, 49.680, 49.680, 49.680, 49.680, + 4 50.737, 50.737, 50.737, 50.737, 50.737, 50.737, 50.737, + 5 51.842, 51.842, 51.842, 51.842, 51.842, 51.842, 51.842, + 6 52.999, 52.999, 52.999, 52.999, 52.999, 52.999, 52.999, + 7 54.210, 54.210, 54.210, 54.210, 54.210, 54.210, 54.210, + 8 55.479, 55.479, 55.479, 55.479, 55.479, 55.479, 55.479, + 9 57.497, 57.497, 57.497, 57.497, 57.497, 57.497, 57.497/ + DATA PF134/ + 1 59.663, 59.663, 59.663, 59.663, 59.663, 59.663, 59.663, + 2 61.987, 61.987, 61.987, 61.987, 61.987, 61.987, 61.987, + 3 64.480, 64.480, 64.480, 64.480, 64.480, 64.480, 64.480, + 4 67.153, 67.153, 67.153, 67.153, 67.153, 67.153, 67.153, + 5 70.018, 70.018, 70.018, 70.018, 70.018, 70.018, 70.018, + 6 73.090, 73.090, 73.090, 73.090, 73.090, 73.089, 73.089, + 7 76.384, 76.384, 76.384, 76.384, 76.384, 76.384, 76.382, + 8 79.922, 79.922, 79.922, 79.922, 79.921, 79.920, 79.917, + 9 83.727, 83.727, 83.727, 83.727, 83.725, 83.722, 83.714/ + DATA PF135/ + 1 90.755, 90.754, 90.753, 90.751, 90.743, 90.729, 90.700, + 2 98.839, 98.834, 98.829, 98.823, 98.790, 98.735, 98.637, + 3 108.368, 108.349, 108.330, 108.305, 108.188, 108.001, 107.715, + 4 120.040, 119.979, 119.915, 119.832, 119.465, 118.908, 118.165, + 5 135.100, 134.923, 134.737, 134.498, 133.480, 132.004, 130.261, + 6 155.641, 155.178, 154.698, 154.087, 151.558, 148.041, 144.306, + 7 184.928, 183.842, 182.720, 181.313, 175.620, 167.995, 160.616, + 8 227.649, 225.327, 222.938, 219.975, 208.243, 193.040, 179.489, + 9 289.974, 285.401, 280.716, 274.963, 252.616, 224.490, 201.173/ + DATA PF136/ + 1 379.341, 370.978, 362.438, 352.045, 312.358, 263.685, 225.833, + 2 503.946, 489.622, 475.040, 457.435, 391.218, 311.854, 253.527, + 3 671.989, 648.851, 625.359, 597.197, 492.698, 369.980, 284.190, + 4 890.806, 855.330, 819.397, 776.590, 619.657, 438.676, 317.631, + 5 1166.042, 1114.119,1061.638, 999.469, 773.984, 518.105, 353.545, + 6 1500.997, 1428.085,1354.530,1267.829, 956.367, 607.950, 391.531, + 7 1896.253, 1797.579,1698.203,1581.585,1166.211, 707.437, 431.118, + 8 2349.607, 2220.389,2090.450,1938.569,1401.687, 815.395, 471.797, + 9 2856.289, 2691.965,2526.945,2334.740,1659.898, 930.348, 513.050/ + DATA PF137/ + 1 3409.402, 3205.824,3001.630,2764.543,1937.127,1050.626, 554.371, + 2 4000.496, 3754.096,3507.214,3221.363,2229.114,1174.468, 595.294, + 3 4620.192, 4328.088,4035.693,3697.988,2531.345,1300.124, 635.399, + 4 5258.777, 4918.842,4578.856,4187.058,2839.308,1425.932, 674.331, + 5 5906.731, 5517.603,5128.711,4681.440,3148.710,1550.382, 711.798, + 6 6555.144, 6116.202,5677.823,5174.525,3455.635,1672.155, 747.570, + 7 7196.013, 6707.324,6219.556,5660.435,3756.653,1790.145, 781.484, + 8 7822.429, 7284.672,6748.215,6134.143,4048.877,1903.465, 813.428, + 9 17.922, 17.922, 17.922, 17.922, 17.922, 17.922, 17.922/ + DATA PF138/ + 1 18.052, 18.052, 18.052, 18.052, 18.052, 18.052, 18.052, + 2 18.181, 18.181, 18.181, 18.181, 18.181, 18.181, 18.181, + 3 18.307, 18.307, 18.307, 18.307, 18.307, 18.307, 18.307, + 4 18.432, 18.432, 18.432, 18.432, 18.432, 18.432, 18.432, + 5 18.556, 18.556, 18.556, 18.556, 18.556, 18.556, 18.556, + 6 18.680, 18.680, 18.680, 18.680, 18.680, 18.680, 18.680, + 7 18.804, 18.804, 18.804, 18.804, 18.804, 18.804, 18.804, + 8 18.930, 18.930, 18.930, 18.930, 18.930, 18.930, 18.930, + 9 19.057, 19.057, 19.057, 19.057, 19.057, 19.057, 19.057/ + DATA PF139/ + 1 19.188, 19.188, 19.188, 19.188, 19.188, 19.188, 19.188, + 2 19.322, 19.322, 19.322, 19.322, 19.322, 19.322, 19.322, + 3 19.460, 19.460, 19.460, 19.460, 19.460, 19.460, 19.460, + 4 19.604, 19.604, 19.604, 19.604, 19.604, 19.604, 19.604, + 5 19.753, 19.753, 19.753, 19.753, 19.753, 19.753, 19.753, + 6 19.910, 19.910, 19.910, 19.910, 19.910, 19.910, 19.910, + 7 20.074, 20.074, 20.074, 20.074, 20.074, 20.074, 20.074, + 8 20.247, 20.247, 20.247, 20.247, 20.247, 20.247, 20.247, + 9 20.429, 20.429, 20.429, 20.429, 20.429, 20.429, 20.429/ + DATA PF140/ + 1 20.620, 20.620, 20.620, 20.620, 20.620, 20.620, 20.620, + 2 20.928, 20.928, 20.928, 20.928, 20.928, 20.928, 20.928, + 3 21.260, 21.260, 21.260, 21.260, 21.260, 21.260, 21.260, + 4 21.619, 21.619, 21.619, 21.619, 21.619, 21.619, 21.619, + 5 22.006, 22.006, 22.006, 22.006, 22.006, 22.006, 22.006, + 6 22.420, 22.420, 22.420, 22.420, 22.420, 22.420, 22.420, + 7 22.864, 22.864, 22.864, 22.864, 22.864, 22.864, 22.864, + 8 23.336, 23.336, 23.336, 23.336, 23.336, 23.336, 23.336, + 9 23.837, 23.837, 23.837, 23.837, 23.837, 23.837, 23.837/ + DATA PF141/ + 1 24.366, 24.366, 24.366, 24.366, 24.366, 24.366, 24.366, + 2 24.924, 24.924, 24.924, 24.924, 24.924, 24.924, 24.924, + 3 25.917, 25.917, 25.917, 25.917, 25.917, 25.917, 25.917, + 4 26.991, 26.991, 26.991, 26.991, 26.991, 26.991, 26.991, + 5 28.149, 28.149, 28.149, 28.149, 28.149, 28.149, 28.149, + 6 29.397, 29.397, 29.397, 29.397, 29.397, 29.397, 29.397, + 7 30.750, 30.750, 30.750, 30.750, 30.750, 30.750, 30.749, + 8 32.227, 32.227, 32.227, 32.227, 32.227, 32.226, 32.225, + 9 33.865, 33.865, 33.865, 33.865, 33.865, 33.861, 33.856/ + DATA PF142/ + 1 35.729, 35.729, 35.729, 35.729, 35.729, 35.712, 35.692, + 2 37.946, 37.946, 37.946, 37.946, 37.946, 37.882, 37.812, + 3 40.753, 40.753, 40.753, 40.753, 40.752, 40.550, 40.340, + 4 44.589, 44.589, 44.589, 44.589, 44.588, 44.021, 43.461, + 5 50.202, 50.202, 50.202, 50.202, 50.200, 48.779, 47.435, + 6 58.771, 58.771, 58.771, 58.771, 58.766, 55.544, 52.611, + 7 71.993, 71.993, 71.993, 71.993, 71.981, 65.299, 59.417, + 8 92.103, 92.103, 92.103, 92.103, 92.079, 79.276, 68.337, + 9 121.793, 121.793, 121.793, 121.793, 121.751, 98.893, 79.877/ + DATA PF143/ + 1 164.030, 164.030, 164.030, 164.030, 163.957, 125.641, 94.508, + 2 221.774, 221.774, 221.774, 221.774, 221.656, 160.935, 112.621, + 3 297.668, 297.668, 297.668, 297.668, 297.487, 205.960, 134.477, + 4 393.741, 393.741, 393.741, 393.741, 393.476, 261.533, 160.177, + 5 511.174, 511.174, 511.174, 511.174, 510.802, 328.012, 189.649, + 6 650.169, 650.169, 650.169, 650.169, 649.666, 405.252, 222.650, + 7 809.931, 809.931, 809.931, 809.931, 809.272, 492.621, 258.791, + 8 988.744, 988.744, 988.744, 988.744, 987.907, 589.059, 297.568, + 9 1184.138, 1184.138,1184.138,1184.138,1183.100, 693.169, 338.400/ + DATA PF144/ + 1 1393.089, 1393.089,1393.089,1393.089,1391.833, 803.329, 380.665, + 2 8.612, 8.612, 8.612, 8.612, 8.612, 8.612, 8.612, + 3 8.667, 8.667, 8.667, 8.667, 8.667, 8.667, 8.667, + 4 8.720, 8.720, 8.720, 8.720, 8.720, 8.720, 8.720, + 5 8.771, 8.771, 8.771, 8.771, 8.771, 8.771, 8.771, + 6 8.821, 8.821, 8.821, 8.821, 8.821, 8.821, 8.821, + 7 8.868, 8.868, 8.868, 8.868, 8.868, 8.868, 8.868, + 8 8.914, 8.914, 8.914, 8.914, 8.914, 8.914, 8.914, + 9 8.959, 8.959, 8.959, 8.959, 8.959, 8.959, 8.959/ + DATA PF145/ + 1 9.001, 9.001, 9.001, 9.001, 9.001, 9.001, 9.001, + 2 9.043, 9.043, 9.043, 9.043, 9.043, 9.043, 9.043, + 3 9.082, 9.082, 9.082, 9.082, 9.082, 9.082, 9.082, + 4 9.120, 9.120, 9.120, 9.120, 9.120, 9.120, 9.120, + 5 9.157, 9.157, 9.157, 9.157, 9.157, 9.157, 9.157, + 6 9.192, 9.192, 9.192, 9.192, 9.192, 9.192, 9.192, + 7 9.226, 9.226, 9.226, 9.226, 9.226, 9.226, 9.226, + 8 9.259, 9.259, 9.259, 9.259, 9.259, 9.259, 9.259, + 9 9.290, 9.290, 9.290, 9.290, 9.290, 9.290, 9.290/ + DATA PF146/ + 1 9.320, 9.320, 9.320, 9.320, 9.320, 9.320, 9.320, + 2 9.349, 9.349, 9.349, 9.349, 9.349, 9.349, 9.349, + 3 9.377, 9.377, 9.377, 9.377, 9.377, 9.377, 9.377, + 4 9.416, 9.416, 9.416, 9.416, 9.416, 9.416, 9.416, + 5 9.453, 9.453, 9.453, 9.453, 9.453, 9.453, 9.453, + 6 9.488, 9.488, 9.488, 9.488, 9.488, 9.488, 9.488, + 7 9.521, 9.521, 9.521, 9.521, 9.521, 9.521, 9.521, + 8 9.552, 9.552, 9.552, 9.552, 9.552, 9.552, 9.552, + 9 9.581, 9.581, 9.581, 9.581, 9.581, 9.581, 9.581/ + DATA PF147/ + 1 9.608, 9.608, 9.608, 9.608, 9.608, 9.608, 9.608, + 2 9.633, 9.633, 9.633, 9.633, 9.633, 9.633, 9.633, + 3 9.657, 9.657, 9.657, 9.657, 9.657, 9.657, 9.657, + 4 9.679, 9.679, 9.679, 9.679, 9.679, 9.679, 9.679, + 5 9.713, 9.713, 9.713, 9.713, 9.713, 9.713, 9.713, + 6 9.744, 9.744, 9.744, 9.744, 9.744, 9.744, 9.744, + 7 9.772, 9.772, 9.772, 9.772, 9.772, 9.772, 9.772, + 8 9.797, 9.797, 9.797, 9.797, 9.797, 9.797, 9.797, + 9 9.821, 9.821, 9.821, 9.821, 9.821, 9.821, 9.821/ + DATA PF148/ + 1 9.844, 9.844, 9.844, 9.844, 9.844, 9.844, 9.844, + 2 9.867, 9.867, 9.867, 9.867, 9.867, 9.867, 9.867, + 3 9.894, 9.894, 9.894, 9.894, 9.894, 9.894, 9.894, + 4 9.926, 9.926, 9.926, 9.926, 9.926, 9.926, 9.926, + 5 9.969, 9.969, 9.969, 9.969, 9.969, 9.969, 9.968, + 6 10.027, 10.027, 10.027, 10.027, 10.027, 10.027, 10.026, + 7 10.115, 10.115, 10.115, 10.115, 10.115, 10.115, 10.111, + 8 10.255, 10.255, 10.255, 10.255, 10.255, 10.254, 10.243, + 9 10.492, 10.492, 10.492, 10.492, 10.492, 10.492, 10.457/ + DATA PF149/ + 1 10.910, 10.910, 10.910, 10.910, 10.910, 10.910, 10.814, + 2 11.646, 11.646, 11.646, 11.646, 11.646, 11.645, 11.409, + 3 12.913, 12.913, 12.913, 12.913, 12.913, 12.911, 12.383, + 4 15.011, 15.011, 15.011, 15.011, 15.011, 15.007, 13.925, + 5 18.325, 18.325, 18.325, 18.325, 18.325, 18.316, 16.267, + 6 23.306, 23.306, 23.306, 23.306, 23.306, 23.290, 19.670, + 7 30.440, 30.440, 30.440, 30.440, 30.440, 30.413, 24.398, + 8 40.198, 40.198, 40.198, 40.198, 40.198, 40.155, 30.699, + 9 52.986, 52.986, 52.986, 52.986, 52.986, 52.919, 38.767/ + DATA PF150/ + 1 69.098, 69.098, 69.098, 69.098, 69.098, 69.001, 48.728, + 2 88.684, 88.684, 88.684, 88.684, 88.684, 88.550, 60.620, + 3 111.735, 111.735, 111.735, 111.735, 111.735, 111.555, 74.396, + 4 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, + 5 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, + 6 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, + 7 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, + 8 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, + 9 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 1.000/ + DATA PF151/ + 1 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, + 2 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, + 3 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, + 4 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, + 5 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, + 6 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, + 7 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, + 8 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, + 9 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 1.000/ + DATA PF152/ + 1 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, + 2 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, + 3 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, + 4 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, + 5 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, + 6 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, + 7 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, + 8 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, + 9 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 1.000/ + DATA PF153/ + 1 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, + 2 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, + 3 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, + 4 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, + 5 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, + 6 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, + 7 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, + 8 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, + 9 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 1.000/ + DATA PF154/ + 1 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, + 2 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, + 3 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, + 4 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, + 5 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, + 6 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, + 7 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, + 8 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, + 9 1.001, 1.001, 1.001, 1.001, 1.001, 1.001, 1.001/ + DATA PF155/ + 1 1.004, 1.004, 1.004, 1.004, 1.004, 1.004, 1.004, + 2 1.012, 1.012, 1.012, 1.012, 1.012, 1.012, 1.012, + 3 1.031, 1.031, 1.031, 1.031, 1.031, 1.031, 1.031, + 4 1.072, 1.072, 1.072, 1.072, 1.072, 1.072, 1.072, + 5 1.153, 1.153, 1.153, 1.153, 1.153, 1.153, 1.153, + 6 1.308, 1.308, 1.308, 1.308, 1.308, 1.308, 1.308, + 7 1.594, 1.594, 1.594, 1.594, 1.594, 1.593, 1.592, + 8 2.115, 2.115, 2.115, 2.114, 2.113, 2.112, 2.107, + 9 3.061, 3.061, 3.060, 3.059, 3.055, 3.050, 3.034/ + DATA PF156/ + 1 4.768, 4.767, 4.766, 4.762, 4.751, 4.734, 4.686, + 2 7.800, 7.797, 7.794, 7.783, 7.753, 7.708, 7.583, + 3 13.030, 13.023, 13.015, 12.989, 12.918, 12.810, 12.514, + 4 21.713, 21.699, 21.682, 21.624, 21.468, 21.233, 20.597, + 5 35.504, 35.476, 35.442, 35.325, 35.010, 34.541, 33.282, + 6 4.036, 4.036, 4.036, 4.036, 4.036, 4.036, 4.036, + 7 4.043, 4.043, 4.043, 4.043, 4.043, 4.043, 4.043, + 8 4.051, 4.051, 4.051, 4.051, 4.051, 4.051, 4.051, + 9 4.061, 4.061, 4.061, 4.061, 4.061, 4.061, 4.061/ + DATA PF157/ + 1 4.071, 4.071, 4.071, 4.071, 4.071, 4.071, 4.071, + 2 4.082, 4.082, 4.082, 4.082, 4.082, 4.082, 4.082, + 3 4.095, 4.095, 4.095, 4.095, 4.095, 4.095, 4.095, + 4 4.109, 4.109, 4.109, 4.109, 4.109, 4.109, 4.109, + 5 4.124, 4.124, 4.124, 4.124, 4.124, 4.124, 4.124, + 6 4.141, 4.141, 4.141, 4.141, 4.141, 4.141, 4.141, + 7 4.159, 4.159, 4.159, 4.159, 4.159, 4.159, 4.159, + 8 4.178, 4.178, 4.178, 4.178, 4.178, 4.178, 4.178, + 9 4.199, 4.199, 4.199, 4.199, 4.199, 4.199, 4.199/ + DATA PF158/ + 1 4.220, 4.220, 4.220, 4.220, 4.220, 4.220, 4.220, + 2 4.243, 4.243, 4.243, 4.243, 4.243, 4.243, 4.243, + 3 4.267, 4.267, 4.267, 4.267, 4.267, 4.267, 4.267, + 4 4.293, 4.293, 4.293, 4.293, 4.293, 4.293, 4.293, + 5 4.319, 4.319, 4.319, 4.319, 4.319, 4.319, 4.319, + 6 4.347, 4.347, 4.347, 4.347, 4.347, 4.347, 4.347, + 7 4.375, 4.375, 4.375, 4.375, 4.375, 4.375, 4.375, + 8 4.420, 4.420, 4.420, 4.420, 4.420, 4.420, 4.420, + 9 4.466, 4.466, 4.466, 4.466, 4.466, 4.466, 4.466/ + DATA PF159/ + 1 4.513, 4.513, 4.513, 4.513, 4.513, 4.513, 4.513, + 2 4.562, 4.562, 4.562, 4.562, 4.562, 4.562, 4.562, + 3 4.612, 4.612, 4.612, 4.612, 4.612, 4.612, 4.612, + 4 4.662, 4.662, 4.662, 4.662, 4.662, 4.662, 4.662, + 5 4.713, 4.713, 4.713, 4.713, 4.713, 4.713, 4.713, + 6 4.764, 4.764, 4.764, 4.764, 4.764, 4.764, 4.764, + 7 4.814, 4.814, 4.814, 4.814, 4.814, 4.814, 4.814, + 8 4.865, 4.865, 4.865, 4.865, 4.865, 4.865, 4.865, + 9 4.947, 4.947, 4.947, 4.947, 4.947, 4.947, 4.947/ + DATA PF160/ + 1 5.027, 5.027, 5.027, 5.027, 5.027, 5.027, 5.027, + 2 5.105, 5.105, 5.105, 5.105, 5.105, 5.105, 5.105, + 3 5.178, 5.178, 5.178, 5.178, 5.178, 5.178, 5.178, + 4 5.248, 5.248, 5.248, 5.248, 5.248, 5.248, 5.248, + 5 5.314, 5.314, 5.314, 5.314, 5.314, 5.314, 5.314, + 6 5.375, 5.375, 5.375, 5.375, 5.375, 5.375, 5.375, + 7 5.432, 5.432, 5.432, 5.432, 5.432, 5.432, 5.432, + 8 5.485, 5.485, 5.485, 5.485, 5.485, 5.485, 5.485, + 9 5.535, 5.535, 5.535, 5.535, 5.535, 5.535, 5.535/ + DATA PF161/ + 1 5.581, 5.581, 5.581, 5.581, 5.581, 5.581, 5.581, + 2 5.625, 5.625, 5.625, 5.625, 5.625, 5.625, 5.625, + 3 5.672, 5.672, 5.672, 5.672, 5.672, 5.672, 5.672, + 4 5.727, 5.727, 5.727, 5.727, 5.727, 5.727, 5.727, + 5 5.806, 5.806, 5.806, 5.806, 5.806, 5.806, 5.806, + 6 5.934, 5.934, 5.934, 5.934, 5.934, 5.934, 5.934, + 7 6.149, 6.149, 6.149, 6.149, 6.149, 6.149, 6.149, + 8 6.516, 6.516, 6.516, 6.516, 6.516, 6.516, 6.516, + 9 7.131, 7.131, 7.131, 7.131, 7.131, 7.131, 7.131/ + DATA PF162/ + 1 8.151, 8.151, 8.151, 8.151, 8.151, 8.151, 8.150, + 2 9.831, 9.831, 9.831, 9.831, 9.831, 9.830, 9.826, + 3 12.606, 12.606, 12.606, 12.605, 12.604, 12.601, 12.588, + 4 17.212, 17.212, 17.212, 17.210, 17.207, 17.196, 17.155, + 5 24.862, 24.862, 24.862, 24.858, 24.848, 24.818, 24.700, + 6 37.447, 37.447, 37.445, 37.437, 37.410, 37.334, 37.036, + 7 57.715, 57.715, 57.711, 57.691, 57.629, 57.454, 56.773, + 8 5.150, 5.150, 5.150, 5.150, 5.150, 5.150, 5.150, + 9 5.173, 5.173, 5.173, 5.173, 5.173, 5.173, 5.173/ + DATA PF163/ + 1 5.199, 5.199, 5.199, 5.199, 5.199, 5.199, 5.199, + 2 5.227, 5.227, 5.227, 5.227, 5.227, 5.227, 5.227, + 3 5.258, 5.258, 5.258, 5.258, 5.258, 5.258, 5.258, + 4 5.291, 5.291, 5.291, 5.291, 5.291, 5.291, 5.291, + 5 5.327, 5.327, 5.327, 5.327, 5.327, 5.327, 5.327, + 6 5.365, 5.365, 5.365, 5.365, 5.365, 5.365, 5.365, + 7 5.406, 5.406, 5.406, 5.406, 5.406, 5.406, 5.406, + 8 5.450, 5.450, 5.450, 5.450, 5.450, 5.450, 5.450, + 9 5.496, 5.496, 5.496, 5.496, 5.496, 5.496, 5.496/ + DATA PF164/ + 1 5.544, 5.544, 5.544, 5.544, 5.544, 5.544, 5.544, + 2 5.595, 5.595, 5.595, 5.595, 5.595, 5.595, 5.595, + 3 5.648, 5.648, 5.648, 5.648, 5.648, 5.648, 5.648, + 4 5.703, 5.703, 5.703, 5.703, 5.703, 5.703, 5.703, + 5 5.760, 5.760, 5.760, 5.760, 5.760, 5.760, 5.760, + 6 5.818, 5.818, 5.818, 5.818, 5.818, 5.818, 5.818, + 7 5.879, 5.879, 5.879, 5.879, 5.879, 5.879, 5.879, + 8 5.942, 5.942, 5.942, 5.942, 5.942, 5.942, 5.942, + 9 6.006, 6.006, 6.006, 6.006, 6.006, 6.006, 6.006/ + DATA PF165/ + 1 6.105, 6.105, 6.105, 6.105, 6.105, 6.105, 6.105, + 2 6.207, 6.207, 6.207, 6.207, 6.207, 6.207, 6.207, + 3 6.313, 6.313, 6.313, 6.313, 6.313, 6.313, 6.313, + 4 6.421, 6.421, 6.421, 6.421, 6.421, 6.421, 6.421, + 5 6.533, 6.533, 6.533, 6.533, 6.533, 6.533, 6.533, + 6 6.648, 6.648, 6.648, 6.648, 6.648, 6.648, 6.648, + 7 6.767, 6.767, 6.767, 6.767, 6.767, 6.767, 6.767, + 8 6.890, 6.890, 6.890, 6.890, 6.890, 6.890, 6.890, + 9 7.016, 7.016, 7.016, 7.016, 7.016, 7.016, 7.016/ + DATA PF166/ + 1 7.147, 7.147, 7.147, 7.147, 7.147, 7.147, 7.147, + 2 7.375, 7.375, 7.375, 7.375, 7.375, 7.375, 7.375, + 3 7.616, 7.616, 7.616, 7.616, 7.616, 7.616, 7.616, + 4 7.871, 7.871, 7.871, 7.871, 7.871, 7.871, 7.871, + 5 8.140, 8.140, 8.140, 8.140, 8.140, 8.140, 8.140, + 6 8.421, 8.421, 8.421, 8.421, 8.421, 8.421, 8.421, + 7 8.714, 8.714, 8.714, 8.714, 8.714, 8.714, 8.714, + 8 9.017, 9.017, 9.017, 9.017, 9.017, 9.017, 9.017, + 9 9.326, 9.326, 9.326, 9.326, 9.326, 9.326, 9.326/ + DATA PF167/ + 1 9.641, 9.641, 9.641, 9.641, 9.641, 9.641, 9.641, + 2 9.958, 9.958, 9.958, 9.958, 9.958, 9.958, 9.958, + 3 10.275, 10.275, 10.275, 10.275, 10.275, 10.275, 10.275, + 4 10.594, 10.594, 10.594, 10.594, 10.594, 10.594, 10.594, + 5 10.915, 10.915, 10.915, 10.915, 10.915, 10.915, 10.915, + 6 11.247, 11.247, 11.247, 11.247, 11.247, 11.247, 11.247, + 7 11.605, 11.605, 11.605, 11.605, 11.605, 11.605, 11.605, + 8 12.019, 12.019, 12.019, 12.019, 12.019, 12.019, 12.019, + 9 12.537, 12.537, 12.537, 12.537, 12.537, 12.537, 12.537/ + DATA PF168/ + 1 13.234, 13.234, 13.234, 13.234, 13.234, 13.234, 13.234, + 2 14.225, 14.225, 14.225, 14.225, 14.225, 14.225, 14.225, + 3 15.678, 15.678, 15.678, 15.678, 15.678, 15.678, 15.678, + 4 17.850, 17.850, 17.850, 17.850, 17.850, 17.850, 17.849, + 5 21.135, 21.135, 21.135, 21.135, 21.135, 21.134, 21.132, + 6 26.162, 26.162, 26.162, 26.162, 26.160, 26.159, 26.149, + 7 33.937, 33.937, 33.937, 33.935, 33.931, 33.926, 33.891, + 8 46.051, 46.051, 46.051, 46.045, 46.033, 46.019, 45.913, + 9 64.933, 64.933, 64.931, 64.915, 64.884, 64.845, 64.562/ + DATA PF169/ + 1 4.000, 4.000, 4.000, 4.000, 4.000, 4.000, 4.000, + 2 4.000, 4.000, 4.000, 4.000, 4.000, 4.000, 4.000, + 3 4.000, 4.000, 4.000, 4.000, 4.000, 4.000, 4.000, + 4 4.000, 4.000, 4.000, 4.000, 4.000, 4.000, 4.000, + 5 4.000, 4.000, 4.000, 4.000, 4.000, 4.000, 4.000, + 6 4.000, 4.000, 4.000, 4.000, 4.000, 4.000, 4.000, + 7 4.000, 4.000, 4.000, 4.000, 4.000, 4.000, 4.000, + 8 4.000, 4.000, 4.000, 4.000, 4.000, 4.000, 4.000, + 9 4.000, 4.000, 4.000, 4.000, 4.000, 4.000, 4.000/ + DATA PF170/ + 1 4.000, 4.000, 4.000, 4.000, 4.000, 4.000, 4.000, + 2 4.000, 4.000, 4.000, 4.000, 4.000, 4.000, 4.000, + 3 4.000, 4.000, 4.000, 4.000, 4.000, 4.000, 4.000, + 4 4.000, 4.000, 4.000, 4.000, 4.000, 4.000, 4.000, + 5 4.000, 4.000, 4.000, 4.000, 4.000, 4.000, 4.000, + 6 4.000, 4.000, 4.000, 4.000, 4.000, 4.000, 4.000, + 7 4.000, 4.000, 4.000, 4.000, 4.000, 4.000, 4.000, + 8 4.000, 4.000, 4.000, 4.000, 4.000, 4.000, 4.000, + 9 4.000, 4.000, 4.000, 4.000, 4.000, 4.000, 4.000/ + DATA PF171/ + 1 4.001, 4.001, 4.001, 4.001, 4.001, 4.001, 4.001, + 2 4.001, 4.001, 4.001, 4.001, 4.001, 4.001, 4.001, + 3 4.002, 4.002, 4.002, 4.002, 4.002, 4.002, 4.002, + 4 4.003, 4.003, 4.003, 4.003, 4.003, 4.003, 4.003, + 5 4.005, 4.005, 4.005, 4.005, 4.005, 4.005, 4.005, + 6 4.008, 4.008, 4.008, 4.008, 4.008, 4.008, 4.008, + 7 4.013, 4.013, 4.013, 4.013, 4.013, 4.013, 4.013, + 8 4.020, 4.020, 4.020, 4.020, 4.020, 4.020, 4.020, + 9 4.030, 4.030, 4.030, 4.030, 4.030, 4.030, 4.030/ + DATA PF172/ + 1 4.045, 4.045, 4.045, 4.045, 4.045, 4.045, 4.045, + 2 4.065, 4.065, 4.065, 4.065, 4.065, 4.065, 4.065, + 3 4.091, 4.091, 4.091, 4.091, 4.091, 4.091, 4.091, + 4 4.154, 4.154, 4.154, 4.154, 4.154, 4.154, 4.154, + 5 4.246, 4.246, 4.246, 4.246, 4.246, 4.246, 4.246, + 6 4.375, 4.375, 4.375, 4.375, 4.375, 4.375, 4.375, + 7 4.549, 4.549, 4.549, 4.549, 4.549, 4.549, 4.549, + 8 4.772, 4.772, 4.772, 4.772, 4.772, 4.772, 4.772, + 9 5.051, 5.051, 5.051, 5.051, 5.051, 5.051, 5.051/ + DATA PF173/ + 1 5.387, 5.387, 5.387, 5.387, 5.387, 5.387, 5.387, + 2 5.781, 5.781, 5.781, 5.781, 5.781, 5.781, 5.781, + 3 6.232, 6.232, 6.232, 6.232, 6.232, 6.232, 6.232, + 4 6.736, 6.736, 6.736, 6.736, 6.736, 6.736, 6.736, + 5 7.288, 7.288, 7.288, 7.288, 7.288, 7.288, 7.288, + 6 7.884, 7.884, 7.884, 7.884, 7.884, 7.884, 7.884, + 7 8.519, 8.519, 8.519, 8.519, 8.519, 8.519, 8.519, + 8 9.193, 9.193, 9.193, 9.193, 9.193, 9.193, 9.193, + 9 9.911, 9.911, 9.911, 9.911, 9.911, 9.911, 9.911/ + DATA PF174/ + 1 10.688, 10.688, 10.688, 10.688, 10.688, 10.688, 10.688, + 2 11.553, 11.553, 11.553, 11.553, 11.553, 11.553, 11.553, + 3 12.553, 12.553, 12.553, 12.553, 12.553, 12.553, 12.553, + 4 13.763, 13.763, 13.763, 13.763, 13.763, 13.763, 13.763, + 5 15.292, 15.292, 15.292, 15.292, 15.292, 15.292, 15.292, + 6 17.301, 17.301, 17.301, 17.301, 17.301, 17.301, 17.301, + 7 20.027, 20.027, 20.027, 20.027, 20.027, 20.027, 20.027, + 8 23.820, 23.820, 23.820, 23.820, 23.820, 23.820, 23.820, + 9 29.218, 29.218, 29.218, 29.218, 29.218, 29.217, 29.215/ + DATA PF175/ + 1 37.046, 37.046, 37.046, 37.046, 37.045, 37.043, 37.035, + 2 48.576, 48.576, 48.576, 48.575, 48.573, 48.566, 48.542, + 3 1.176, 1.176, 1.176, 1.176, 1.176, 1.176, 1.176, + 4 1.202, 1.202, 1.202, 1.202, 1.202, 1.202, 1.202, + 5 1.231, 1.231, 1.231, 1.231, 1.231, 1.231, 1.231, + 6 1.262, 1.262, 1.262, 1.262, 1.262, 1.262, 1.262, + 7 1.296, 1.296, 1.296, 1.296, 1.296, 1.296, 1.296, + 8 1.334, 1.334, 1.334, 1.334, 1.334, 1.334, 1.334, + 9 1.374, 1.374, 1.374, 1.374, 1.374, 1.374, 1.374/ + DATA PF176/ + 1 1.418, 1.418, 1.418, 1.418, 1.418, 1.418, 1.418, + 2 1.466, 1.466, 1.466, 1.466, 1.466, 1.466, 1.466, + 3 1.517, 1.517, 1.517, 1.517, 1.517, 1.517, 1.517, + 4 1.571, 1.571, 1.571, 1.571, 1.571, 1.571, 1.571, + 5 1.630, 1.630, 1.630, 1.630, 1.630, 1.630, 1.630, + 6 1.692, 1.692, 1.692, 1.692, 1.692, 1.692, 1.692, + 7 1.758, 1.758, 1.758, 1.758, 1.758, 1.758, 1.758, + 8 1.828, 1.828, 1.828, 1.828, 1.828, 1.828, 1.828, + 9 1.903, 1.903, 1.903, 1.903, 1.903, 1.903, 1.903/ + DATA PF177/ + 1 1.981, 1.981, 1.981, 1.981, 1.981, 1.981, 1.981, + 2 2.063, 2.063, 2.063, 2.063, 2.063, 2.063, 2.063, + 3 2.149, 2.149, 2.149, 2.149, 2.149, 2.149, 2.149, + 4 2.239, 2.239, 2.239, 2.239, 2.239, 2.239, 2.239, + 5 2.380, 2.380, 2.380, 2.380, 2.380, 2.380, 2.380, + 6 2.531, 2.531, 2.531, 2.531, 2.531, 2.531, 2.531, + 7 2.689, 2.689, 2.689, 2.689, 2.689, 2.689, 2.689, + 8 2.854, 2.854, 2.854, 2.854, 2.854, 2.854, 2.854, + 9 3.027, 3.027, 3.027, 3.027, 3.027, 3.027, 3.027/ + DATA PF178/ + 1 3.206, 3.206, 3.206, 3.206, 3.206, 3.206, 3.206, + 2 3.391, 3.391, 3.391, 3.391, 3.391, 3.391, 3.391, + 3 3.582, 3.582, 3.582, 3.582, 3.582, 3.582, 3.582, + 4 3.778, 3.778, 3.778, 3.778, 3.778, 3.778, 3.778, + 5 3.980, 3.980, 3.980, 3.980, 3.980, 3.980, 3.980, + 6 4.327, 4.327, 4.327, 4.327, 4.327, 4.327, 4.327, + 7 4.686, 4.686, 4.686, 4.686, 4.686, 4.686, 4.686, + 8 5.058, 5.058, 5.058, 5.058, 5.058, 5.058, 5.058, + 9 5.442, 5.442, 5.442, 5.442, 5.442, 5.442, 5.442/ + DATA PF179/ + 1 5.837, 5.837, 5.837, 5.837, 5.837, 5.837, 5.837, + 2 6.241, 6.241, 6.241, 6.241, 6.241, 6.241, 6.241, + 3 6.655, 6.655, 6.655, 6.655, 6.655, 6.655, 6.655, + 4 7.075, 7.075, 7.075, 7.075, 7.075, 7.075, 7.075, + 5 7.501, 7.501, 7.501, 7.501, 7.501, 7.501, 7.501, + 6 7.932, 7.932, 7.932, 7.932, 7.932, 7.932, 7.932, + 7 8.368, 8.368, 8.368, 8.368, 8.368, 8.368, 8.368, + 8 8.811, 8.811, 8.811, 8.811, 8.811, 8.811, 8.811, + 9 9.265, 9.265, 9.265, 9.265, 9.265, 9.265, 9.265/ + DATA PF180/ + 1 9.739, 9.739, 9.739, 9.739, 9.739, 9.739, 9.739, + 2 10.245, 10.245, 10.245, 10.245, 10.245, 10.245, 10.245, + 3 10.805, 10.805, 10.805, 10.805, 10.805, 10.805, 10.805, + 4 11.447, 11.447, 11.447, 11.447, 11.447, 11.447, 11.447, + 5 12.209, 12.209, 12.209, 12.209, 12.209, 12.209, 12.209, + 6 13.145, 13.145, 13.145, 13.145, 13.145, 13.145, 13.145, + 7 14.331, 14.331, 14.331, 14.331, 14.331, 14.331, 14.331, + 8 15.869, 15.869, 15.869, 15.869, 15.869, 15.869, 15.869, + 9 17.903, 17.903, 17.903, 17.903, 17.903, 17.903, 17.903/ + DATA PF181/ + 1 20.634, 20.634, 20.634, 20.634, 20.634, 20.634, 20.634, + 2 24.348, 24.348, 24.348, 24.348, 24.348, 24.348, 24.348, + 3 29.454, 29.454, 29.454, 29.454, 29.454, 29.453, 29.452, + 4 36.541, 36.540, 36.540, 36.540, 36.540, 36.538, 36.534, + 5 2.022, 2.022, 2.022, 2.022, 2.022, 2.022, 2.022, + 6 2.028, 2.028, 2.028, 2.028, 2.028, 2.028, 2.028, + 7 2.035, 2.035, 2.035, 2.035, 2.035, 2.035, 2.035, + 8 2.043, 2.043, 2.043, 2.043, 2.043, 2.043, 2.043, + 9 2.053, 2.053, 2.053, 2.053, 2.053, 2.053, 2.053/ + DATA PF182/ + 1 2.065, 2.065, 2.065, 2.065, 2.065, 2.065, 2.065, + 2 2.078, 2.078, 2.078, 2.078, 2.078, 2.078, 2.078, + 3 2.093, 2.093, 2.093, 2.093, 2.093, 2.093, 2.093, + 4 2.110, 2.110, 2.110, 2.110, 2.110, 2.110, 2.110, + 5 2.129, 2.129, 2.129, 2.129, 2.129, 2.129, 2.129, + 6 2.151, 2.151, 2.151, 2.151, 2.151, 2.151, 2.151, + 7 2.175, 2.175, 2.175, 2.175, 2.175, 2.175, 2.175, + 8 2.201, 2.201, 2.201, 2.201, 2.201, 2.201, 2.201, + 9 2.230, 2.230, 2.230, 2.230, 2.230, 2.230, 2.230/ + DATA PF183/ + 1 2.262, 2.262, 2.262, 2.262, 2.262, 2.262, 2.262, + 2 2.296, 2.296, 2.296, 2.296, 2.296, 2.296, 2.296, + 3 2.333, 2.333, 2.333, 2.333, 2.333, 2.333, 2.333, + 4 2.372, 2.372, 2.372, 2.372, 2.372, 2.372, 2.372, + 5 2.414, 2.414, 2.414, 2.414, 2.414, 2.414, 2.414, + 6 2.459, 2.459, 2.459, 2.459, 2.459, 2.459, 2.459, + 7 2.530, 2.530, 2.530, 2.530, 2.530, 2.530, 2.530, + 8 2.607, 2.607, 2.607, 2.607, 2.607, 2.607, 2.607, + 9 2.688, 2.688, 2.688, 2.688, 2.688, 2.688, 2.688/ + DATA PF184/ + 1 2.774, 2.774, 2.774, 2.774, 2.774, 2.774, 2.774, + 2 2.864, 2.864, 2.864, 2.864, 2.864, 2.864, 2.864, + 3 2.957, 2.957, 2.957, 2.957, 2.957, 2.957, 2.957, + 4 3.052, 3.052, 3.052, 3.052, 3.052, 3.052, 3.052, + 5 3.151, 3.151, 3.151, 3.151, 3.151, 3.151, 3.151, + 6 3.250, 3.250, 3.250, 3.250, 3.250, 3.250, 3.250, + 7 3.351, 3.351, 3.351, 3.351, 3.351, 3.351, 3.351, + 8 3.520, 3.520, 3.520, 3.520, 3.520, 3.520, 3.520, + 9 3.689, 3.689, 3.689, 3.689, 3.689, 3.689, 3.689/ + DATA PF185/ + 1 3.855, 3.855, 3.855, 3.855, 3.855, 3.855, 3.855, + 2 4.017, 4.017, 4.017, 4.017, 4.017, 4.017, 4.017, + 3 4.173, 4.173, 4.173, 4.173, 4.173, 4.173, 4.173, + 4 4.322, 4.322, 4.322, 4.322, 4.322, 4.322, 4.322, + 5 4.464, 4.464, 4.464, 4.464, 4.464, 4.464, 4.464, + 6 4.598, 4.598, 4.598, 4.598, 4.598, 4.598, 4.598, + 7 4.725, 4.725, 4.725, 4.725, 4.725, 4.725, 4.725, + 8 4.846, 4.846, 4.846, 4.846, 4.846, 4.846, 4.846, + 9 4.965, 4.965, 4.965, 4.965, 4.965, 4.965, 4.965/ + DATA PF186/ + 1 5.085, 5.085, 5.085, 5.085, 5.085, 5.085, 5.085, + 2 5.214, 5.214, 5.214, 5.214, 5.214, 5.214, 5.214, + 3 5.361, 5.361, 5.361, 5.361, 5.361, 5.361, 5.361, + 4 5.540, 5.540, 5.540, 5.540, 5.540, 5.540, 5.540, + 5 5.764, 5.764, 5.764, 5.764, 5.764, 5.764, 5.764, + 6 6.054, 6.054, 6.054, 6.054, 6.054, 6.054, 6.054, + 7 6.430, 6.430, 6.430, 6.430, 6.430, 6.430, 6.430, + 8 6.920, 6.920, 6.920, 6.920, 6.920, 6.920, 6.920, + 9 7.559, 7.559, 7.559, 7.559, 7.559, 7.559, 7.559/ + DATA PF187/ + 1 8.392, 8.392, 8.392, 8.392, 8.392, 8.392, 8.392, + 2 9.482, 9.482, 9.482, 9.482, 9.482, 9.482, 9.482, + 3 10.912, 10.912, 10.912, 10.912, 10.912, 10.912, 10.912, + 4 12.796, 12.796, 12.796, 12.796, 12.796, 12.796, 12.796, + 5 15.289, 15.289, 15.289, 15.289, 15.289, 15.289, 15.289, + 6 18.600, 18.600, 18.600, 18.600, 18.600, 18.600, 18.599, + 7 28.964, 28.964, 28.964, 28.964, 28.964, 28.964, 28.964, + 8 29.653, 29.653, 29.653, 29.653, 29.653, 29.653, 29.653, + 9 30.355, 30.355, 30.355, 30.355, 30.355, 30.355, 30.355/ + DATA PF188/ + 1 31.070, 31.070, 31.070, 31.070, 31.070, 31.070, 31.070, + 2 31.800, 31.800, 31.800, 31.800, 31.800, 31.800, 31.800, + 3 32.546, 32.546, 32.546, 32.546, 32.546, 32.546, 32.546, + 4 33.311, 33.311, 33.311, 33.311, 33.311, 33.311, 33.310, + 5 34.097, 34.097, 34.097, 34.097, 34.097, 34.097, 34.096, + 6 34.909, 34.909, 34.909, 34.909, 34.909, 34.909, 34.907, + 7 35.752, 35.752, 35.752, 35.752, 35.752, 35.752, 35.748, + 8 36.630, 36.630, 36.630, 36.630, 36.630, 36.630, 36.624, + 9 37.550, 37.550, 37.550, 37.550, 37.550, 37.550, 37.541/ + DATA PF189/ + 1 38.521, 38.521, 38.521, 38.521, 38.521, 38.521, 38.506, + 2 39.552, 39.552, 39.552, 39.552, 39.552, 39.552, 39.528, + 3 40.654, 40.654, 40.654, 40.654, 40.654, 40.653, 40.616, + 4 41.839, 41.839, 41.839, 41.839, 41.839, 41.838, 41.781, + 5 43.122, 43.122, 43.122, 43.122, 43.121, 43.120, 43.035, + 6 44.520, 44.520, 44.520, 44.519, 44.519, 44.516, 44.389, + 7 46.051, 46.051, 46.051, 46.050, 46.049, 46.043, 45.858, + 8 47.737, 47.737, 47.737, 47.735, 47.733, 47.723, 47.456, + 9 50.611, 50.611, 50.610, 50.607, 50.601, 50.579, 50.128/ + DATA PF190/ + 1 53.988, 53.987, 53.985, 53.976, 53.962, 53.917, 53.177, + 2 57.987, 57.984, 57.978, 57.958, 57.927, 57.835, 56.657, + 3 62.755, 62.749, 62.736, 62.690, 62.624, 62.447, 60.620, + 4 68.478, 68.466, 68.437, 68.341, 68.207, 67.879, 65.116, + 5 75.387, 75.362, 75.304, 75.111, 74.852, 74.270, 70.189, + 6 83.777, 83.728, 83.614, 83.246, 82.765, 81.770, 75.878, + 7 94.015, 93.923, 93.710, 93.038, 92.180, 90.537, 82.211, + 8 106.560, 106.394, 106.013, 104.833, 103.363, 100.737, 89.209, + 9 121.977, 121.688, 121.031, 119.037, 116.606, 112.538, 96.882/ + DATA PF191/ + 1 155.960, 155.291, 153.784, 149.355, 144.131, 136.206, 111.159, + 2 203.772, 202.360, 199.205, 190.182, 179.852, 165.480, 127.228, + 3 270.211, 267.461, 261.364, 244.355, 225.380, 200.934, 144.936, + 4 360.723, 355.745, 344.776, 314.845, 282.220, 242.947, 164.067, + 5 480.987, 472.537, 454.025, 404.496, 351.604, 291.656, 184.354, + 6 636.365, 622.824, 593.310, 515.716, 434.350, 346.924, 205.502, + 7 831.318, 810.702, 765.974, 650.205, 530.755, 408.348, 227.205, + 8 1068.885, 1038.900, 974.113, 808.736, 640.542, 475.277, 249.159, + 9 1350.316, 1308.446,1218.309, 991.052, 762.864, 546.865, 271.081/ + DATA PF192/ + 1 1674.905, 1618.524,1497.540,1195.859, 896.369, 622.124, 292.715, + 2 2040.034, 1966.531,1809.259,1420.927,1039.299, 699.986, 313.839, + 3 2441.398, 2348.296,2149.603,1663.266,1189.613, 779.369, 334.269, + 4 2873.361, 2758.428,2513.703,1919.352,1345.124, 859.220, 353.857, + 5 3329.382, 3190.712,2896.046,2185.359,1503.617, 938.566, 372.495, + 6 3802.459, 3638.530,3290.825,2457.389,1662.961,1016.538, 390.104, + 7 4285.530, 4095.237,3692.263,2731.665,1821.191,1092.393, 406.640, + 8 4771.823, 4554.478,4094.883,3004.685,1976.565,1165.521, 422.080, + 9 5255.115, 5010.436,4493.705,3273.332,2127.600,1235.444, 436.426/ + DATA PF193/ + 1 5729.917, 5457.992,4884.378,3534.940,2273.087,1301.811, 449.696, + 2 6191.573, 5892.818,5263.250,3787.321,2412.088,1364.386, 461.922, + 3 6636.300, 6311.411,5627.389,4028.763,2543.918,1423.035, 473.146, + 4 7061.173, 6711.069,5974.558,4258.007,2668.125,1477.713, 483.416, + 5 7464.068, 7089.847,6303.169,4474.204,2784.458,1528.443, 492.789, + 6 7843.587, 7446.475,6612.213,4676.869,2892.842,1575.309, 501.319, + 7 8198.964, 7780.273,6901.181,4865.822,2993.341,1618.440, 509.066, + 8 8529.971, 8091.061,7169.988,5041.141,3086.134,1657.997, 516.086, + 9 26.527, 26.527, 26.527, 26.527, 26.527, 26.527, 26.527/ + DATA PF194/ + 1 27.124, 27.124, 27.124, 27.124, 27.124, 27.124, 27.124, + 2 27.742, 27.742, 27.742, 27.742, 27.742, 27.742, 27.742, + 3 28.381, 28.381, 28.381, 28.381, 28.381, 28.381, 28.381, + 4 29.042, 29.042, 29.042, 29.042, 29.042, 29.042, 29.042, + 5 29.727, 29.727, 29.727, 29.727, 29.727, 29.727, 29.727, + 6 30.436, 30.436, 30.436, 30.436, 30.436, 30.436, 30.436, + 7 31.172, 31.172, 31.172, 31.172, 31.172, 31.172, 31.172, + 8 31.936, 31.936, 31.936, 31.936, 31.936, 31.936, 31.936, + 9 32.732, 32.732, 32.732, 32.732, 32.732, 32.732, 32.732/ + DATA PF195/ + 1 33.562, 33.562, 33.562, 33.562, 33.562, 33.562, 33.562, + 2 34.431, 34.431, 34.431, 34.431, 34.431, 34.431, 34.431, + 3 35.342, 35.342, 35.342, 35.342, 35.342, 35.342, 35.342, + 4 36.301, 36.301, 36.301, 36.301, 36.301, 36.301, 36.301, + 5 37.312, 37.312, 37.312, 37.312, 37.312, 37.312, 37.312, + 6 38.382, 38.382, 38.382, 38.382, 38.382, 38.382, 38.382, + 7 39.518, 39.518, 39.518, 39.518, 39.518, 39.518, 39.518, + 8 40.725, 40.725, 40.725, 40.725, 40.725, 40.725, 40.725, + 9 42.012, 42.012, 42.012, 42.012, 42.012, 42.012, 42.012/ + DATA PF196/ + 1 43.387, 43.387, 43.387, 43.387, 43.387, 43.387, 43.387, + 2 45.631, 45.631, 45.631, 45.631, 45.631, 45.631, 45.631, + 3 48.121, 48.121, 48.121, 48.121, 48.121, 48.121, 48.121, + 4 50.887, 50.887, 50.887, 50.887, 50.887, 50.887, 50.887, + 5 53.962, 53.962, 53.962, 53.962, 53.962, 53.962, 53.962, + 6 57.379, 57.379, 57.379, 57.379, 57.379, 57.379, 57.379, + 7 61.172, 61.172, 61.172, 61.172, 61.172, 61.172, 61.172, + 8 65.380, 65.380, 65.380, 65.380, 65.380, 65.380, 65.380, + 9 70.040, 70.040, 70.040, 70.040, 70.039, 70.039, 70.039/ + DATA PF197/ + 1 75.194, 75.194, 75.194, 75.194, 75.194, 75.193, 75.191, + 2 80.890, 80.890, 80.890, 80.890, 80.889, 80.888, 80.883, + 3 91.742, 91.742, 91.741, 91.741, 91.736, 91.729, 91.710, + 4 104.592, 104.590, 104.589, 104.588, 104.563, 104.531, 104.462, + 5 119.955, 119.947, 119.942, 119.937, 119.837, 119.715, 119.496, + 6 138.688, 138.661, 138.641, 138.624, 138.274, 137.877, 137.259, + 7 162.267, 162.180, 162.117, 162.063, 161.004, 159.859, 158.297, + 8 193.182, 192.939, 192.762, 192.612, 189.769, 186.828, 183.251, + 9 235.426, 234.815, 234.373, 234.002, 227.139, 220.324, 212.825/ + DATA PF198/ + 1 294.951, 293.562, 292.561, 291.731, 276.683, 262.263, 247.739, + 2 379.953, 377.068, 374.994, 373.291, 342.993, 314.867, 288.660, + 3 500.805, 495.268, 491.297, 488.070, 431.535, 380.513, 336.130, + 4 669.541, 659.643, 652.560, 646.852, 548.278, 461.514, 390.489, + 5 898.911, 882.298, 870.434, 860.945, 699.154, 559.875, 451.826, + 6 1201.122, 1174.768,1155.980,1141.055, 889.433, 677.055, 519.947, + 7 1586.509, 1546.746,1518.445,1496.097,1123.113, 813.776, 594.375, + 8 2062.332, 2004.965,1964.190,1932.166,1402.448, 969.920, 674.380, + 9 2631.943, 2552.410,2495.950,2451.821,1727.664,1144.515, 759.023/ + DATA PF199/ + 1 3294.384, 3187.969,3112.512,3053.783,2096.908,1335.801, 847.223, + 2 4044.477, 3906.535,3808.817,3733.052,2506.408,1541.374, 937.818, + 3 4873.314, 4699.476,4576.439,4481.367,2950.798,1758.360,1029.634, + 4 5769.029, 5555.398,5404.315,5287.924,3423.548,1983.616,1121.540, + 5 6717.742, 6461.028,6279.603,6140.213,3917.429,2213.916,1212.491, + 6 7704.516, 7402.132,7188.564,7024.873,4424.971,2446.116,1301.561, + 7 8714.251, 8364.358,8117.373,7928.473,4938.856,2677.288,1387.960, + 8 9732.430, 9333.938,9052.787,8838.166,5452.236,2904.817,1471.049, + 910745.700,10298.233,9982.668,9742.185,5958.966,3126.453,1550.328/ + DATA PF200/ + 111742.262,11246.095,10896.32,10630.17, 6453.75, 3340.35, 1625.44, + 2 22.450, 22.450, 22.450, 22.450, 22.450, 22.450, 22.450, + 3 22.668, 22.668, 22.668, 22.668, 22.668, 22.668, 22.668, + 4 22.880, 22.880, 22.880, 22.880, 22.880, 22.880, 22.880, + 5 23.088, 23.088, 23.088, 23.088, 23.088, 23.088, 23.088, + 6 23.292, 23.292, 23.292, 23.292, 23.292, 23.292, 23.292, + 7 23.493, 23.493, 23.493, 23.493, 23.493, 23.493, 23.493, + 8 23.692, 23.692, 23.692, 23.692, 23.692, 23.692, 23.692, + 9 23.889, 23.889, 23.889, 23.889, 23.889, 23.889, 23.889/ + DATA PF201/ + 1 24.087, 24.087, 24.087, 24.087, 24.087, 24.087, 24.087, + 2 24.286, 24.286, 24.286, 24.286, 24.286, 24.286, 24.286, + 3 24.488, 24.488, 24.488, 24.488, 24.488, 24.488, 24.488, + 4 24.695, 24.695, 24.695, 24.695, 24.695, 24.695, 24.695, + 5 24.909, 24.909, 24.909, 24.909, 24.909, 24.909, 24.909, + 6 25.131, 25.131, 25.131, 25.131, 25.131, 25.131, 25.131, + 7 25.365, 25.365, 25.365, 25.365, 25.365, 25.365, 25.365, + 8 25.612, 25.612, 25.612, 25.612, 25.612, 25.612, 25.612, + 9 25.875, 25.875, 25.875, 25.875, 25.875, 25.875, 25.875/ + DATA PF202/ + 1 26.156, 26.156, 26.156, 26.156, 26.156, 26.156, 26.156, + 2 26.458, 26.458, 26.458, 26.458, 26.458, 26.458, 26.458, + 3 26.783, 26.783, 26.783, 26.783, 26.783, 26.783, 26.783, + 4 27.320, 27.320, 27.320, 27.320, 27.320, 27.320, 27.320, + 5 27.924, 27.924, 27.924, 27.924, 27.924, 27.924, 27.924, + 6 28.603, 28.603, 28.603, 28.603, 28.603, 28.603, 28.603, + 7 29.363, 29.363, 29.363, 29.363, 29.363, 29.363, 29.363, + 8 30.212, 30.212, 30.212, 30.212, 30.212, 30.212, 30.212, + 9 31.156, 31.156, 31.156, 31.156, 31.156, 31.156, 31.156/ + DATA PF203/ + 1 32.198, 32.198, 32.198, 32.198, 32.198, 32.198, 32.198, + 2 33.344, 33.344, 33.344, 33.344, 33.344, 33.344, 33.344, + 3 34.597, 34.597, 34.597, 34.597, 34.597, 34.597, 34.597, + 4 35.960, 35.960, 35.960, 35.960, 35.960, 35.960, 35.960, + 5 38.481, 38.481, 38.481, 38.481, 38.481, 38.481, 38.481, + 6 41.326, 41.326, 41.326, 41.326, 41.326, 41.326, 41.326, + 7 44.511, 44.511, 44.511, 44.511, 44.511, 44.511, 44.511, + 8 48.060, 48.060, 48.060, 48.060, 48.060, 48.060, 48.060, + 9 52.010, 52.010, 52.010, 52.010, 52.010, 52.010, 52.010/ + DATA PF204/ + 1 56.423, 56.423, 56.423, 56.423, 56.423, 56.423, 56.423, + 2 61.395, 61.395, 61.395, 61.395, 61.395, 61.395, 61.395, + 3 67.095, 67.095, 67.095, 67.095, 67.095, 67.095, 67.093, + 4 73.831, 73.831, 73.831, 73.830, 73.830, 73.830, 73.822, + 5 82.195, 82.195, 82.195, 82.194, 82.194, 82.192, 82.162, + 6 93.328, 93.328, 93.327, 93.324, 93.321, 93.315, 93.214, + 7 109.315, 109.315, 109.310, 109.300, 109.292, 109.270, 108.977, + 8 133.704, 133.704, 133.691, 133.662, 133.639, 133.578, 132.816, + 9 172.048, 172.047, 172.015, 171.941, 171.881, 171.731, 169.945/ + DATA PF205/ + 1 232.299, 232.297, 232.223, 232.052, 231.915, 231.576, 227.763, + 2 324.880, 324.876, 324.719, 324.359, 324.071, 323.372, 315.872, + 3 462.289, 462.281, 461.974, 461.273, 460.717, 459.385, 445.679, + 4 658.216, 658.201, 657.643, 656.375, 655.373, 653.006, 629.548, + 5 926.273, 926.247, 925.299, 923.147, 921.455, 917.502, 879.632, + 6 1278.553, 1278.513,1276.989,1273.542,1270.843,1264.601,1206.563, + 7 1724.272, 1724.210,1721.885,1716.639,1712.547,1703.168,1618.256, + 8 2268.715, 2268.625,2265.238,2257.610,2251.679,2238.197,2119.001, + 9 2912.655, 2912.528,2907.792,2897.143,2888.889,2870.258,2708.990/ + DATA PF206/ + 1 3652.272, 3652.100,3645.714,3631.377,3620.294,3595.438,3384.303, + 2 4479.541, 4479.316,4470.981,4452.293,4437.882,4405.744,4137.300, + 3 5382.976, 5382.692,5372.122,5348.455,5330.243,5289.835,4957.322, + 4 16.025, 16.025, 16.025, 16.025, 16.025, 16.025, 16.025, + 5 16.208, 16.208, 16.208, 16.208, 16.208, 16.208, 16.208, + 6 16.387, 16.387, 16.387, 16.387, 16.387, 16.387, 16.387, + 7 16.561, 16.561, 16.561, 16.561, 16.561, 16.561, 16.561, + 8 16.732, 16.732, 16.732, 16.732, 16.732, 16.732, 16.732, + 9 16.899, 16.899, 16.899, 16.899, 16.899, 16.899, 16.899/ + DATA PF207/ + 1 17.063, 17.063, 17.063, 17.063, 17.063, 17.063, 17.063, + 2 17.223, 17.223, 17.223, 17.223, 17.223, 17.223, 17.223, + 3 17.381, 17.381, 17.381, 17.381, 17.381, 17.381, 17.381, + 4 17.536, 17.536, 17.536, 17.536, 17.536, 17.536, 17.536, + 5 17.691, 17.691, 17.691, 17.691, 17.691, 17.691, 17.691, + 6 17.844, 17.844, 17.844, 17.844, 17.844, 17.844, 17.844, + 7 17.996, 17.996, 17.996, 17.996, 17.996, 17.996, 17.996, + 8 18.150, 18.150, 18.150, 18.150, 18.150, 18.150, 18.150, + 9 18.304, 18.304, 18.304, 18.304, 18.304, 18.304, 18.304/ + DATA PF208/ + 1 18.460, 18.460, 18.460, 18.460, 18.460, 18.460, 18.460, + 2 18.619, 18.619, 18.619, 18.619, 18.619, 18.619, 18.619, + 3 18.781, 18.781, 18.781, 18.781, 18.781, 18.781, 18.781, + 4 18.948, 18.948, 18.948, 18.948, 18.948, 18.948, 18.948, + 5 19.120, 19.120, 19.120, 19.120, 19.120, 19.120, 19.120, + 6 19.390, 19.390, 19.390, 19.390, 19.390, 19.390, 19.390, + 7 19.676, 19.676, 19.676, 19.676, 19.676, 19.676, 19.676, + 8 19.981, 19.981, 19.981, 19.981, 19.981, 19.981, 19.981, + 9 20.306, 20.306, 20.306, 20.306, 20.306, 20.306, 20.306/ + DATA PF209/ + 1 20.655, 20.655, 20.655, 20.655, 20.655, 20.655, 20.655, + 2 21.027, 21.027, 21.027, 21.027, 21.027, 21.027, 21.027, + 3 21.425, 21.425, 21.425, 21.425, 21.425, 21.425, 21.425, + 4 21.848, 21.848, 21.848, 21.848, 21.848, 21.848, 21.848, + 5 22.296, 22.296, 22.296, 22.296, 22.296, 22.296, 22.296, + 6 22.770, 22.770, 22.770, 22.770, 22.770, 22.770, 22.770, + 7 23.612, 23.612, 23.612, 23.612, 23.612, 23.612, 23.612, + 8 24.515, 24.515, 24.515, 24.515, 24.515, 24.515, 24.515, + 9 25.468, 25.468, 25.468, 25.468, 25.468, 25.468, 25.468/ + DATA PF210/ + 1 26.463, 26.463, 26.463, 26.463, 26.463, 26.463, 26.463, + 2 27.488, 27.488, 27.488, 27.488, 27.488, 27.488, 27.488, + 3 28.535, 28.535, 28.535, 28.535, 28.535, 28.535, 28.535, + 4 29.597, 29.597, 29.597, 29.597, 29.597, 29.597, 29.597, + 5 30.673, 30.673, 30.673, 30.673, 30.673, 30.673, 30.673, + 6 31.769, 31.769, 31.769, 31.769, 31.769, 31.769, 31.769, + 7 32.899, 32.899, 32.899, 32.899, 32.899, 32.899, 32.899, + 8 34.094, 34.094, 34.094, 34.094, 34.094, 34.094, 34.092, + 9 35.409, 35.409, 35.409, 35.409, 35.409, 35.409, 35.399/ + DATA PF211/ + 1 36.952, 36.952, 36.952, 36.952, 36.952, 36.952, 36.910, + 2 38.929, 38.929, 38.929, 38.929, 38.929, 38.928, 38.783, + 3 41.731, 41.730, 41.730, 41.729, 41.729, 41.727, 41.289, + 4 46.057, 46.055, 46.055, 46.053, 46.053, 46.047, 44.874, + 5 53.066, 53.062, 53.062, 53.056, 53.056, 53.043, 50.220, + 6 64.522, 64.512, 64.512, 64.498, 64.498, 64.469, 58.296, + 7 82.878, 82.858, 82.858, 82.829, 82.829, 82.770, 70.369, + 8 111.261, 111.221, 111.221, 111.166, 111.166, 111.053, 87.961, + 9 153.311, 153.238, 153.238, 153.140, 153.140, 152.940, 112.747/ + DATA PF212/ + 1 212.892, 212.769, 212.769, 212.603, 212.603, 212.272, 146.405, + 2 293.715, 293.520, 293.520, 293.256, 293.256, 292.735, 190.434, + 3 398.933, 398.636, 398.636, 398.236, 398.236, 397.459, 245.997, + 4 530.780, 530.350, 530.350, 529.771, 529.771, 528.658, 313.775, + 5 690.322, 689.724, 689.724, 688.919, 688.919, 687.387, 393.899, + 6 7.902, 7.902, 7.902, 7.902, 7.902, 7.902, 7.902, + 7 7.978, 7.978, 7.978, 7.978, 7.978, 7.978, 7.978, + 8 8.052, 8.052, 8.052, 8.052, 8.052, 8.052, 8.052, + 9 8.125, 8.125, 8.125, 8.125, 8.125, 8.125, 8.125/ + DATA PF213/ + 1 8.195, 8.195, 8.195, 8.195, 8.195, 8.195, 8.195, + 2 8.263, 8.263, 8.263, 8.263, 8.263, 8.263, 8.263, + 3 8.329, 8.329, 8.329, 8.329, 8.329, 8.329, 8.329, + 4 8.393, 8.393, 8.393, 8.393, 8.393, 8.393, 8.393, + 5 8.455, 8.455, 8.455, 8.455, 8.455, 8.455, 8.455, + 6 8.515, 8.515, 8.515, 8.515, 8.515, 8.515, 8.515, + 7 8.573, 8.573, 8.573, 8.573, 8.573, 8.573, 8.573, + 8 8.630, 8.630, 8.630, 8.630, 8.630, 8.630, 8.630, + 9 8.684, 8.684, 8.684, 8.684, 8.684, 8.684, 8.684/ + DATA PF214/ + 1 8.736, 8.736, 8.736, 8.736, 8.736, 8.736, 8.736, + 2 8.787, 8.787, 8.787, 8.787, 8.787, 8.787, 8.787, + 3 8.836, 8.836, 8.836, 8.836, 8.836, 8.836, 8.836, + 4 8.883, 8.883, 8.883, 8.883, 8.883, 8.883, 8.883, + 5 8.929, 8.929, 8.929, 8.929, 8.929, 8.929, 8.929, + 6 8.972, 8.972, 8.972, 8.972, 8.972, 8.972, 8.972, + 7 9.015, 9.015, 9.015, 9.015, 9.015, 9.015, 9.015, + 8 9.075, 9.075, 9.075, 9.075, 9.075, 9.075, 9.075, + 9 9.132, 9.132, 9.132, 9.132, 9.132, 9.132, 9.132/ + DATA PF215/ + 1 9.186, 9.186, 9.186, 9.186, 9.186, 9.186, 9.186, + 2 9.237, 9.237, 9.237, 9.237, 9.237, 9.237, 9.237, + 3 9.284, 9.284, 9.284, 9.284, 9.284, 9.284, 9.284, + 4 9.329, 9.329, 9.329, 9.329, 9.329, 9.329, 9.329, + 5 9.372, 9.372, 9.372, 9.372, 9.372, 9.372, 9.372, + 6 9.412, 9.412, 9.412, 9.412, 9.412, 9.412, 9.412, + 7 9.449, 9.449, 9.449, 9.449, 9.449, 9.449, 9.449, + 8 9.484, 9.484, 9.484, 9.484, 9.484, 9.484, 9.484, + 9 9.538, 9.538, 9.538, 9.538, 9.538, 9.538, 9.538/ + DATA PF216/ + 1 9.586, 9.586, 9.586, 9.586, 9.586, 9.586, 9.586, + 2 9.630, 9.630, 9.630, 9.630, 9.630, 9.630, 9.630, + 3 9.669, 9.669, 9.669, 9.669, 9.669, 9.669, 9.669, + 4 9.704, 9.704, 9.704, 9.704, 9.704, 9.704, 9.704, + 5 9.736, 9.736, 9.736, 9.736, 9.736, 9.736, 9.736, + 6 9.764, 9.764, 9.764, 9.764, 9.764, 9.764, 9.764, + 7 9.790, 9.790, 9.790, 9.790, 9.790, 9.790, 9.790, + 8 9.813, 9.813, 9.813, 9.813, 9.813, 9.813, 9.813, + 9 9.835, 9.835, 9.835, 9.835, 9.835, 9.835, 9.835/ + DATA PF217/ + 1 9.857, 9.857, 9.857, 9.857, 9.857, 9.857, 9.857, + 2 9.882, 9.882, 9.882, 9.882, 9.882, 9.882, 9.882, + 3 9.914, 9.914, 9.914, 9.914, 9.914, 9.914, 9.914, + 4 9.966, 9.966, 9.966, 9.966, 9.966, 9.966, 9.966, + 5 10.058, 10.058, 10.058, 10.058, 10.058, 10.058, 10.058, + 6 10.231, 10.231, 10.231, 10.231, 10.231, 10.231, 10.229, + 7 10.557, 10.557, 10.557, 10.557, 10.556, 10.555, 10.549, + 8 11.153, 11.153, 11.152, 11.152, 11.150, 11.148, 11.130, + 9 12.200, 12.200, 12.198, 12.198, 12.194, 12.188, 12.139/ + DATA PF218/ + 1 13.961, 13.961, 13.956, 13.956, 13.947, 13.932, 13.813, + 2 16.788, 16.788, 16.776, 16.776, 16.755, 16.721, 16.463, + 3 21.118, 21.118, 21.093, 21.093, 21.051, 20.980, 20.463, + 4 27.460, 27.460, 27.412, 27.412, 27.332, 27.196, 26.236, + 5 36.356, 36.356, 36.271, 36.271, 36.128, 35.889, 34.220, + 6 48.338, 48.338, 48.195, 48.195, 47.956, 47.557, 44.828, + 7 63.868, 63.868, 63.641, 63.641, 63.264, 62.636, 58.404, + 8 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, + 9 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 1.000/ + DATA PF219/ + 1 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, + 2 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, + 3 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, + 4 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, + 5 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, + 6 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, + 7 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, + 8 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, + 9 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 1.000/ + DATA PF220/ + 1 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, + 2 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, + 3 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, + 4 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, + 5 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, + 6 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, + 7 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, + 8 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, + 9 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 1.000/ + DATA PF221/ + 1 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, + 2 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, + 3 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, + 4 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, + 5 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, + 6 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, + 7 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, + 8 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, + 9 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 1.000/ + DATA PF222/ + 1 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, + 2 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, + 3 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, + 4 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, + 5 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, + 6 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, + 7 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, + 8 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, + 9 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 1.000/ + DATA PF223/ + 1 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, + 2 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, + 3 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, + 4 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, + 5 1.001, 1.001, 1.001, 1.001, 1.001, 1.001, 1.001, + 6 1.004, 1.004, 1.004, 1.004, 1.004, 1.004, 1.004, + 7 1.012, 1.012, 1.012, 1.012, 1.012, 1.012, 1.012, + 8 1.031, 1.031, 1.031, 1.031, 1.031, 1.031, 1.031, + 9 1.070, 1.070, 1.070, 1.070, 1.070, 1.070, 1.070/ + DATA PF224/ + 1 1.148, 1.148, 1.148, 1.148, 1.148, 1.148, 1.148, + 2 1.293, 1.293, 1.293, 1.293, 1.293, 1.293, 1.293, + 3 1.553, 1.553, 1.553, 1.553, 1.553, 1.553, 1.553, + 4 2.007, 2.007, 2.007, 2.007, 2.007, 2.007, 2.007, + 5 2.794, 2.794, 2.794, 2.794, 2.794, 2.794, 2.794, + 6 4.157, 4.156, 4.156, 4.156, 4.156, 4.155, 4.155, + 7 6.503, 6.503, 6.502, 6.502, 6.501, 6.499, 6.498, + 8 10.492, 10.491, 10.490, 10.490, 10.486, 10.481, 10.479, + 9 17.115, 17.112, 17.110, 17.110, 17.101, 17.087, 17.084/ + DATA PF225/ + 1 4.010, 4.010, 4.010, 4.010, 4.010, 4.010, 4.010, + 2 4.013, 4.013, 4.013, 4.013, 4.013, 4.013, 4.013, + 3 4.016, 4.016, 4.016, 4.016, 4.016, 4.016, 4.016, + 4 4.020, 4.020, 4.020, 4.020, 4.020, 4.020, 4.020, + 5 4.025, 4.025, 4.025, 4.025, 4.025, 4.025, 4.025, + 6 4.030, 4.030, 4.030, 4.030, 4.030, 4.030, 4.030, + 7 4.036, 4.036, 4.036, 4.036, 4.036, 4.036, 4.036, + 8 4.044, 4.044, 4.044, 4.044, 4.044, 4.044, 4.044, + 9 4.052, 4.052, 4.052, 4.052, 4.052, 4.052, 4.052/ + DATA PF226/ + 1 4.061, 4.061, 4.061, 4.061, 4.061, 4.061, 4.061, + 2 4.071, 4.071, 4.071, 4.071, 4.071, 4.071, 4.071, + 3 4.083, 4.083, 4.083, 4.083, 4.083, 4.083, 4.083, + 4 4.096, 4.096, 4.096, 4.096, 4.096, 4.096, 4.096, + 5 4.110, 4.110, 4.110, 4.110, 4.110, 4.110, 4.110, + 6 4.125, 4.125, 4.125, 4.125, 4.125, 4.125, 4.125, + 7 4.142, 4.142, 4.142, 4.142, 4.142, 4.142, 4.142, + 8 4.160, 4.160, 4.160, 4.160, 4.160, 4.160, 4.160, + 9 4.179, 4.179, 4.179, 4.179, 4.179, 4.179, 4.179/ + DATA PF227/ + 1 4.200, 4.200, 4.200, 4.200, 4.200, 4.200, 4.200, + 2 4.221, 4.221, 4.221, 4.221, 4.221, 4.221, 4.221, + 3 4.256, 4.256, 4.256, 4.256, 4.256, 4.256, 4.256, + 4 4.294, 4.294, 4.294, 4.294, 4.294, 4.294, 4.294, + 5 4.334, 4.334, 4.334, 4.334, 4.334, 4.334, 4.334, + 6 4.377, 4.377, 4.377, 4.377, 4.377, 4.377, 4.377, + 7 4.421, 4.421, 4.421, 4.421, 4.421, 4.421, 4.421, + 8 4.467, 4.467, 4.467, 4.467, 4.467, 4.467, 4.467, + 9 4.515, 4.515, 4.515, 4.515, 4.515, 4.515, 4.515/ + DATA PF228/ + 1 4.564, 4.564, 4.564, 4.564, 4.564, 4.564, 4.564, + 2 4.613, 4.613, 4.613, 4.613, 4.613, 4.613, 4.613, + 3 4.664, 4.664, 4.664, 4.664, 4.664, 4.664, 4.664, + 4 4.748, 4.748, 4.748, 4.748, 4.748, 4.748, 4.748, + 5 4.833, 4.833, 4.833, 4.833, 4.833, 4.833, 4.833, + 6 4.916, 4.916, 4.916, 4.916, 4.916, 4.916, 4.916, + 7 4.997, 4.997, 4.997, 4.997, 4.997, 4.997, 4.997, + 8 5.075, 5.075, 5.075, 5.075, 5.075, 5.075, 5.075, + 9 5.151, 5.151, 5.151, 5.151, 5.151, 5.151, 5.151/ + DATA PF229/ + 1 5.222, 5.222, 5.222, 5.222, 5.222, 5.222, 5.222, + 2 5.289, 5.289, 5.289, 5.289, 5.289, 5.289, 5.289, + 3 5.352, 5.352, 5.352, 5.352, 5.352, 5.352, 5.352, + 4 5.411, 5.411, 5.411, 5.411, 5.411, 5.411, 5.411, + 5 5.466, 5.466, 5.466, 5.466, 5.466, 5.466, 5.466, + 6 5.517, 5.517, 5.517, 5.517, 5.517, 5.517, 5.517, + 7 5.567, 5.567, 5.567, 5.567, 5.567, 5.567, 5.567, + 8 5.618, 5.618, 5.618, 5.618, 5.618, 5.618, 5.618, + 9 5.677, 5.677, 5.677, 5.677, 5.677, 5.677, 5.677/ + DATA PF230/ + 1 5.758, 5.758, 5.758, 5.758, 5.758, 5.758, 5.758, + 2 5.885, 5.885, 5.885, 5.885, 5.885, 5.885, 5.885, + 3 6.096, 6.096, 6.096, 6.096, 6.096, 6.096, 6.096, + 4 6.454, 6.454, 6.454, 6.454, 6.454, 6.454, 6.454, + 5 7.050, 7.050, 7.050, 7.050, 7.050, 7.050, 7.050, + 6 8.026, 8.026, 8.026, 8.026, 8.026, 8.026, 8.026, + 7 9.607, 9.607, 9.607, 9.607, 9.607, 9.607, 9.606, + 8 12.154, 12.154, 12.154, 12.154, 12.154, 12.153, 12.151, + 9 16.263, 16.263, 16.263, 16.262, 16.261, 16.258, 16.252/ + DATA PF231/ + 1 22.903, 22.903, 22.901, 22.900, 22.896, 22.885, 22.868, + 2 33.601, 33.600, 33.594, 33.592, 33.579, 33.547, 33.499, + 3 5.053, 5.053, 5.053, 5.053, 5.053, 5.053, 5.053, + 4 5.065, 5.065, 5.065, 5.065, 5.065, 5.065, 5.065, + 5 5.077, 5.077, 5.077, 5.077, 5.077, 5.077, 5.077, + 6 5.092, 5.092, 5.092, 5.092, 5.092, 5.092, 5.092, + 7 5.109, 5.109, 5.109, 5.109, 5.109, 5.109, 5.109, + 8 5.128, 5.128, 5.128, 5.128, 5.128, 5.128, 5.128, + 9 5.149, 5.149, 5.149, 5.149, 5.149, 5.149, 5.149/ + DATA PF232/ + 1 5.173, 5.173, 5.173, 5.173, 5.173, 5.173, 5.173, + 2 5.198, 5.198, 5.198, 5.198, 5.198, 5.198, 5.198, + 3 5.227, 5.227, 5.227, 5.227, 5.227, 5.227, 5.227, + 4 5.258, 5.258, 5.258, 5.258, 5.258, 5.258, 5.258, + 5 5.291, 5.291, 5.291, 5.291, 5.291, 5.291, 5.291, + 6 5.327, 5.327, 5.327, 5.327, 5.327, 5.327, 5.327, + 7 5.366, 5.366, 5.366, 5.366, 5.366, 5.366, 5.366, + 8 5.407, 5.407, 5.407, 5.407, 5.407, 5.407, 5.407, + 9 5.451, 5.451, 5.451, 5.451, 5.451, 5.451, 5.451/ + DATA PF233/ + 1 5.497, 5.497, 5.497, 5.497, 5.497, 5.497, 5.497, + 2 5.546, 5.546, 5.546, 5.546, 5.546, 5.546, 5.546, + 3 5.597, 5.597, 5.597, 5.597, 5.597, 5.597, 5.597, + 4 5.650, 5.650, 5.650, 5.650, 5.650, 5.650, 5.650, + 5 5.735, 5.735, 5.735, 5.735, 5.735, 5.735, 5.735, + 6 5.824, 5.824, 5.824, 5.824, 5.824, 5.824, 5.824, + 7 5.918, 5.918, 5.918, 5.918, 5.918, 5.918, 5.918, + 8 6.017, 6.017, 6.017, 6.017, 6.017, 6.017, 6.017, + 9 6.119, 6.119, 6.119, 6.119, 6.119, 6.119, 6.119/ + DATA PF234/ + 1 6.227, 6.227, 6.227, 6.227, 6.227, 6.227, 6.227, + 2 6.339, 6.339, 6.339, 6.339, 6.339, 6.339, 6.339, + 3 6.455, 6.455, 6.455, 6.455, 6.455, 6.455, 6.455, + 4 6.576, 6.576, 6.576, 6.576, 6.576, 6.576, 6.576, + 5 6.702, 6.702, 6.702, 6.702, 6.702, 6.702, 6.702, + 6 6.923, 6.923, 6.923, 6.923, 6.923, 6.923, 6.923, + 7 7.158, 7.158, 7.158, 7.158, 7.158, 7.158, 7.158, + 8 7.408, 7.408, 7.408, 7.408, 7.408, 7.408, 7.408, + 9 7.674, 7.674, 7.674, 7.674, 7.674, 7.674, 7.674/ + DATA PF235/ + 1 7.953, 7.953, 7.953, 7.953, 7.953, 7.953, 7.953, + 2 8.247, 8.247, 8.247, 8.247, 8.247, 8.247, 8.247, + 3 8.551, 8.551, 8.551, 8.551, 8.551, 8.551, 8.551, + 4 8.866, 8.866, 8.866, 8.866, 8.866, 8.866, 8.866, + 5 9.187, 9.187, 9.187, 9.187, 9.187, 9.187, 9.187, + 6 9.514, 9.514, 9.514, 9.514, 9.514, 9.514, 9.514, + 7 9.842, 9.842, 9.842, 9.842, 9.842, 9.842, 9.842, + 8 10.170, 10.170, 10.170, 10.170, 10.170, 10.170, 10.170, + 9 10.499, 10.499, 10.499, 10.499, 10.499, 10.499, 10.499/ + DATA PF236/ + 1 10.829, 10.829, 10.829, 10.829, 10.829, 10.829, 10.829, + 2 11.169, 11.169, 11.169, 11.169, 11.169, 11.169, 11.169, + 3 11.534, 11.534, 11.534, 11.534, 11.534, 11.534, 11.534, + 4 11.953, 11.953, 11.953, 11.953, 11.953, 11.953, 11.953, + 5 12.472, 12.472, 12.472, 12.472, 12.472, 12.472, 12.472, + 6 13.169, 13.169, 13.169, 13.169, 13.169, 13.169, 13.169, + 7 14.156, 14.156, 14.156, 14.156, 14.156, 14.156, 14.156, + 8 15.603, 15.603, 15.603, 15.603, 15.603, 15.603, 15.603, + 9 17.762, 17.762, 17.762, 17.762, 17.762, 17.762, 17.762/ + DATA PF237/ + 1 21.013, 21.013, 21.013, 21.013, 21.013, 21.013, 21.013, + 2 25.942, 25.942, 25.942, 25.942, 25.941, 25.941, 25.940, + 3 33.459, 33.459, 33.459, 33.458, 33.457, 33.456, 33.452, + 4 44.982, 44.982, 44.982, 44.979, 44.975, 44.969, 44.958, + 5 4.000, 4.000, 4.000, 4.000, 4.000, 4.000, 4.000, + 6 4.000, 4.000, 4.000, 4.000, 4.000, 4.000, 4.000, + 7 4.000, 4.000, 4.000, 4.000, 4.000, 4.000, 4.000, + 8 4.000, 4.000, 4.000, 4.000, 4.000, 4.000, 4.000, + 9 4.000, 4.000, 4.000, 4.000, 4.000, 4.000, 4.000/ + DATA PF238/ + 1 4.000, 4.000, 4.000, 4.000, 4.000, 4.000, 4.000, + 2 4.000, 4.000, 4.000, 4.000, 4.000, 4.000, 4.000, + 3 4.000, 4.000, 4.000, 4.000, 4.000, 4.000, 4.000, + 4 4.000, 4.000, 4.000, 4.000, 4.000, 4.000, 4.000, + 5 4.000, 4.000, 4.000, 4.000, 4.000, 4.000, 4.000, + 6 4.000, 4.000, 4.000, 4.000, 4.000, 4.000, 4.000, + 7 4.000, 4.000, 4.000, 4.000, 4.000, 4.000, 4.000, + 8 4.000, 4.000, 4.000, 4.000, 4.000, 4.000, 4.000, + 9 4.000, 4.000, 4.000, 4.000, 4.000, 4.000, 4.000/ + DATA PF239/ + 1 4.000, 4.000, 4.000, 4.000, 4.000, 4.000, 4.000, + 2 4.000, 4.000, 4.000, 4.000, 4.000, 4.000, 4.000, + 3 4.000, 4.000, 4.000, 4.000, 4.000, 4.000, 4.000, + 4 4.000, 4.000, 4.000, 4.000, 4.000, 4.000, 4.000, + 5 4.000, 4.000, 4.000, 4.000, 4.000, 4.000, 4.000, + 6 4.000, 4.000, 4.000, 4.000, 4.000, 4.000, 4.000, + 7 4.001, 4.001, 4.001, 4.001, 4.001, 4.001, 4.001, + 8 4.001, 4.001, 4.001, 4.001, 4.001, 4.001, 4.001, + 9 4.002, 4.002, 4.002, 4.002, 4.002, 4.002, 4.002/ + DATA PF240/ + 1 4.004, 4.004, 4.004, 4.004, 4.004, 4.004, 4.004, + 2 4.007, 4.007, 4.007, 4.007, 4.007, 4.007, 4.007, + 3 4.012, 4.012, 4.012, 4.012, 4.012, 4.012, 4.012, + 4 4.018, 4.018, 4.018, 4.018, 4.018, 4.018, 4.018, + 5 4.028, 4.028, 4.028, 4.028, 4.028, 4.028, 4.028, + 6 4.042, 4.042, 4.042, 4.042, 4.042, 4.042, 4.042, + 7 4.060, 4.060, 4.060, 4.060, 4.060, 4.060, 4.060, + 8 4.106, 4.106, 4.106, 4.106, 4.106, 4.106, 4.106, + 9 4.176, 4.176, 4.176, 4.176, 4.176, 4.176, 4.176/ + DATA PF241/ + 1 4.278, 4.278, 4.278, 4.278, 4.278, 4.278, 4.278, + 2 4.418, 4.418, 4.418, 4.418, 4.418, 4.418, 4.418, + 3 4.604, 4.604, 4.604, 4.604, 4.604, 4.604, 4.604, + 4 4.841, 4.841, 4.841, 4.841, 4.841, 4.841, 4.841, + 5 5.134, 5.134, 5.134, 5.134, 5.134, 5.134, 5.134, + 6 5.485, 5.485, 5.485, 5.485, 5.485, 5.485, 5.485, + 7 5.894, 5.894, 5.894, 5.894, 5.894, 5.894, 5.894, + 8 6.358, 6.358, 6.358, 6.358, 6.358, 6.358, 6.358, + 9 6.874, 6.874, 6.874, 6.874, 6.874, 6.874, 6.874/ + DATA PF242/ + 1 7.436, 7.436, 7.436, 7.436, 7.436, 7.436, 7.436, + 2 8.040, 8.040, 8.040, 8.040, 8.040, 8.040, 8.040, + 3 8.682, 8.682, 8.682, 8.682, 8.682, 8.682, 8.682, + 4 9.363, 9.363, 9.363, 9.363, 9.363, 9.363, 9.363, + 5 10.088, 10.088, 10.088, 10.088, 10.088, 10.088, 10.088, + 6 10.875, 10.875, 10.875, 10.875, 10.875, 10.875, 10.875, + 7 11.754, 11.754, 11.754, 11.754, 11.754, 11.754, 11.754, + 8 12.778, 12.778, 12.778, 12.778, 12.778, 12.778, 12.778, + 9 14.025, 14.025, 14.025, 14.025, 14.025, 14.025, 14.025/ + DATA PF243/ + 1 15.611, 15.611, 15.611, 15.611, 15.611, 15.611, 15.611, + 2 17.707, 17.707, 17.707, 17.707, 17.707, 17.707, 17.707, + 3 20.556, 20.556, 20.556, 20.556, 20.556, 20.556, 20.556, + 4 24.515, 24.515, 24.515, 24.515, 24.515, 24.515, 24.515, + 5 30.111, 30.111, 30.111, 30.111, 30.111, 30.111, 30.111, + 6 38.133, 38.133, 38.133, 38.133, 38.133, 38.133, 38.132, + 7 1.176, 1.176, 1.176, 1.176, 1.176, 1.176, 1.176, + 8 1.202, 1.202, 1.202, 1.202, 1.202, 1.202, 1.202, + 9 1.231, 1.231, 1.231, 1.231, 1.231, 1.231, 1.231/ + DATA PF244/ + 1 1.262, 1.262, 1.262, 1.262, 1.262, 1.262, 1.262, + 2 1.296, 1.296, 1.296, 1.296, 1.296, 1.296, 1.296, + 3 1.334, 1.334, 1.334, 1.334, 1.334, 1.334, 1.334, + 4 1.374, 1.374, 1.374, 1.374, 1.374, 1.374, 1.374, + 5 1.418, 1.418, 1.418, 1.418, 1.418, 1.418, 1.418, + 6 1.466, 1.466, 1.466, 1.466, 1.466, 1.466, 1.466, + 7 1.517, 1.517, 1.517, 1.517, 1.517, 1.517, 1.517, + 8 1.571, 1.571, 1.571, 1.571, 1.571, 1.571, 1.571, + 9 1.630, 1.630, 1.630, 1.630, 1.630, 1.630, 1.630/ + DATA PF245/ + 1 1.692, 1.692, 1.692, 1.692, 1.692, 1.692, 1.692, + 2 1.758, 1.758, 1.758, 1.758, 1.758, 1.758, 1.758, + 3 1.828, 1.828, 1.828, 1.828, 1.828, 1.828, 1.828, + 4 1.903, 1.903, 1.903, 1.903, 1.903, 1.903, 1.903, + 5 1.981, 1.981, 1.981, 1.981, 1.981, 1.981, 1.981, + 6 2.063, 2.063, 2.063, 2.063, 2.063, 2.063, 2.063, + 7 2.149, 2.149, 2.149, 2.149, 2.149, 2.149, 2.149, + 8 2.239, 2.239, 2.239, 2.239, 2.239, 2.239, 2.239, + 9 2.380, 2.380, 2.380, 2.380, 2.380, 2.380, 2.380/ + DATA PF246/ + 1 2.531, 2.531, 2.531, 2.531, 2.531, 2.531, 2.531, + 2 2.689, 2.689, 2.689, 2.689, 2.689, 2.689, 2.689, + 3 2.854, 2.854, 2.854, 2.854, 2.854, 2.854, 2.854, + 4 3.027, 3.027, 3.027, 3.027, 3.027, 3.027, 3.027, + 5 3.206, 3.206, 3.206, 3.206, 3.206, 3.206, 3.206, + 6 3.391, 3.391, 3.391, 3.391, 3.391, 3.391, 3.391, + 7 3.582, 3.582, 3.582, 3.582, 3.582, 3.582, 3.582, + 8 3.778, 3.778, 3.778, 3.778, 3.778, 3.778, 3.778, + 9 3.980, 3.980, 3.980, 3.980, 3.980, 3.980, 3.980/ + DATA PF247/ + 1 4.327, 4.327, 4.327, 4.327, 4.327, 4.327, 4.327, + 2 4.686, 4.686, 4.686, 4.686, 4.686, 4.686, 4.686, + 3 5.058, 5.058, 5.058, 5.058, 5.058, 5.058, 5.058, + 4 5.442, 5.442, 5.442, 5.442, 5.442, 5.442, 5.442, + 5 5.837, 5.837, 5.837, 5.837, 5.837, 5.837, 5.837, + 6 6.241, 6.241, 6.241, 6.241, 6.241, 6.241, 6.241, + 7 6.654, 6.654, 6.654, 6.654, 6.654, 6.654, 6.654, + 8 7.074, 7.074, 7.074, 7.074, 7.074, 7.074, 7.074, + 9 7.499, 7.499, 7.499, 7.499, 7.499, 7.499, 7.499/ + DATA PF248/ + 1 7.927, 7.927, 7.927, 7.927, 7.927, 7.927, 7.927, + 2 8.358, 8.358, 8.358, 8.358, 8.358, 8.358, 8.358, + 3 8.792, 8.792, 8.792, 8.792, 8.792, 8.792, 8.792, + 4 9.230, 9.230, 9.230, 9.230, 9.230, 9.230, 9.230, + 5 9.679, 9.679, 9.679, 9.679, 9.679, 9.679, 9.679, + 6 10.148, 10.148, 10.148, 10.148, 10.148, 10.148, 10.148, + 7 10.651, 10.651, 10.651, 10.651, 10.651, 10.651, 10.651, + 8 11.210, 11.210, 11.210, 11.210, 11.210, 11.210, 11.210, + 9 11.856, 11.856, 11.856, 11.856, 11.856, 11.856, 11.856/ + DATA PF249/ + 1 12.631, 12.631, 12.631, 12.631, 12.631, 12.631, 12.631, + 2 13.593, 13.593, 13.593, 13.593, 13.593, 13.593, 13.593, + 3 14.822, 14.822, 14.822, 14.822, 14.822, 14.822, 14.822, + 4 16.428, 16.428, 16.428, 16.428, 16.428, 16.428, 16.428, + 5 18.563, 18.563, 18.563, 18.563, 18.563, 18.563, 18.563, + 6 21.438, 21.438, 21.438, 21.438, 21.438, 21.438, 21.438, + 7 25.346, 25.346, 25.346, 25.346, 25.346, 25.346, 25.346, + 8 30.698, 30.698, 30.698, 30.698, 30.698, 30.698, 30.698, + 9 7.123, 7.123, 7.123, 7.123, 7.123, 7.123, 7.123/ + DATA PF250/ + 1 7.157, 7.157, 7.157, 7.157, 7.157, 7.157, 7.157, + 2 7.199, 7.199, 7.199, 7.199, 7.199, 7.199, 7.199, + 3 7.249, 7.249, 7.249, 7.249, 7.249, 7.249, 7.249, + 4 7.310, 7.310, 7.310, 7.310, 7.310, 7.310, 7.309, + 5 7.380, 7.380, 7.380, 7.380, 7.380, 7.380, 7.380, + 6 7.463, 7.463, 7.463, 7.463, 7.463, 7.463, 7.463, + 7 7.560, 7.560, 7.560, 7.560, 7.560, 7.560, 7.559, + 8 7.671, 7.671, 7.671, 7.671, 7.671, 7.671, 7.669, + 9 7.798, 7.798, 7.798, 7.798, 7.798, 7.798, 7.795/ + DATA PF251/ + 1 7.943, 7.943, 7.943, 7.943, 7.943, 7.943, 7.938, + 2 8.107, 8.107, 8.107, 8.107, 8.107, 8.107, 8.099, + 3 8.293, 8.293, 8.293, 8.293, 8.293, 8.293, 8.278, + 4 8.501, 8.501, 8.501, 8.501, 8.501, 8.501, 8.479, + 5 8.735, 8.735, 8.735, 8.735, 8.735, 8.735, 8.700, + 6 8.998, 8.998, 8.998, 8.998, 8.998, 8.998, 8.945, + 7 9.292, 9.292, 9.292, 9.292, 9.292, 9.292, 9.213, + 8 9.623, 9.623, 9.623, 9.623, 9.623, 9.622, 9.506, + 9 9.995, 9.995, 9.995, 9.995, 9.994, 9.992, 9.826/ + DATA PF252/ + 1 10.414, 10.414, 10.414, 10.414, 10.412, 10.409, 10.172, + 2 11.148, 11.148, 11.148, 11.148, 11.145, 11.138, 10.747, + 3 12.040, 12.040, 12.039, 12.038, 12.032, 12.017, 11.389, + 4 13.131, 13.131, 13.129, 13.127, 13.112, 13.083, 12.105, + 5 14.480, 14.478, 14.475, 14.469, 14.438, 14.381, 12.898, + 6 16.157, 16.154, 16.146, 16.135, 16.073, 15.966, 13.773, + 7 18.256, 18.250, 18.234, 18.211, 18.091, 17.899, 14.733, + 8 20.893, 20.880, 20.849, 20.805, 20.583, 20.253, 15.782, + 9 24.210, 24.187, 24.128, 24.048, 23.654, 23.104, 16.922/ + DATA PF253/ + 1 28.384, 28.342, 28.236, 28.094, 27.422, 26.536, 18.155, + 2 33.621, 33.549, 33.365, 33.123, 32.017, 30.634, 19.482, + 3 45.393, 45.226, 44.803, 44.262, 41.897, 39.176, 21.900, + 4 62.161, 61.807, 60.920, 59.810, 55.151, 50.172, 24.566, + 5 85.505, 84.813, 83.099, 80.991, 72.467, 63.928, 27.460, + 6 117.147, 115.892, 112.806, 109.073, 94.466, 80.650, 30.555, + 7 158.815, 156.679, 151.467, 145.256, 121.644, 100.420, 33.812, + 8 212.068, 208.639, 200.326, 190.546, 154.315, 123.189, 37.193, + 9 278.133, 272.905, 260.299, 245.642, 192.573, 148.775, 40.653/ + DATA PF254/ + 1 357.757, 350.143, 331.876, 310.855, 236.276, 176.883, 44.148, + 2 451.119, 440.473, 415.049, 386.061, 285.054, 207.124, 47.638, + 3 557.795, 543.443, 509.306, 470.702, 338.335, 239.048, 51.082, + 4 676.789, 658.058, 613.669, 563.837, 395.393, 272.170, 54.449, + 5 806.615, 782.869, 726.773, 664.207, 455.393, 306.002, 57.708, + 6 945.415, 916.078, 846.969, 770.336, 517.447, 340.073, 60.837, + 7 1091.092, 1055.670, 972.439, 880.623, 580.664, 373.950, 63.818, + 8 1241.441, 1199.539,1101.308, 993.441, 644.187, 407.250, 66.639, + 9 1394.271, 1345.602,1231.737,1107.214, 707.233, 439.645, 69.291/ + DATA PF255/ + 1 1547.507, 1491.892,1362.008,1220.483, 769.109, 470.869, 71.771, + 2 1699.264, 1636.625,1490.574,1331.950, 829.228, 500.716, 74.078, + 3 1847.894, 1778.252,1616.103,1440.505, 887.111, 529.034, 76.214, + 4 1992.015, 1915.474,1737.489,1545.237, 942.390, 555.723, 78.185, + 5 2130.518, 2047.254,1853.855,1645.434, 994.797, 580.726, 79.996, + 6 2262.556, 2172.804,1964.547,1740.572,1044.155, 604.024, 81.655, + 7 2387.530, 2291.570,2069.111,1830.298,1090.370, 625.631, 83.170, + 8 2505.057, 2403.204,2167.272,1914.408,1133.414, 645.584, 84.549, + 9 2614.947, 2507.537,2258.912,1992.830,1173.316, 663.939, 85.803/ + DATA PF256/ + 1 2717.167, 2604.550,2344.038,2065.593,1210.150, 680.766, 86.941, + 2 6.006, 6.006, 6.006, 6.006, 6.006, 6.006, 6.006, + 3 6.010, 6.010, 6.010, 6.010, 6.010, 6.010, 6.010, + 4 6.014, 6.014, 6.014, 6.014, 6.014, 6.014, 6.014, + 5 6.019, 6.019, 6.019, 6.019, 6.019, 6.019, 6.019, + 6 6.027, 6.027, 6.027, 6.027, 6.027, 6.027, 6.027, + 7 6.038, 6.038, 6.038, 6.038, 6.038, 6.038, 6.038, + 8 6.051, 6.051, 6.051, 6.051, 6.051, 6.051, 6.051, + 9 6.069, 6.069, 6.069, 6.069, 6.069, 6.069, 6.069/ + DATA PF257/ + 1 6.091, 6.091, 6.091, 6.091, 6.091, 6.091, 6.091, + 2 6.119, 6.119, 6.119, 6.119, 6.119, 6.119, 6.119, + 3 6.155, 6.155, 6.155, 6.155, 6.155, 6.155, 6.155, + 4 6.200, 6.200, 6.200, 6.200, 6.200, 6.200, 6.200, + 5 6.254, 6.254, 6.254, 6.254, 6.254, 6.254, 6.254, + 6 6.321, 6.321, 6.321, 6.321, 6.321, 6.321, 6.321, + 7 6.402, 6.402, 6.402, 6.402, 6.402, 6.402, 6.402, + 8 6.500, 6.500, 6.500, 6.500, 6.500, 6.500, 6.500, + 9 6.618, 6.618, 6.618, 6.618, 6.618, 6.618, 6.618/ + DATA PF258/ + 1 6.758, 6.758, 6.758, 6.758, 6.758, 6.758, 6.758, + 2 6.924, 6.924, 6.924, 6.924, 6.924, 6.924, 6.924, + 3 7.119, 7.119, 7.119, 7.119, 7.119, 7.119, 7.119, + 4 7.479, 7.479, 7.479, 7.479, 7.479, 7.479, 7.479, + 5 7.933, 7.933, 7.933, 7.933, 7.933, 7.933, 7.933, + 6 8.504, 8.504, 8.504, 8.504, 8.504, 8.504, 8.504, + 7 9.215, 9.215, 9.215, 9.215, 9.215, 9.215, 9.215, + 8 10.096, 10.096, 10.096, 10.096, 10.096, 10.096, 10.096, + 9 11.181, 11.181, 11.181, 11.181, 11.181, 11.181, 11.181/ + DATA PF259/ + 1 12.513, 12.513, 12.513, 12.513, 12.513, 12.513, 12.513, + 2 14.136, 14.136, 14.136, 14.136, 14.136, 14.136, 14.136, + 3 16.105, 16.105, 16.105, 16.105, 16.105, 16.105, 16.105, + 4 18.483, 18.483, 18.483, 18.482, 18.482, 18.482, 18.482, + 5 23.546, 23.546, 23.546, 23.546, 23.546, 23.545, 23.541, + 6 30.334, 30.334, 30.333, 30.333, 30.331, 30.327, 30.309, + 7 39.351, 39.351, 39.350, 39.349, 39.340, 39.321, 39.253, + 8 51.284, 51.283, 51.277, 51.273, 51.236, 51.166, 50.941, + 9 67.117, 67.112, 67.093, 67.077, 66.948, 66.714, 66.060/ + DATA PF260/ + 1 88.325, 88.308, 88.249, 88.197, 87.804, 87.119, 85.423, + 2 117.134, 117.085, 116.919, 116.777, 115.715, 113.930, 109.961, + 3 156.815, 156.694, 156.277, 155.923, 153.348, 149.158, 140.677, + 4 211.945, 211.668, 210.724, 209.929, 204.257, 195.290, 178.592, + 5 288.513, 287.935, 285.980, 284.341, 272.876, 255.207, 224.644, + 6 393.796, 392.683, 388.941, 385.821, 364.351, 332.009, 279.596, + 7 535.941, 533.947, 527.272, 521.733, 484.180, 428.742, 343.941, + 8 723.292, 719.938, 708.758, 699.518, 637.709, 548.081, 417.828, + 9 963.543, 958.211, 940.507, 925.928, 829.560, 692.026, 501.025/ + DATA PF261/ + 1 1262.881, 1254.821,1228.152,1206.264,1063.095, 861.645, 592.923, + 2 1625.255, 1613.609,1575.186,1543.743,1340.007,1056.922, 692.566, + 3 2051.899, 2035.730,1982.529,1939.106,1660.089,1276.726, 798.722, + 4 2541.153, 2519.491,2448.388,2390.489,2021.221,1518.888, 909.960, + 5 3088.595, 3060.483,2968.406,2893.582,2419.537,1780.368,1024.743, + 6 3687.426, 3651.963,3536.029,3441.993,2849.748,2057.487,1141.511, + 7 4329.026, 4285.406,4143.046,4027.765,3305.545,2346.179,1258.757, + 8 5003.596, 4951.136,4780.188,4641.959,3780.035,2642.238,1375.085, + 9 5700.796, 5638.959,5437.725,5275.221,4266.161,2941.538,1489.255/ + DATA PF262/ + 1 6410.329, 6338.731,6106.012,5918.300,4757.061,3240.214,1600.207, + 2 7122.420, 7040.831,6775.921,6562.465,5246.354,3534.790,1707.073, + 3 7828.173, 7736.510,7439.175,7199.813,5728.346,3822.262,1809.177, + 4 19.811, 19.811, 19.811, 19.811, 19.811, 19.811, 19.811, + 5 20.011, 20.011, 20.011, 20.011, 20.011, 20.011, 20.011, + 6 20.206, 20.206, 20.206, 20.206, 20.206, 20.206, 20.206, + 7 20.394, 20.394, 20.394, 20.394, 20.394, 20.394, 20.394, + 8 20.577, 20.577, 20.577, 20.577, 20.577, 20.577, 20.577, + 9 20.754, 20.754, 20.754, 20.754, 20.754, 20.754, 20.754/ + DATA PF263/ + 1 20.926, 20.926, 20.926, 20.926, 20.926, 20.926, 20.926, + 2 21.093, 21.093, 21.093, 21.093, 21.093, 21.093, 21.093, + 3 21.256, 21.256, 21.256, 21.256, 21.256, 21.256, 21.256, + 4 21.415, 21.415, 21.415, 21.415, 21.415, 21.415, 21.415, + 5 21.572, 21.572, 21.572, 21.572, 21.572, 21.572, 21.572, + 6 21.727, 21.727, 21.727, 21.727, 21.727, 21.727, 21.727, + 7 21.882, 21.882, 21.882, 21.882, 21.882, 21.882, 21.882, + 8 22.038, 22.038, 22.038, 22.038, 22.038, 22.038, 22.038, + 9 22.196, 22.196, 22.196, 22.196, 22.196, 22.196, 22.196/ + DATA PF264/ + 1 22.360, 22.360, 22.360, 22.360, 22.360, 22.360, 22.360, + 2 22.531, 22.531, 22.531, 22.531, 22.531, 22.531, 22.531, + 3 22.711, 22.711, 22.711, 22.711, 22.711, 22.711, 22.711, + 4 22.905, 22.905, 22.905, 22.905, 22.905, 22.905, 22.905, + 5 23.115, 23.115, 23.115, 23.115, 23.115, 23.115, 23.115, + 6 23.468, 23.468, 23.468, 23.468, 23.468, 23.468, 23.468, + 7 23.878, 23.878, 23.878, 23.878, 23.878, 23.878, 23.878, + 8 24.361, 24.361, 24.361, 24.361, 24.361, 24.361, 24.361, + 9 24.932, 24.932, 24.932, 24.932, 24.932, 24.932, 24.932/ + DATA PF265/ + 1 25.607, 25.607, 25.607, 25.607, 25.607, 25.607, 25.607, + 2 26.403, 26.403, 26.403, 26.403, 26.403, 26.403, 26.403, + 3 27.337, 27.337, 27.337, 27.337, 27.337, 27.337, 27.337, + 4 28.424, 28.424, 28.424, 28.424, 28.424, 28.424, 28.424, + 5 29.681, 29.681, 29.681, 29.681, 29.681, 29.681, 29.681, + 6 31.123, 31.123, 31.123, 31.123, 31.123, 31.123, 31.123, + 7 33.975, 33.975, 33.975, 33.975, 33.975, 33.975, 33.975, + 8 37.444, 37.444, 37.444, 37.444, 37.444, 37.444, 37.444, + 9 41.593, 41.593, 41.593, 41.593, 41.593, 41.593, 41.593/ + DATA PF266/ + 1 46.493, 46.493, 46.493, 46.493, 46.493, 46.493, 46.493, + 2 52.230, 52.230, 52.230, 52.230, 52.230, 52.230, 52.230, + 3 58.922, 58.922, 58.922, 58.922, 58.922, 58.921, 58.921, + 4 66.740, 66.740, 66.740, 66.740, 66.739, 66.737, 66.733, + 5 75.952, 75.952, 75.951, 75.950, 75.946, 75.933, 75.914, + 6 87.001, 86.999, 86.997, 86.991, 86.974, 86.917, 86.839, + 7 100.669, 100.662, 100.656, 100.632, 100.567, 100.351, 100.077, + 8 118.374, 118.351, 118.328, 118.249, 118.030, 117.331, 116.488, + 9 142.640, 142.572, 142.502, 142.267, 141.625, 139.630, 137.332/ + DATA PF267/ + 1 177.738, 177.556, 177.370, 176.751, 175.073, 169.993, 164.377, + 2 230.398, 229.961, 229.518, 228.050, 224.102, 212.416, 199.958, + 3 310.396, 309.446, 308.483, 305.316, 296.852, 272.296, 246.951, + 4 430.781, 428.882, 426.960, 420.673, 403.971, 356.375, 308.638, + 5 607.516, 603.995, 600.437, 588.854, 558.242, 472.393, 388.456, + 6 858.470, 852.368, 846.205, 826.240, 773.710, 628.481, 489.667, + 7 1201.849, 1191.885,1181.832,1149.396,1064.397, 832.366, 615.004, + 8 1654.310, 1638.886,1623.334,1573.347,1442.822,1090.522, 766.348, + 9 2229.096, 2206.327,2183.387,2109.890,1918.590,1407.425, 944.499/ + DATA PF268/ + 1 2934.518, 2902.301,2869.861,2766.233,2497.277,1785.028,1149.065, + 2 3773.008, 3729.110,3684.934,3544.182,3179.798,2222.521,1378.478, + 3 4740.848, 4683.014,4624.842,4439.926,3962.293,2716.399,1630.131, + 4 5828.546, 5754.602,5680.259,5444.426,4836.504,3260.778,1900.585, + 5 7021.723, 6929.676,6837.166,6544.247,5790.527,3847.903,2185.835, + 6 19.764, 19.764, 19.764, 19.764, 19.764, 19.764, 19.764, + 7 20.053, 20.053, 20.053, 20.053, 20.053, 20.053, 20.053, + 8 20.334, 20.334, 20.334, 20.334, 20.334, 20.334, 20.334, + 9 20.610, 20.610, 20.610, 20.610, 20.610, 20.610, 20.610/ + DATA PF269/ + 1 20.879, 20.879, 20.879, 20.879, 20.879, 20.879, 20.879, + 2 21.142, 21.142, 21.142, 21.142, 21.142, 21.142, 21.142, + 3 21.399, 21.399, 21.399, 21.399, 21.399, 21.399, 21.399, + 4 21.650, 21.650, 21.650, 21.650, 21.650, 21.650, 21.650, + 5 21.897, 21.897, 21.897, 21.897, 21.897, 21.897, 21.897, + 6 22.139, 22.139, 22.139, 22.139, 22.139, 22.139, 22.139, + 7 22.378, 22.378, 22.378, 22.378, 22.378, 22.378, 22.378, + 8 22.614, 22.614, 22.614, 22.614, 22.614, 22.614, 22.614, + 9 22.848, 22.848, 22.848, 22.848, 22.848, 22.848, 22.848/ + DATA PF270/ + 1 23.082, 23.082, 23.082, 23.082, 23.082, 23.082, 23.082, + 2 23.318, 23.318, 23.318, 23.318, 23.318, 23.318, 23.318, + 3 23.555, 23.555, 23.555, 23.555, 23.555, 23.555, 23.555, + 4 23.798, 23.798, 23.798, 23.798, 23.798, 23.798, 23.798, + 5 24.046, 24.046, 24.046, 24.046, 24.046, 24.046, 24.046, + 6 24.303, 24.303, 24.303, 24.303, 24.303, 24.303, 24.303, + 7 24.570, 24.570, 24.570, 24.570, 24.570, 24.570, 24.570, + 8 24.996, 24.996, 24.996, 24.996, 24.996, 24.996, 24.996, + 9 25.459, 25.459, 25.459, 25.459, 25.459, 25.459, 25.459/ + DATA PF271/ + 1 25.968, 25.968, 25.968, 25.968, 25.968, 25.968, 25.968, + 2 26.530, 26.530, 26.530, 26.530, 26.530, 26.530, 26.530, + 3 27.156, 27.156, 27.156, 27.156, 27.156, 27.156, 27.156, + 4 27.851, 27.851, 27.851, 27.851, 27.851, 27.851, 27.851, + 5 28.625, 28.625, 28.625, 28.625, 28.625, 28.625, 28.625, + 6 29.483, 29.483, 29.483, 29.483, 29.483, 29.483, 29.483, + 7 30.430, 30.430, 30.430, 30.430, 30.430, 30.430, 30.430, + 8 31.472, 31.472, 31.472, 31.472, 31.472, 31.472, 31.472, + 9 33.425, 33.425, 33.425, 33.425, 33.425, 33.425, 33.425/ + DATA PF272/ + 1 35.652, 35.652, 35.652, 35.652, 35.652, 35.652, 35.652, + 2 38.150, 38.150, 38.150, 38.150, 38.150, 38.150, 38.150, + 3 40.906, 40.906, 40.906, 40.906, 40.906, 40.906, 40.906, + 4 43.900, 43.900, 43.900, 43.900, 43.900, 43.900, 43.900, + 5 47.108, 47.108, 47.108, 47.108, 47.108, 47.108, 47.108, + 6 50.509, 50.509, 50.509, 50.509, 50.509, 50.509, 50.509, + 7 54.086, 54.086, 54.086, 54.086, 54.086, 54.086, 54.086, + 8 57.841, 57.841, 57.841, 57.841, 57.841, 57.841, 57.841, + 9 61.795, 61.795, 61.795, 61.795, 61.795, 61.795, 61.794/ + DATA PF273/ + 1 66.012, 66.012, 66.012, 66.012, 66.012, 66.011, 66.009, + 2 70.622, 70.621, 70.621, 70.621, 70.619, 70.616, 70.606, + 3 75.873, 75.872, 75.872, 75.872, 75.863, 75.850, 75.803, + 4 82.248, 82.245, 82.243, 82.243, 82.209, 82.158, 81.985, + 5 90.661, 90.648, 90.643, 90.641, 90.526, 90.360, 89.804, + 6 102.787, 102.748, 102.732, 102.729, 102.387, 101.904, 100.337, + 7 121.508, 121.405, 121.360, 121.352, 120.453, 119.202, 115.254, + 8 151.404, 151.156, 151.049, 151.030, 148.899, 145.976, 136.985, + 9 199.164, 198.625, 198.392, 198.350, 193.751, 187.524, 168.799/ + DATA PF274/ + 1 273.743, 272.663, 272.196, 272.112, 262.983, 250.767, 214.758, + 2 386.115, 384.109, 383.242, 383.087, 366.265, 343.992, 279.499, + 3 548.578, 545.097, 543.591, 543.324, 514.323, 476.280, 367.860, + 4 773.679, 767.986, 765.526, 765.089, 717.965, 656.664, 484.405, + 5 1072.906, 1064.084,1060.271,1059.596, 986.963, 893.175, 632.924, + 6 1455.419, 1442.382,1436.749,1435.753,1328.947,1191.941, 815.999, + 7 1926.998, 1908.533,1900.557,1899.149,1748.542,1556.482,1034.709, + 8 14.034, 14.034, 14.034, 14.034, 14.034, 14.034, 14.034, + 9 14.260, 14.260, 14.260, 14.260, 14.260, 14.260, 14.260/ + DATA PF275/ + 1 14.483, 14.483, 14.483, 14.483, 14.483, 14.483, 14.483, + 2 14.701, 14.701, 14.701, 14.701, 14.701, 14.701, 14.701, + 3 14.916, 14.916, 14.916, 14.916, 14.916, 14.916, 14.916, + 4 15.126, 15.126, 15.126, 15.126, 15.126, 15.126, 15.126, + 5 15.332, 15.332, 15.332, 15.332, 15.332, 15.332, 15.332, + 6 15.535, 15.535, 15.535, 15.535, 15.535, 15.535, 15.535, + 7 15.733, 15.733, 15.733, 15.733, 15.733, 15.733, 15.733, + 8 15.928, 15.928, 15.928, 15.928, 15.928, 15.928, 15.928, + 9 16.119, 16.119, 16.119, 16.119, 16.119, 16.119, 16.119/ + DATA PF276/ + 1 16.308, 16.308, 16.308, 16.308, 16.308, 16.308, 16.308, + 2 16.493, 16.493, 16.493, 16.493, 16.493, 16.493, 16.493, + 3 16.676, 16.676, 16.676, 16.676, 16.676, 16.676, 16.676, + 4 16.858, 16.858, 16.858, 16.858, 16.858, 16.858, 16.858, + 5 17.038, 17.038, 17.038, 17.038, 17.038, 17.038, 17.038, + 6 17.217, 17.217, 17.217, 17.217, 17.217, 17.217, 17.217, + 7 17.397, 17.397, 17.397, 17.397, 17.397, 17.397, 17.397, + 8 17.577, 17.577, 17.577, 17.577, 17.577, 17.577, 17.577, + 9 17.759, 17.759, 17.759, 17.759, 17.759, 17.759, 17.759/ + DATA PF277/ + 1 18.037, 18.037, 18.037, 18.037, 18.037, 18.037, 18.037, + 2 18.322, 18.322, 18.322, 18.322, 18.322, 18.322, 18.322, + 3 18.618, 18.618, 18.618, 18.618, 18.618, 18.618, 18.618, + 4 18.928, 18.928, 18.928, 18.928, 18.928, 18.928, 18.928, + 5 19.253, 19.253, 19.253, 19.253, 19.253, 19.253, 19.253, + 6 19.597, 19.597, 19.597, 19.597, 19.597, 19.597, 19.597, + 7 19.962, 19.962, 19.962, 19.962, 19.962, 19.962, 19.962, + 8 20.348, 20.348, 20.348, 20.348, 20.348, 20.348, 20.348, + 9 20.758, 20.758, 20.758, 20.758, 20.758, 20.758, 20.758/ + DATA PF278/ + 1 21.192, 21.192, 21.192, 21.192, 21.192, 21.192, 21.192, + 2 21.968, 21.968, 21.968, 21.968, 21.968, 21.968, 21.968, + 3 22.811, 22.811, 22.811, 22.811, 22.811, 22.811, 22.811, + 4 23.714, 23.714, 23.714, 23.714, 23.714, 23.714, 23.714, + 5 24.671, 24.671, 24.671, 24.671, 24.671, 24.671, 24.671, + 6 25.670, 25.670, 25.670, 25.670, 25.670, 25.670, 25.670, + 7 26.702, 26.702, 26.702, 26.702, 26.702, 26.702, 26.702, + 8 27.753, 27.753, 27.753, 27.753, 27.753, 27.753, 27.753, + 9 28.812, 28.812, 28.812, 28.812, 28.812, 28.812, 28.812/ + DATA PF279/ + 1 29.869, 29.869, 29.869, 29.869, 29.869, 29.869, 29.869, + 2 30.916, 30.916, 30.916, 30.916, 30.916, 30.916, 30.916, + 3 31.948, 31.948, 31.948, 31.948, 31.948, 31.948, 31.948, + 4 32.967, 32.967, 32.967, 32.967, 32.967, 32.967, 32.967, + 5 33.984, 33.984, 33.984, 33.984, 33.984, 33.984, 33.984, + 6 35.025, 35.025, 35.025, 35.025, 35.025, 35.025, 35.024, + 7 36.147, 36.147, 36.147, 36.147, 36.147, 36.147, 36.145, + 8 37.462, 37.462, 37.462, 37.462, 37.462, 37.462, 37.455, + 9 39.188, 39.188, 39.188, 39.187, 39.187, 39.186, 39.160/ + DATA PF280/ + 1 41.725, 41.725, 41.725, 41.723, 41.723, 41.720, 41.633, + 2 45.780, 45.780, 45.779, 45.775, 45.775, 45.764, 45.517, + 3 52.511, 52.511, 52.508, 52.497, 52.497, 52.468, 51.839, + 4 63.676, 63.673, 63.666, 63.641, 63.641, 63.572, 62.125, + 5 81.733, 81.728, 81.713, 81.658, 81.658, 81.510, 78.470, + 6 109.854, 109.843, 109.813, 109.703, 109.703, 109.412, 103.519, + 7 151.788, 151.769, 151.713, 151.509, 151.509, 150.974, 140.345, + 8 211.601, 211.569, 211.471, 211.118, 211.118, 210.200, 192.220, + 9 293.300, 293.247, 293.087, 292.511, 292.511, 291.025, 262.301/ + DATA PF281/ + 1 7.141, 7.141, 7.141, 7.141, 7.141, 7.141, 7.141, + 2 7.234, 7.234, 7.234, 7.234, 7.234, 7.234, 7.234, + 3 7.325, 7.325, 7.325, 7.325, 7.325, 7.325, 7.325, + 4 7.414, 7.414, 7.414, 7.414, 7.414, 7.414, 7.414, + 5 7.502, 7.502, 7.502, 7.502, 7.502, 7.502, 7.502, + 6 7.588, 7.588, 7.588, 7.588, 7.588, 7.588, 7.588, + 7 7.672, 7.672, 7.672, 7.672, 7.672, 7.672, 7.672, + 8 7.754, 7.754, 7.754, 7.754, 7.754, 7.754, 7.754, + 9 7.834, 7.834, 7.834, 7.834, 7.834, 7.834, 7.834/ + DATA PF282/ + 1 7.912, 7.912, 7.912, 7.912, 7.912, 7.912, 7.912, + 2 7.988, 7.988, 7.988, 7.988, 7.988, 7.988, 7.988, + 3 8.062, 8.062, 8.062, 8.062, 8.062, 8.062, 8.062, + 4 8.134, 8.134, 8.134, 8.134, 8.134, 8.134, 8.134, + 5 8.204, 8.204, 8.204, 8.204, 8.204, 8.204, 8.204, + 6 8.272, 8.272, 8.272, 8.272, 8.272, 8.272, 8.272, + 7 8.338, 8.338, 8.338, 8.338, 8.338, 8.338, 8.338, + 8 8.401, 8.401, 8.401, 8.401, 8.401, 8.401, 8.401, + 9 8.463, 8.463, 8.463, 8.463, 8.463, 8.463, 8.463/ + DATA PF283/ + 1 8.523, 8.523, 8.523, 8.523, 8.523, 8.523, 8.523, + 2 8.581, 8.581, 8.581, 8.581, 8.581, 8.581, 8.581, + 3 8.664, 8.664, 8.664, 8.664, 8.664, 8.664, 8.664, + 4 8.743, 8.743, 8.743, 8.743, 8.743, 8.743, 8.743, + 5 8.818, 8.818, 8.818, 8.818, 8.818, 8.818, 8.818, + 6 8.889, 8.889, 8.889, 8.889, 8.889, 8.889, 8.889, + 7 8.957, 8.957, 8.957, 8.957, 8.957, 8.957, 8.957, + 8 9.020, 9.020, 9.020, 9.020, 9.020, 9.020, 9.020, + 9 9.080, 9.080, 9.080, 9.080, 9.080, 9.080, 9.080/ + DATA PF284/ + 1 9.137, 9.137, 9.137, 9.137, 9.137, 9.137, 9.137, + 2 9.191, 9.191, 9.191, 9.191, 9.191, 9.191, 9.191, + 3 9.241, 9.241, 9.241, 9.241, 9.241, 9.241, 9.241, + 4 9.319, 9.319, 9.319, 9.319, 9.319, 9.319, 9.319, + 5 9.389, 9.389, 9.389, 9.389, 9.389, 9.389, 9.389, + 6 9.452, 9.452, 9.452, 9.452, 9.452, 9.452, 9.452, + 7 9.509, 9.509, 9.509, 9.509, 9.509, 9.509, 9.509, + 8 9.561, 9.561, 9.561, 9.561, 9.561, 9.561, 9.561, + 9 9.607, 9.607, 9.607, 9.607, 9.607, 9.607, 9.607/ + DATA PF285/ + 1 9.648, 9.648, 9.648, 9.648, 9.648, 9.648, 9.648, + 2 9.685, 9.685, 9.685, 9.685, 9.685, 9.685, 9.685, + 3 9.719, 9.719, 9.719, 9.719, 9.719, 9.719, 9.719, + 4 9.749, 9.749, 9.749, 9.749, 9.749, 9.749, 9.749, + 5 9.776, 9.776, 9.776, 9.776, 9.776, 9.776, 9.776, + 6 9.801, 9.801, 9.801, 9.801, 9.801, 9.801, 9.801, + 7 9.825, 9.825, 9.825, 9.825, 9.825, 9.825, 9.825, + 8 9.853, 9.853, 9.853, 9.853, 9.853, 9.853, 9.853, + 9 9.891, 9.891, 9.891, 9.891, 9.891, 9.891, 9.891/ + DATA PF286/ + 1 9.959, 9.959, 9.959, 9.959, 9.959, 9.959, 9.959, + 2 10.087, 10.087, 10.087, 10.087, 10.087, 10.087, 10.087, + 3 10.332, 10.332, 10.332, 10.332, 10.332, 10.332, 10.332, + 4 10.786, 10.786, 10.786, 10.786, 10.786, 10.786, 10.786, + 5 11.584, 11.584, 11.584, 11.584, 11.584, 11.584, 11.584, + 6 12.927, 12.927, 12.927, 12.927, 12.927, 12.927, 12.925, + 7 15.089, 15.089, 15.089, 15.089, 15.089, 15.087, 15.084, + 8 18.433, 18.433, 18.433, 18.433, 18.433, 18.429, 18.421, + 9 23.418, 23.418, 23.418, 23.418, 23.418, 23.409, 23.393/ + DATA PF287/ + 1 30.592, 30.592, 30.592, 30.592, 30.592, 30.574, 30.540, + 2 40.566, 40.566, 40.566, 40.566, 40.566, 40.532, 40.470, + 3 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, + 4 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, + 5 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, + 6 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, + 7 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, + 8 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, + 9 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 1.000/ + DATA PF288/ + 1 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, + 2 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, + 3 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, + 4 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, + 5 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, + 6 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, + 7 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, + 8 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, + 9 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 1.000/ + DATA PF289/ + 1 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, + 2 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, + 3 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, + 4 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, + 5 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, + 6 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, + 7 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, + 8 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, + 9 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 1.000/ + DATA PF290/ + 1 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, + 2 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, + 3 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, + 4 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, + 5 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, + 6 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, + 7 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, + 8 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, + 9 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 1.000/ + DATA PF291/ + 1 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, + 2 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, + 3 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, + 4 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, + 5 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, + 6 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, + 7 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, + 8 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, + 9 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 1.000/ + DATA PF292/ + 1 1.002, 1.002, 1.002, 1.002, 1.002, 1.002, 1.002, + 2 1.005, 1.005, 1.005, 1.005, 1.005, 1.005, 1.005, + 3 1.013, 1.013, 1.013, 1.013, 1.013, 1.013, 1.013, + 4 1.033, 1.033, 1.033, 1.033, 1.033, 1.033, 1.033, + 5 1.076, 1.076, 1.076, 1.076, 1.076, 1.076, 1.076, + 6 1.158, 1.158, 1.158, 1.158, 1.158, 1.158, 1.158, + 7 1.310, 1.310, 1.310, 1.310, 1.310, 1.310, 1.310, + 8 1.576, 1.576, 1.576, 1.576, 1.576, 1.576, 1.576, + 9 2.031, 2.031, 2.031, 2.031, 2.031, 2.031, 2.031/ + DATA PF293/ + 1 2.796, 2.796, 2.796, 2.796, 2.796, 2.796, 2.796, + 2 4.073, 4.073, 4.073, 4.073, 4.073, 4.073, 4.073, + 3 6.191, 6.191, 6.191, 6.191, 6.191, 6.191, 6.191, + 4 9.673, 9.673, 9.673, 9.673, 9.673, 9.673, 9.672, + 5 4.002, 4.002, 4.002, 4.002, 4.002, 4.002, 4.002, + 6 4.003, 4.003, 4.003, 4.003, 4.003, 4.003, 4.003, + 7 4.004, 4.004, 4.004, 4.004, 4.004, 4.004, 4.004, + 8 4.005, 4.005, 4.005, 4.005, 4.005, 4.005, 4.005, + 9 4.007, 4.007, 4.007, 4.007, 4.007, 4.007, 4.007/ + DATA PF294/ + 1 4.009, 4.009, 4.009, 4.009, 4.009, 4.009, 4.009, + 2 4.011, 4.011, 4.011, 4.011, 4.011, 4.011, 4.011, + 3 4.014, 4.014, 4.014, 4.014, 4.014, 4.014, 4.014, + 4 4.018, 4.018, 4.018, 4.018, 4.018, 4.018, 4.018, + 5 4.022, 4.022, 4.022, 4.022, 4.022, 4.022, 4.022, + 6 4.027, 4.027, 4.027, 4.027, 4.027, 4.027, 4.027, + 7 4.033, 4.033, 4.033, 4.033, 4.033, 4.033, 4.033, + 8 4.040, 4.040, 4.040, 4.040, 4.040, 4.040, 4.040, + 9 4.047, 4.047, 4.047, 4.047, 4.047, 4.047, 4.047/ + DATA PF295/ + 1 4.056, 4.056, 4.056, 4.056, 4.056, 4.056, 4.056, + 2 4.066, 4.066, 4.066, 4.066, 4.066, 4.066, 4.066, + 3 4.077, 4.077, 4.077, 4.077, 4.077, 4.077, 4.077, + 4 4.089, 4.089, 4.089, 4.089, 4.089, 4.089, 4.089, + 5 4.102, 4.102, 4.102, 4.102, 4.102, 4.102, 4.102, + 6 4.117, 4.117, 4.117, 4.117, 4.117, 4.117, 4.117, + 7 4.141, 4.141, 4.141, 4.141, 4.141, 4.141, 4.141, + 8 4.169, 4.169, 4.169, 4.169, 4.169, 4.169, 4.169, + 9 4.199, 4.199, 4.199, 4.199, 4.199, 4.199, 4.199/ + DATA PF296/ + 1 4.232, 4.232, 4.232, 4.232, 4.232, 4.232, 4.232, + 2 4.268, 4.268, 4.268, 4.268, 4.268, 4.268, 4.268, + 3 4.306, 4.306, 4.306, 4.306, 4.306, 4.306, 4.306, + 4 4.347, 4.347, 4.347, 4.347, 4.347, 4.347, 4.347, + 5 4.390, 4.390, 4.390, 4.390, 4.390, 4.390, 4.390, + 6 4.435, 4.435, 4.435, 4.435, 4.435, 4.435, 4.435, + 7 4.482, 4.482, 4.482, 4.482, 4.482, 4.482, 4.482, + 8 4.563, 4.563, 4.563, 4.563, 4.563, 4.563, 4.563, + 9 4.646, 4.646, 4.646, 4.646, 4.646, 4.646, 4.646/ + DATA PF297/ + 1 4.730, 4.730, 4.730, 4.730, 4.730, 4.730, 4.730, + 2 4.815, 4.815, 4.815, 4.815, 4.815, 4.815, 4.815, + 3 4.898, 4.898, 4.898, 4.898, 4.898, 4.898, 4.898, + 4 4.980, 4.980, 4.980, 4.980, 4.980, 4.980, 4.980, + 5 5.059, 5.059, 5.059, 5.059, 5.059, 5.059, 5.059, + 6 5.135, 5.135, 5.135, 5.135, 5.135, 5.135, 5.135, + 7 5.207, 5.207, 5.207, 5.207, 5.207, 5.207, 5.207, + 8 5.275, 5.275, 5.275, 5.275, 5.275, 5.275, 5.275, + 9 5.339, 5.339, 5.339, 5.339, 5.339, 5.339, 5.339/ + DATA PF298/ + 1 5.399, 5.399, 5.399, 5.399, 5.399, 5.399, 5.399, + 2 5.456, 5.456, 5.456, 5.456, 5.456, 5.456, 5.456, + 3 5.511, 5.511, 5.511, 5.511, 5.511, 5.511, 5.511, + 4 5.567, 5.567, 5.567, 5.567, 5.567, 5.567, 5.567, + 5 5.633, 5.633, 5.633, 5.633, 5.633, 5.633, 5.633, + 6 5.723, 5.723, 5.723, 5.723, 5.723, 5.723, 5.723, + 7 5.862, 5.862, 5.862, 5.862, 5.862, 5.862, 5.862, + 8 6.092, 6.092, 6.092, 6.092, 6.092, 6.092, 6.092, + 9 6.476, 6.476, 6.476, 6.476, 6.476, 6.476, 6.476/ + DATA PF299/ + 1 7.110, 7.110, 7.110, 7.110, 7.110, 7.110, 7.110, + 2 8.138, 8.138, 8.138, 8.138, 8.138, 8.138, 8.138, + 3 9.780, 9.780, 9.780, 9.780, 9.780, 9.780, 9.780, + 4 12.381, 12.381, 12.381, 12.381, 12.381, 12.381, 12.380, + 5 16.487, 16.487, 16.487, 16.487, 16.486, 16.486, 16.483, + 6 22.965, 22.965, 22.965, 22.965, 22.963, 22.961, 22.953, + 7 5.015, 5.015, 5.015, 5.015, 5.015, 5.015, 5.015, + 8 5.019, 5.019, 5.019, 5.019, 5.019, 5.019, 5.019, + 9 5.025, 5.025, 5.025, 5.025, 5.025, 5.025, 5.025/ + DATA PF300/ + 1 5.031, 5.031, 5.031, 5.031, 5.031, 5.031, 5.031, + 2 5.038, 5.038, 5.038, 5.038, 5.038, 5.038, 5.038, + 3 5.047, 5.047, 5.047, 5.047, 5.047, 5.047, 5.047, + 4 5.057, 5.057, 5.057, 5.057, 5.057, 5.057, 5.057, + 5 5.069, 5.069, 5.069, 5.069, 5.069, 5.069, 5.069, + 6 5.083, 5.083, 5.083, 5.083, 5.083, 5.083, 5.083, + 7 5.098, 5.098, 5.098, 5.098, 5.098, 5.098, 5.098, + 8 5.116, 5.116, 5.116, 5.116, 5.116, 5.116, 5.116, + 9 5.136, 5.136, 5.136, 5.136, 5.136, 5.136, 5.136/ + DATA PF301/ + 1 5.158, 5.158, 5.158, 5.158, 5.158, 5.158, 5.158, + 2 5.182, 5.182, 5.182, 5.182, 5.182, 5.182, 5.182, + 3 5.209, 5.209, 5.209, 5.209, 5.209, 5.209, 5.209, + 4 5.239, 5.239, 5.239, 5.239, 5.239, 5.239, 5.239, + 5 5.271, 5.271, 5.271, 5.271, 5.271, 5.271, 5.271, + 6 5.306, 5.306, 5.306, 5.306, 5.306, 5.306, 5.306, + 7 5.343, 5.343, 5.343, 5.343, 5.343, 5.343, 5.343, + 8 5.383, 5.383, 5.383, 5.383, 5.383, 5.383, 5.383, + 9 5.448, 5.448, 5.448, 5.448, 5.448, 5.448, 5.448/ + DATA PF302/ + 1 5.519, 5.519, 5.519, 5.519, 5.519, 5.519, 5.519, + 2 5.596, 5.596, 5.596, 5.596, 5.596, 5.596, 5.596, + 3 5.678, 5.678, 5.678, 5.678, 5.678, 5.678, 5.678, + 4 5.766, 5.766, 5.766, 5.766, 5.766, 5.766, 5.766, + 5 5.860, 5.860, 5.860, 5.860, 5.860, 5.860, 5.860, + 6 5.959, 5.959, 5.959, 5.959, 5.959, 5.959, 5.959, + 7 6.064, 6.064, 6.064, 6.064, 6.064, 6.064, 6.064, + 8 6.175, 6.175, 6.175, 6.175, 6.175, 6.175, 6.175, + 9 6.291, 6.291, 6.291, 6.291, 6.291, 6.291, 6.291/ + DATA PF303/ + 1 6.497, 6.497, 6.497, 6.497, 6.497, 6.497, 6.497, + 2 6.720, 6.720, 6.720, 6.720, 6.720, 6.720, 6.720, + 3 6.960, 6.960, 6.960, 6.960, 6.960, 6.960, 6.960, + 4 7.217, 7.217, 7.217, 7.217, 7.217, 7.217, 7.217, + 5 7.491, 7.491, 7.491, 7.491, 7.491, 7.491, 7.491, + 6 7.780, 7.780, 7.780, 7.780, 7.780, 7.780, 7.780, + 7 8.084, 8.084, 8.084, 8.084, 8.084, 8.084, 8.084, + 8 8.400, 8.400, 8.400, 8.400, 8.400, 8.400, 8.400, + 9 8.725, 8.725, 8.725, 8.725, 8.725, 8.725, 8.725/ + DATA PF304/ + 1 9.058, 9.058, 9.058, 9.058, 9.058, 9.058, 9.058, + 2 9.395, 9.395, 9.395, 9.395, 9.395, 9.395, 9.395, + 3 9.734, 9.734, 9.734, 9.734, 9.734, 9.734, 9.734, + 4 10.074, 10.074, 10.074, 10.074, 10.074, 10.074, 10.074, + 5 10.415, 10.415, 10.415, 10.415, 10.415, 10.415, 10.415, + 6 10.761, 10.761, 10.761, 10.761, 10.761, 10.761, 10.761, + 7 11.124, 11.124, 11.124, 11.124, 11.124, 11.124, 11.124, + 8 11.526, 11.526, 11.526, 11.526, 11.526, 11.526, 11.526, + 9 12.004, 12.004, 12.004, 12.004, 12.004, 12.004, 12.004/ + DATA PF305/ + 1 12.617, 12.617, 12.617, 12.617, 12.617, 12.617, 12.617, + 2 13.455, 13.455, 13.455, 13.455, 13.455, 13.455, 13.455, + 3 14.646, 14.646, 14.646, 14.646, 14.646, 14.646, 14.646, + 4 16.373, 16.373, 16.373, 16.373, 16.373, 16.373, 16.373, + 5 18.899, 18.899, 18.899, 18.899, 18.899, 18.899, 18.899, + 6 22.607, 22.607, 22.607, 22.607, 22.607, 22.607, 22.607, + 7 28.067, 28.067, 28.067, 28.067, 28.067, 28.067, 28.067, + 8 36.143, 36.143, 36.143, 36.143, 36.143, 36.143, 36.142, + 9 4.000, 4.000, 4.000, 4.000, 4.000, 4.000, 4.000/ + DATA PF306/ + 1 4.000, 4.000, 4.000, 4.000, 4.000, 4.000, 4.000, + 2 4.000, 4.000, 4.000, 4.000, 4.000, 4.000, 4.000, + 3 4.000, 4.000, 4.000, 4.000, 4.000, 4.000, 4.000, + 4 4.000, 4.000, 4.000, 4.000, 4.000, 4.000, 4.000, + 5 4.000, 4.000, 4.000, 4.000, 4.000, 4.000, 4.000, + 6 4.000, 4.000, 4.000, 4.000, 4.000, 4.000, 4.000, + 7 4.000, 4.000, 4.000, 4.000, 4.000, 4.000, 4.000, + 8 4.000, 4.000, 4.000, 4.000, 4.000, 4.000, 4.000, + 9 4.000, 4.000, 4.000, 4.000, 4.000, 4.000, 4.000/ + DATA PF307/ + 1 4.000, 4.000, 4.000, 4.000, 4.000, 4.000, 4.000, + 2 4.000, 4.000, 4.000, 4.000, 4.000, 4.000, 4.000, + 3 4.000, 4.000, 4.000, 4.000, 4.000, 4.000, 4.000, + 4 4.000, 4.000, 4.000, 4.000, 4.000, 4.000, 4.000, + 5 4.000, 4.000, 4.000, 4.000, 4.000, 4.000, 4.000, + 6 4.000, 4.000, 4.000, 4.000, 4.000, 4.000, 4.000, + 7 4.000, 4.000, 4.000, 4.000, 4.000, 4.000, 4.000, + 8 4.000, 4.000, 4.000, 4.000, 4.000, 4.000, 4.000, + 9 4.000, 4.000, 4.000, 4.000, 4.000, 4.000, 4.000/ + DATA PF308/ + 1 4.000, 4.000, 4.000, 4.000, 4.000, 4.000, 4.000, + 2 4.000, 4.000, 4.000, 4.000, 4.000, 4.000, 4.000, + 3 4.001, 4.001, 4.001, 4.001, 4.001, 4.001, 4.001, + 4 4.001, 4.001, 4.001, 4.001, 4.001, 4.001, 4.001, + 5 4.002, 4.002, 4.002, 4.002, 4.002, 4.002, 4.002, + 6 4.004, 4.004, 4.004, 4.004, 4.004, 4.004, 4.004, + 7 4.007, 4.007, 4.007, 4.007, 4.007, 4.007, 4.007, + 8 4.011, 4.011, 4.011, 4.011, 4.011, 4.011, 4.011, + 9 4.018, 4.018, 4.018, 4.018, 4.018, 4.018, 4.018/ + DATA PF309/ + 1 4.027, 4.027, 4.027, 4.027, 4.027, 4.027, 4.027, + 2 4.040, 4.040, 4.040, 4.040, 4.040, 4.040, 4.040, + 3 4.074, 4.074, 4.074, 4.074, 4.074, 4.074, 4.074, + 4 4.127, 4.127, 4.127, 4.127, 4.127, 4.127, 4.127, + 5 4.207, 4.207, 4.207, 4.207, 4.207, 4.207, 4.207, + 6 4.320, 4.320, 4.320, 4.320, 4.320, 4.320, 4.320, + 7 4.474, 4.474, 4.474, 4.474, 4.474, 4.474, 4.474, + 8 4.676, 4.676, 4.676, 4.676, 4.676, 4.676, 4.676, + 9 4.930, 4.930, 4.930, 4.930, 4.930, 4.930, 4.930/ + DATA PF310/ + 1 5.241, 5.241, 5.241, 5.241, 5.241, 5.241, 5.241, + 2 5.609, 5.609, 5.609, 5.609, 5.609, 5.609, 5.609, + 3 6.034, 6.034, 6.034, 6.034, 6.034, 6.034, 6.034, + 4 6.513, 6.513, 6.513, 6.513, 6.513, 6.513, 6.513, + 5 7.043, 7.043, 7.043, 7.043, 7.043, 7.043, 7.043, + 6 7.617, 7.617, 7.617, 7.617, 7.617, 7.617, 7.617, + 7 8.230, 8.230, 8.230, 8.230, 8.230, 8.230, 8.230, + 8 8.881, 8.881, 8.881, 8.881, 8.881, 8.881, 8.881, + 9 9.571, 9.571, 9.571, 9.571, 9.571, 9.571, 9.571/ + DATA PF311/ + 1 10.308, 10.308, 10.308, 10.308, 10.308, 10.308, 10.308, + 2 11.111, 11.111, 11.111, 11.111, 11.111, 11.111, 11.111, + 3 12.018, 12.018, 12.018, 12.018, 12.018, 12.018, 12.018, + 4 13.085, 13.085, 13.085, 13.085, 13.085, 13.085, 13.085, + 5 14.400, 14.400, 14.400, 14.400, 14.400, 14.400, 14.400, + 6 16.090, 16.090, 16.090, 16.090, 16.090, 16.090, 16.090, + 7 18.338, 18.338, 18.338, 18.338, 18.338, 18.338, 18.338, + 8 21.407, 21.407, 21.407, 21.407, 21.407, 21.407, 21.407, + 9 25.671, 25.671, 25.671, 25.671, 25.671, 25.671, 25.671/ + DATA PF312/ + 1 31.675, 31.675, 31.675, 31.675, 31.675, 31.675, 31.675, + 2 6.000, 6.000, 6.000, 6.000, 6.000, 6.000, 6.000, + 3 6.000, 6.000, 6.000, 6.000, 6.000, 6.000, 6.000, + 4 6.001, 6.001, 6.001, 6.001, 6.001, 6.001, 6.001, + 5 6.001, 6.001, 6.001, 6.001, 6.001, 6.001, 6.001, + 6 6.002, 6.002, 6.002, 6.002, 6.002, 6.002, 6.002, + 7 6.003, 6.003, 6.003, 6.003, 6.003, 6.003, 6.003, + 8 6.005, 6.005, 6.005, 6.005, 6.005, 6.005, 6.005, + 9 6.008, 6.008, 6.008, 6.008, 6.008, 6.008, 6.008/ + DATA PF313/ + 1 6.012, 6.012, 6.012, 6.012, 6.012, 6.012, 6.012, + 2 6.018, 6.018, 6.018, 6.018, 6.018, 6.018, 6.018, + 3 6.026, 6.026, 6.026, 6.026, 6.026, 6.026, 6.026, + 4 6.037, 6.037, 6.037, 6.037, 6.037, 6.037, 6.037, + 5 6.052, 6.052, 6.052, 6.052, 6.052, 6.052, 6.052, + 6 6.072, 6.072, 6.072, 6.072, 6.072, 6.072, 6.072, + 7 6.099, 6.099, 6.099, 6.099, 6.099, 6.099, 6.098, + 8 6.134, 6.134, 6.134, 6.134, 6.134, 6.134, 6.133, + 9 6.180, 6.180, 6.180, 6.180, 6.180, 6.180, 6.177/ + DATA PF314/ + 1 6.239, 6.239, 6.239, 6.239, 6.239, 6.239, 6.234, + 2 6.314, 6.314, 6.314, 6.314, 6.314, 6.313, 6.305, + 3 6.408, 6.408, 6.408, 6.408, 6.408, 6.407, 6.394, + 4 6.596, 6.596, 6.595, 6.595, 6.595, 6.593, 6.567, + 5 6.854, 6.853, 6.853, 6.853, 6.852, 6.847, 6.799, + 6 7.204, 7.204, 7.204, 7.203, 7.200, 7.189, 7.103, + 7 7.675, 7.675, 7.674, 7.672, 7.666, 7.643, 7.494, + 8 8.302, 8.302, 8.300, 8.294, 8.282, 8.237, 7.987, + 9 9.132, 9.130, 9.127, 9.114, 9.090, 9.004, 8.598/ + DATA PF315/ + 1 10.223, 10.220, 10.212, 10.187, 10.138, 9.983, 9.343, + 2 11.651, 11.645, 11.630, 11.579, 11.488, 11.217, 10.237, + 3 13.511, 13.499, 13.471, 13.376, 13.210, 12.754, 11.293, + 4 15.923, 15.901, 15.850, 15.679, 15.390, 14.649, 12.523, + 5 21.582, 21.527, 21.398, 20.980, 20.308, 18.759, 14.986, + 6 30.063, 29.936, 29.644, 28.717, 27.292, 24.296, 17.986, + 7 42.469, 42.205, 41.600, 39.717, 36.928, 31.533, 21.527, + 8 60.113, 59.603, 58.448, 54.905, 49.829, 40.711, 25.589, + 9 84.432, 83.517, 81.458, 75.232, 66.578, 52.018, 30.131/ + DATA PF316/ + 1 116.866, 115.326, 111.881, 101.592, 87.667, 65.561, 35.090, + 2 158.718, 156.268, 150.819, 134.718, 113.438, 81.357, 40.394, + 3 211.006, 207.301, 199.099, 175.103, 144.047, 99.328, 45.958, + 4 274.350, 268.992, 257.184, 222.938, 179.438, 119.302, 51.698, + 5 348.890, 341.448, 325.109, 278.089, 219.348, 141.031, 57.527, + 6 434.272, 424.298, 402.474, 340.101, 263.326, 164.209, 63.366, + 7 529.671, 516.721, 488.474, 408.240, 310.770, 188.489, 69.143, + 8 633.863, 617.521, 581.972, 481.550, 360.973, 213.511, 74.796, + 9 745.325, 725.217, 681.583, 558.924, 413.171, 238.916, 80.273/ + DATA PF317/ + 1 862.342, 838.153, 785.776, 639.177, 466.585, 264.365, 85.531, + 2 983.119, 954.599, 892.963, 721.118, 520.464, 289.550, 90.540, + 3 1105.879, 1072.850,1001.590, 803.602, 574.112, 314.201, 95.277, + 4 1228.942, 1191.296,1110.200, 885.577, 626.909, 338.093, 99.728, + 5 1350.785, 1308.483,1217.483, 966.114, 678.328, 361.045, 103.888, + 6 1470.083, 1423.148,1322.304,1044.427, 727.935, 382.920, 107.755, + 7 1585.725, 1534.235,1423.725,1119.873, 775.393, 403.620, 111.334, + 8 1696.824, 1640.903,1520.998,1191.959, 820.451, 423.082, 114.632, + 9 1802.704, 1742.513,1613.566,1260.322, 862.944, 441.278, 117.662/ + DATA PF318/ + 1 1902.888, 1838.618,1701.037,1324.725, 902.774, 458.201, 120.434, + 2 1997.075, 1928.938,1783.177,1385.037, 939.908, 473.870, 122.965, + 3 2085.118, 2013.338,1859.876,1441.219, 974.360, 488.318, 125.269, + 4 7.008, 7.008, 7.008, 7.008, 7.008, 7.008, 7.008, + 5 7.012, 7.012, 7.012, 7.012, 7.012, 7.012, 7.012, + 6 7.016, 7.016, 7.016, 7.016, 7.016, 7.016, 7.016, + 7 7.021, 7.021, 7.021, 7.021, 7.021, 7.021, 7.021, + 8 7.028, 7.028, 7.028, 7.028, 7.028, 7.028, 7.028, + 9 7.037, 7.037, 7.037, 7.037, 7.037, 7.037, 7.037/ + DATA PF319/ + 1 7.048, 7.048, 7.048, 7.048, 7.048, 7.048, 7.048, + 2 7.062, 7.062, 7.062, 7.062, 7.062, 7.062, 7.062, + 3 7.079, 7.079, 7.079, 7.079, 7.079, 7.079, 7.079, + 4 7.100, 7.100, 7.100, 7.100, 7.100, 7.100, 7.100, + 5 7.126, 7.126, 7.126, 7.126, 7.126, 7.126, 7.126, + 6 7.158, 7.158, 7.158, 7.158, 7.158, 7.158, 7.158, + 7 7.196, 7.196, 7.196, 7.196, 7.196, 7.196, 7.196, + 8 7.242, 7.242, 7.242, 7.242, 7.242, 7.242, 7.242, + 9 7.296, 7.296, 7.296, 7.296, 7.296, 7.296, 7.296/ + DATA PF320/ + 1 7.360, 7.360, 7.360, 7.360, 7.360, 7.360, 7.360, + 2 7.435, 7.435, 7.435, 7.435, 7.435, 7.435, 7.435, + 3 7.523, 7.523, 7.523, 7.523, 7.523, 7.523, 7.523, + 4 7.626, 7.626, 7.626, 7.626, 7.626, 7.626, 7.626, + 5 7.745, 7.745, 7.745, 7.745, 7.745, 7.745, 7.745, + 6 7.961, 7.961, 7.961, 7.961, 7.961, 7.961, 7.961, + 7 8.230, 8.230, 8.230, 8.230, 8.230, 8.230, 8.230, + 8 8.564, 8.564, 8.564, 8.564, 8.564, 8.564, 8.564, + 9 8.977, 8.977, 8.977, 8.977, 8.977, 8.977, 8.977/ + DATA PF321/ + 1 9.489, 9.489, 9.489, 9.489, 9.489, 9.489, 9.489, + 2 10.123, 10.123, 10.123, 10.123, 10.123, 10.123, 10.123, + 3 10.909, 10.909, 10.909, 10.909, 10.909, 10.909, 10.909, + 4 11.882, 11.882, 11.882, 11.882, 11.882, 11.882, 11.882, + 5 13.084, 13.084, 13.084, 13.084, 13.084, 13.083, 13.083, + 6 14.565, 14.565, 14.565, 14.565, 14.565, 14.565, 14.564, + 7 17.822, 17.822, 17.822, 17.822, 17.821, 17.820, 17.818, + 8 22.368, 22.368, 22.368, 22.367, 22.366, 22.361, 22.350, + 9 28.652, 28.651, 28.650, 28.648, 28.641, 28.622, 28.583/ + DATA PF322/ + 1 37.272, 37.265, 37.261, 37.255, 37.229, 37.161, 37.039, + 2 49.043, 49.019, 49.006, 48.987, 48.900, 48.692, 48.349, + 3 65.099, 65.028, 64.990, 64.932, 64.683, 64.117, 63.257, + 4 87.015, 86.823, 86.723, 86.572, 85.936, 84.551, 82.599, + 5 116.918, 116.457, 116.218, 115.860, 114.392, 111.318, 107.262, + 6 157.560, 156.554, 156.033, 155.262, 152.170, 145.912, 138.119, + 7 212.291, 210.274, 209.232, 207.705, 201.699, 189.905, 175.953, + 8 284.914, 281.165, 279.231, 276.424, 265.568, 244.820, 221.361, + 9 379.407, 372.890, 369.538, 364.706, 346.308, 311.978, 274.690/ + DATA PF323/ + 1 499.550, 488.886, 483.411, 475.572, 446.129, 392.351, 335.979, + 2 648.525, 631.984, 623.506, 611.439, 566.670, 486.433, 404.938, + 3 828.534, 804.072, 791.555, 773.830, 708.790, 594.169, 480.965, + 4 1040.529, 1005.861, 988.148, 963.179, 872.449, 714.932, 563.181, + 5 1284.073, 1236.770,1212.631,1178.745,1056.676, 847.559, 650.498, + 6 1557.351, 1494.951,1463.145,1418.658,1259.640, 990.438, 741.686, + 7 1857.310, 1777.438,1736.767,1680.068,1478.787,1141.620, 835.452, + 8 2179.909, 2080.380,2029.747,1959.362,1711.034,1298.948, 930.508, + 9 2520.412, 2399.322,2337.770,2252.428,1952.973,1460.186,1025.630/ + DATA PF324/ + 1 2873.715, 2729.501,2656.246,2554.915,2201.084,1623.137,1119.703, + 2 3234.634, 3066.114,2980.568,2862.477,2451.914,1785.734,1211.747, + 3 3598.172, 3404.556,3306.327,3170.977,2702.226,1946.112,1300.940, + 4 3959.710, 3740.594,3629.485,3476.636,2949.111,2102.654,1386.619, + 5 4315.152, 4070.492,3946.486,3776.144,3190.051,2254.014,1468.278, + 6 6.000, 6.000, 6.000, 6.000, 6.000, 6.000, 6.000, + 7 6.000, 6.000, 6.000, 6.000, 6.000, 6.000, 6.000, + 8 6.000, 6.000, 6.000, 6.000, 6.000, 6.000, 6.000, + 9 6.000, 6.000, 6.000, 6.000, 6.000, 6.000, 6.000/ + DATA PF325/ + 1 6.000, 6.000, 6.000, 6.000, 6.000, 6.000, 6.000, + 2 6.000, 6.000, 6.000, 6.000, 6.000, 6.000, 6.000, + 3 6.000, 6.000, 6.000, 6.000, 6.000, 6.000, 6.000, + 4 6.000, 6.000, 6.000, 6.000, 6.000, 6.000, 6.000, + 5 6.000, 6.000, 6.000, 6.000, 6.000, 6.000, 6.000, + 6 6.000, 6.000, 6.000, 6.000, 6.000, 6.000, 6.000, + 7 6.000, 6.000, 6.000, 6.000, 6.000, 6.000, 6.000, + 8 6.001, 6.001, 6.001, 6.001, 6.001, 6.001, 6.001, + 9 6.001, 6.001, 6.001, 6.001, 6.001, 6.001, 6.001/ + DATA PF326/ + 1 6.002, 6.002, 6.002, 6.002, 6.002, 6.002, 6.002, + 2 6.003, 6.003, 6.003, 6.003, 6.003, 6.003, 6.003, + 3 6.004, 6.004, 6.004, 6.004, 6.004, 6.004, 6.004, + 4 6.007, 6.007, 6.007, 6.007, 6.007, 6.007, 6.007, + 5 6.010, 6.010, 6.010, 6.010, 6.010, 6.010, 6.010, + 6 6.015, 6.015, 6.015, 6.015, 6.015, 6.015, 6.015, + 7 6.021, 6.021, 6.021, 6.021, 6.021, 6.021, 6.021, + 8 6.037, 6.037, 6.037, 6.037, 6.037, 6.037, 6.037, + 9 6.061, 6.061, 6.061, 6.061, 6.061, 6.061, 6.061/ + DATA PF327/ + 1 6.098, 6.098, 6.098, 6.098, 6.098, 6.098, 6.098, + 2 6.154, 6.154, 6.154, 6.154, 6.154, 6.154, 6.154, + 3 6.234, 6.234, 6.234, 6.234, 6.234, 6.234, 6.234, + 4 6.349, 6.349, 6.349, 6.349, 6.349, 6.349, 6.349, + 5 6.508, 6.508, 6.508, 6.508, 6.508, 6.508, 6.508, + 6 6.724, 6.724, 6.724, 6.724, 6.724, 6.724, 6.724, + 7 7.012, 7.012, 7.012, 7.012, 7.012, 7.012, 7.012, + 8 7.390, 7.390, 7.390, 7.390, 7.390, 7.390, 7.390, + 9 8.271, 8.271, 8.271, 8.271, 8.271, 8.271, 8.271/ + DATA PF328/ + 1 9.558, 9.558, 9.558, 9.558, 9.558, 9.558, 9.558, + 2 11.370, 11.370, 11.370, 11.370, 11.370, 11.370, 11.370, + 3 13.842, 13.842, 13.842, 13.842, 13.842, 13.842, 13.842, + 4 17.128, 17.128, 17.128, 17.128, 17.128, 17.128, 17.128, + 5 21.406, 21.406, 21.406, 21.406, 21.406, 21.406, 21.406, + 6 26.899, 26.899, 26.899, 26.899, 26.899, 26.898, 26.897, + 7 33.902, 33.902, 33.902, 33.902, 33.901, 33.897, 33.890, + 8 42.848, 42.847, 42.846, 42.844, 42.838, 42.820, 42.789, + 9 54.423, 54.423, 54.417, 54.408, 54.380, 54.306, 54.184/ + DATA PF329/ + 1 69.802, 69.798, 69.779, 69.743, 69.638, 69.372, 68.955, + 2 91.026, 91.014, 90.950, 90.833, 90.494, 89.665, 88.417, + 3 121.592, 121.557, 121.371, 121.034, 120.073, 117.785, 114.472, + 4 167.185, 167.095, 166.615, 165.752, 163.320, 157.659, 149.749, + 5 236.428, 236.219, 235.104, 233.108, 227.543, 214.855, 197.666, + 6 341.417, 340.971, 338.608, 334.394, 322.756, 296.704, 262.369, + 7 497.755, 496.883, 492.266, 484.060, 461.599, 412.136, 348.511, + 8 723.929, 722.343, 713.956, 699.095, 658.737, 571.146, 460.881, + 9 1039.969, 1037.265,1022.990, 997.759, 929.721, 783.952, 603.935/ + DATA PF330/ + 1 1465.575, 1461.226,1438.293,1397.852,1289.481,1059.963, 781.305, + 2 2018.013, 2011.370,1976.380,1914.800,1750.707,1406.727, 995.368, + 3 2710.155, 2700.464,2649.475,2559.900,2322.394,1829.055,1246.958, + 4 3548.996, 3535.428,3464.108,3339.013,3008.798,2328.452,1535.239, + 5 4534.858, 4516.543,4420.358,4251.890,3808.940,2902.921,1857.764, + 6 5661.329, 5637.401,5511.833,5292.182,4716.685,3547.139,2210.678, + 7 6915.891, 6885.525,6726.283,6448.041,5721.321,4252.933,2589.032, + 8 17.582, 17.582, 17.582, 17.582, 17.582, 17.582, 17.582, + 9 17.846, 17.846, 17.846, 17.846, 17.846, 17.846, 17.846/ + DATA PF331/ + 1 18.103, 18.103, 18.103, 18.103, 18.103, 18.103, 18.103, + 2 18.354, 18.354, 18.354, 18.354, 18.354, 18.354, 18.354, + 3 18.598, 18.598, 18.598, 18.598, 18.598, 18.598, 18.598, + 4 18.835, 18.835, 18.835, 18.835, 18.835, 18.835, 18.835, + 5 19.066, 19.066, 19.066, 19.066, 19.066, 19.066, 19.066, + 6 19.290, 19.290, 19.290, 19.290, 19.290, 19.290, 19.290, + 7 19.507, 19.507, 19.507, 19.507, 19.507, 19.507, 19.507, + 8 19.719, 19.719, 19.719, 19.719, 19.719, 19.719, 19.719, + 9 19.924, 19.924, 19.924, 19.924, 19.924, 19.924, 19.924/ + DATA PF332/ + 1 20.124, 20.124, 20.124, 20.124, 20.124, 20.124, 20.124, + 2 20.319, 20.319, 20.319, 20.319, 20.319, 20.319, 20.319, + 3 20.510, 20.510, 20.510, 20.510, 20.510, 20.510, 20.510, + 4 20.696, 20.696, 20.696, 20.696, 20.696, 20.696, 20.696, + 5 20.880, 20.880, 20.880, 20.880, 20.880, 20.880, 20.880, + 6 21.061, 21.061, 21.061, 21.061, 21.061, 21.061, 21.061, + 7 21.243, 21.243, 21.243, 21.243, 21.243, 21.243, 21.243, + 8 21.425, 21.425, 21.425, 21.425, 21.425, 21.425, 21.425, + 9 21.611, 21.611, 21.611, 21.611, 21.611, 21.611, 21.611/ + DATA PF333/ + 1 21.899, 21.899, 21.899, 21.899, 21.899, 21.899, 21.899, + 2 22.208, 22.208, 22.208, 22.208, 22.208, 22.208, 22.208, + 3 22.547, 22.547, 22.547, 22.547, 22.547, 22.547, 22.547, + 4 22.928, 22.928, 22.928, 22.928, 22.928, 22.928, 22.928, + 5 23.365, 23.365, 23.365, 23.365, 23.365, 23.365, 23.365, + 6 23.872, 23.872, 23.872, 23.872, 23.872, 23.872, 23.872, + 7 24.464, 24.464, 24.464, 24.464, 24.464, 24.464, 24.464, + 8 25.158, 25.158, 25.158, 25.158, 25.158, 25.158, 25.158, + 9 25.970, 25.970, 25.970, 25.970, 25.970, 25.970, 25.970/ + DATA PF334/ + 1 26.915, 26.915, 26.915, 26.915, 26.915, 26.915, 26.915, + 2 28.831, 28.831, 28.831, 28.831, 28.831, 28.831, 28.831, + 3 31.225, 31.225, 31.225, 31.225, 31.225, 31.225, 31.225, + 4 34.150, 34.150, 34.150, 34.150, 34.150, 34.150, 34.150, + 5 37.640, 37.640, 37.640, 37.640, 37.640, 37.640, 37.640, + 6 41.714, 41.714, 41.714, 41.714, 41.714, 41.714, 41.714, + 7 46.375, 46.375, 46.375, 46.375, 46.375, 46.375, 46.375, + 8 51.614, 51.614, 51.614, 51.614, 51.614, 51.614, 51.614, + 9 57.419, 57.419, 57.419, 57.419, 57.419, 57.419, 57.419/ + DATA PF335/ + 1 63.790, 63.790, 63.790, 63.790, 63.790, 63.790, 63.790, + 2 70.753, 70.753, 70.753, 70.753, 70.753, 70.753, 70.753, + 3 78.395, 78.395, 78.395, 78.395, 78.395, 78.394, 78.392, + 4 86.906, 86.906, 86.905, 86.904, 86.902, 86.899, 86.887, + 5 96.668, 96.667, 96.663, 96.656, 96.648, 96.632, 96.577, + 6 108.433, 108.427, 108.412, 108.384, 108.348, 108.285, 108.068, + 7 123.653, 123.631, 123.578, 123.477, 123.349, 123.127, 122.397, + 8 145.054, 144.982, 144.815, 144.500, 144.102, 143.424, 141.265, + 9 177.466, 177.267, 176.804, 175.933, 174.843, 173.004, 167.329/ + DATA PF336/ + 1 228.856, 228.360, 227.211, 225.054, 222.378, 217.906, 204.477, + 2 311.317, 310.201, 307.616, 302.778, 296.818, 286.941, 258.004, + 3 441.695, 439.394, 434.071, 424.131, 411.963, 391.950, 334.585, + 4 641.489, 637.103, 626.970, 608.086, 585.102, 547.548, 441.979, + 5 935.823, 928.028, 910.043, 876.586, 836.073, 770.263, 588.445, + 6 1351.488, 1338.476,1308.487,1252.784,1185.640,1077.140, 781.968, + 7 1914.345, 1893.802,1846.501,1758.762,1653.430,1484.014,1029.405, + 8 2646.519, 2615.658,2544.657,2413.119,2255.778,2003.756,1335.700, + 9 3563.888, 3519.532,3417.562,3228.859,3003.863,2644.803,1703.317/ + DATA PF337/ + 1 16.969, 16.969, 16.969, 16.969, 16.969, 16.969, 16.969, + 2 17.308, 17.308, 17.308, 17.308, 17.308, 17.308, 17.308, + 3 17.643, 17.643, 17.643, 17.643, 17.643, 17.643, 17.643, + 4 17.973, 17.973, 17.973, 17.973, 17.973, 17.973, 17.973, + 5 18.298, 18.298, 18.298, 18.298, 18.298, 18.298, 18.298, + 6 18.617, 18.617, 18.617, 18.617, 18.617, 18.617, 18.617, + 7 18.931, 18.931, 18.931, 18.931, 18.931, 18.931, 18.931, + 8 19.239, 19.239, 19.239, 19.239, 19.239, 19.239, 19.239, + 9 19.541, 19.541, 19.541, 19.541, 19.541, 19.541, 19.541/ + DATA PF338/ + 1 19.838, 19.838, 19.838, 19.838, 19.838, 19.838, 19.838, + 2 20.129, 20.129, 20.129, 20.129, 20.129, 20.129, 20.129, + 3 20.415, 20.415, 20.415, 20.415, 20.415, 20.415, 20.415, + 4 20.696, 20.696, 20.696, 20.696, 20.696, 20.696, 20.696, + 5 20.973, 20.973, 20.973, 20.973, 20.973, 20.973, 20.973, + 6 21.247, 21.247, 21.247, 21.247, 21.247, 21.247, 21.247, + 7 21.518, 21.518, 21.518, 21.518, 21.518, 21.518, 21.518, + 8 21.788, 21.788, 21.788, 21.788, 21.788, 21.788, 21.788, + 9 22.058, 22.058, 22.058, 22.058, 22.058, 22.058, 22.058/ + DATA PF339/ + 1 22.328, 22.328, 22.328, 22.328, 22.328, 22.328, 22.328, + 2 22.602, 22.602, 22.602, 22.602, 22.602, 22.602, 22.602, + 3 23.021, 23.021, 23.021, 23.021, 23.021, 23.021, 23.021, + 4 23.456, 23.456, 23.456, 23.456, 23.456, 23.456, 23.456, + 5 23.915, 23.915, 23.915, 23.915, 23.915, 23.915, 23.915, + 6 24.406, 24.406, 24.406, 24.406, 24.406, 24.406, 24.406, + 7 24.937, 24.937, 24.937, 24.937, 24.937, 24.937, 24.937, + 8 25.517, 25.517, 25.517, 25.517, 25.517, 25.517, 25.517, + 9 26.153, 26.153, 26.153, 26.153, 26.153, 26.153, 26.153/ + DATA PF340/ + 1 26.854, 26.854, 26.854, 26.854, 26.854, 26.854, 26.854, + 2 27.629, 27.629, 27.629, 27.629, 27.629, 27.629, 27.629, + 3 28.482, 28.482, 28.482, 28.482, 28.482, 28.482, 28.482, + 4 30.099, 30.099, 30.099, 30.099, 30.099, 30.099, 30.099, + 5 31.973, 31.973, 31.973, 31.973, 31.973, 31.973, 31.973, + 6 34.117, 34.117, 34.117, 34.117, 34.117, 34.117, 34.117, + 7 36.530, 36.530, 36.530, 36.530, 36.530, 36.530, 36.530, + 8 39.204, 39.204, 39.204, 39.204, 39.204, 39.204, 39.204, + 9 42.121, 42.121, 42.121, 42.121, 42.121, 42.121, 42.121/ + DATA PF341/ + 1 45.253, 45.253, 45.253, 45.253, 45.253, 45.253, 45.253, + 2 48.570, 48.570, 48.570, 48.570, 48.570, 48.570, 48.570, + 3 52.038, 52.038, 52.038, 52.038, 52.038, 52.038, 52.038, + 4 55.623, 55.623, 55.623, 55.623, 55.623, 55.623, 55.623, + 5 59.295, 59.295, 59.295, 59.295, 59.295, 59.295, 59.295, + 6 63.037, 63.037, 63.037, 63.037, 63.037, 63.037, 63.037, + 7 66.856, 66.856, 66.856, 66.856, 66.856, 66.856, 66.856, + 8 70.791, 70.791, 70.791, 70.791, 70.791, 70.791, 70.790, + 9 74.951, 74.951, 74.951, 74.951, 74.951, 74.950, 74.946/ + DATA PF342/ + 1 79.561, 79.561, 79.561, 79.561, 79.559, 79.554, 79.538, + 2 85.072, 85.072, 85.072, 85.072, 85.063, 85.044, 84.978, + 3 92.353, 92.353, 92.353, 92.352, 92.322, 92.254, 92.028, + 4 103.009, 103.009, 103.009, 103.006, 102.910, 102.702, 102.025, + 5 119.821, 119.819, 119.819, 119.810, 119.548, 118.981, 117.179, + 6 147.257, 147.252, 147.252, 147.231, 146.584, 145.200, 140.888, + 7 191.936, 191.924, 191.924, 191.877, 190.430, 187.367, 177.980, + 8 262.857, 262.831, 262.831, 262.734, 259.770, 253.552, 234.773, + 9 371.251, 371.201, 371.201, 371.017, 365.399, 353.711, 318.872/ + DATA PF343/ + 1 529.958, 529.868, 529.868, 529.542, 519.609, 499.097, 438.662, + 2 752.369, 752.220, 752.220, 751.675, 735.169, 701.308, 602.566, + 3 12.040, 12.040, 12.040, 12.040, 12.040, 12.040, 12.040, + 4 12.289, 12.289, 12.289, 12.289, 12.289, 12.289, 12.289, + 5 12.537, 12.537, 12.537, 12.537, 12.537, 12.537, 12.537, + 6 12.783, 12.783, 12.783, 12.783, 12.783, 12.783, 12.783, + 7 13.027, 13.027, 13.027, 13.027, 13.027, 13.027, 13.027, + 8 13.268, 13.268, 13.268, 13.268, 13.268, 13.268, 13.268, + 9 13.507, 13.507, 13.507, 13.507, 13.507, 13.507, 13.507/ + DATA PF344/ + 1 13.742, 13.742, 13.742, 13.742, 13.742, 13.742, 13.742, + 2 13.975, 13.975, 13.975, 13.975, 13.975, 13.975, 13.975, + 3 14.204, 14.204, 14.204, 14.204, 14.204, 14.204, 14.204, + 4 14.430, 14.430, 14.430, 14.430, 14.430, 14.430, 14.430, + 5 14.652, 14.652, 14.652, 14.652, 14.652, 14.652, 14.652, + 6 14.872, 14.872, 14.872, 14.872, 14.872, 14.872, 14.872, + 7 15.088, 15.088, 15.088, 15.088, 15.088, 15.088, 15.088, + 8 15.302, 15.302, 15.302, 15.302, 15.302, 15.302, 15.302, + 9 15.513, 15.513, 15.513, 15.513, 15.513, 15.513, 15.513/ + DATA PF345/ + 1 15.721, 15.721, 15.721, 15.721, 15.721, 15.721, 15.721, + 2 15.928, 15.928, 15.928, 15.928, 15.928, 15.928, 15.928, + 3 16.134, 16.134, 16.134, 16.134, 16.134, 16.134, 16.134, + 4 16.338, 16.338, 16.338, 16.338, 16.338, 16.338, 16.338, + 5 16.645, 16.645, 16.645, 16.645, 16.645, 16.645, 16.645, + 6 16.954, 16.954, 16.954, 16.954, 16.954, 16.954, 16.954, + 7 17.266, 17.266, 17.266, 17.266, 17.266, 17.266, 17.266, + 8 17.586, 17.586, 17.586, 17.586, 17.586, 17.586, 17.586, + 9 17.915, 17.915, 17.915, 17.915, 17.915, 17.915, 17.915/ + DATA PF346/ + 1 18.256, 18.256, 18.256, 18.256, 18.256, 18.256, 18.256, + 2 18.612, 18.612, 18.612, 18.612, 18.612, 18.612, 18.612, + 3 18.985, 18.985, 18.985, 18.985, 18.985, 18.985, 18.985, + 4 19.377, 19.377, 19.377, 19.377, 19.377, 19.377, 19.377, + 5 19.790, 19.790, 19.790, 19.790, 19.790, 19.790, 19.790, + 6 20.526, 20.526, 20.526, 20.526, 20.526, 20.526, 20.526, + 7 21.327, 21.327, 21.327, 21.327, 21.327, 21.327, 21.327, + 8 22.191, 22.191, 22.191, 22.191, 22.191, 22.191, 22.191, + 9 23.115, 23.115, 23.115, 23.115, 23.115, 23.115, 23.115/ + DATA PF347/ + 1 24.091, 24.091, 24.091, 24.091, 24.091, 24.091, 24.091, + 2 25.110, 25.110, 25.110, 25.110, 25.110, 25.110, 25.110, + 3 26.161, 26.161, 26.161, 26.161, 26.161, 26.161, 26.161, + 4 27.233, 27.233, 27.233, 27.233, 27.233, 27.233, 27.233, + 5 28.313, 28.313, 28.313, 28.313, 28.313, 28.313, 28.313, + 6 29.391, 29.391, 29.391, 29.391, 29.391, 29.391, 29.391, + 7 30.455, 30.455, 30.455, 30.455, 30.455, 30.455, 30.455, + 8 31.498, 31.498, 31.498, 31.498, 31.498, 31.498, 31.498, + 9 32.513, 32.513, 32.513, 32.513, 32.513, 32.513, 32.513/ + DATA PF348/ + 1 33.499, 33.499, 33.499, 33.499, 33.499, 33.499, 33.499, + 2 34.465, 34.465, 34.465, 34.465, 34.465, 34.465, 34.465, + 3 35.436, 35.436, 35.436, 35.436, 35.436, 35.436, 35.436, + 4 36.466, 36.466, 36.466, 36.466, 36.466, 36.466, 36.466, + 5 37.667, 37.667, 37.667, 37.667, 37.667, 37.667, 37.666, + 6 39.247, 39.247, 39.246, 39.246, 39.246, 39.246, 39.244, + 7 41.574, 41.574, 41.574, 41.574, 41.573, 41.572, 41.565, + 8 45.281, 45.281, 45.281, 45.279, 45.276, 45.274, 45.250, + 9 51.395, 51.395, 51.394, 51.390, 51.382, 51.374, 51.307/ + DATA PF349/ + 1 61.500, 61.500, 61.496, 61.486, 61.465, 61.444, 61.275, + 2 77.883, 77.883, 77.874, 77.849, 77.801, 77.753, 77.366, + 3 103.622, 103.622, 103.604, 103.550, 103.447, 103.345, 102.538, + 4 142.555, 142.555, 142.520, 142.414, 142.213, 142.014, 140.459, + 5 6.388, 6.388, 6.388, 6.388, 6.388, 6.388, 6.388, + 6 6.489, 6.489, 6.489, 6.489, 6.489, 6.489, 6.489, + 7 6.589, 6.589, 6.589, 6.589, 6.589, 6.589, 6.589, + 8 6.689, 6.689, 6.689, 6.689, 6.689, 6.689, 6.689, + 9 6.788, 6.788, 6.788, 6.788, 6.788, 6.788, 6.788/ + DATA PF350/ + 1 6.886, 6.886, 6.886, 6.886, 6.886, 6.886, 6.886, + 2 6.983, 6.983, 6.983, 6.983, 6.983, 6.983, 6.983, + 3 7.078, 7.078, 7.078, 7.078, 7.078, 7.078, 7.078, + 4 7.172, 7.172, 7.172, 7.172, 7.172, 7.172, 7.172, + 5 7.264, 7.264, 7.264, 7.264, 7.264, 7.264, 7.264, + 6 7.355, 7.355, 7.355, 7.355, 7.355, 7.355, 7.355, + 7 7.444, 7.444, 7.444, 7.444, 7.444, 7.444, 7.444, + 8 7.531, 7.531, 7.531, 7.531, 7.531, 7.531, 7.531, + 9 7.616, 7.616, 7.616, 7.616, 7.616, 7.616, 7.616/ + DATA PF351/ + 1 7.699, 7.699, 7.699, 7.699, 7.699, 7.699, 7.699, + 2 7.781, 7.781, 7.781, 7.781, 7.781, 7.781, 7.781, + 3 7.860, 7.860, 7.860, 7.860, 7.860, 7.860, 7.860, + 4 7.938, 7.938, 7.938, 7.938, 7.938, 7.938, 7.938, + 5 8.013, 8.013, 8.013, 8.013, 8.013, 8.013, 8.013, + 6 8.086, 8.086, 8.086, 8.086, 8.086, 8.086, 8.086, + 7 8.192, 8.192, 8.192, 8.192, 8.192, 8.192, 8.192, + 8 8.294, 8.294, 8.294, 8.294, 8.294, 8.294, 8.294, + 9 8.391, 8.391, 8.391, 8.391, 8.391, 8.391, 8.391/ + DATA PF352/ + 1 8.483, 8.483, 8.483, 8.483, 8.483, 8.483, 8.483, + 2 8.571, 8.571, 8.571, 8.571, 8.571, 8.571, 8.571, + 3 8.655, 8.655, 8.655, 8.655, 8.655, 8.655, 8.655, + 4 8.735, 8.735, 8.735, 8.735, 8.735, 8.735, 8.735, + 5 8.810, 8.810, 8.810, 8.810, 8.810, 8.810, 8.810, + 6 8.882, 8.882, 8.882, 8.882, 8.882, 8.882, 8.882, + 7 8.949, 8.949, 8.949, 8.949, 8.949, 8.949, 8.949, + 8 9.054, 9.054, 9.054, 9.054, 9.054, 9.054, 9.054, + 9 9.149, 9.149, 9.149, 9.149, 9.149, 9.149, 9.149/ + DATA PF353/ + 1 9.236, 9.236, 9.236, 9.236, 9.236, 9.236, 9.236, + 2 9.314, 9.314, 9.314, 9.314, 9.314, 9.314, 9.314, + 3 9.384, 9.384, 9.384, 9.384, 9.384, 9.384, 9.384, + 4 9.448, 9.448, 9.448, 9.448, 9.448, 9.448, 9.448, + 5 9.506, 9.506, 9.506, 9.506, 9.506, 9.506, 9.506, + 6 9.557, 9.557, 9.557, 9.557, 9.557, 9.557, 9.557, + 7 9.604, 9.604, 9.604, 9.604, 9.604, 9.604, 9.604, + 8 9.646, 9.646, 9.646, 9.646, 9.646, 9.646, 9.646, + 9 9.683, 9.683, 9.683, 9.683, 9.683, 9.683, 9.683/ + DATA PF354/ + 1 9.717, 9.717, 9.717, 9.717, 9.717, 9.717, 9.717, + 2 9.748, 9.748, 9.748, 9.748, 9.748, 9.748, 9.748, + 3 9.777, 9.777, 9.777, 9.777, 9.777, 9.777, 9.777, + 4 9.809, 9.809, 9.809, 9.809, 9.809, 9.809, 9.809, + 5 9.851, 9.851, 9.851, 9.851, 9.851, 9.851, 9.851, + 6 9.921, 9.921, 9.921, 9.921, 9.921, 9.921, 9.921, + 7 10.051, 10.051, 10.051, 10.051, 10.051, 10.051, 10.051, + 8 10.296, 10.296, 10.296, 10.296, 10.296, 10.296, 10.296, + 9 10.740, 10.740, 10.740, 10.740, 10.740, 10.740, 10.739/ + DATA PF355/ + 1 11.506, 11.506, 11.505, 11.505, 11.505, 11.505, 11.504, + 2 12.764, 12.764, 12.764, 12.764, 12.764, 12.762, 12.759, + 3 14.746, 14.746, 14.745, 14.745, 14.745, 14.738, 14.729, + 4 17.758, 17.758, 17.758, 17.758, 17.755, 17.738, 17.710, + 5 22.207, 22.207, 22.206, 22.206, 22.199, 22.154, 22.084, + 6 28.615, 28.615, 28.611, 28.611, 28.595, 28.492, 28.333, + 7 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, + 8 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, + 9 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 1.000/ + DATA PF356/ + 1 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, + 2 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, + 3 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, + 4 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, + 5 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, + 6 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, + 7 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, + 8 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, + 9 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 1.000/ + DATA PF357/ + 1 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, + 2 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, + 3 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, + 4 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, + 5 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, + 6 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, + 7 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, + 8 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, + 9 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 1.000/ + DATA PF358/ + 1 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, + 2 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, + 3 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, + 4 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, + 5 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, + 6 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, + 7 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, + 8 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, + 9 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 1.000/ + DATA PF359/ + 1 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, + 2 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, + 3 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, + 4 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, + 5 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, + 6 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, + 7 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, + 8 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, + 9 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 1.000/ + DATA PF360/ + 1 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, + 2 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, + 3 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, + 4 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, + 5 1.001, 1.001, 1.001, 1.001, 1.001, 1.001, 1.001, + 6 1.002, 1.002, 1.002, 1.002, 1.002, 1.002, 1.002, + 7 1.006, 1.006, 1.006, 1.006, 1.006, 1.006, 1.006, + 8 1.016, 1.016, 1.016, 1.016, 1.016, 1.016, 1.016, + 9 1.039, 1.039, 1.039, 1.039, 1.039, 1.039, 1.039/ + DATA PF361/ + 1 1.088, 1.088, 1.088, 1.088, 1.088, 1.088, 1.088, + 2 1.181, 1.181, 1.181, 1.181, 1.181, 1.181, 1.181, + 3 1.349, 1.349, 1.349, 1.349, 1.349, 1.349, 1.349, + 4 1.642, 1.642, 1.642, 1.642, 1.642, 1.642, 1.642, + 5 2.134, 2.134, 2.134, 2.134, 2.134, 2.134, 2.134, + 6 2.948, 2.948, 2.948, 2.948, 2.948, 2.948, 2.948, + 7 4.273, 4.273, 4.273, 4.273, 4.273, 4.273, 4.273, + 8 6.412, 6.412, 6.412, 6.412, 6.412, 6.412, 6.412, + 9 4.000, 4.000, 4.000, 4.000, 4.000, 4.000, 4.000/ + DATA PF362/ + 1 4.001, 4.001, 4.001, 4.001, 4.001, 4.001, 4.001, + 2 4.001, 4.001, 4.001, 4.001, 4.001, 4.001, 4.001, + 3 4.001, 4.001, 4.001, 4.001, 4.001, 4.001, 4.001, + 4 4.002, 4.002, 4.002, 4.002, 4.002, 4.002, 4.002, + 5 4.002, 4.002, 4.002, 4.002, 4.002, 4.002, 4.002, + 6 4.003, 4.003, 4.003, 4.003, 4.003, 4.003, 4.003, + 7 4.004, 4.004, 4.004, 4.004, 4.004, 4.004, 4.004, + 8 4.005, 4.005, 4.005, 4.005, 4.005, 4.005, 4.005, + 9 4.007, 4.007, 4.007, 4.007, 4.007, 4.007, 4.007/ + DATA PF363/ + 1 4.009, 4.009, 4.009, 4.009, 4.009, 4.009, 4.009, + 2 4.011, 4.011, 4.011, 4.011, 4.011, 4.011, 4.011, + 3 4.014, 4.014, 4.014, 4.014, 4.014, 4.014, 4.014, + 4 4.017, 4.017, 4.017, 4.017, 4.017, 4.017, 4.017, + 5 4.021, 4.021, 4.021, 4.021, 4.021, 4.021, 4.021, + 6 4.026, 4.026, 4.026, 4.026, 4.026, 4.026, 4.026, + 7 4.032, 4.032, 4.032, 4.032, 4.032, 4.032, 4.032, + 8 4.039, 4.039, 4.039, 4.039, 4.039, 4.039, 4.039, + 9 4.046, 4.046, 4.046, 4.046, 4.046, 4.046, 4.046/ + DATA PF364/ + 1 4.055, 4.055, 4.055, 4.055, 4.055, 4.055, 4.055, + 2 4.069, 4.069, 4.069, 4.069, 4.069, 4.069, 4.069, + 3 4.087, 4.087, 4.087, 4.087, 4.087, 4.087, 4.087, + 4 4.107, 4.107, 4.107, 4.107, 4.107, 4.107, 4.107, + 5 4.130, 4.130, 4.130, 4.130, 4.130, 4.130, 4.130, + 6 4.156, 4.156, 4.156, 4.156, 4.156, 4.156, 4.156, + 7 4.185, 4.185, 4.185, 4.185, 4.185, 4.185, 4.185, + 8 4.217, 4.217, 4.217, 4.217, 4.217, 4.217, 4.217, + 9 4.252, 4.252, 4.252, 4.252, 4.252, 4.252, 4.252/ + DATA PF365/ + 1 4.289, 4.289, 4.289, 4.289, 4.289, 4.289, 4.289, + 2 4.329, 4.329, 4.329, 4.329, 4.329, 4.329, 4.329, + 3 4.400, 4.400, 4.400, 4.400, 4.400, 4.400, 4.400, + 4 4.477, 4.477, 4.477, 4.477, 4.477, 4.477, 4.477, + 5 4.557, 4.557, 4.557, 4.557, 4.557, 4.557, 4.557, + 6 4.640, 4.640, 4.640, 4.640, 4.640, 4.640, 4.640, + 7 4.725, 4.725, 4.725, 4.725, 4.725, 4.725, 4.725, + 8 4.809, 4.809, 4.809, 4.809, 4.809, 4.809, 4.809, + 9 4.893, 4.893, 4.893, 4.893, 4.893, 4.893, 4.893/ + DATA PF366/ + 1 4.975, 4.975, 4.975, 4.975, 4.975, 4.975, 4.975, + 2 5.054, 5.054, 5.054, 5.054, 5.054, 5.054, 5.054, + 3 5.130, 5.130, 5.130, 5.130, 5.130, 5.130, 5.130, + 4 5.203, 5.203, 5.203, 5.203, 5.203, 5.203, 5.203, + 5 5.271, 5.271, 5.271, 5.271, 5.271, 5.271, 5.271, + 6 5.336, 5.336, 5.336, 5.336, 5.336, 5.336, 5.336, + 7 5.397, 5.397, 5.397, 5.397, 5.397, 5.397, 5.397, + 8 5.458, 5.458, 5.458, 5.458, 5.458, 5.458, 5.458, + 9 5.520, 5.520, 5.520, 5.520, 5.520, 5.520, 5.520/ + DATA PF367/ + 1 5.595, 5.595, 5.595, 5.595, 5.595, 5.595, 5.595, + 2 5.697, 5.697, 5.697, 5.697, 5.697, 5.697, 5.697, + 3 5.856, 5.856, 5.856, 5.856, 5.856, 5.856, 5.856, + 4 6.117, 6.117, 6.117, 6.117, 6.117, 6.117, 6.117, + 5 6.550, 6.550, 6.550, 6.550, 6.550, 6.550, 6.550, + 6 7.257, 7.257, 7.257, 7.257, 7.257, 7.257, 7.257, + 7 8.393, 8.393, 8.393, 8.393, 8.393, 8.393, 8.393, + 8 10.190, 10.190, 10.190, 10.190, 10.190, 10.190, 10.190, + 9 13.002, 13.002, 13.002, 13.002, 13.002, 13.002, 13.002/ + DATA PF368/ + 1 17.374, 17.374, 17.374, 17.374, 17.374, 17.374, 17.374, + 2 5.003, 5.003, 5.003, 5.003, 5.003, 5.003, 5.003, + 3 5.005, 5.005, 5.005, 5.005, 5.005, 5.005, 5.005, + 4 5.006, 5.006, 5.006, 5.006, 5.006, 5.006, 5.006, + 5 5.008, 5.008, 5.008, 5.008, 5.008, 5.008, 5.008, + 6 5.011, 5.011, 5.011, 5.011, 5.011, 5.011, 5.011, + 7 5.014, 5.014, 5.014, 5.014, 5.014, 5.014, 5.014, + 8 5.018, 5.018, 5.018, 5.018, 5.018, 5.018, 5.018, + 9 5.023, 5.023, 5.023, 5.023, 5.023, 5.023, 5.023/ + DATA PF369/ + 1 5.029, 5.029, 5.029, 5.029, 5.029, 5.029, 5.029, + 2 5.036, 5.036, 5.036, 5.036, 5.036, 5.036, 5.036, + 3 5.045, 5.045, 5.045, 5.045, 5.045, 5.045, 5.045, + 4 5.054, 5.054, 5.054, 5.054, 5.054, 5.054, 5.054, + 5 5.066, 5.066, 5.066, 5.066, 5.066, 5.066, 5.066, + 6 5.079, 5.079, 5.079, 5.079, 5.079, 5.079, 5.079, + 7 5.094, 5.094, 5.094, 5.094, 5.094, 5.094, 5.094, + 8 5.112, 5.112, 5.112, 5.112, 5.112, 5.112, 5.112, + 9 5.131, 5.131, 5.131, 5.131, 5.131, 5.131, 5.131/ + DATA PF370/ + 1 5.153, 5.153, 5.153, 5.153, 5.153, 5.153, 5.153, + 2 5.177, 5.177, 5.177, 5.177, 5.177, 5.177, 5.177, + 3 5.203, 5.203, 5.203, 5.203, 5.203, 5.203, 5.203, + 4 5.248, 5.248, 5.248, 5.248, 5.248, 5.248, 5.248, + 5 5.298, 5.298, 5.298, 5.298, 5.298, 5.298, 5.298, + 6 5.355, 5.355, 5.355, 5.355, 5.355, 5.355, 5.355, + 7 5.418, 5.418, 5.418, 5.418, 5.418, 5.418, 5.418, + 8 5.488, 5.488, 5.488, 5.488, 5.488, 5.488, 5.488, + 9 5.563, 5.563, 5.563, 5.563, 5.563, 5.563, 5.563/ + DATA PF371/ + 1 5.646, 5.646, 5.646, 5.646, 5.646, 5.646, 5.646, + 2 5.734, 5.734, 5.734, 5.734, 5.734, 5.734, 5.734, + 3 5.830, 5.830, 5.830, 5.830, 5.830, 5.830, 5.830, + 4 5.931, 5.931, 5.931, 5.931, 5.931, 5.931, 5.931, + 5 6.116, 6.116, 6.116, 6.116, 6.116, 6.116, 6.116, + 6 6.319, 6.319, 6.319, 6.319, 6.319, 6.319, 6.319, + 7 6.542, 6.542, 6.542, 6.542, 6.542, 6.542, 6.542, + 8 6.784, 6.784, 6.784, 6.784, 6.784, 6.784, 6.784, + 9 7.045, 7.045, 7.045, 7.045, 7.045, 7.045, 7.045/ + DATA PF372/ + 1 7.325, 7.325, 7.325, 7.325, 7.325, 7.325, 7.325, + 2 7.622, 7.622, 7.622, 7.622, 7.622, 7.622, 7.622, + 3 7.934, 7.934, 7.934, 7.934, 7.934, 7.934, 7.934, + 4 8.259, 8.259, 8.259, 8.259, 8.259, 8.259, 8.259, + 5 8.595, 8.595, 8.595, 8.595, 8.595, 8.595, 8.595, + 6 8.938, 8.938, 8.938, 8.938, 8.938, 8.938, 8.938, + 7 9.285, 9.285, 9.285, 9.285, 9.285, 9.285, 9.285, + 8 9.635, 9.635, 9.635, 9.635, 9.635, 9.635, 9.635, + 9 9.984, 9.984, 9.984, 9.984, 9.984, 9.984, 9.984/ + DATA PF373/ + 1 10.336, 10.336, 10.336, 10.336, 10.336, 10.336, 10.336, + 2 10.693, 10.693, 10.693, 10.693, 10.693, 10.693, 10.693, + 3 11.069, 11.069, 11.069, 11.069, 11.069, 11.069, 11.069, + 4 11.487, 11.487, 11.487, 11.487, 11.487, 11.487, 11.487, + 5 11.987, 11.987, 11.987, 11.987, 11.987, 11.987, 11.987, + 6 12.633, 12.633, 12.633, 12.633, 12.633, 12.633, 12.633, + 7 13.520, 13.520, 13.520, 13.520, 13.520, 13.520, 13.520, + 8 14.787, 14.787, 14.787, 14.787, 14.787, 14.787, 14.787, + 9 16.631, 16.631, 16.631, 16.631, 16.631, 16.631, 16.631/ + DATA PF374/ + 1 19.338, 19.338, 19.338, 19.338, 19.338, 19.338, 19.338, + 2 23.317, 23.317, 23.317, 23.317, 23.317, 23.317, 23.317, + 3 29.168, 29.168, 29.168, 29.168, 29.168, 29.168, 29.168, + 4 19.692, 19.692, 19.692, 19.692, 19.692, 19.692, 19.692, + 5 19.946, 19.946, 19.946, 19.946, 19.946, 19.946, 19.946, + 6 20.207, 20.207, 20.207, 20.207, 20.207, 20.207, 20.207, + 7 20.476, 20.476, 20.476, 20.476, 20.476, 20.476, 20.476, + 8 20.754, 20.754, 20.754, 20.754, 20.754, 20.754, 20.754, + 9 21.044, 21.044, 21.044, 21.044, 21.044, 21.044, 21.044/ + DATA PF375/ + 1 21.348, 21.348, 21.348, 21.348, 21.348, 21.348, 21.348, + 2 21.667, 21.667, 21.667, 21.667, 21.667, 21.667, 21.667, + 3 22.004, 22.004, 22.004, 22.004, 22.004, 22.004, 22.004, + 4 22.362, 22.362, 22.362, 22.362, 22.362, 22.362, 22.361, + 5 22.742, 22.742, 22.742, 22.742, 22.742, 22.742, 22.742, + 6 23.148, 23.148, 23.148, 23.148, 23.148, 23.148, 23.148, + 7 23.584, 23.584, 23.584, 23.584, 23.584, 23.584, 23.583, + 8 24.052, 24.052, 24.052, 24.052, 24.052, 24.052, 24.051, + 9 24.557, 24.557, 24.557, 24.557, 24.557, 24.557, 24.556/ + DATA PF376/ + 1 25.105, 25.105, 25.105, 25.105, 25.105, 25.104, 25.103, + 2 25.699, 25.699, 25.699, 25.699, 25.699, 25.699, 25.696, + 3 26.347, 26.347, 26.347, 26.347, 26.347, 26.347, 26.341, + 4 27.056, 27.056, 27.056, 27.056, 27.056, 27.056, 27.047, + 5 27.834, 27.834, 27.834, 27.834, 27.834, 27.833, 27.818, + 6 29.153, 29.153, 29.153, 29.153, 29.152, 29.150, 29.120, + 7 30.689, 30.689, 30.688, 30.688, 30.686, 30.681, 30.624, + 8 32.490, 32.490, 32.490, 32.488, 32.484, 32.472, 32.367, + 9 34.619, 34.619, 34.617, 34.612, 34.602, 34.576, 34.389/ + DATA PF377/ + 1 37.152, 37.151, 37.147, 37.136, 37.112, 37.057, 36.737, + 2 40.188, 40.186, 40.176, 40.151, 40.098, 39.989, 39.455, + 3 43.856, 43.851, 43.829, 43.775, 43.664, 43.456, 42.594, + 4 48.322, 48.310, 48.266, 48.154, 47.934, 47.554, 46.202, + 5 53.803, 53.780, 53.693, 53.474, 53.056, 52.388, 50.323, + 6 60.584, 60.539, 60.374, 59.965, 59.205, 58.074, 55.000, + 7 75.805, 75.685, 75.248, 74.190, 72.301, 69.778, 64.126, + 8 98.002, 97.715, 96.675, 94.205, 89.953, 84.791, 75.012, + 9 130.393, 129.764, 127.511, 122.253, 113.490, 103.711, 87.706/ + DATA PF378/ + 1 177.139, 175.874, 171.388, 161.078, 144.378, 127.086, 102.180, + 2 243.218, 240.863, 232.575, 213.785, 184.112, 155.358, 118.325, + 3 334.109, 330.010, 315.685, 283.604, 234.070, 188.811, 135.966, + 4 455.302, 448.584, 425.258, 373.577, 295.363, 227.535, 154.871, + 5 611.734, 601.300, 565.276, 486.228, 368.703, 271.406, 174.770, + 6 807.227, 791.780, 738.715, 623.266, 454.314, 320.086, 195.372, + 7 1044.045, 1022.131, 947.188, 785.378, 551.886, 373.050, 216.382, + 8 1322.623, 1292.694,1190.753, 972.138, 660.596, 429.620, 237.516, + 9 1641.501, 1601.988,1467.884,1182.028, 779.169, 489.011, 258.512/ + DATA PF379/ + 1 1997.454, 1946.842,1775.611,1412.573, 905.981, 550.380, 279.137, + 2 2385.781, 2322.673,2109.771,1660.539,1039.170, 612.874, 299.192, + 3 2800.685, 2723.862,2465.345,1922.183,1176.761, 675.671, 318.517, + 4 3235.699, 3144.159,2836.810,2193.498,1316.775, 738.010, 336.985, + 5 3684.095, 3577.077,3218.484,2470.447,1457.320, 799.216, 354.504, + 6 4139.252, 4016.247,3604.823,2749.161,1596.668, 858.711, 371.014, + 7 4594.948, 4455.693,3990.657,3026.088,1733.297, 916.026, 386.479, + 8 5045.575, 4890.036,4371.358,3298.094,1865.923, 970.793, 400.889, + 9 5486.275, 5314.625,4742.944,3562.522,1993.507,1022.743, 414.254/ + DATA PF380/ + 1 5913.008, 5725.597,5102.129,3817.216,2115.252,1071.699, 426.594, + 2 6322.559, 6119.885,5446.320,4060.508,2230.584,1117.562, 437.947, + 3 6712.506, 6495.185,5773.589,4291.191,2339.131,1160.300, 448.355, + 4 7081.158, 6849.892,6082.609,4508.468,2440.699,1199.938, 457.867, + 5 7427.471, 7183.025,6372.590,4711.909,2535.242,1236.543, 466.539, + 6 28.795, 28.795, 28.795, 28.795, 28.795, 28.795, 28.795, + 7 29.467, 29.467, 29.467, 29.467, 29.467, 29.467, 29.467, + 8 30.148, 30.148, 30.148, 30.148, 30.148, 30.148, 30.148, + 9 30.838, 30.838, 30.838, 30.838, 30.838, 30.838, 30.838/ + DATA PF381/ + 1 31.536, 31.536, 31.536, 31.536, 31.536, 31.536, 31.536, + 2 32.244, 32.244, 32.244, 32.244, 32.244, 32.244, 32.244, + 3 32.960, 32.960, 32.960, 32.960, 32.960, 32.960, 32.960, + 4 33.685, 33.685, 33.685, 33.685, 33.685, 33.685, 33.685, + 5 34.419, 34.419, 34.419, 34.419, 34.419, 34.419, 34.419, + 6 35.163, 35.163, 35.163, 35.163, 35.163, 35.163, 35.163, + 7 35.918, 35.918, 35.918, 35.918, 35.918, 35.918, 35.918, + 8 36.684, 36.684, 36.684, 36.684, 36.684, 36.684, 36.684, + 9 37.463, 37.463, 37.463, 37.463, 37.463, 37.463, 37.463/ + DATA PF382/ + 1 38.257, 38.257, 38.257, 38.257, 38.257, 38.257, 38.257, + 2 39.067, 39.067, 39.067, 39.067, 39.067, 39.067, 39.067, + 3 39.896, 39.896, 39.896, 39.896, 39.896, 39.896, 39.896, + 4 40.746, 40.746, 40.746, 40.746, 40.746, 40.746, 40.746, + 5 41.622, 41.622, 41.622, 41.622, 41.622, 41.622, 41.622, + 6 42.526, 42.526, 42.526, 42.526, 42.526, 42.526, 42.526, + 7 43.464, 43.464, 43.464, 43.464, 43.464, 43.464, 43.464, + 8 44.946, 44.946, 44.946, 44.946, 44.946, 44.946, 44.946, + 9 46.536, 46.536, 46.536, 46.536, 46.536, 46.536, 46.536/ + DATA PF383/ + 1 48.258, 48.258, 48.258, 48.258, 48.258, 48.258, 48.258, + 2 50.140, 50.140, 50.140, 50.140, 50.140, 50.140, 50.140, + 3 52.215, 52.215, 52.215, 52.215, 52.215, 52.215, 52.215, + 4 54.519, 54.519, 54.519, 54.519, 54.519, 54.519, 54.519, + 5 57.093, 57.093, 57.093, 57.093, 57.093, 57.093, 57.093, + 6 59.980, 59.980, 59.980, 59.980, 59.980, 59.980, 59.980, + 7 63.230, 63.230, 63.230, 63.230, 63.230, 63.230, 63.230, + 8 66.899, 66.899, 66.899, 66.899, 66.899, 66.899, 66.898, + 9 74.112, 74.112, 74.112, 74.112, 74.112, 74.111, 74.106/ + DATA PF384/ + 1 83.002, 83.001, 83.001, 83.001, 83.000, 82.995, 82.973, + 2 94.020, 94.020, 94.019, 94.017, 94.011, 93.992, 93.908, + 3 107.809, 107.808, 107.805, 107.798, 107.774, 107.702, 107.427, + 4 125.325, 125.321, 125.311, 125.283, 125.202, 124.972, 124.182, + 5 148.022, 148.009, 147.979, 147.893, 147.652, 146.997, 144.970, + 6 178.080, 178.046, 177.962, 177.730, 177.089, 175.428, 170.728, + 7 218.642, 218.557, 218.348, 217.784, 216.257, 212.447, 202.492, + 8 273.973, 273.782, 273.317, 272.067, 268.757, 260.770, 241.323, + 9 349.483, 349.092, 348.139, 345.601, 339.005, 323.554, 288.212/ + DATA PF385/ + 1 451.527, 450.783, 448.978, 444.209, 432.010, 404.187, 343.967, + 2 586.971, 585.651, 582.463, 574.095, 552.992, 505.991, 409.120, + 3 762.573, 760.375, 755.081, 741.267, 706.876, 631.869, 483.847, + 4 984.275, 980.811, 972.491, 950.899, 897.749, 783.975, 567.932, + 5 1256.523, 1251.328,1238.881,1206.728,1128.386, 963.442, 660.764, + 6 1581.735, 1574.280,1556.456,1510.608,1399.902,1170.229, 761.380, + 7 1960.002, 1949.714,1925.169,1862.267,1711.600,1403.095, 868.532, + 8 2389.037, 2375.329,2342.684,2259.302,2061.006,1659.686, 980.774, + 9 2864.368, 2846.665,2804.572,2697.378,2444.077,1936.729,1096.548/ + DATA PF386/ + 1 3379.718, 3357.483,3304.687,3170.596,2855.531,2230.276,1214.278, + 2 3927.498, 3900.254,3835.646,3671.942,3289.242,2535.981,1332.443, + 3 4499.342, 4466.691,4389.345,4193.779,3738.651,2849.364,1449.637, + 4 5086.626, 5048.257,4957.457,4728.301,4197.145,3166.042,1564.612, + 5 5680.920, 5636.616,5531.863,5267.938,4658.378,3481.920,1676.303, + 6 6274.347, 6223.984,6104.999,5805.663,5116.521,3793.322,1783.843, + 7 6859.847, 6803.388,6670.097,6335.215,5566.429,4097.083,1886.555, + 8 19.261, 19.261, 19.261, 19.261, 19.261, 19.261, 19.261, + 9 19.464, 19.464, 19.464, 19.464, 19.464, 19.464, 19.464/ + DATA PF387/ + 1 19.661, 19.661, 19.661, 19.661, 19.661, 19.661, 19.661, + 2 19.854, 19.854, 19.854, 19.854, 19.854, 19.854, 19.854, + 3 20.041, 20.041, 20.041, 20.041, 20.041, 20.041, 20.041, + 4 20.224, 20.224, 20.224, 20.224, 20.224, 20.224, 20.224, + 5 20.402, 20.402, 20.402, 20.402, 20.402, 20.402, 20.402, + 6 20.575, 20.575, 20.575, 20.575, 20.575, 20.575, 20.575, + 7 20.743, 20.743, 20.743, 20.743, 20.743, 20.743, 20.743, + 8 20.908, 20.908, 20.908, 20.908, 20.908, 20.908, 20.908, + 9 21.068, 21.068, 21.068, 21.068, 21.068, 21.068, 21.068/ + DATA PF388/ + 1 21.225, 21.225, 21.225, 21.225, 21.225, 21.225, 21.225, + 2 21.378, 21.378, 21.378, 21.378, 21.378, 21.378, 21.378, + 3 21.530, 21.530, 21.530, 21.530, 21.530, 21.530, 21.530, + 4 21.680, 21.680, 21.680, 21.680, 21.680, 21.680, 21.680, + 5 21.830, 21.830, 21.830, 21.830, 21.830, 21.830, 21.830, + 6 21.981, 21.981, 21.981, 21.981, 21.981, 21.981, 21.981, + 7 22.135, 22.135, 22.135, 22.135, 22.135, 22.135, 22.135, + 8 22.294, 22.294, 22.294, 22.294, 22.294, 22.294, 22.294, + 9 22.459, 22.459, 22.459, 22.459, 22.459, 22.459, 22.459/ + DATA PF389/ + 1 22.726, 22.726, 22.726, 22.726, 22.726, 22.726, 22.726, + 2 23.024, 23.024, 23.024, 23.024, 23.024, 23.024, 23.024, + 3 23.364, 23.364, 23.364, 23.364, 23.364, 23.364, 23.364, + 4 23.759, 23.759, 23.759, 23.759, 23.759, 23.759, 23.759, + 5 24.225, 24.225, 24.225, 24.225, 24.225, 24.225, 24.225, + 6 24.777, 24.777, 24.777, 24.777, 24.777, 24.777, 24.777, + 7 25.431, 25.431, 25.431, 25.431, 25.431, 25.431, 25.431, + 8 26.206, 26.206, 26.206, 26.206, 26.206, 26.206, 26.206, + 9 27.118, 27.118, 27.118, 27.118, 27.118, 27.118, 27.118/ + DATA PF390/ + 1 28.186, 28.186, 28.186, 28.186, 28.186, 28.186, 28.186, + 2 30.360, 30.360, 30.360, 30.360, 30.360, 30.360, 30.360, + 3 33.097, 33.097, 33.097, 33.097, 33.097, 33.097, 33.097, + 4 36.482, 36.482, 36.482, 36.482, 36.482, 36.482, 36.482, + 5 40.609, 40.609, 40.609, 40.609, 40.609, 40.609, 40.609, + 6 45.595, 45.595, 45.595, 45.595, 45.595, 45.595, 45.595, + 7 51.603, 51.603, 51.603, 51.603, 51.603, 51.603, 51.602, + 8 58.864, 58.864, 58.864, 58.864, 58.863, 58.862, 58.859, + 9 67.724, 67.724, 67.723, 67.723, 67.720, 67.716, 67.702/ + DATA PF391/ + 1 78.710, 78.708, 78.705, 78.703, 78.690, 78.673, 78.620, + 2 92.634, 92.626, 92.616, 92.607, 92.558, 92.497, 92.314, + 3 110.769, 110.742, 110.706, 110.678, 110.517, 110.321, 109.772, + 4 135.082, 135.003, 134.897, 134.814, 134.347, 133.797, 132.334, + 5 168.539, 168.329, 168.052, 167.835, 166.633, 165.251, 161.745, + 6 215.393, 214.896, 214.239, 213.730, 210.934, 207.795, 200.156, + 7 281.384, 280.310, 278.897, 277.806, 271.875, 265.351, 250.055, + 8 373.723, 371.591, 368.790, 366.640, 355.047, 342.525, 314.118, + 9 500.793, 496.864, 491.713, 487.776, 466.708, 444.317, 394.990/ + DATA PF392/ + 1 671.547, 664.773, 655.906, 649.156, 613.275, 575.691, 495.019, + 2 894.678, 883.673, 869.285, 858.370, 800.700, 741.067, 615.993, + 3 1177.698, 1160.735,1138.586,1121.837,1033.806, 943.819, 758.925, + 4 1526.072, 1501.128,1468.594,1444.062,1315.727,1185.876, 923.911, + 5 1942.576, 1907.403,1861.573,1827.101,1647.523,1467.471,1110.095, + 6 2426.952, 2379.173,2316.973,2270.293,2028.027,1787.082,1315.723, + 7 2975.893, 2913.118,2831.460,2770.299,2453.929,2141.550,1538.276, + 8 3583.340, 3503.275,3399.197,3321.382,2920.061,2526.343,1774.664, + 9 4240.993, 4141.541,4012.342,3915.899,3419.813,2935.906,2021.435/ + DATA PF393/ + 1 6.000, 6.000, 6.000, 6.000, 6.000, 6.000, 6.000, + 2 6.000, 6.000, 6.000, 6.000, 6.000, 6.000, 6.000, + 3 6.000, 6.000, 6.000, 6.000, 6.000, 6.000, 6.000, + 4 6.000, 6.000, 6.000, 6.000, 6.000, 6.000, 6.000, + 5 6.000, 6.000, 6.000, 6.000, 6.000, 6.000, 6.000, + 6 6.000, 6.000, 6.000, 6.000, 6.000, 6.000, 6.000, + 7 6.000, 6.000, 6.000, 6.000, 6.000, 6.000, 6.000, + 8 6.000, 6.000, 6.000, 6.000, 6.000, 6.000, 6.000, + 9 6.000, 6.000, 6.000, 6.000, 6.000, 6.000, 6.000/ + DATA PF394/ + 1 6.000, 6.000, 6.000, 6.000, 6.000, 6.000, 6.000, + 2 6.000, 6.000, 6.000, 6.000, 6.000, 6.000, 6.000, + 3 6.000, 6.000, 6.000, 6.000, 6.000, 6.000, 6.000, + 4 6.000, 6.000, 6.000, 6.000, 6.000, 6.000, 6.000, + 5 6.000, 6.000, 6.000, 6.000, 6.000, 6.000, 6.000, + 6 6.000, 6.000, 6.000, 6.000, 6.000, 6.000, 6.000, + 7 6.001, 6.001, 6.001, 6.001, 6.001, 6.001, 6.001, + 8 6.001, 6.001, 6.001, 6.001, 6.001, 6.001, 6.001, + 9 6.002, 6.002, 6.002, 6.002, 6.002, 6.002, 6.002/ + DATA PF395/ + 1 6.003, 6.003, 6.003, 6.003, 6.003, 6.003, 6.003, + 2 6.004, 6.004, 6.004, 6.004, 6.004, 6.004, 6.004, + 3 6.008, 6.008, 6.008, 6.008, 6.008, 6.008, 6.008, + 4 6.015, 6.015, 6.015, 6.015, 6.015, 6.015, 6.015, + 5 6.026, 6.026, 6.026, 6.026, 6.026, 6.026, 6.026, + 6 6.043, 6.043, 6.043, 6.043, 6.043, 6.043, 6.043, + 7 6.071, 6.071, 6.071, 6.071, 6.071, 6.071, 6.071, + 8 6.114, 6.114, 6.114, 6.114, 6.114, 6.114, 6.114, + 9 6.176, 6.176, 6.176, 6.176, 6.176, 6.176, 6.176/ + DATA PF396/ + 1 6.267, 6.267, 6.267, 6.267, 6.267, 6.267, 6.267, + 2 6.394, 6.394, 6.394, 6.394, 6.394, 6.394, 6.394, + 3 6.569, 6.569, 6.569, 6.569, 6.569, 6.569, 6.569, + 4 7.005, 7.005, 7.005, 7.005, 7.005, 7.005, 7.005, + 5 7.684, 7.684, 7.684, 7.684, 7.684, 7.684, 7.684, + 6 8.697, 8.697, 8.697, 8.697, 8.697, 8.697, 8.697, + 7 10.140, 10.140, 10.140, 10.140, 10.140, 10.140, 10.140, + 8 12.118, 12.118, 12.118, 12.118, 12.118, 12.118, 12.118, + 9 14.733, 14.733, 14.733, 14.733, 14.733, 14.733, 14.733/ + DATA PF397/ + 1 18.079, 18.079, 18.079, 18.079, 18.079, 18.079, 18.079, + 2 22.240, 22.240, 22.240, 22.240, 22.240, 22.240, 22.240, + 3 27.293, 27.293, 27.293, 27.293, 27.293, 27.293, 27.293, + 4 33.317, 33.317, 33.317, 33.317, 33.317, 33.316, 33.316, + 5 40.419, 40.419, 40.419, 40.419, 40.418, 40.418, 40.418, + 6 48.781, 48.780, 48.780, 48.780, 48.779, 48.777, 48.773, + 7 58.739, 58.738, 58.737, 58.733, 58.730, 58.722, 58.701, + 8 70.943, 70.937, 70.931, 70.916, 70.902, 70.863, 70.773, + 9 86.649, 86.626, 86.603, 86.542, 86.490, 86.338, 86.006/ + DATA PF398/ + 1 108.252, 108.172, 108.095, 107.889, 107.714, 107.209, 106.144, + 2 140.109, 139.870, 139.641, 139.028, 138.511, 137.042, 134.035, + 3 189.665, 189.033, 188.425, 186.807, 185.453, 181.642, 174.059, + 4 268.697, 267.191, 265.743, 261.899, 258.702, 249.795, 232.499, + 5 394.354, 391.085, 387.948, 379.636, 372.763, 353.778, 317.712, + 6 589.551, 583.033, 576.782, 560.258, 546.660, 509.392, 439.960, + 7 882.376, 870.316, 858.762, 828.276, 803.299, 735.314, 610.833, + 8 1304.331, 1283.464,1263.487,1210.863,1167.920,1051.749, 842.299, + 9 1887.589, 1853.575,1821.030,1735.431,1665.822,1478.548,1145.514/ + DATA PF399/ + 1 2661.691, 2609.112,2558.835,2426.773,2319.714,2033.093,1529.593, + 2 3650.253, 3572.739,3498.656,3304.293,3147.168,2728.338,2000.570, + 3 15.218, 15.218, 15.218, 15.218, 15.218, 15.218, 15.218, + 4 15.531, 15.531, 15.531, 15.531, 15.531, 15.531, 15.531, + 5 15.839, 15.839, 15.839, 15.839, 15.839, 15.839, 15.839, + 6 16.142, 16.142, 16.142, 16.142, 16.142, 16.142, 16.142, + 7 16.438, 16.438, 16.438, 16.438, 16.438, 16.438, 16.438, + 8 16.728, 16.728, 16.728, 16.728, 16.728, 16.728, 16.728, + 9 17.012, 17.012, 17.012, 17.012, 17.012, 17.012, 17.012/ + DATA PF400/ + 1 17.290, 17.290, 17.290, 17.290, 17.290, 17.290, 17.290, + 2 17.561, 17.561, 17.561, 17.561, 17.561, 17.561, 17.561, + 3 17.826, 17.826, 17.826, 17.826, 17.826, 17.826, 17.826, + 4 18.084, 18.084, 18.084, 18.084, 18.084, 18.084, 18.084, + 5 18.336, 18.336, 18.336, 18.336, 18.336, 18.336, 18.336, + 6 18.582, 18.582, 18.582, 18.582, 18.582, 18.582, 18.582, + 7 18.821, 18.821, 18.821, 18.821, 18.821, 18.821, 18.821, + 8 19.054, 19.054, 19.054, 19.054, 19.054, 19.054, 19.054, + 9 19.281, 19.281, 19.281, 19.281, 19.281, 19.281, 19.281/ + DATA PF401/ + 1 19.503, 19.503, 19.503, 19.503, 19.503, 19.503, 19.503, + 2 19.721, 19.721, 19.721, 19.721, 19.721, 19.721, 19.721, + 3 19.935, 19.935, 19.935, 19.935, 19.935, 19.935, 19.935, + 4 20.146, 20.146, 20.146, 20.146, 20.146, 20.146, 20.146, + 5 20.460, 20.460, 20.460, 20.460, 20.460, 20.460, 20.460, + 6 20.775, 20.775, 20.775, 20.775, 20.775, 20.775, 20.775, + 7 21.098, 21.098, 21.098, 21.098, 21.098, 21.098, 21.098, + 8 21.437, 21.437, 21.437, 21.437, 21.437, 21.437, 21.437, + 9 21.801, 21.801, 21.801, 21.801, 21.801, 21.801, 21.801/ + DATA PF402/ + 1 22.203, 22.203, 22.203, 22.203, 22.203, 22.203, 22.203, + 2 22.654, 22.654, 22.654, 22.654, 22.654, 22.654, 22.654, + 3 23.169, 23.169, 23.169, 23.169, 23.169, 23.169, 23.169, + 4 23.763, 23.763, 23.763, 23.763, 23.763, 23.763, 23.763, + 5 24.453, 24.453, 24.453, 24.453, 24.453, 24.453, 24.453, + 6 25.859, 25.859, 25.859, 25.859, 25.859, 25.859, 25.859, + 7 27.649, 27.649, 27.649, 27.649, 27.649, 27.649, 27.649, + 8 29.893, 29.893, 29.893, 29.893, 29.893, 29.893, 29.893, + 9 32.647, 32.647, 32.647, 32.647, 32.647, 32.647, 32.647/ + DATA PF403/ + 1 35.951, 35.951, 35.951, 35.951, 35.951, 35.951, 35.951, + 2 39.830, 39.830, 39.830, 39.830, 39.830, 39.830, 39.830, + 3 44.287, 44.287, 44.287, 44.287, 44.287, 44.287, 44.287, + 4 49.307, 49.307, 49.307, 49.307, 49.307, 49.307, 49.307, + 5 54.859, 54.859, 54.859, 54.859, 54.859, 54.859, 54.859, + 6 60.898, 60.898, 60.898, 60.898, 60.898, 60.898, 60.898, + 7 67.374, 67.374, 67.374, 67.374, 67.374, 67.374, 67.374, + 8 74.245, 74.245, 74.245, 74.245, 74.245, 74.245, 74.245, + 9 81.494, 81.494, 81.494, 81.494, 81.494, 81.494, 81.494/ + DATA PF404/ + 1 89.160, 89.160, 89.160, 89.159, 89.159, 89.159, 89.158, + 2 97.379, 97.379, 97.379, 97.378, 97.378, 97.375, 97.371, + 3 106.480, 106.480, 106.479, 106.475, 106.472, 106.459, 106.435, + 4 117.148, 117.148, 117.141, 117.123, 117.110, 117.056, 116.955, + 5 130.762, 130.762, 130.733, 130.664, 130.616, 130.416, 130.052, + 6 149.982, 149.981, 149.888, 149.660, 149.506, 148.862, 147.721, + 7 179.660, 179.657, 179.389, 178.734, 178.292, 176.466, 173.310, + 8 228.024, 228.018, 227.327, 225.646, 224.519, 219.898, 212.084, + 9 307.932, 307.917, 306.314, 302.420, 299.823, 289.250, 271.719/ + DATA PF405/ + 1 437.809, 437.777, 434.385, 426.152, 420.687, 398.576, 362.553, + 2 641.858, 641.796, 635.178, 619.132, 608.526, 565.851, 497.404, + 3 949.185, 949.072, 937.065, 907.982, 888.831, 812.151, 690.860, + 4 1391.783, 1391.591,1371.175,1321.762,1289.334,1160.059, 958.090, + 5 14.270, 14.270, 14.270, 14.270, 14.270, 14.270, 14.270, + 6 14.631, 14.631, 14.631, 14.631, 14.631, 14.631, 14.631, + 7 14.992, 14.992, 14.992, 14.992, 14.992, 14.992, 14.992, + 8 15.350, 15.350, 15.350, 15.350, 15.350, 15.350, 15.350, + 9 15.707, 15.707, 15.707, 15.707, 15.707, 15.707, 15.707/ + DATA PF406/ + 1 16.061, 16.061, 16.061, 16.061, 16.061, 16.061, 16.061, + 2 16.411, 16.411, 16.411, 16.411, 16.411, 16.411, 16.411, + 3 16.759, 16.759, 16.759, 16.759, 16.759, 16.759, 16.759, + 4 17.102, 17.102, 17.102, 17.102, 17.102, 17.102, 17.102, + 5 17.441, 17.441, 17.441, 17.441, 17.441, 17.441, 17.441, + 6 17.776, 17.776, 17.776, 17.776, 17.776, 17.776, 17.776, + 7 18.106, 18.106, 18.106, 18.106, 18.106, 18.106, 18.106, + 8 18.432, 18.432, 18.432, 18.432, 18.432, 18.432, 18.432, + 9 18.753, 18.753, 18.753, 18.753, 18.753, 18.753, 18.753/ + DATA PF407/ + 1 19.069, 19.069, 19.069, 19.069, 19.069, 19.069, 19.069, + 2 19.382, 19.382, 19.382, 19.382, 19.382, 19.382, 19.382, + 3 19.691, 19.691, 19.691, 19.691, 19.691, 19.691, 19.691, + 4 19.997, 19.997, 19.997, 19.997, 19.997, 19.997, 19.997, + 5 20.300, 20.300, 20.300, 20.300, 20.300, 20.300, 20.300, + 6 20.602, 20.602, 20.602, 20.602, 20.602, 20.602, 20.602, + 7 21.056, 21.056, 21.056, 21.056, 21.056, 21.056, 21.056, + 8 21.512, 21.512, 21.512, 21.512, 21.512, 21.512, 21.512, + 9 21.979, 21.979, 21.979, 21.979, 21.979, 21.979, 21.979/ + DATA PF408/ + 1 22.461, 22.461, 22.461, 22.461, 22.461, 22.461, 22.461, + 2 22.965, 22.965, 22.965, 22.965, 22.965, 22.965, 22.965, + 3 23.500, 23.500, 23.500, 23.500, 23.500, 23.500, 23.500, + 4 24.073, 24.073, 24.073, 24.073, 24.073, 24.073, 24.073, + 5 24.693, 24.693, 24.693, 24.693, 24.693, 24.693, 24.693, + 6 25.368, 25.368, 25.368, 25.368, 25.368, 25.368, 25.368, + 7 26.107, 26.107, 26.107, 26.107, 26.107, 26.107, 26.107, + 8 27.499, 27.499, 27.499, 27.499, 27.499, 27.499, 27.499, + 9 29.119, 29.119, 29.119, 29.119, 29.119, 29.119, 29.119/ + DATA PF409/ + 1 30.989, 30.989, 30.989, 30.989, 30.989, 30.989, 30.989, + 2 33.124, 33.124, 33.124, 33.124, 33.124, 33.124, 33.124, + 3 35.525, 35.525, 35.525, 35.525, 35.525, 35.525, 35.525, + 4 38.187, 38.187, 38.187, 38.187, 38.187, 38.187, 38.187, + 5 41.093, 41.093, 41.093, 41.093, 41.093, 41.093, 41.093, + 6 44.218, 44.218, 44.218, 44.218, 44.218, 44.218, 44.218, + 7 47.531, 47.531, 47.531, 47.531, 47.531, 47.531, 47.531, + 8 50.998, 50.998, 50.998, 50.998, 50.998, 50.998, 50.998, + 9 54.581, 54.581, 54.581, 54.581, 54.581, 54.581, 54.581/ + DATA PF410/ + 1 58.240, 58.240, 58.240, 58.240, 58.240, 58.240, 58.240, + 2 61.941, 61.941, 61.941, 61.941, 61.941, 61.941, 61.941, + 3 65.657, 65.657, 65.657, 65.657, 65.657, 65.657, 65.657, + 4 69.379, 69.379, 69.379, 69.379, 69.379, 69.379, 69.379, + 5 73.126, 73.126, 73.126, 73.126, 73.126, 73.126, 73.126, + 6 76.978, 76.978, 76.978, 76.978, 76.977, 76.977, 76.977, + 7 81.117, 81.117, 81.117, 81.117, 81.117, 81.117, 81.114, + 8 85.922, 85.921, 85.921, 85.921, 85.920, 85.919, 85.903, + 9 92.113, 92.113, 92.112, 92.111, 92.108, 92.103, 92.042/ + DATA PF411/ + 1 101.024, 101.023, 101.021, 101.016, 101.006, 100.987, 100.785, + 2 114.980, 114.978, 114.970, 114.956, 114.925, 114.869, 114.276, + 3 137.804, 137.798, 137.778, 137.739, 137.655, 137.505, 135.955, + 4 175.347, 175.331, 175.283, 175.190, 174.988, 174.630, 170.978, + 5 235.900, 235.866, 235.759, 235.555, 235.113, 234.335, 226.500, + 6 330.304, 330.235, 330.019, 329.607, 328.721, 327.165, 311.692, + 7 10.200, 10.200, 10.200, 10.200, 10.200, 10.200, 10.200, + 8 10.448, 10.448, 10.448, 10.448, 10.448, 10.448, 10.448, + 9 10.698, 10.698, 10.698, 10.698, 10.698, 10.698, 10.698/ + DATA PF412/ + 1 10.949, 10.949, 10.949, 10.949, 10.949, 10.949, 10.949, + 2 11.201, 11.201, 11.201, 11.201, 11.201, 11.201, 11.201, + 3 11.453, 11.453, 11.453, 11.453, 11.453, 11.453, 11.453, + 4 11.705, 11.705, 11.705, 11.705, 11.705, 11.705, 11.705, + 5 11.956, 11.956, 11.956, 11.956, 11.956, 11.956, 11.956, + 6 12.207, 12.207, 12.207, 12.207, 12.207, 12.207, 12.207, + 7 12.456, 12.456, 12.456, 12.456, 12.456, 12.456, 12.456, + 8 12.704, 12.704, 12.704, 12.704, 12.704, 12.704, 12.704, + 9 12.951, 12.951, 12.951, 12.951, 12.951, 12.951, 12.951/ + DATA PF413/ + 1 13.195, 13.195, 13.195, 13.195, 13.195, 13.195, 13.195, + 2 13.437, 13.437, 13.437, 13.437, 13.437, 13.437, 13.437, + 3 13.676, 13.676, 13.676, 13.676, 13.676, 13.676, 13.676, + 4 13.914, 13.914, 13.914, 13.914, 13.914, 13.914, 13.914, + 5 14.149, 14.149, 14.149, 14.149, 14.149, 14.149, 14.149, + 6 14.382, 14.382, 14.382, 14.382, 14.382, 14.382, 14.382, + 7 14.613, 14.613, 14.613, 14.613, 14.613, 14.613, 14.613, + 8 14.843, 14.843, 14.843, 14.843, 14.843, 14.843, 14.843, + 9 15.185, 15.185, 15.185, 15.185, 15.185, 15.185, 15.185/ + DATA PF414/ + 1 15.525, 15.525, 15.525, 15.525, 15.525, 15.525, 15.525, + 2 15.865, 15.865, 15.865, 15.865, 15.865, 15.865, 15.865, + 3 16.208, 16.208, 16.208, 16.208, 16.208, 16.208, 16.208, + 4 16.556, 16.556, 16.556, 16.556, 16.556, 16.556, 16.556, + 5 16.910, 16.910, 16.910, 16.910, 16.910, 16.910, 16.910, + 6 17.274, 17.274, 17.274, 17.274, 17.274, 17.274, 17.274, + 7 17.649, 17.649, 17.649, 17.649, 17.649, 17.649, 17.649, + 8 18.039, 18.039, 18.039, 18.039, 18.039, 18.039, 18.039, + 9 18.446, 18.446, 18.446, 18.446, 18.446, 18.446, 18.446/ + DATA PF415/ + 1 19.165, 19.165, 19.165, 19.165, 19.165, 19.165, 19.165, + 2 19.942, 19.942, 19.942, 19.942, 19.942, 19.942, 19.942, + 3 20.780, 20.780, 20.780, 20.780, 20.780, 20.780, 20.780, + 4 21.679, 21.679, 21.679, 21.679, 21.679, 21.679, 21.679, + 5 22.635, 22.635, 22.635, 22.635, 22.635, 22.635, 22.635, + 6 23.641, 23.641, 23.641, 23.641, 23.641, 23.641, 23.641, + 7 24.689, 24.689, 24.689, 24.689, 24.689, 24.689, 24.689, + 8 25.767, 25.767, 25.767, 25.767, 25.767, 25.767, 25.767, + 9 26.865, 26.865, 26.865, 26.865, 26.865, 26.865, 26.865/ + DATA PF416/ + 1 27.971, 27.971, 27.971, 27.971, 27.971, 27.971, 27.971, + 2 29.072, 29.072, 29.072, 29.072, 29.072, 29.072, 29.072, + 3 30.159, 30.159, 30.159, 30.159, 30.159, 30.159, 30.159, + 4 31.222, 31.222, 31.222, 31.222, 31.222, 31.222, 31.222, + 5 32.255, 32.255, 32.255, 32.255, 32.255, 32.255, 32.255, + 6 33.255, 33.255, 33.255, 33.255, 33.255, 33.255, 33.255, + 7 34.228, 34.228, 34.228, 34.228, 34.228, 34.228, 34.228, + 8 35.198, 35.198, 35.198, 35.198, 35.198, 35.198, 35.198, + 9 36.217, 36.217, 36.217, 36.217, 36.217, 36.217, 36.217/ + DATA PF417/ + 1 37.388, 37.388, 37.388, 37.388, 37.388, 37.388, 37.388, + 2 38.889, 38.889, 38.889, 38.889, 38.889, 38.889, 38.889, + 3 41.016, 41.016, 41.016, 41.016, 41.016, 41.016, 41.016, + 4 44.230, 44.230, 44.230, 44.230, 44.230, 44.229, 44.228, + 5 49.242, 49.242, 49.242, 49.242, 49.242, 49.241, 49.238, + 6 57.126, 57.126, 57.126, 57.126, 57.126, 57.124, 57.115, + 7 69.461, 69.461, 69.461, 69.461, 69.461, 69.455, 69.431, + 8 88.474, 88.474, 88.474, 88.474, 88.474, 88.459, 88.400, + 9 5.695, 5.695, 5.695, 5.695, 5.695, 5.695, 5.695/ + DATA PF418/ + 1 5.794, 5.794, 5.794, 5.794, 5.794, 5.794, 5.794, + 2 5.894, 5.894, 5.894, 5.894, 5.894, 5.894, 5.894, + 3 5.995, 5.995, 5.995, 5.995, 5.995, 5.995, 5.995, + 4 6.096, 6.096, 6.096, 6.096, 6.096, 6.096, 6.096, + 5 6.198, 6.198, 6.198, 6.198, 6.198, 6.198, 6.198, + 6 6.299, 6.299, 6.299, 6.299, 6.299, 6.299, 6.299, + 7 6.401, 6.401, 6.401, 6.401, 6.401, 6.401, 6.401, + 8 6.502, 6.502, 6.502, 6.502, 6.502, 6.502, 6.502, + 9 6.602, 6.602, 6.602, 6.602, 6.602, 6.602, 6.602/ + DATA PF419/ + 1 6.702, 6.702, 6.702, 6.702, 6.702, 6.702, 6.702, + 2 6.801, 6.801, 6.801, 6.801, 6.801, 6.801, 6.801, + 3 6.899, 6.899, 6.899, 6.899, 6.899, 6.899, 6.899, + 4 6.995, 6.995, 6.995, 6.995, 6.995, 6.995, 6.995, + 5 7.090, 7.090, 7.090, 7.090, 7.090, 7.090, 7.090, + 6 7.184, 7.184, 7.184, 7.184, 7.184, 7.184, 7.184, + 7 7.276, 7.276, 7.276, 7.276, 7.276, 7.276, 7.276, + 8 7.366, 7.366, 7.366, 7.366, 7.366, 7.366, 7.366, + 9 7.455, 7.455, 7.455, 7.455, 7.455, 7.455, 7.455/ + DATA PF420/ + 1 7.542, 7.542, 7.542, 7.542, 7.542, 7.542, 7.542, + 2 7.669, 7.669, 7.669, 7.669, 7.669, 7.669, 7.669, + 3 7.791, 7.791, 7.791, 7.791, 7.791, 7.791, 7.791, + 4 7.909, 7.909, 7.909, 7.909, 7.909, 7.909, 7.909, + 5 8.023, 8.023, 8.023, 8.023, 8.023, 8.023, 8.023, + 6 8.131, 8.131, 8.131, 8.131, 8.131, 8.131, 8.131, + 7 8.236, 8.236, 8.236, 8.236, 8.236, 8.236, 8.236, + 8 8.335, 8.335, 8.335, 8.335, 8.335, 8.335, 8.335, + 9 8.430, 8.430, 8.430, 8.430, 8.430, 8.430, 8.430/ + DATA PF421/ + 1 8.521, 8.521, 8.521, 8.521, 8.521, 8.521, 8.521, + 2 8.607, 8.607, 8.607, 8.607, 8.607, 8.607, 8.607, + 3 8.741, 8.741, 8.741, 8.741, 8.741, 8.741, 8.741, + 4 8.864, 8.864, 8.864, 8.864, 8.864, 8.864, 8.864, + 5 8.977, 8.977, 8.977, 8.977, 8.977, 8.977, 8.977, + 6 9.079, 9.079, 9.079, 9.079, 9.079, 9.079, 9.079, + 7 9.172, 9.172, 9.172, 9.172, 9.172, 9.172, 9.172, + 8 9.256, 9.256, 9.256, 9.256, 9.256, 9.256, 9.256, + 9 9.332, 9.332, 9.332, 9.332, 9.332, 9.332, 9.332/ + DATA PF422/ + 1 9.401, 9.401, 9.401, 9.401, 9.401, 9.401, 9.401, + 2 9.463, 9.463, 9.463, 9.463, 9.463, 9.463, 9.463, + 3 9.519, 9.519, 9.519, 9.519, 9.519, 9.519, 9.519, + 4 9.570, 9.570, 9.570, 9.570, 9.570, 9.570, 9.570, + 5 9.615, 9.615, 9.615, 9.615, 9.615, 9.615, 9.615, + 6 9.656, 9.656, 9.656, 9.656, 9.656, 9.656, 9.656, + 7 9.693, 9.693, 9.693, 9.693, 9.693, 9.693, 9.693, + 8 9.729, 9.729, 9.729, 9.729, 9.729, 9.729, 9.729, + 9 9.767, 9.767, 9.767, 9.767, 9.767, 9.767, 9.767/ + DATA PF423/ + 1 9.817, 9.817, 9.817, 9.817, 9.817, 9.817, 9.817, + 2 9.899, 9.899, 9.899, 9.899, 9.899, 9.899, 9.899, + 3 10.047, 10.047, 10.047, 10.047, 10.047, 10.047, 10.047, + 4 10.319, 10.319, 10.319, 10.319, 10.319, 10.319, 10.319, + 5 10.801, 10.801, 10.801, 10.801, 10.801, 10.801, 10.801, + 6 11.615, 11.615, 11.615, 11.615, 11.615, 11.615, 11.615, + 7 12.918, 12.918, 12.918, 12.918, 12.918, 12.918, 12.918, + 8 14.914, 14.914, 14.914, 14.914, 14.914, 14.914, 14.914, + 9 17.857, 17.857, 17.857, 17.857, 17.857, 17.857, 17.857/ + DATA PF424/ + 1 22.076, 22.076, 22.076, 22.076, 22.076, 22.076, 22.076, + 2 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, + 3 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, + 4 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, + 5 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, + 6 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, + 7 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, + 8 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, + 9 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 1.000/ + DATA PF425/ + 1 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, + 2 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, + 3 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, + 4 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, + 5 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, + 6 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, + 7 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, + 8 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, + 9 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 1.000/ + DATA PF426/ + 1 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, + 2 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, + 3 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, + 4 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, + 5 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, + 6 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, + 7 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, + 8 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, + 9 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 1.000/ + DATA PF427/ + 1 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, + 2 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, + 3 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, + 4 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, + 5 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, + 6 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, + 7 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, + 8 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, + 9 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 1.000/ + DATA PF428/ + 1 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, + 2 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, + 3 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, + 4 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, + 5 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, + 6 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, + 7 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, + 8 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, + 9 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 1.000/ + DATA PF429/ + 1 1.001, 1.001, 1.001, 1.001, 1.001, 1.001, 1.001, + 2 1.003, 1.003, 1.003, 1.003, 1.003, 1.003, 1.003, + 3 1.008, 1.008, 1.008, 1.008, 1.008, 1.008, 1.008, + 4 1.021, 1.021, 1.021, 1.021, 1.021, 1.021, 1.021, + 5 1.049, 1.049, 1.049, 1.049, 1.049, 1.049, 1.049, + 6 1.107, 1.107, 1.107, 1.107, 1.107, 1.107, 1.107, + 7 1.217, 1.217, 1.217, 1.217, 1.217, 1.217, 1.217, + 8 1.413, 1.413, 1.413, 1.413, 1.413, 1.413, 1.413, + 9 1.748, 1.748, 1.748, 1.748, 1.748, 1.748, 1.748/ + DATA PF430/ + 1 2.305, 2.305, 2.305, 2.305, 2.305, 2.305, 2.305, + 2 3.213, 3.213, 3.213, 3.213, 3.213, 3.213, 3.213, + 3 4.669, 4.669, 4.669, 4.669, 4.669, 4.669, 4.669, + 4 4.000, 4.000, 4.000, 4.000, 4.000, 4.000, 4.000, + 5 4.000, 4.000, 4.000, 4.000, 4.000, 4.000, 4.000, + 6 4.000, 4.000, 4.000, 4.000, 4.000, 4.000, 4.000, + 7 4.000, 4.000, 4.000, 4.000, 4.000, 4.000, 4.000, + 8 4.000, 4.000, 4.000, 4.000, 4.000, 4.000, 4.000, + 9 4.000, 4.000, 4.000, 4.000, 4.000, 4.000, 4.000/ + DATA PF431/ + 1 4.001, 4.001, 4.001, 4.001, 4.001, 4.001, 4.001, + 2 4.001, 4.001, 4.001, 4.001, 4.001, 4.001, 4.001, + 3 4.001, 4.001, 4.001, 4.001, 4.001, 4.001, 4.001, + 4 4.002, 4.002, 4.002, 4.002, 4.002, 4.002, 4.002, + 5 4.002, 4.002, 4.002, 4.002, 4.002, 4.002, 4.002, + 6 4.003, 4.003, 4.003, 4.003, 4.003, 4.003, 4.003, + 7 4.004, 4.004, 4.004, 4.004, 4.004, 4.004, 4.004, + 8 4.005, 4.005, 4.005, 4.005, 4.005, 4.005, 4.005, + 9 4.007, 4.007, 4.007, 4.007, 4.007, 4.007, 4.007/ + DATA PF432/ + 1 4.009, 4.009, 4.009, 4.009, 4.009, 4.009, 4.009, + 2 4.011, 4.011, 4.011, 4.011, 4.011, 4.011, 4.011, + 3 4.014, 4.014, 4.014, 4.014, 4.014, 4.014, 4.014, + 4 4.018, 4.018, 4.018, 4.018, 4.018, 4.018, 4.018, + 5 4.022, 4.022, 4.022, 4.022, 4.022, 4.022, 4.022, + 6 4.030, 4.030, 4.030, 4.030, 4.030, 4.030, 4.030, + 7 4.040, 4.040, 4.040, 4.040, 4.040, 4.040, 4.040, + 8 4.051, 4.051, 4.051, 4.051, 4.051, 4.051, 4.051, + 9 4.066, 4.066, 4.066, 4.066, 4.066, 4.066, 4.066/ + DATA PF433/ + 1 4.083, 4.083, 4.083, 4.083, 4.083, 4.083, 4.083, + 2 4.102, 4.102, 4.102, 4.102, 4.102, 4.102, 4.102, + 3 4.125, 4.125, 4.125, 4.125, 4.125, 4.125, 4.125, + 4 4.150, 4.150, 4.150, 4.150, 4.150, 4.150, 4.150, + 5 4.178, 4.178, 4.178, 4.178, 4.178, 4.178, 4.178, + 6 4.209, 4.209, 4.209, 4.209, 4.209, 4.209, 4.209, + 7 4.268, 4.268, 4.268, 4.268, 4.268, 4.268, 4.268, + 8 4.333, 4.333, 4.333, 4.333, 4.333, 4.333, 4.333, + 9 4.405, 4.405, 4.405, 4.405, 4.405, 4.405, 4.405/ + DATA PF434/ + 1 4.482, 4.482, 4.482, 4.482, 4.482, 4.482, 4.482, + 2 4.562, 4.562, 4.562, 4.562, 4.562, 4.562, 4.562, + 3 4.645, 4.645, 4.645, 4.645, 4.645, 4.645, 4.645, + 4 4.730, 4.730, 4.730, 4.730, 4.730, 4.730, 4.730, + 5 4.815, 4.815, 4.815, 4.815, 4.815, 4.815, 4.815, + 6 4.898, 4.898, 4.898, 4.898, 4.898, 4.898, 4.898, + 7 4.980, 4.980, 4.980, 4.980, 4.980, 4.980, 4.980, + 8 5.059, 5.059, 5.059, 5.059, 5.059, 5.059, 5.059, + 9 5.135, 5.135, 5.135, 5.135, 5.135, 5.135, 5.135/ + DATA PF435/ + 1 5.207, 5.207, 5.207, 5.207, 5.207, 5.207, 5.207, + 2 5.276, 5.276, 5.276, 5.276, 5.276, 5.276, 5.276, + 3 5.343, 5.343, 5.343, 5.343, 5.343, 5.343, 5.343, + 4 5.409, 5.409, 5.409, 5.409, 5.409, 5.409, 5.409, + 5 5.481, 5.481, 5.481, 5.481, 5.481, 5.481, 5.481, + 6 5.571, 5.571, 5.571, 5.571, 5.571, 5.571, 5.571, + 7 5.698, 5.698, 5.698, 5.698, 5.698, 5.698, 5.698, + 8 5.899, 5.899, 5.899, 5.899, 5.899, 5.899, 5.899, + 9 6.225, 6.225, 6.225, 6.225, 6.225, 6.225, 6.225/ + DATA PF436/ + 1 6.758, 6.758, 6.758, 6.758, 6.758, 6.758, 6.758, + 2 7.615, 7.615, 7.615, 7.615, 7.615, 7.615, 7.615, + 3 8.967, 8.967, 8.967, 8.967, 8.967, 8.967, 8.967, + 4 11.068, 11.068, 11.068, 11.068, 11.068, 11.068, 11.068, + 5 14.299, 14.299, 14.299, 14.299, 14.299, 14.299, 14.299, + 6 19.784, 19.784, 19.784, 19.784, 19.784, 19.784, 19.784, + 7 20.312, 20.312, 20.312, 20.312, 20.312, 20.312, 20.312, + 8 20.859, 20.859, 20.859, 20.859, 20.859, 20.859, 20.859, + 9 21.426, 21.426, 21.426, 21.426, 21.426, 21.426, 21.426/ + DATA PF437/ + 1 22.013, 22.013, 22.013, 22.013, 22.013, 22.013, 22.013, + 2 22.621, 22.621, 22.621, 22.621, 22.621, 22.621, 22.621, + 3 23.249, 23.249, 23.249, 23.249, 23.249, 23.249, 23.249, + 4 23.898, 23.898, 23.898, 23.898, 23.898, 23.898, 23.898, + 5 24.568, 24.568, 24.568, 24.568, 24.568, 24.568, 24.568, + 6 25.260, 25.260, 25.260, 25.260, 25.260, 25.260, 25.260, + 7 25.974, 25.974, 25.974, 25.974, 25.974, 25.974, 25.974, + 8 26.711, 26.711, 26.711, 26.711, 26.711, 26.711, 26.711, + 9 27.472, 27.472, 27.472, 27.472, 27.472, 27.472, 27.472/ + DATA PF438/ + 1 28.259, 28.259, 28.259, 28.259, 28.259, 28.259, 28.258, + 2 29.073, 29.073, 29.073, 29.073, 29.073, 29.073, 29.071, + 3 29.915, 29.915, 29.915, 29.915, 29.915, 29.915, 29.913, + 4 30.790, 30.790, 30.790, 30.790, 30.790, 30.790, 30.786, + 5 31.699, 31.699, 31.699, 31.699, 31.699, 31.699, 31.693, + 6 32.647, 32.647, 32.647, 32.647, 32.647, 32.647, 32.637, + 7 33.639, 33.639, 33.639, 33.639, 33.639, 33.638, 33.623, + 8 35.222, 35.222, 35.222, 35.221, 35.221, 35.220, 35.190, + 9 36.940, 36.940, 36.940, 36.939, 36.938, 36.935, 36.879/ + DATA PF439/ + 1 38.827, 38.826, 38.825, 38.823, 38.821, 38.813, 38.713, + 2 40.923, 40.921, 40.918, 40.912, 40.908, 40.891, 40.717, + 3 43.283, 43.279, 43.270, 43.257, 43.247, 43.212, 42.919, + 4 45.978, 45.969, 45.948, 45.920, 45.896, 45.826, 45.349, + 5 49.103, 49.083, 49.038, 48.977, 48.929, 48.794, 48.039, + 6 52.786, 52.745, 52.651, 52.526, 52.431, 52.184, 51.021, + 7 57.198, 57.116, 56.930, 56.686, 56.507, 56.070, 54.326, + 8 62.566, 62.410, 62.058, 61.603, 61.280, 60.537, 57.983, + 9 74.490, 74.075, 73.146, 71.974, 71.179, 69.513, 64.926/ + DATA PF440/ + 1 91.899, 90.906, 88.704, 85.980, 84.201, 80.776, 73.002, + 2 117.605, 115.444, 110.690, 104.914, 101.270, 94.752, 82.253, + 3 155.353, 151.030, 141.591, 130.304, 123.396, 111.822, 92.670, + 4 209.746, 201.726, 184.332, 163.824, 151.609, 132.290, 104.188, + 5 285.982, 272.070, 242.077, 207.158, 186.853, 156.342, 116.697, + 6 389.417, 366.688, 317.945, 261.831, 229.891, 184.022, 130.048, + 7 525.025, 489.822, 414.682, 329.040, 281.211, 215.225, 144.061, + 8 696.846, 644.856, 534.351, 409.514, 340.964, 249.700, 158.543, + 9 907.519, 833.923, 678.082, 503.418, 408.937, 287.064, 173.295/ + DATA PF441/ + 1 1157.969, 1057.653, 845.941, 610.325, 484.564, 326.835, 188.123, + 2 1447.303, 1315.095,1036.905, 729.245, 566.971, 368.460, 202.848, + 3 1772.887, 1603.800,1248.955, 858.708, 655.040, 411.352, 217.310, + 4 2130.591, 1920.048,1479.247, 996.877, 747.490, 454.921, 231.373, + 5 2515.138, 2259.153,1724.339,1141.683, 842.962, 498.602, 244.925, + 6 2920.507, 2615.817,1980.439,1290.955, 940.092, 541.878, 257.878, + 7 3340.336, 2984.477,2243.638,1442.538,1037.576, 584.289, 270.167, + 8 3768.277, 3359.616,2510.115,1594.395,1134.221, 625.449, 281.750, + 9 4198.305, 3736.013,2776.304,1744.674,1228.977, 665.042, 292.603/ + DATA PF442/ + 1 4624.931, 4108.937,3039.010,1891.763,1320.956, 702.826, 302.718, + 2 5043.356, 4474.264,3295.479,2034.311,1409.440, 738.624, 312.101, + 3 5449.547, 4828.543,3543.436,2171.235,1493.876, 772.324, 320.766, + 4 5840.258, 5169.008,3781.086,2301.713,1573.868, 803.865, 328.740, + 5 6213.005, 5493.558,4007.089,2425.162,1649.158, 833.233, 336.051, + 6 6566.016, 5800.704,4220.523,2541.218,1719.610, 860.449, 342.734, + 7 6898.153, 6089.505,4420.834,2649.700,1785.194, 885.567, 348.827, + 8 16.529, 16.529, 16.529, 16.529, 16.529, 16.529, 16.529, + 9 17.012, 17.012, 17.012, 17.012, 17.012, 17.012, 17.012/ + DATA PF443/ + 1 17.518, 17.518, 17.518, 17.518, 17.518, 17.518, 17.518, + 2 18.047, 18.047, 18.047, 18.047, 18.047, 18.047, 18.047, + 3 18.599, 18.599, 18.599, 18.599, 18.599, 18.599, 18.599, + 4 19.175, 19.175, 19.175, 19.175, 19.175, 19.175, 19.175, + 5 19.774, 19.774, 19.774, 19.774, 19.774, 19.774, 19.774, + 6 20.398, 20.398, 20.398, 20.398, 20.398, 20.398, 20.398, + 7 21.046, 21.046, 21.046, 21.046, 21.046, 21.046, 21.046, + 8 21.719, 21.719, 21.719, 21.719, 21.719, 21.719, 21.719, + 9 22.417, 22.417, 22.417, 22.417, 22.417, 22.417, 22.417/ + DATA PF444/ + 1 23.140, 23.140, 23.140, 23.140, 23.140, 23.140, 23.140, + 2 23.890, 23.890, 23.890, 23.890, 23.890, 23.890, 23.890, + 3 24.666, 24.666, 24.666, 24.666, 24.666, 24.666, 24.666, + 4 25.470, 25.470, 25.470, 25.470, 25.470, 25.470, 25.470, + 5 26.302, 26.302, 26.302, 26.302, 26.302, 26.302, 26.302, + 6 27.163, 27.163, 27.163, 27.163, 27.163, 27.163, 27.163, + 7 28.055, 28.055, 28.055, 28.055, 28.055, 28.055, 28.055, + 8 28.980, 28.980, 28.980, 28.980, 28.980, 28.980, 28.980, + 9 29.938, 29.938, 29.938, 29.938, 29.938, 29.938, 29.938/ + DATA PF445/ + 1 31.442, 31.442, 31.442, 31.442, 31.442, 31.442, 31.442, + 2 33.035, 33.035, 33.035, 33.035, 33.035, 33.035, 33.035, + 3 34.726, 34.726, 34.726, 34.726, 34.726, 34.726, 34.726, + 4 36.525, 36.525, 36.525, 36.525, 36.525, 36.525, 36.525, + 5 38.446, 38.446, 38.446, 38.446, 38.446, 38.446, 38.446, + 6 40.502, 40.502, 40.502, 40.502, 40.502, 40.502, 40.502, + 7 42.710, 42.710, 42.710, 42.710, 42.710, 42.710, 42.710, + 8 45.091, 45.091, 45.091, 45.091, 45.091, 45.091, 45.091, + 9 47.665, 47.665, 47.665, 47.665, 47.665, 47.665, 47.665/ + DATA PF446/ + 1 50.459, 50.459, 50.459, 50.459, 50.459, 50.459, 50.459, + 2 55.690, 55.690, 55.690, 55.690, 55.690, 55.689, 55.687, + 3 61.801, 61.801, 61.801, 61.801, 61.800, 61.797, 61.788, + 4 69.059, 69.059, 69.058, 69.057, 69.050, 69.036, 69.000, + 5 77.874, 77.873, 77.870, 77.866, 77.834, 77.779, 77.653, + 6 88.917, 88.910, 88.901, 88.884, 88.767, 88.577, 88.191, + 7 103.302, 103.280, 103.251, 103.195, 102.823, 102.243, 101.201, + 8 122.872, 122.807, 122.722, 122.559, 121.516, 119.950, 117.419, + 9 150.532, 150.362, 150.142, 149.725, 147.107, 143.313, 137.720/ + DATA PF447/ + 1 190.603, 190.204, 189.690, 188.723, 182.779, 174.429, 163.082, + 2 249.049, 248.195, 247.100, 245.055, 232.710, 215.841, 194.510, + 3 333.482, 331.801, 329.651, 325.666, 301.984, 270.411, 232.947, + 4 452.844, 449.767, 445.846, 438.623, 396.300, 341.095, 279.177, + 5 616.752, 611.480, 604.779, 592.508, 521.497, 430.657, 333.727, + 6 834.601, 826.081, 815.279, 795.598, 682.972, 541.368, 396.801, + 7 1114.555, 1101.488,1084.955,1054.971, 885.080, 674.737, 468.247, + 8 1462.625, 1443.495,1419.335,1375.699,1130.626, 831.330, 547.551, + 9 1881.966, 1855.096,1821.218,1760.252,1420.534,1010.680, 633.882/ + DATA PF448/ + 1 2372.506, 2336.133,2290.344,2208.208,1753.721,1211.323, 726.144, + 2 2930.938, 2883.298,2823.402,2716.274,2127.186,1430.914, 823.062, + 3 3551.027, 3490.434,3414.342,3278.596,2536.280,1666.416, 923.259, + 4 4224.162, 4149.082,4054.899,3887.262,2975.083,1914.330,1025.338, + 5 4940.042, 4849.157,4735.253,4532.930,3436.855,2170.923,1127.946, + 6 5687.411, 5579.654,5444.719,5205.476,3914.474,2432.440,1229.835, + 7 6454.747, 6329.332,6172.401,5894.611,4400.839,2695.291,1329.894, + 8 7230.861, 7087.282,6907.743,6590.391,4889.205,2956.181,1427.175, + 9 8005.359, 7843.387,7640.966,7283.632,5373.430,3212.212,1520.902/ + DATA PF449/ + 1 17.797, 17.797, 17.797, 17.797, 17.797, 17.797, 17.797, + 2 18.083, 18.083, 18.083, 18.083, 18.083, 18.083, 18.083, + 3 18.368, 18.368, 18.368, 18.368, 18.368, 18.368, 18.368, + 4 18.650, 18.650, 18.650, 18.650, 18.650, 18.650, 18.650, + 5 18.930, 18.930, 18.930, 18.930, 18.930, 18.930, 18.930, + 6 19.207, 19.207, 19.207, 19.207, 19.207, 19.207, 19.207, + 7 19.481, 19.481, 19.481, 19.481, 19.481, 19.481, 19.481, + 8 19.752, 19.752, 19.752, 19.752, 19.752, 19.752, 19.752, + 9 20.021, 20.021, 20.021, 20.021, 20.021, 20.021, 20.021/ + DATA PF450/ + 1 20.286, 20.286, 20.286, 20.286, 20.286, 20.286, 20.286, + 2 20.549, 20.549, 20.549, 20.549, 20.549, 20.549, 20.549, + 3 20.809, 20.809, 20.809, 20.809, 20.809, 20.809, 20.809, + 4 21.068, 21.068, 21.068, 21.068, 21.068, 21.068, 21.068, + 5 21.326, 21.326, 21.326, 21.326, 21.326, 21.326, 21.326, + 6 21.583, 21.583, 21.583, 21.583, 21.583, 21.583, 21.583, + 7 21.842, 21.842, 21.842, 21.842, 21.842, 21.842, 21.842, + 8 22.102, 22.102, 22.102, 22.102, 22.102, 22.102, 22.102, + 9 22.366, 22.366, 22.366, 22.366, 22.366, 22.366, 22.366/ + DATA PF451/ + 1 22.634, 22.634, 22.634, 22.634, 22.634, 22.634, 22.634, + 2 22.909, 22.909, 22.909, 22.909, 22.909, 22.909, 22.909, + 3 23.339, 23.339, 23.339, 23.339, 23.339, 23.339, 23.339, + 4 23.795, 23.795, 23.795, 23.795, 23.795, 23.795, 23.795, + 5 24.285, 24.285, 24.285, 24.285, 24.285, 24.285, 24.285, + 6 24.817, 24.817, 24.817, 24.817, 24.817, 24.817, 24.817, + 7 25.401, 25.401, 25.401, 25.401, 25.401, 25.401, 25.401, + 8 26.044, 26.044, 26.044, 26.044, 26.044, 26.044, 26.044, + 9 26.756, 26.756, 26.756, 26.756, 26.756, 26.756, 26.756/ + DATA PF452/ + 1 27.546, 27.546, 27.546, 27.546, 27.546, 27.546, 27.546, + 2 28.421, 28.421, 28.421, 28.421, 28.421, 28.421, 28.421, + 3 29.390, 29.390, 29.390, 29.390, 29.390, 29.390, 29.390, + 4 31.236, 31.236, 31.236, 31.236, 31.236, 31.236, 31.236, + 5 33.407, 33.407, 33.407, 33.407, 33.407, 33.407, 33.407, + 6 35.948, 35.948, 35.948, 35.948, 35.948, 35.948, 35.948, + 7 38.921, 38.921, 38.921, 38.921, 38.921, 38.921, 38.921, + 8 42.415, 42.415, 42.415, 42.415, 42.415, 42.415, 42.415, + 9 46.561, 46.561, 46.561, 46.561, 46.561, 46.561, 46.560/ + DATA PF453/ + 1 51.557, 51.557, 51.557, 51.556, 51.556, 51.556, 51.555, + 2 57.701, 57.701, 57.700, 57.699, 57.699, 57.696, 57.691, + 3 65.452, 65.452, 65.450, 65.445, 65.444, 65.429, 65.406, + 4 75.543, 75.541, 75.533, 75.512, 75.506, 75.445, 75.351, + 5 89.176, 89.171, 89.139, 89.060, 89.038, 88.820, 88.504, + 6 108.367, 108.353, 108.247, 107.992, 107.918, 107.241, 106.307, + 7 136.433, 136.392, 136.087, 135.358, 135.151, 133.290, 130.833, + 8 178.598, 178.491, 177.710, 175.850, 175.329, 170.749, 164.928, + 9 242.584, 242.337, 240.530, 236.249, 235.060, 224.835, 212.281/ + DATA PF454/ + 1 339.003, 338.480, 334.662, 325.661, 323.183, 302.265, 277.352, + 2 481.306, 480.286, 472.853, 455.397, 450.628, 411.038, 365.145, + 3 685.190, 683.339, 669.880, 638.377, 629.830, 559.923, 480.809, + 4 967.419, 964.272, 941.422, 888.106, 873.729, 757.688, 629.139, + 5 1344.232, 1339.181,1302.561,1217.344,1194.491,1012.195, 814.050, + 6 1829.603, 1821.902,1766.146,1636.714,1602.174,1329.519,1038.122, + 7 2433.646, 2422.432,2341.335,2153.481,2103.569,1713.232,1302.284, + 8 3161.450, 3145.774,3032.527,2770.706,2701.411,2163.980,1605.683, + 9 4012.485, 3991.357,3838.855,3486.883,3394.048,2679.379,1945.741/ + DATA PF455/ + 1 4980.635, 4953.066,4754.242,4296.060,4175.583,3254.227,2318.375, + 2 6054.767, 6019.822,5767.974,5188.396,5036.416,3880.956,2718.328, + 3 17.424, 17.424, 17.424, 17.424, 17.424, 17.424, 17.424, + 4 17.662, 17.662, 17.662, 17.662, 17.662, 17.662, 17.662, + 5 17.897, 17.897, 17.897, 17.897, 17.897, 17.897, 17.897, + 6 18.128, 18.128, 18.128, 18.128, 18.128, 18.128, 18.128, + 7 18.355, 18.355, 18.355, 18.355, 18.355, 18.355, 18.355, + 8 18.577, 18.577, 18.577, 18.577, 18.577, 18.577, 18.577, + 9 18.795, 18.795, 18.795, 18.795, 18.795, 18.795, 18.795/ + DATA PF456/ + 1 19.009, 19.009, 19.009, 19.009, 19.009, 19.009, 19.009, + 2 19.218, 19.218, 19.218, 19.218, 19.218, 19.218, 19.218, + 3 19.422, 19.422, 19.422, 19.422, 19.422, 19.422, 19.422, + 4 19.621, 19.621, 19.621, 19.621, 19.621, 19.621, 19.621, + 5 19.815, 19.815, 19.815, 19.815, 19.815, 19.815, 19.815, + 6 20.006, 20.006, 20.006, 20.006, 20.006, 20.006, 20.006, + 7 20.191, 20.191, 20.191, 20.191, 20.191, 20.191, 20.191, + 8 20.373, 20.373, 20.373, 20.373, 20.373, 20.373, 20.373, + 9 20.552, 20.552, 20.552, 20.552, 20.552, 20.552, 20.552/ + DATA PF457/ + 1 20.727, 20.727, 20.727, 20.727, 20.727, 20.727, 20.727, + 2 20.900, 20.900, 20.900, 20.900, 20.900, 20.900, 20.900, + 3 21.072, 21.072, 21.072, 21.072, 21.072, 21.072, 21.072, + 4 21.244, 21.244, 21.244, 21.244, 21.244, 21.244, 21.244, + 5 21.504, 21.504, 21.504, 21.504, 21.504, 21.504, 21.504, + 6 21.773, 21.773, 21.773, 21.773, 21.773, 21.773, 21.773, + 7 22.058, 22.058, 22.058, 22.058, 22.058, 22.058, 22.058, + 8 22.368, 22.368, 22.368, 22.368, 22.368, 22.368, 22.368, + 9 22.713, 22.713, 22.713, 22.713, 22.713, 22.713, 22.713/ + DATA PF458/ + 1 23.105, 23.105, 23.105, 23.105, 23.105, 23.105, 23.105, + 2 23.558, 23.558, 23.558, 23.558, 23.558, 23.558, 23.558, + 3 24.086, 24.086, 24.086, 24.086, 24.086, 24.086, 24.086, + 4 24.705, 24.705, 24.705, 24.705, 24.705, 24.705, 24.705, + 5 25.430, 25.430, 25.430, 25.430, 25.430, 25.430, 25.430, + 6 26.918, 26.918, 26.918, 26.918, 26.918, 26.918, 26.918, + 7 28.818, 28.818, 28.818, 28.818, 28.818, 28.818, 28.818, + 8 31.194, 31.194, 31.194, 31.194, 31.194, 31.194, 31.194, + 9 34.098, 34.098, 34.098, 34.098, 34.098, 34.098, 34.098/ + DATA PF459/ + 1 37.567, 37.567, 37.567, 37.567, 37.567, 37.567, 37.567, + 2 41.625, 41.625, 41.625, 41.625, 41.625, 41.625, 41.625, + 3 46.284, 46.284, 46.284, 46.284, 46.284, 46.284, 46.284, + 4 51.552, 51.552, 51.552, 51.552, 51.552, 51.552, 51.552, + 5 57.449, 57.449, 57.449, 57.449, 57.449, 57.449, 57.449, + 6 64.032, 64.032, 64.032, 64.032, 64.032, 64.032, 64.032, + 7 71.428, 71.428, 71.428, 71.428, 71.428, 71.427, 71.427, + 8 79.892, 79.892, 79.891, 79.891, 79.890, 79.887, 79.883, + 9 89.888, 89.888, 89.887, 89.884, 89.879, 89.866, 89.847/ + DATA PF460/ + 1 102.237, 102.235, 102.230, 102.217, 102.196, 102.144, 102.070, + 2 118.341, 118.335, 118.316, 118.269, 118.194, 118.012, 117.764, + 3 140.547, 140.529, 140.469, 140.323, 140.089, 139.532, 138.801, + 4 172.630, 172.579, 172.413, 172.007, 171.365, 169.857, 167.944, + 5 220.347, 220.221, 219.808, 218.803, 217.222, 213.553, 209.047, + 6 291.930, 291.647, 290.716, 288.458, 284.932, 276.830, 267.157, + 7 398.315, 397.730, 395.812, 391.168, 383.959, 367.544, 348.433, + 8 552.936, 551.819, 548.166, 539.335, 525.699, 494.899, 459.835, + 9 770.983, 768.998, 762.510, 746.852, 722.784, 668.816, 608.588/ + DATA PF461/ + 1 1068.169, 1064.853,1054.026,1027.940, 988.005, 899.037, 801.493, + 2 1459.168, 1453.931,1436.844,1395.729,1333.019,1194.112,1044.197, + 3 1956.016, 1948.144,1922.483,1860.811,1767.051,1560.429,1340.543, + 4 2566.728, 2555.409,2518.538,2430.020,2295.835,2001.477,1692.115, + 5 6.000, 6.000, 6.000, 6.000, 6.000, 6.000, 6.000, + 6 6.000, 6.000, 6.000, 6.000, 6.000, 6.000, 6.000, + 7 6.000, 6.000, 6.000, 6.000, 6.000, 6.000, 6.000, + 8 6.000, 6.000, 6.000, 6.000, 6.000, 6.000, 6.000, + 9 6.000, 6.000, 6.000, 6.000, 6.000, 6.000, 6.000/ + DATA PF462/ + 1 6.000, 6.000, 6.000, 6.000, 6.000, 6.000, 6.000, + 2 6.000, 6.000, 6.000, 6.000, 6.000, 6.000, 6.000, + 3 6.000, 6.000, 6.000, 6.000, 6.000, 6.000, 6.000, + 4 6.000, 6.000, 6.000, 6.000, 6.000, 6.000, 6.000, + 5 6.000, 6.000, 6.000, 6.000, 6.000, 6.000, 6.000, + 6 6.000, 6.000, 6.000, 6.000, 6.000, 6.000, 6.000, + 7 6.000, 6.000, 6.000, 6.000, 6.000, 6.000, 6.000, + 8 6.000, 6.000, 6.000, 6.000, 6.000, 6.000, 6.000, + 9 6.000, 6.000, 6.000, 6.000, 6.000, 6.000, 6.000/ + DATA PF463/ + 1 6.000, 6.000, 6.000, 6.000, 6.000, 6.000, 6.000, + 2 6.000, 6.000, 6.000, 6.000, 6.000, 6.000, 6.000, + 3 6.000, 6.000, 6.000, 6.000, 6.000, 6.000, 6.000, + 4 6.000, 6.000, 6.000, 6.000, 6.000, 6.000, 6.000, + 5 6.001, 6.001, 6.001, 6.001, 6.001, 6.001, 6.001, + 6 6.001, 6.001, 6.001, 6.001, 6.001, 6.001, 6.001, + 7 6.002, 6.002, 6.002, 6.002, 6.002, 6.002, 6.002, + 8 6.004, 6.004, 6.004, 6.004, 6.004, 6.004, 6.004, + 9 6.008, 6.008, 6.008, 6.008, 6.008, 6.008, 6.008/ + DATA PF464/ + 1 6.014, 6.014, 6.014, 6.014, 6.014, 6.014, 6.014, + 2 6.024, 6.024, 6.024, 6.024, 6.024, 6.024, 6.024, + 3 6.042, 6.042, 6.042, 6.042, 6.042, 6.042, 6.042, + 4 6.068, 6.068, 6.068, 6.068, 6.068, 6.068, 6.068, + 5 6.109, 6.109, 6.109, 6.109, 6.109, 6.109, 6.109, + 6 6.170, 6.170, 6.170, 6.170, 6.170, 6.170, 6.170, + 7 6.258, 6.258, 6.258, 6.258, 6.258, 6.258, 6.258, + 8 6.489, 6.489, 6.489, 6.489, 6.489, 6.489, 6.489, + 9 6.875, 6.875, 6.875, 6.875, 6.875, 6.875, 6.875/ + DATA PF465/ + 1 7.485, 7.485, 7.485, 7.485, 7.485, 7.485, 7.485, + 2 8.405, 8.405, 8.405, 8.405, 8.405, 8.405, 8.405, + 3 9.729, 9.729, 9.729, 9.729, 9.729, 9.729, 9.729, + 4 11.560, 11.560, 11.560, 11.560, 11.560, 11.560, 11.560, + 5 14.000, 14.000, 14.000, 14.000, 14.000, 14.000, 14.000, + 6 17.141, 17.141, 17.141, 17.141, 17.141, 17.141, 17.141, + 7 21.059, 21.059, 21.059, 21.059, 21.059, 21.059, 21.059, + 8 25.807, 25.807, 25.807, 25.807, 25.807, 25.807, 25.807, + 9 31.415, 31.415, 31.415, 31.415, 31.415, 31.415, 31.415/ + DATA PF466/ + 1 37.894, 37.894, 37.894, 37.894, 37.894, 37.894, 37.894, + 2 45.250, 45.250, 45.250, 45.250, 45.250, 45.250, 45.250, + 3 53.515, 53.515, 53.515, 53.515, 53.515, 53.514, 53.514, + 4 62.795, 62.795, 62.795, 62.795, 62.794, 62.793, 62.791, + 5 73.365, 73.365, 73.365, 73.363, 73.358, 73.350, 73.341, + 6 85.838, 85.837, 85.837, 85.828, 85.805, 85.765, 85.724, + 7 101.506, 101.502, 101.499, 101.465, 101.370, 101.210, 101.052, + 8 122.955, 122.940, 122.933, 122.812, 122.479, 121.928, 121.397, + 9 155.081, 155.035, 155.011, 154.643, 153.624, 151.963, 150.400/ + DATA PF467/ + 1 206.521, 206.396, 206.331, 205.331, 202.580, 198.139, 194.041, + 2 291.354, 291.048, 290.890, 288.456, 281.782, 271.115, 261.441, + 3 430.654, 429.976, 429.626, 424.248, 409.545, 386.249, 365.452, + 4 653.340, 651.960, 651.251, 640.348, 610.626, 563.892, 522.750, + 5 995.774, 993.177, 991.843, 971.378, 915.720, 828.803, 753.232, + 6 1499.805, 1495.243,1492.901,1457.028,1359.676,1208.574,1078.643, + 7 12.805, 12.805, 12.805, 12.805, 12.805, 12.805, 12.805, + 8 13.147, 13.147, 13.147, 13.147, 13.147, 13.147, 13.147, + 9 13.487, 13.487, 13.487, 13.487, 13.487, 13.487, 13.487/ + DATA PF468/ + 1 13.823, 13.823, 13.823, 13.823, 13.823, 13.823, 13.823, + 2 14.157, 14.157, 14.157, 14.157, 14.157, 14.157, 14.157, + 3 14.486, 14.486, 14.486, 14.486, 14.486, 14.486, 14.486, + 4 14.811, 14.811, 14.811, 14.811, 14.811, 14.811, 14.811, + 5 15.131, 15.131, 15.131, 15.131, 15.131, 15.131, 15.131, + 6 15.446, 15.446, 15.446, 15.446, 15.446, 15.446, 15.446, + 7 15.756, 15.756, 15.756, 15.756, 15.756, 15.756, 15.756, + 8 16.061, 16.061, 16.061, 16.061, 16.061, 16.061, 16.061, + 9 16.359, 16.359, 16.359, 16.359, 16.359, 16.359, 16.359/ + DATA PF469/ + 1 16.652, 16.652, 16.652, 16.652, 16.652, 16.652, 16.652, + 2 16.939, 16.939, 16.939, 16.939, 16.939, 16.939, 16.939, + 3 17.219, 17.219, 17.219, 17.219, 17.219, 17.219, 17.219, + 4 17.493, 17.493, 17.493, 17.493, 17.493, 17.493, 17.493, + 5 17.761, 17.761, 17.761, 17.761, 17.761, 17.761, 17.761, + 6 18.024, 18.024, 18.024, 18.024, 18.024, 18.024, 18.024, + 7 18.280, 18.280, 18.280, 18.280, 18.280, 18.280, 18.280, + 8 18.532, 18.532, 18.532, 18.532, 18.532, 18.532, 18.532, + 9 18.900, 18.900, 18.900, 18.900, 18.900, 18.900, 18.900/ + DATA PF470/ + 1 19.261, 19.261, 19.261, 19.261, 19.261, 19.261, 19.261, + 2 19.617, 19.617, 19.617, 19.617, 19.617, 19.617, 19.617, + 3 19.975, 19.975, 19.975, 19.975, 19.975, 19.975, 19.975, + 4 20.340, 20.340, 20.340, 20.340, 20.340, 20.340, 20.340, + 5 20.720, 20.720, 20.720, 20.720, 20.720, 20.720, 20.720, + 6 21.125, 21.125, 21.125, 21.125, 21.125, 21.125, 21.125, + 7 21.567, 21.567, 21.567, 21.567, 21.567, 21.567, 21.567, + 8 22.058, 22.058, 22.058, 22.058, 22.058, 22.058, 22.058, + 9 22.612, 22.612, 22.612, 22.612, 22.612, 22.612, 22.612/ + DATA PF471/ + 1 23.720, 23.720, 23.720, 23.720, 23.720, 23.720, 23.720, + 2 25.123, 25.123, 25.123, 25.123, 25.123, 25.123, 25.123, + 3 26.896, 26.896, 26.896, 26.896, 26.896, 26.896, 26.896, + 4 29.109, 29.109, 29.109, 29.109, 29.109, 29.109, 29.109, + 5 31.820, 31.820, 31.820, 31.820, 31.820, 31.820, 31.820, + 6 35.075, 35.075, 35.075, 35.075, 35.075, 35.075, 35.075, + 7 38.900, 38.900, 38.900, 38.900, 38.900, 38.900, 38.900, + 8 43.302, 43.302, 43.302, 43.302, 43.302, 43.302, 43.302, + 9 48.268, 48.268, 48.268, 48.268, 48.268, 48.268, 48.268/ + DATA PF472/ + 1 53.768, 53.768, 53.768, 53.768, 53.768, 53.768, 53.768, + 2 59.753, 59.753, 59.753, 59.753, 59.753, 59.753, 59.753, + 3 66.163, 66.163, 66.163, 66.163, 66.163, 66.163, 66.163, + 4 72.930, 72.930, 72.930, 72.930, 72.930, 72.930, 72.930, + 5 79.989, 79.989, 79.989, 79.989, 79.989, 79.989, 79.989, + 6 87.289, 87.289, 87.289, 87.289, 87.289, 87.289, 87.289, + 7 94.819, 94.819, 94.819, 94.819, 94.819, 94.819, 94.818, + 8 102.638, 102.638, 102.638, 102.638, 102.638, 102.637, 102.636, + 9 110.943, 110.943, 110.943, 110.943, 110.942, 110.940, 110.934/ + DATA PF473/ + 1 120.188, 120.188, 120.188, 120.188, 120.184, 120.172, 120.144, + 2 131.315, 131.315, 131.315, 131.315, 131.301, 131.251, 131.135, + 3 146.202, 146.202, 146.201, 146.201, 146.152, 145.972, 145.568, + 4 168.391, 168.390, 168.388, 168.387, 168.232, 167.676, 166.442, + 5 204.150, 204.147, 204.141, 204.139, 203.711, 202.188, 198.855, + 6 263.755, 263.747, 263.733, 263.729, 262.669, 258.930, 250.850, + 7 362.699, 362.681, 362.648, 362.639, 360.266, 351.940, 334.145, + 8 522.406, 522.369, 522.302, 522.283, 517.411, 500.416, 464.455, + 9 11.863, 11.863, 11.863, 11.863, 11.863, 11.863, 11.863/ + DATA PF474/ + 1 12.214, 12.214, 12.214, 12.214, 12.214, 12.214, 12.214, + 2 12.569, 12.569, 12.569, 12.569, 12.569, 12.569, 12.569, + 3 12.927, 12.927, 12.927, 12.927, 12.927, 12.927, 12.927, + 4 13.287, 13.287, 13.287, 13.287, 13.287, 13.287, 13.287, + 5 13.648, 13.648, 13.648, 13.648, 13.648, 13.648, 13.648, + 6 14.010, 14.010, 14.010, 14.010, 14.010, 14.010, 14.010, + 7 14.372, 14.372, 14.372, 14.372, 14.372, 14.372, 14.372, + 8 14.734, 14.734, 14.734, 14.734, 14.734, 14.734, 14.734, + 9 15.094, 15.094, 15.094, 15.094, 15.094, 15.094, 15.094/ + DATA PF475/ + 1 15.453, 15.453, 15.453, 15.453, 15.453, 15.453, 15.453, + 2 15.810, 15.810, 15.810, 15.810, 15.810, 15.810, 15.810, + 3 16.165, 16.165, 16.165, 16.165, 16.165, 16.165, 16.165, + 4 16.516, 16.516, 16.516, 16.516, 16.516, 16.516, 16.516, + 5 16.865, 16.865, 16.865, 16.865, 16.865, 16.865, 16.865, + 6 17.210, 17.210, 17.210, 17.210, 17.210, 17.210, 17.210, + 7 17.553, 17.553, 17.553, 17.553, 17.553, 17.553, 17.553, + 8 17.892, 17.892, 17.892, 17.892, 17.892, 17.892, 17.892, + 9 18.228, 18.228, 18.228, 18.228, 18.228, 18.228, 18.228/ + DATA PF476/ + 1 18.561, 18.561, 18.561, 18.561, 18.561, 18.561, 18.561, + 2 19.058, 19.058, 19.058, 19.058, 19.058, 19.058, 19.058, + 3 19.553, 19.553, 19.553, 19.553, 19.553, 19.553, 19.553, + 4 20.049, 20.049, 20.049, 20.049, 20.049, 20.049, 20.049, + 5 20.550, 20.550, 20.550, 20.550, 20.550, 20.550, 20.550, + 6 21.063, 21.063, 21.063, 21.063, 21.063, 21.063, 21.063, + 7 21.592, 21.592, 21.592, 21.592, 21.592, 21.592, 21.592, + 8 22.146, 22.146, 22.146, 22.146, 22.146, 22.146, 22.146, + 9 22.731, 22.731, 22.731, 22.731, 22.731, 22.731, 22.731/ + DATA PF477/ + 1 23.356, 23.356, 23.356, 23.356, 23.356, 23.356, 23.356, + 2 24.029, 24.029, 24.029, 24.029, 24.029, 24.029, 24.029, + 3 25.279, 25.279, 25.279, 25.279, 25.279, 25.279, 25.279, + 4 26.721, 26.721, 26.721, 26.721, 26.721, 26.721, 26.721, + 5 28.386, 28.386, 28.386, 28.386, 28.386, 28.386, 28.386, + 6 30.297, 30.297, 30.297, 30.297, 30.297, 30.297, 30.297, + 7 32.469, 32.469, 32.469, 32.469, 32.469, 32.469, 32.469, + 8 34.904, 34.904, 34.904, 34.904, 34.904, 34.904, 34.904, + 9 37.597, 37.597, 37.597, 37.597, 37.597, 37.597, 37.597/ + DATA PF478/ + 1 40.532, 40.532, 40.532, 40.532, 40.532, 40.532, 40.532, + 2 43.686, 43.686, 43.686, 43.686, 43.686, 43.686, 43.686, + 3 47.028, 47.028, 47.028, 47.028, 47.028, 47.028, 47.028, + 4 50.522, 50.522, 50.522, 50.522, 50.522, 50.522, 50.522, + 5 54.131, 54.131, 54.131, 54.131, 54.131, 54.131, 54.131, + 6 57.814, 57.814, 57.814, 57.814, 57.814, 57.814, 57.814, + 7 61.534, 61.534, 61.534, 61.534, 61.534, 61.534, 61.534, + 8 65.255, 65.255, 65.255, 65.255, 65.255, 65.255, 65.255, + 9 68.953, 68.953, 68.953, 68.953, 68.953, 68.953, 68.953/ + DATA PF479/ + 1 72.624, 72.624, 72.624, 72.624, 72.624, 72.624, 72.624, + 2 76.305, 76.305, 76.305, 76.305, 76.305, 76.305, 76.305, + 3 80.103, 80.103, 80.103, 80.103, 80.103, 80.103, 80.103, + 4 84.254, 84.254, 84.254, 84.254, 84.254, 84.254, 84.254, + 5 89.213, 89.213, 89.213, 89.213, 89.212, 89.212, 89.211, + 6 95.801, 95.801, 95.801, 95.801, 95.800, 95.799, 95.796, + 7 105.459, 105.459, 105.458, 105.458, 105.455, 105.449, 105.439, + 8 120.611, 120.611, 120.609, 120.608, 120.597, 120.578, 120.549, + 9 145.168, 145.168, 145.161, 145.158, 145.128, 145.076, 144.996/ + DATA PF480/ + 1 185.079, 185.079, 185.061, 185.054, 184.979, 184.851, 184.655, + 2 8.647, 8.647, 8.647, 8.647, 8.647, 8.647, 8.647, + 3 8.872, 8.872, 8.872, 8.872, 8.872, 8.872, 8.872, + 4 9.101, 9.101, 9.101, 9.101, 9.101, 9.101, 9.101, + 5 9.334, 9.334, 9.334, 9.334, 9.334, 9.334, 9.334, + 6 9.572, 9.572, 9.572, 9.572, 9.572, 9.572, 9.572, + 7 9.814, 9.814, 9.814, 9.814, 9.814, 9.814, 9.814, + 8 10.058, 10.058, 10.058, 10.058, 10.058, 10.058, 10.058, + 9 10.305, 10.305, 10.305, 10.305, 10.305, 10.305, 10.305/ + DATA PF481/ + 1 10.555, 10.555, 10.555, 10.555, 10.555, 10.555, 10.555, + 2 10.806, 10.806, 10.806, 10.806, 10.806, 10.806, 10.806, + 3 11.058, 11.058, 11.058, 11.058, 11.058, 11.058, 11.058, + 4 11.311, 11.311, 11.311, 11.311, 11.311, 11.311, 11.311, + 5 11.564, 11.564, 11.564, 11.564, 11.564, 11.564, 11.564, + 6 11.817, 11.817, 11.817, 11.817, 11.817, 11.817, 11.817, + 7 12.070, 12.070, 12.070, 12.070, 12.070, 12.070, 12.070, + 8 12.323, 12.323, 12.323, 12.323, 12.323, 12.323, 12.323, + 9 12.574, 12.574, 12.574, 12.574, 12.574, 12.574, 12.574/ + DATA PF482/ + 1 12.825, 12.825, 12.825, 12.825, 12.825, 12.825, 12.825, + 2 13.074, 13.074, 13.074, 13.074, 13.074, 13.074, 13.074, + 3 13.323, 13.323, 13.323, 13.323, 13.323, 13.323, 13.323, + 4 13.693, 13.693, 13.693, 13.693, 13.693, 13.693, 13.693, + 5 14.062, 14.062, 14.062, 14.062, 14.062, 14.062, 14.062, + 6 14.430, 14.430, 14.430, 14.430, 14.430, 14.430, 14.430, + 7 14.798, 14.798, 14.798, 14.798, 14.798, 14.798, 14.798, + 8 15.168, 15.168, 15.168, 15.168, 15.168, 15.168, 15.168, + 9 15.541, 15.541, 15.541, 15.541, 15.541, 15.541, 15.541/ + DATA PF483/ + 1 15.920, 15.920, 15.920, 15.920, 15.920, 15.920, 15.920, + 2 16.308, 16.308, 16.308, 16.308, 16.308, 16.308, 16.308, + 3 16.705, 16.705, 16.705, 16.705, 16.705, 16.705, 16.705, + 4 17.116, 17.116, 17.116, 17.116, 17.116, 17.116, 17.116, + 5 17.833, 17.833, 17.833, 17.833, 17.833, 17.833, 17.833, + 6 18.600, 18.600, 18.600, 18.600, 18.600, 18.600, 18.600, + 7 19.424, 19.424, 19.424, 19.424, 19.424, 19.424, 19.424, + 8 20.306, 20.306, 20.306, 20.306, 20.306, 20.306, 20.306, + 9 21.246, 21.246, 21.246, 21.246, 21.246, 21.246, 21.246/ + DATA PF484/ + 1 22.241, 22.241, 22.241, 22.241, 22.241, 22.241, 22.241, + 2 23.284, 23.284, 23.284, 23.284, 23.284, 23.284, 23.284, + 3 24.366, 24.366, 24.366, 24.366, 24.366, 24.366, 24.366, + 4 25.476, 25.476, 25.476, 25.476, 25.476, 25.476, 25.476, + 5 26.603, 26.603, 26.603, 26.603, 26.603, 26.603, 26.603, + 6 27.735, 27.735, 27.735, 27.735, 27.735, 27.735, 27.735, + 7 28.861, 28.861, 28.861, 28.861, 28.861, 28.861, 28.861, + 8 29.970, 29.970, 29.970, 29.970, 29.970, 29.970, 29.970, + 9 31.053, 31.053, 31.053, 31.053, 31.053, 31.053, 31.053/ + DATA PF485/ + 1 32.104, 32.104, 32.104, 32.104, 32.104, 32.104, 32.104, + 2 33.121, 33.121, 33.121, 33.121, 33.121, 33.121, 33.121, + 3 34.110, 34.110, 34.110, 34.110, 34.110, 34.110, 34.110, + 4 35.096, 35.096, 35.096, 35.096, 35.096, 35.096, 35.096, + 5 36.132, 36.132, 36.132, 36.132, 36.132, 36.132, 36.132, + 6 37.320, 37.320, 37.320, 37.320, 37.320, 37.320, 37.320, + 7 38.833, 38.833, 38.833, 38.833, 38.833, 38.833, 38.833, + 8 40.940, 40.940, 40.940, 40.940, 40.940, 40.940, 40.940, + 9 44.038, 44.038, 44.038, 44.038, 44.038, 44.038, 44.038/ + DATA PF486/ + 1 48.700, 48.700, 48.700, 48.700, 48.700, 48.700, 48.700, + 2 55.748, 55.748, 55.748, 55.748, 55.748, 55.748, 55.748, + 3 66.359, 66.359, 66.359, 66.359, 66.359, 66.359, 66.359, + 4 5.109, 5.109, 5.109, 5.109, 5.109, 5.109, 5.109, + 5 5.197, 5.197, 5.197, 5.197, 5.197, 5.197, 5.197, + 6 5.287, 5.287, 5.287, 5.287, 5.287, 5.287, 5.287, + 7 5.379, 5.379, 5.379, 5.379, 5.379, 5.379, 5.379, + 8 5.474, 5.474, 5.474, 5.474, 5.474, 5.474, 5.474, + 9 5.570, 5.570, 5.570, 5.570, 5.570, 5.570, 5.570/ + DATA PF487/ + 1 5.668, 5.668, 5.668, 5.668, 5.668, 5.668, 5.668, + 2 5.767, 5.767, 5.767, 5.767, 5.767, 5.767, 5.767, + 3 5.866, 5.866, 5.866, 5.866, 5.866, 5.866, 5.866, + 4 5.967, 5.967, 5.967, 5.967, 5.967, 5.967, 5.967, + 5 6.068, 6.068, 6.068, 6.068, 6.068, 6.068, 6.068, + 6 6.170, 6.170, 6.170, 6.170, 6.170, 6.170, 6.170, + 7 6.272, 6.272, 6.272, 6.272, 6.272, 6.272, 6.272, + 8 6.373, 6.373, 6.373, 6.373, 6.373, 6.373, 6.373, + 9 6.474, 6.474, 6.474, 6.474, 6.474, 6.474, 6.474/ + DATA PF488/ + 1 6.575, 6.575, 6.575, 6.575, 6.575, 6.575, 6.575, + 2 6.675, 6.675, 6.675, 6.675, 6.675, 6.675, 6.675, + 3 6.774, 6.774, 6.774, 6.774, 6.774, 6.774, 6.774, + 4 6.872, 6.872, 6.872, 6.872, 6.872, 6.872, 6.872, + 5 6.969, 6.969, 6.969, 6.969, 6.969, 6.969, 6.969, + 6 7.111, 7.111, 7.111, 7.111, 7.111, 7.111, 7.111, + 7 7.251, 7.251, 7.251, 7.251, 7.251, 7.251, 7.251, + 8 7.387, 7.387, 7.387, 7.387, 7.387, 7.387, 7.387, + 9 7.518, 7.518, 7.518, 7.518, 7.518, 7.518, 7.518/ + DATA PF489/ + 1 7.646, 7.646, 7.646, 7.646, 7.646, 7.646, 7.646, + 2 7.769, 7.769, 7.769, 7.769, 7.769, 7.769, 7.769, + 3 7.888, 7.888, 7.888, 7.888, 7.888, 7.888, 7.888, + 4 8.002, 8.002, 8.002, 8.002, 8.002, 8.002, 8.002, + 5 8.112, 8.112, 8.112, 8.112, 8.112, 8.112, 8.112, + 6 8.217, 8.217, 8.217, 8.217, 8.217, 8.217, 8.217, + 7 8.382, 8.382, 8.382, 8.382, 8.382, 8.382, 8.382, + 8 8.534, 8.534, 8.534, 8.534, 8.534, 8.534, 8.534, + 9 8.674, 8.674, 8.674, 8.674, 8.674, 8.674, 8.674/ + DATA PF490/ + 1 8.803, 8.803, 8.803, 8.803, 8.803, 8.803, 8.803, + 2 8.921, 8.921, 8.921, 8.921, 8.921, 8.921, 8.921, + 3 9.028, 9.028, 9.028, 9.028, 9.028, 9.028, 9.028, + 4 9.126, 9.126, 9.126, 9.126, 9.126, 9.126, 9.126, + 5 9.214, 9.214, 9.214, 9.214, 9.214, 9.214, 9.214, + 6 9.294, 9.294, 9.294, 9.294, 9.294, 9.294, 9.294, + 7 9.367, 9.367, 9.367, 9.367, 9.367, 9.367, 9.367, + 8 9.432, 9.432, 9.432, 9.432, 9.432, 9.432, 9.432, + 9 9.491, 9.491, 9.491, 9.491, 9.491, 9.491, 9.491/ + DATA PF491/ + 1 9.545, 9.545, 9.545, 9.545, 9.545, 9.545, 9.545, + 2 9.593, 9.593, 9.593, 9.593, 9.593, 9.593, 9.593, + 3 9.637, 9.637, 9.637, 9.637, 9.637, 9.637, 9.637, + 4 9.679, 9.679, 9.679, 9.679, 9.679, 9.679, 9.679, + 5 9.725, 9.725, 9.725, 9.725, 9.725, 9.725, 9.725, + 6 9.787, 9.787, 9.787, 9.787, 9.787, 9.787, 9.787, + 7 9.886, 9.886, 9.886, 9.886, 9.886, 9.886, 9.886, + 8 10.063, 10.063, 10.063, 10.063, 10.063, 10.063, 10.063, + 9 10.381, 10.381, 10.381, 10.381, 10.381, 10.381, 10.381/ + DATA PF492/ + 1 10.932, 10.932, 10.932, 10.932, 10.932, 10.932, 10.932, + 2 11.841, 11.841, 11.841, 11.841, 11.841, 11.841, 11.841, + 3 13.264, 13.264, 13.264, 13.264, 13.264, 13.264, 13.263, + 4 15.389, 15.388, 15.388, 15.388, 15.388, 15.388, 15.388, + 5 18.444, 18.444, 18.444, 18.444, 18.443, 18.443, 18.442, + 6 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, + 7 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, + 8 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, + 9 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 1.000/ + DATA PF493/ + 1 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, + 2 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, + 3 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, + 4 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, + 5 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, + 6 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, + 7 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, + 8 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, + 9 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 1.000/ + DATA PF494/ + 1 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, + 2 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, + 3 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, + 4 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, + 5 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, + 6 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, + 7 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, + 8 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, + 9 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 1.000/ + DATA PF495/ + 1 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, + 2 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, + 3 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, + 4 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, + 5 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, + 6 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, + 7 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, + 8 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, + 9 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 1.000/ + DATA PF496/ + 1 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, + 2 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, + 3 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, + 4 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, + 5 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, + 6 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, + 7 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, + 8 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, + 9 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 1.000/ + DATA PF497/ + 1 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, + 2 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, + 3 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, + 4 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, + 5 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, + 6 1.001, 1.001, 1.001, 1.001, 1.001, 1.001, 1.001, + 7 1.003, 1.003, 1.003, 1.003, 1.003, 1.003, 1.003, + 8 1.009, 1.009, 1.009, 1.009, 1.009, 1.009, 1.009, + 9 1.024, 1.024, 1.024, 1.024, 1.024, 1.024, 1.024/ + DATA PF498/ + 1 1.057, 1.057, 1.057, 1.057, 1.057, 1.057, 1.057, + 2 1.122, 1.122, 1.122, 1.122, 1.122, 1.122, 1.122, + 3 1.245, 1.245, 1.245, 1.245, 1.245, 1.245, 1.245, + 4 1.463, 1.463, 1.463, 1.463, 1.463, 1.463, 1.463, + 5 1.838, 1.838, 1.838, 1.838, 1.838, 1.838, 1.838, + 6 2.462, 2.462, 2.462, 2.462, 2.462, 2.462, 2.462, + 7 3.477, 3.477, 3.477, 3.477, 3.477, 3.477, 3.477, + 8 23.091, 23.091, 23.091, 23.091, 23.091, 23.091, 23.091, + 9 23.504, 23.504, 23.504, 23.504, 23.504, 23.504, 23.504/ + DATA PF499/ + 1 23.919, 23.919, 23.919, 23.919, 23.919, 23.919, 23.919, + 2 24.335, 24.335, 24.335, 24.335, 24.335, 24.335, 24.335, + 3 24.752, 24.752, 24.752, 24.752, 24.752, 24.752, 24.752, + 4 25.168, 25.168, 25.168, 25.168, 25.168, 25.168, 25.168, + 5 25.584, 25.584, 25.584, 25.584, 25.584, 25.584, 25.584, + 6 25.999, 25.999, 25.999, 25.999, 25.999, 25.999, 25.999, + 7 26.413, 26.413, 26.413, 26.413, 26.413, 26.413, 26.413, + 8 26.826, 26.826, 26.826, 26.826, 26.826, 26.826, 26.825, + 9 27.236, 27.236, 27.236, 27.236, 27.236, 27.236, 27.236/ + DATA PF500/ + 1 27.646, 27.646, 27.646, 27.646, 27.646, 27.646, 27.645, + 2 28.053, 28.053, 28.053, 28.053, 28.053, 28.053, 28.053, + 3 28.459, 28.459, 28.459, 28.459, 28.459, 28.459, 28.458, + 4 28.864, 28.864, 28.864, 28.864, 28.864, 28.864, 28.863, + 5 29.269, 29.269, 29.269, 29.269, 29.269, 29.269, 29.267, + 6 29.674, 29.674, 29.674, 29.674, 29.674, 29.674, 29.670, + 7 30.081, 30.081, 30.081, 30.081, 30.081, 30.081, 30.075, + 8 30.491, 30.491, 30.491, 30.491, 30.491, 30.491, 30.481, + 9 30.906, 30.906, 30.906, 30.906, 30.906, 30.906, 30.890/ + DATA PF501/ + 1 31.544, 31.544, 31.543, 31.543, 31.543, 31.542, 31.513, + 2 32.209, 32.209, 32.208, 32.208, 32.207, 32.206, 32.154, + 3 32.917, 32.917, 32.915, 32.914, 32.912, 32.909, 32.820, + 4 33.689, 33.688, 33.684, 33.680, 33.676, 33.669, 33.522, + 5 34.551, 34.550, 34.540, 34.530, 34.521, 34.507, 34.271, + 6 35.543, 35.539, 35.517, 35.496, 35.475, 35.448, 35.080, + 7 36.715, 36.706, 36.660, 36.615, 36.572, 36.523, 35.962, + 8 38.138, 38.121, 38.027, 37.937, 37.854, 37.764, 36.934, + 9 39.907, 39.874, 39.693, 39.519, 39.366, 39.212, 38.009/ + DATA PF502/ + 1 42.152, 42.090, 41.753, 41.436, 41.163, 40.906, 39.203, + 2 47.430, 47.270, 46.408, 45.612, 44.958, 44.400, 41.496, + 3 55.626, 55.252, 53.261, 51.455, 50.025, 48.912, 44.215, + 4 68.318, 67.522, 63.323, 59.572, 56.704, 54.643, 47.401, + 5 87.592, 86.029, 77.865, 70.669, 65.336, 61.766, 51.073, + 6 115.984, 113.135, 98.364, 85.506, 76.232, 70.408, 55.225, + 7 156.323, 151.457, 126.403, 104.834, 89.647, 80.635, 59.832, + 8 211.487, 203.646, 163.525, 129.320, 105.747, 92.448, 64.846, + 9 284.104, 272.109, 211.065, 159.474, 124.591, 105.776, 70.201/ + DATA PF503/ + 1 376.258, 358.738, 270.004, 195.591, 146.122, 120.488, 75.824, + 2 489.252, 464.694, 340.851, 237.710, 170.168, 136.398, 81.633, + 3 623.454, 590.271, 423.582, 285.608, 196.459, 153.282, 87.545, + 4 778.255, 734.863, 517.637, 338.815, 224.642, 170.891, 93.482, + 5 952.132, 897.021, 621.972, 396.652, 254.310, 188.969, 99.371, + 6 1142.785, 1074.586, 735.147, 458.285, 285.026, 207.264, 105.148, + 7 1347.333, 1264.871, 855.442, 522.782, 316.350, 225.537, 110.757, + 8 1562.531, 1464.861, 980.976, 589.175, 347.855, 243.577, 116.156, + 9 1784.982, 1671.409,1109.826, 656.508, 379.152, 261.196, 121.309/ + DATA PF504/ + 1 2011.326, 1881.411,1240.121, 723.879, 409.894, 278.241, 126.192, + 2 2238.393, 2091.940,1370.126, 790.477, 439.785, 294.590, 130.789, + 3 2463.316, 2300.356,1498.291, 855.594, 468.584, 310.148, 135.092, + 4 2683.600, 2504.369,1623.289, 918.642, 496.104, 324.853, 139.098, + 5 2897.165, 2702.067,1744.027, 979.152, 522.209, 338.664, 142.810, + 6 3102.347, 2891.927,1859.649,1036.770, 546.808, 351.564, 146.236, + 7 3297.885, 3072.798,1969.520,1091.248, 569.850, 363.552, 149.386, + 8 3482.889, 3243.870,2073.208,1142.431, 591.321, 374.644, 152.272, + 9 3656.800, 3404.640,2170.460,1190.248, 611.231, 384.865, 154.908/ + DATA PF505/ + 1 7.470, 7.470, 7.470, 7.470, 7.470, 7.470, 7.470, + 2 7.555, 7.555, 7.555, 7.555, 7.555, 7.555, 7.555, + 3 7.644, 7.644, 7.644, 7.644, 7.644, 7.644, 7.644, + 4 7.739, 7.739, 7.739, 7.739, 7.739, 7.739, 7.739, + 5 7.839, 7.839, 7.839, 7.839, 7.839, 7.839, 7.839, + 6 7.946, 7.946, 7.946, 7.946, 7.946, 7.946, 7.946, + 7 8.061, 8.061, 8.061, 8.061, 8.061, 8.061, 8.061, + 8 8.185, 8.185, 8.185, 8.185, 8.185, 8.185, 8.185, + 9 8.319, 8.319, 8.319, 8.319, 8.319, 8.319, 8.319/ + DATA PF506/ + 1 8.464, 8.464, 8.464, 8.464, 8.464, 8.464, 8.464, + 2 8.622, 8.622, 8.622, 8.622, 8.622, 8.622, 8.622, + 3 8.794, 8.794, 8.794, 8.794, 8.794, 8.794, 8.794, + 4 8.981, 8.981, 8.981, 8.981, 8.981, 8.981, 8.981, + 5 9.185, 9.185, 9.185, 9.185, 9.185, 9.185, 9.185, + 6 9.406, 9.406, 9.406, 9.406, 9.406, 9.406, 9.406, + 7 9.647, 9.647, 9.647, 9.647, 9.647, 9.647, 9.647, + 8 9.908, 9.908, 9.908, 9.908, 9.908, 9.908, 9.908, + 9 10.192, 10.192, 10.192, 10.192, 10.192, 10.192, 10.192/ + DATA PF507/ + 1 10.498, 10.498, 10.498, 10.498, 10.498, 10.498, 10.498, + 2 10.828, 10.828, 10.828, 10.828, 10.828, 10.828, 10.828, + 3 11.372, 11.372, 11.372, 11.372, 11.372, 11.372, 11.372, + 4 11.976, 11.976, 11.976, 11.976, 11.976, 11.976, 11.976, + 5 12.645, 12.645, 12.645, 12.645, 12.645, 12.645, 12.645, + 6 13.381, 13.381, 13.381, 13.381, 13.381, 13.381, 13.381, + 7 14.187, 14.187, 14.187, 14.187, 14.187, 14.187, 14.187, + 8 15.067, 15.067, 15.067, 15.067, 15.067, 15.067, 15.067, + 9 16.024, 16.024, 16.024, 16.024, 16.024, 16.024, 16.024/ + DATA PF508/ + 1 17.062, 17.062, 17.062, 17.062, 17.062, 17.062, 17.062, + 2 18.185, 18.185, 18.185, 18.185, 18.185, 18.185, 18.185, + 3 19.400, 19.400, 19.400, 19.400, 19.400, 19.400, 19.400, + 4 21.649, 21.649, 21.649, 21.649, 21.649, 21.648, 21.648, + 5 24.226, 24.226, 24.226, 24.225, 24.225, 24.224, 24.223, + 6 27.219, 27.219, 27.218, 27.218, 27.216, 27.212, 27.204, + 7 30.778, 30.778, 30.776, 30.773, 30.764, 30.749, 30.717, + 8 35.168, 35.165, 35.161, 35.148, 35.111, 35.054, 34.948, + 9 40.857, 40.847, 40.830, 40.785, 40.657, 40.471, 40.161/ + DATA PF509/ + 1 48.664, 48.634, 48.581, 48.442, 48.056, 47.522, 46.719, + 2 59.971, 59.887, 59.740, 59.363, 58.332, 56.961, 55.081, + 3 76.962, 76.753, 76.390, 75.471, 72.997, 69.816, 65.801, + 4 102.850, 102.378, 101.566, 99.531, 94.134, 87.400, 79.499, + 5 141.993, 141.024, 139.359, 135.224, 124.407, 111.266, 96.811, + 6 199.838, 197.994, 194.838, 187.063, 166.959, 143.113, 118.337, + 7 282.625, 279.356, 273.773, 260.122, 225.195, 184.635, 144.568, + 8 396.889, 391.441, 382.159, 359.616, 302.471, 237.352, 175.837, + 9 548.806, 540.218, 525.618, 490.365, 401.744, 302.437, 212.270/ + DATA PF510/ + 1 743.527, 730.643, 708.780, 656.268, 525.235, 380.578, 253.772, + 2 984.581, 966.084, 934.754, 859.851, 674.174, 471.897, 300.026, + 3 1273.473, 1247.945,1204.769,1101.975, 848.652, 575.925, 350.520, + 4 1609.516, 1575.496,1518.034,1381.737,1047.603, 691.641, 404.588, + 5 1989.891, 1945.947,1871.815,1696.554,1268.901, 817.559, 461.452, + 6 2409.916, 2354.713,2261.686,2042.402,1509.546, 951.847, 520.281, + 7 2863.455, 2795.806,2681.915,2414.155,1765.907,1092.459, 580.234, + 8 3343.391, 3262.303,3125.904,2805.977,2033.980,1237.262, 640.502, + 9 3842.120, 3746.821,3586.638,3211.708,2309.640,1384.155, 700.338/ + DATA PF511/ + 1 4351.992, 4241.940,4057.085,3625.212,2588.854,1531.161, 759.085, + 2 4865.683, 4740.569,4530.540,4040.665,2867.860,1676.494, 816.181, + 3 12.790, 12.790, 12.790, 12.790, 12.790, 12.790, 12.790, + 4 12.985, 12.985, 12.985, 12.985, 12.985, 12.985, 12.985, + 5 13.181, 13.181, 13.181, 13.181, 13.181, 13.181, 13.181, + 6 13.378, 13.378, 13.378, 13.378, 13.378, 13.378, 13.378, + 7 13.576, 13.576, 13.576, 13.576, 13.576, 13.576, 13.576, + 8 13.773, 13.773, 13.773, 13.773, 13.773, 13.773, 13.773, + 9 13.971, 13.971, 13.971, 13.971, 13.971, 13.971, 13.971/ + DATA PF512/ + 1 14.169, 14.169, 14.169, 14.169, 14.169, 14.169, 14.169, + 2 14.366, 14.366, 14.366, 14.366, 14.366, 14.366, 14.366, + 3 14.562, 14.562, 14.562, 14.562, 14.562, 14.562, 14.562, + 4 14.758, 14.758, 14.758, 14.758, 14.758, 14.758, 14.758, + 5 14.953, 14.953, 14.953, 14.953, 14.953, 14.953, 14.953, + 6 15.148, 15.148, 15.148, 15.148, 15.148, 15.148, 15.148, + 7 15.342, 15.342, 15.342, 15.342, 15.342, 15.342, 15.342, + 8 15.537, 15.537, 15.537, 15.537, 15.537, 15.537, 15.537, + 9 15.731, 15.731, 15.731, 15.731, 15.731, 15.731, 15.731/ + DATA PF513/ + 1 15.925, 15.925, 15.925, 15.925, 15.925, 15.925, 15.925, + 2 16.120, 16.120, 16.120, 16.120, 16.120, 16.120, 16.120, + 3 16.317, 16.317, 16.317, 16.317, 16.317, 16.317, 16.317, + 4 16.515, 16.515, 16.515, 16.515, 16.515, 16.515, 16.515, + 5 16.818, 16.818, 16.818, 16.818, 16.818, 16.818, 16.818, + 6 17.128, 17.128, 17.128, 17.128, 17.128, 17.128, 17.128, + 7 17.448, 17.448, 17.448, 17.448, 17.448, 17.448, 17.448, + 8 17.780, 17.780, 17.780, 17.780, 17.780, 17.780, 17.780, + 9 18.127, 18.127, 18.127, 18.127, 18.127, 18.127, 18.127/ + DATA PF514/ + 1 18.492, 18.492, 18.492, 18.492, 18.492, 18.492, 18.492, + 2 18.876, 18.876, 18.876, 18.876, 18.876, 18.876, 18.876, + 3 19.282, 19.282, 19.282, 19.282, 19.282, 19.282, 19.282, + 4 19.712, 19.712, 19.712, 19.712, 19.712, 19.712, 19.712, + 5 20.168, 20.168, 20.168, 20.168, 20.168, 20.168, 20.168, + 6 20.994, 20.994, 20.994, 20.994, 20.994, 20.994, 20.994, + 7 21.917, 21.917, 21.917, 21.917, 21.917, 21.917, 21.917, + 8 22.958, 22.958, 22.958, 22.958, 22.958, 22.958, 22.958, + 9 24.155, 24.155, 24.155, 24.155, 24.155, 24.155, 24.155/ + DATA PF515/ + 1 25.564, 25.564, 25.564, 25.564, 25.564, 25.564, 25.564, + 2 27.271, 27.271, 27.271, 27.271, 27.271, 27.271, 27.271, + 3 29.401, 29.401, 29.401, 29.401, 29.401, 29.401, 29.400, + 4 32.137, 32.137, 32.137, 32.137, 32.137, 32.136, 32.133, + 5 35.751, 35.751, 35.751, 35.750, 35.749, 35.742, 35.731, + 6 40.667, 40.664, 40.663, 40.660, 40.655, 40.626, 40.577, + 7 47.580, 47.570, 47.564, 47.554, 47.531, 47.421, 47.245, + 8 57.683, 57.650, 57.627, 57.593, 57.517, 57.153, 56.595, + 9 73.016, 72.914, 72.847, 72.743, 72.517, 71.459, 69.906/ + DATA PF516/ + 1 96.943, 96.667, 96.487, 96.207, 95.611, 92.875, 89.002, + 2 134.675, 134.009, 133.573, 132.901, 131.485, 125.098, 116.359, + 3 193.714, 192.249, 191.293, 189.824, 186.761, 173.166, 155.111, + 4 284.002, 281.046, 279.121, 276.171, 270.082, 243.427, 208.951, + 5 417.663, 412.136, 408.543, 403.055, 391.820, 343.245, 281.879, + 6 608.239, 598.586, 592.320, 582.774, 563.380, 480.452, 377.852, + 7 869.510, 853.643, 843.356, 827.722, 796.172, 662.595, 500.372, + 8 1214.077, 1189.368,1173.366,1149.100,1100.420, 896.125, 652.085, + 9 1651.956, 1615.287,1591.563,1555.656,1484.006,1185.663, 834.473/ + DATA PF517/ + 1 2189.430, 2137.298,2103.600,2052.684,1951.568,1533.453,1047.668, + 2 2828.329, 2756.996,2710.924,2641.417,2503.962,1939.108,1290.422, + 3 3565.824, 3471.490,3410.605,3318.877,3138.160,2399.623,1560.212, + 4 4394.699, 4273.682,4195.626,4078.169,3847.539,2909.659,1853.454, + 5 15.654, 15.654, 15.654, 15.654, 15.654, 15.654, 15.654, + 6 15.938, 15.938, 15.938, 15.938, 15.938, 15.938, 15.938, + 7 16.224, 16.224, 16.224, 16.224, 16.224, 16.224, 16.224, + 8 16.512, 16.512, 16.512, 16.512, 16.512, 16.512, 16.512, + 9 16.801, 16.801, 16.801, 16.801, 16.801, 16.801, 16.801/ + DATA PF518/ + 1 17.091, 17.091, 17.091, 17.091, 17.091, 17.091, 17.091, + 2 17.380, 17.380, 17.380, 17.380, 17.380, 17.380, 17.380, + 3 17.669, 17.669, 17.669, 17.669, 17.669, 17.669, 17.669, + 4 17.957, 17.957, 17.957, 17.957, 17.957, 17.957, 17.957, + 5 18.244, 18.244, 18.244, 18.244, 18.244, 18.244, 18.244, + 6 18.529, 18.529, 18.529, 18.529, 18.529, 18.529, 18.529, + 7 18.813, 18.813, 18.813, 18.813, 18.813, 18.813, 18.813, + 8 19.095, 19.095, 19.095, 19.095, 19.095, 19.095, 19.095, + 9 19.375, 19.375, 19.375, 19.375, 19.375, 19.375, 19.375/ + DATA PF519/ + 1 19.654, 19.654, 19.654, 19.654, 19.654, 19.654, 19.654, + 2 19.932, 19.932, 19.932, 19.932, 19.932, 19.932, 19.932, + 3 20.209, 20.209, 20.209, 20.209, 20.209, 20.209, 20.209, + 4 20.486, 20.486, 20.486, 20.486, 20.486, 20.486, 20.486, + 5 20.763, 20.763, 20.763, 20.763, 20.763, 20.763, 20.763, + 6 21.043, 21.043, 21.043, 21.043, 21.043, 21.043, 21.043, + 7 21.468, 21.468, 21.468, 21.468, 21.468, 21.468, 21.468, + 8 21.905, 21.905, 21.905, 21.905, 21.905, 21.905, 21.905, + 9 22.359, 22.359, 22.359, 22.359, 22.359, 22.359, 22.359/ + DATA PF520/ + 1 22.836, 22.836, 22.836, 22.836, 22.836, 22.836, 22.836, + 2 23.345, 23.345, 23.345, 23.345, 23.345, 23.345, 23.345, + 3 23.892, 23.892, 23.892, 23.892, 23.892, 23.892, 23.892, + 4 24.487, 24.487, 24.487, 24.487, 24.487, 24.487, 24.487, + 5 25.136, 25.136, 25.136, 25.136, 25.136, 25.136, 25.136, + 6 25.849, 25.849, 25.849, 25.849, 25.849, 25.849, 25.849, + 7 26.633, 26.633, 26.633, 26.633, 26.633, 26.633, 26.633, + 8 28.116, 28.116, 28.116, 28.116, 28.116, 28.116, 28.116, + 9 29.843, 29.843, 29.843, 29.843, 29.843, 29.843, 29.843/ + DATA PF521/ + 1 31.831, 31.831, 31.831, 31.831, 31.831, 31.831, 31.831, + 2 34.091, 34.091, 34.091, 34.091, 34.091, 34.091, 34.091, + 3 36.622, 36.622, 36.622, 36.622, 36.622, 36.622, 36.622, + 4 39.418, 39.418, 39.418, 39.418, 39.418, 39.418, 39.418, + 5 42.472, 42.472, 42.472, 42.472, 42.472, 42.472, 42.472, + 6 45.782, 45.782, 45.782, 45.782, 45.782, 45.782, 45.782, + 7 49.368, 49.368, 49.368, 49.368, 49.368, 49.368, 49.368, + 8 53.289, 53.289, 53.289, 53.289, 53.289, 53.289, 53.289, + 9 57.670, 57.670, 57.670, 57.670, 57.670, 57.670, 57.670/ + DATA PF522/ + 1 62.749, 62.749, 62.749, 62.749, 62.748, 62.747, 62.744, + 2 68.942, 68.941, 68.940, 68.940, 68.934, 68.931, 68.915, + 3 76.976, 76.972, 76.970, 76.967, 76.941, 76.926, 76.855, + 4 88.130, 88.117, 88.107, 88.094, 87.995, 87.937, 87.674, + 5 104.659, 104.614, 104.582, 104.536, 104.202, 104.009, 103.164, + 6 130.458, 130.323, 130.227, 130.092, 129.104, 128.543, 126.146, + 7 171.947, 171.589, 171.333, 170.975, 168.381, 166.926, 160.859, + 8 239.038, 238.182, 237.572, 236.720, 230.581, 227.184, 213.297, + 9 345.913, 344.052, 342.726, 340.885, 327.657, 320.423, 291.375/ + DATA PF523/ + 1 511.278, 507.561, 504.915, 501.251, 475.034, 460.842, 404.766, + 2 757.814, 750.928, 746.029, 739.266, 691.028, 665.155, 564.370, + 3 1110.723, 1098.790,1090.308,1078.630, 995.569, 951.382, 781.425, + 4 1595.503, 1576.024,1562.192,1543.187,1408.373,1337.173,1066.397, + 5 2235.316, 2205.172,2183.780,2154.448,1946.862,1837.937,1427.834, + 6 3048.406, 3003.921,2972.371,2929.188,2624.204,2465.094,1871.380, + 7 15.655, 15.655, 15.655, 15.655, 15.655, 15.655, 15.655, + 8 15.911, 15.911, 15.911, 15.911, 15.911, 15.911, 15.911, + 9 16.166, 16.166, 16.166, 16.166, 16.166, 16.166, 16.166/ + DATA PF524/ + 1 16.419, 16.419, 16.419, 16.419, 16.419, 16.419, 16.419, + 2 16.670, 16.670, 16.670, 16.670, 16.670, 16.670, 16.670, + 3 16.918, 16.918, 16.918, 16.918, 16.918, 16.918, 16.918, + 4 17.164, 17.164, 17.164, 17.164, 17.164, 17.164, 17.164, + 5 17.406, 17.406, 17.406, 17.406, 17.406, 17.406, 17.406, + 6 17.645, 17.645, 17.645, 17.645, 17.645, 17.645, 17.645, + 7 17.881, 17.881, 17.881, 17.881, 17.881, 17.881, 17.881, + 8 18.112, 18.112, 18.112, 18.112, 18.112, 18.112, 18.112, + 9 18.340, 18.340, 18.340, 18.340, 18.340, 18.340, 18.340/ + DATA PF525/ + 1 18.563, 18.563, 18.563, 18.563, 18.563, 18.563, 18.563, + 2 18.782, 18.782, 18.782, 18.782, 18.782, 18.782, 18.782, + 3 18.997, 18.997, 18.997, 18.997, 18.997, 18.997, 18.997, + 4 19.207, 19.207, 19.207, 19.207, 19.207, 19.207, 19.207, + 5 19.414, 19.414, 19.414, 19.414, 19.414, 19.414, 19.414, + 6 19.616, 19.616, 19.616, 19.616, 19.616, 19.616, 19.616, + 7 19.816, 19.816, 19.816, 19.816, 19.816, 19.816, 19.816, + 8 20.012, 20.012, 20.012, 20.012, 20.012, 20.012, 20.012, + 9 20.302, 20.302, 20.302, 20.302, 20.302, 20.302, 20.302/ + DATA PF526/ + 1 20.590, 20.590, 20.590, 20.590, 20.590, 20.590, 20.590, + 2 20.881, 20.881, 20.881, 20.881, 20.881, 20.881, 20.881, + 3 21.180, 21.180, 21.180, 21.180, 21.180, 21.180, 21.180, + 4 21.494, 21.494, 21.494, 21.494, 21.494, 21.494, 21.494, + 5 21.832, 21.832, 21.832, 21.832, 21.832, 21.832, 21.832, + 6 22.205, 22.205, 22.205, 22.205, 22.205, 22.205, 22.205, + 7 22.624, 22.624, 22.624, 22.624, 22.624, 22.624, 22.624, + 8 23.103, 23.103, 23.103, 23.103, 23.103, 23.103, 23.103, + 9 23.655, 23.655, 23.655, 23.655, 23.655, 23.655, 23.655/ + DATA PF527/ + 1 24.784, 24.784, 24.784, 24.784, 24.784, 24.784, 24.784, + 2 26.234, 26.234, 26.234, 26.234, 26.234, 26.234, 26.234, + 3 28.080, 28.080, 28.080, 28.080, 28.080, 28.080, 28.080, + 4 30.387, 30.387, 30.387, 30.387, 30.387, 30.387, 30.387, + 5 33.208, 33.208, 33.208, 33.208, 33.208, 33.208, 33.208, + 6 36.583, 36.583, 36.583, 36.583, 36.583, 36.583, 36.583, + 7 40.533, 40.533, 40.533, 40.533, 40.533, 40.533, 40.533, + 8 45.059, 45.059, 45.059, 45.059, 45.059, 45.059, 45.059, + 9 50.147, 50.147, 50.147, 50.147, 50.147, 50.147, 50.147/ + DATA PF528/ + 1 55.766, 55.766, 55.766, 55.766, 55.766, 55.766, 55.766, + 2 61.881, 61.881, 61.881, 61.881, 61.881, 61.881, 61.881, + 3 68.462, 68.462, 68.462, 68.462, 68.462, 68.462, 68.462, + 4 75.511, 75.511, 75.511, 75.511, 75.511, 75.511, 75.511, + 5 83.097, 83.097, 83.097, 83.097, 83.097, 83.097, 83.096, + 6 91.415, 91.414, 91.414, 91.414, 91.413, 91.411, 91.410, + 7 100.880, 100.880, 100.877, 100.876, 100.872, 100.863, 100.855, + 8 112.301, 112.298, 112.288, 112.280, 112.264, 112.222, 112.188, + 9 127.166, 127.156, 127.118, 127.087, 127.025, 126.868, 126.741/ + DATA PF529/ + 1 148.137, 148.106, 147.977, 147.873, 147.668, 147.156, 146.753, + 2 179.776, 179.683, 179.307, 179.003, 178.408, 176.937, 175.804, + 3 229.476, 229.232, 228.252, 227.463, 225.923, 222.157, 219.311, + 4 308.435, 307.861, 305.560, 303.711, 300.117, 291.411, 284.946, + 5 432.375, 431.147, 426.223, 422.272, 414.627, 396.251, 382.820, + 6 621.674, 619.251, 609.551, 601.781, 586.799, 551.041, 525.266, + 7 900.626, 896.191, 878.439, 864.241, 836.949, 772.229, 726.149, + 8 1295.791, 1288.186,1257.766,1233.468,1186.895,1077.070, 999.733, + 9 6.000, 6.000, 6.000, 6.000, 6.000, 6.000, 6.000/ + DATA PF530/ + 1 6.000, 6.000, 6.000, 6.000, 6.000, 6.000, 6.000, + 2 6.000, 6.000, 6.000, 6.000, 6.000, 6.000, 6.000, + 3 6.000, 6.000, 6.000, 6.000, 6.000, 6.000, 6.000, + 4 6.000, 6.000, 6.000, 6.000, 6.000, 6.000, 6.000, + 5 6.000, 6.000, 6.000, 6.000, 6.000, 6.000, 6.000, + 6 6.000, 6.000, 6.000, 6.000, 6.000, 6.000, 6.000, + 7 6.000, 6.000, 6.000, 6.000, 6.000, 6.000, 6.000, + 8 6.000, 6.000, 6.000, 6.000, 6.000, 6.000, 6.000, + 9 6.000, 6.000, 6.000, 6.000, 6.000, 6.000, 6.000/ + DATA PF531/ + 1 6.000, 6.000, 6.000, 6.000, 6.000, 6.000, 6.000, + 2 6.000, 6.000, 6.000, 6.000, 6.000, 6.000, 6.000, + 3 6.000, 6.000, 6.000, 6.000, 6.000, 6.000, 6.000, + 4 6.000, 6.000, 6.000, 6.000, 6.000, 6.000, 6.000, + 5 6.000, 6.000, 6.000, 6.000, 6.000, 6.000, 6.000, + 6 6.000, 6.000, 6.000, 6.000, 6.000, 6.000, 6.000, + 7 6.000, 6.000, 6.000, 6.000, 6.000, 6.000, 6.000, + 8 6.000, 6.000, 6.000, 6.000, 6.000, 6.000, 6.000, + 9 6.000, 6.000, 6.000, 6.000, 6.000, 6.000, 6.000/ + DATA PF532/ + 1 6.000, 6.000, 6.000, 6.000, 6.000, 6.000, 6.000, + 2 6.001, 6.001, 6.001, 6.001, 6.001, 6.001, 6.001, + 3 6.001, 6.001, 6.001, 6.001, 6.001, 6.001, 6.001, + 4 6.002, 6.002, 6.002, 6.002, 6.002, 6.002, 6.002, + 5 6.005, 6.005, 6.005, 6.005, 6.005, 6.005, 6.005, + 6 6.009, 6.009, 6.009, 6.009, 6.009, 6.009, 6.009, + 7 6.016, 6.016, 6.016, 6.016, 6.016, 6.016, 6.016, + 8 6.028, 6.028, 6.028, 6.028, 6.028, 6.028, 6.028, + 9 6.048, 6.048, 6.048, 6.048, 6.048, 6.048, 6.048/ + DATA PF533/ + 1 6.078, 6.078, 6.078, 6.078, 6.078, 6.078, 6.078, + 2 6.124, 6.124, 6.124, 6.124, 6.124, 6.124, 6.124, + 3 6.251, 6.251, 6.251, 6.251, 6.251, 6.251, 6.251, + 4 6.478, 6.478, 6.478, 6.478, 6.478, 6.478, 6.478, + 5 6.857, 6.857, 6.857, 6.857, 6.857, 6.857, 6.857, + 6 7.457, 7.457, 7.457, 7.457, 7.457, 7.457, 7.457, + 7 8.362, 8.362, 8.362, 8.362, 8.362, 8.362, 8.362, + 8 9.667, 9.667, 9.667, 9.667, 9.667, 9.667, 9.667, + 9 11.476, 11.476, 11.476, 11.476, 11.476, 11.476, 11.476/ + DATA PF534/ + 1 13.889, 13.889, 13.889, 13.889, 13.889, 13.889, 13.889, + 2 16.998, 16.998, 16.998, 16.998, 16.998, 16.998, 16.998, + 3 20.881, 20.881, 20.881, 20.881, 20.881, 20.881, 20.881, + 4 25.588, 25.588, 25.588, 25.588, 25.588, 25.588, 25.588, + 5 31.142, 31.142, 31.142, 31.142, 31.142, 31.142, 31.142, + 6 37.538, 37.538, 37.538, 37.538, 37.538, 37.538, 37.538, + 7 44.746, 44.746, 44.746, 44.746, 44.746, 44.746, 44.746, + 8 52.723, 52.723, 52.723, 52.723, 52.723, 52.723, 52.723, + 9 61.438, 61.438, 61.438, 61.438, 61.438, 61.438, 61.438/ + DATA PF535/ + 1 70.913, 70.913, 70.913, 70.913, 70.912, 70.912, 70.911, + 2 81.293, 81.293, 81.293, 81.292, 81.292, 81.290, 81.285, + 3 92.989, 92.989, 92.989, 92.985, 92.982, 92.976, 92.949, + 4 106.945, 106.945, 106.945, 106.926, 106.911, 106.884, 106.765, + 5 125.159, 125.159, 125.158, 125.084, 125.027, 124.924, 124.475, + 6 151.611, 151.609, 151.607, 151.357, 151.168, 150.828, 149.363, + 7 193.715, 193.708, 193.704, 192.970, 192.414, 191.429, 187.228, + 8 264.259, 264.239, 264.230, 262.312, 260.864, 258.318, 247.576, + 9 383.518, 383.471, 383.449, 378.937, 375.537, 369.603, 344.801/ + DATA PF536/ + 1 580.962, 580.860, 580.814, 571.141, 563.864, 551.249, 498.964, + 2 10.541, 10.541, 10.541, 10.541, 10.541, 10.541, 10.541, + 3 10.886, 10.886, 10.886, 10.886, 10.886, 10.886, 10.886, + 4 11.234, 11.234, 11.234, 11.234, 11.234, 11.234, 11.234, + 5 11.581, 11.581, 11.581, 11.581, 11.581, 11.581, 11.581, + 6 11.929, 11.929, 11.929, 11.929, 11.929, 11.929, 11.929, + 7 12.276, 12.276, 12.276, 12.276, 12.276, 12.276, 12.276, + 8 12.622, 12.622, 12.622, 12.622, 12.622, 12.622, 12.622, + 9 12.966, 12.966, 12.966, 12.966, 12.966, 12.966, 12.966/ + DATA PF537/ + 1 13.308, 13.308, 13.308, 13.308, 13.308, 13.308, 13.308, + 2 13.647, 13.647, 13.647, 13.647, 13.647, 13.647, 13.647, + 3 13.983, 13.983, 13.983, 13.983, 13.983, 13.983, 13.983, + 4 14.315, 14.315, 14.315, 14.315, 14.315, 14.315, 14.315, + 5 14.643, 14.643, 14.643, 14.643, 14.643, 14.643, 14.643, + 6 14.966, 14.966, 14.966, 14.966, 14.966, 14.966, 14.966, + 7 15.285, 15.285, 15.285, 15.285, 15.285, 15.285, 15.285, + 8 15.598, 15.598, 15.598, 15.598, 15.598, 15.598, 15.598, + 9 15.906, 15.906, 15.906, 15.906, 15.906, 15.906, 15.906/ + DATA PF538/ + 1 16.209, 16.209, 16.209, 16.209, 16.209, 16.209, 16.209, + 2 16.506, 16.506, 16.506, 16.506, 16.506, 16.506, 16.506, + 3 16.798, 16.798, 16.798, 16.798, 16.798, 16.798, 16.798, + 4 17.225, 17.225, 17.225, 17.225, 17.225, 17.225, 17.225, + 5 17.641, 17.641, 17.641, 17.641, 17.641, 17.641, 17.641, + 6 18.048, 18.048, 18.048, 18.048, 18.048, 18.048, 18.048, + 7 18.448, 18.448, 18.448, 18.448, 18.448, 18.448, 18.448, + 8 18.845, 18.845, 18.845, 18.845, 18.845, 18.845, 18.845, + 9 19.244, 19.244, 19.244, 19.244, 19.244, 19.244, 19.244/ + DATA PF539/ + 1 19.653, 19.653, 19.653, 19.653, 19.653, 19.653, 19.653, + 2 20.079, 20.079, 20.079, 20.079, 20.079, 20.079, 20.079, + 3 20.532, 20.532, 20.532, 20.532, 20.532, 20.532, 20.532, + 4 21.026, 21.026, 21.026, 21.026, 21.026, 21.026, 21.026, + 5 21.972, 21.972, 21.972, 21.972, 21.972, 21.972, 21.972, + 6 23.134, 23.134, 23.134, 23.134, 23.134, 23.134, 23.134, + 7 24.587, 24.587, 24.587, 24.587, 24.587, 24.587, 24.587, + 8 26.408, 26.408, 26.408, 26.408, 26.408, 26.408, 26.408, + 9 28.666, 28.666, 28.666, 28.666, 28.666, 28.666, 28.666/ + DATA PF540/ + 1 31.425, 31.425, 31.425, 31.425, 31.425, 31.425, 31.425, + 2 34.728, 34.728, 34.728, 34.728, 34.728, 34.728, 34.728, + 3 38.606, 38.606, 38.606, 38.606, 38.606, 38.606, 38.606, + 4 43.065, 43.065, 43.065, 43.065, 43.065, 43.065, 43.065, + 5 48.094, 48.094, 48.094, 48.094, 48.094, 48.094, 48.094, + 6 53.661, 53.661, 53.661, 53.661, 53.661, 53.661, 53.661, + 7 59.717, 59.717, 59.717, 59.717, 59.717, 59.717, 59.717, + 8 66.197, 66.197, 66.197, 66.197, 66.197, 66.197, 66.197, + 9 73.026, 73.026, 73.026, 73.026, 73.026, 73.026, 73.026/ + DATA PF541/ + 1 80.126, 80.126, 80.126, 80.126, 80.126, 80.126, 80.126, + 2 87.418, 87.418, 87.418, 87.418, 87.418, 87.418, 87.418, + 3 94.843, 94.843, 94.843, 94.843, 94.843, 94.843, 94.843, + 4 102.373, 102.373, 102.373, 102.373, 102.373, 102.373, 102.373, + 5 110.050, 110.050, 110.050, 110.050, 110.050, 110.050, 110.050, + 6 118.043, 118.043, 118.043, 118.043, 118.043, 118.043, 118.040, + 7 126.756, 126.756, 126.756, 126.756, 126.754, 126.753, 126.741, + 8 137.050, 137.050, 137.050, 137.050, 137.039, 137.038, 136.984, + 9 150.652, 150.652, 150.651, 150.650, 150.608, 150.604, 150.407/ + DATA PF542/ + 1 170.855, 170.854, 170.853, 170.850, 170.713, 170.698, 170.072, + 2 203.565, 203.563, 203.561, 203.550, 203.160, 203.117, 201.360, + 3 258.613, 258.607, 258.601, 258.574, 257.579, 257.469, 253.063, + 4 9.538, 9.538, 9.538, 9.538, 9.538, 9.538, 9.538, + 5 9.852, 9.852, 9.852, 9.852, 9.852, 9.852, 9.852, + 6 10.173, 10.173, 10.173, 10.173, 10.173, 10.173, 10.173, + 7 10.502, 10.502, 10.502, 10.502, 10.502, 10.502, 10.502, + 8 10.837, 10.837, 10.837, 10.837, 10.837, 10.837, 10.837, + 9 11.178, 11.178, 11.178, 11.178, 11.178, 11.178, 11.178/ + DATA PF543/ + 1 11.524, 11.524, 11.524, 11.524, 11.524, 11.524, 11.524, + 2 11.875, 11.875, 11.875, 11.875, 11.875, 11.875, 11.875, + 3 12.230, 12.230, 12.230, 12.230, 12.230, 12.230, 12.230, + 4 12.588, 12.588, 12.588, 12.588, 12.588, 12.588, 12.588, + 5 12.948, 12.948, 12.948, 12.948, 12.948, 12.948, 12.948, + 6 13.311, 13.311, 13.311, 13.311, 13.311, 13.311, 13.311, + 7 13.675, 13.675, 13.675, 13.675, 13.675, 13.675, 13.675, + 8 14.039, 14.039, 14.039, 14.039, 14.039, 14.039, 14.039, + 9 14.404, 14.404, 14.404, 14.404, 14.404, 14.404, 14.404/ + DATA PF544/ + 1 14.769, 14.769, 14.769, 14.769, 14.769, 14.769, 14.769, + 2 15.133, 15.133, 15.133, 15.133, 15.133, 15.133, 15.133, + 3 15.496, 15.496, 15.496, 15.496, 15.496, 15.496, 15.496, + 4 15.857, 15.857, 15.857, 15.857, 15.857, 15.857, 15.857, + 5 16.218, 16.218, 16.218, 16.218, 16.218, 16.218, 16.218, + 6 16.755, 16.755, 16.755, 16.755, 16.755, 16.755, 16.755, + 7 17.290, 17.290, 17.290, 17.290, 17.290, 17.290, 17.290, + 8 17.824, 17.824, 17.824, 17.824, 17.824, 17.824, 17.824, + 9 18.360, 18.360, 18.360, 18.360, 18.360, 18.360, 18.360/ + DATA PF545/ + 1 18.899, 18.899, 18.899, 18.899, 18.899, 18.899, 18.899, + 2 19.448, 19.448, 19.448, 19.448, 19.448, 19.448, 19.448, + 3 20.010, 20.010, 20.010, 20.010, 20.010, 20.010, 20.010, + 4 20.592, 20.592, 20.592, 20.592, 20.592, 20.592, 20.592, + 5 21.202, 21.202, 21.202, 21.202, 21.202, 21.202, 21.202, + 6 21.846, 21.846, 21.846, 21.846, 21.846, 21.846, 21.846, + 7 23.018, 23.018, 23.018, 23.018, 23.018, 23.018, 23.018, + 8 24.347, 24.347, 24.347, 24.347, 24.347, 24.347, 24.347, + 9 25.866, 25.866, 25.866, 25.866, 25.866, 25.866, 25.866/ + DATA PF546/ + 1 27.608, 27.608, 27.608, 27.608, 27.608, 27.608, 27.608, + 2 29.596, 29.596, 29.596, 29.596, 29.596, 29.596, 29.596, + 3 31.843, 31.843, 31.843, 31.843, 31.843, 31.843, 31.843, + 4 34.353, 34.353, 34.353, 34.353, 34.353, 34.353, 34.353, + 5 37.120, 37.120, 37.120, 37.120, 37.120, 37.120, 37.120, + 6 40.127, 40.127, 40.127, 40.127, 40.127, 40.127, 40.127, + 7 43.351, 43.351, 43.351, 43.351, 43.351, 43.351, 43.351, + 8 46.760, 46.760, 46.760, 46.760, 46.760, 46.760, 46.760, + 9 50.319, 50.319, 50.319, 50.319, 50.319, 50.319, 50.319/ + DATA PF547/ + 1 53.988, 53.988, 53.988, 53.988, 53.988, 53.988, 53.988, + 2 57.726, 57.726, 57.726, 57.726, 57.726, 57.726, 57.726, + 3 61.494, 61.494, 61.494, 61.494, 61.494, 61.494, 61.494, + 4 65.255, 65.255, 65.255, 65.255, 65.255, 65.255, 65.255, + 5 68.983, 68.983, 68.983, 68.983, 68.983, 68.983, 68.983, + 6 72.666, 72.666, 72.666, 72.666, 72.666, 72.666, 72.666, + 7 76.329, 76.329, 76.329, 76.329, 76.329, 76.329, 76.329, + 8 80.060, 80.060, 80.060, 80.060, 80.060, 80.060, 80.060, + 9 84.053, 84.053, 84.053, 84.053, 84.053, 84.053, 84.053/ + DATA PF548/ + 1 88.676, 88.676, 88.676, 88.676, 88.676, 88.676, 88.676, + 2 94.564, 94.564, 94.564, 94.564, 94.564, 94.564, 94.563, + 3 102.781, 102.781, 102.781, 102.781, 102.781, 102.779, 102.777, + 4 115.070, 115.070, 115.070, 115.069, 115.068, 115.064, 115.057, + 5 134.233, 134.233, 134.233, 134.231, 134.229, 134.214, 134.194, + 6 7.464, 7.464, 7.464, 7.464, 7.464, 7.464, 7.464, + 7 7.652, 7.652, 7.652, 7.652, 7.652, 7.652, 7.652, + 8 7.848, 7.848, 7.848, 7.848, 7.848, 7.848, 7.848, + 9 8.050, 8.050, 8.050, 8.050, 8.050, 8.050, 8.050/ + DATA PF549/ + 1 8.259, 8.259, 8.259, 8.259, 8.259, 8.259, 8.259, + 2 8.474, 8.474, 8.474, 8.474, 8.474, 8.474, 8.474, + 3 8.695, 8.695, 8.695, 8.695, 8.695, 8.695, 8.695, + 4 8.922, 8.922, 8.922, 8.922, 8.922, 8.922, 8.922, + 5 9.153, 9.153, 9.153, 9.153, 9.153, 9.153, 9.153, + 6 9.389, 9.389, 9.389, 9.389, 9.389, 9.389, 9.389, + 7 9.629, 9.629, 9.629, 9.629, 9.629, 9.629, 9.629, + 8 9.872, 9.872, 9.872, 9.872, 9.872, 9.872, 9.872, + 9 10.119, 10.119, 10.119, 10.119, 10.119, 10.119, 10.119/ + DATA PF550/ + 1 10.368, 10.368, 10.368, 10.368, 10.368, 10.368, 10.368, + 2 10.620, 10.620, 10.620, 10.620, 10.620, 10.620, 10.620, + 3 10.873, 10.873, 10.873, 10.873, 10.873, 10.873, 10.873, + 4 11.128, 11.128, 11.128, 11.128, 11.128, 11.128, 11.128, + 5 11.384, 11.384, 11.384, 11.384, 11.384, 11.384, 11.384, + 6 11.641, 11.641, 11.641, 11.641, 11.641, 11.641, 11.641, + 7 11.899, 11.899, 11.899, 11.899, 11.899, 11.899, 11.899, + 8 12.286, 12.286, 12.286, 12.286, 12.286, 12.286, 12.286, + 9 12.675, 12.675, 12.675, 12.675, 12.675, 12.675, 12.675/ + DATA PF551/ + 1 13.065, 13.065, 13.065, 13.065, 13.065, 13.065, 13.065, + 2 13.456, 13.456, 13.456, 13.456, 13.456, 13.456, 13.456, + 3 13.850, 13.850, 13.850, 13.850, 13.850, 13.850, 13.850, + 4 14.247, 14.247, 14.247, 14.247, 14.247, 14.247, 14.247, + 5 14.650, 14.650, 14.650, 14.650, 14.650, 14.650, 14.650, + 6 15.059, 15.059, 15.059, 15.059, 15.059, 15.059, 15.059, + 7 15.477, 15.477, 15.477, 15.477, 15.477, 15.477, 15.477, + 8 15.905, 15.905, 15.905, 15.905, 15.905, 15.905, 15.905, + 9 16.648, 16.648, 16.648, 16.648, 16.648, 16.648, 16.648/ + DATA PF552/ + 1 17.433, 17.433, 17.433, 17.433, 17.433, 17.433, 17.433, + 2 18.269, 18.269, 18.269, 18.269, 18.269, 18.269, 18.269, + 3 19.161, 19.161, 19.161, 19.161, 19.161, 19.161, 19.161, + 4 20.108, 20.108, 20.108, 20.108, 20.108, 20.108, 20.108, + 5 21.111, 21.111, 21.111, 21.111, 21.111, 21.111, 21.111, + 6 22.165, 22.165, 22.165, 22.165, 22.165, 22.165, 22.165, + 7 23.262, 23.262, 23.262, 23.262, 23.262, 23.262, 23.262, + 8 24.394, 24.394, 24.394, 24.394, 24.394, 24.394, 24.394, + 9 25.548, 25.548, 25.548, 25.548, 25.548, 25.548, 25.548/ + DATA PF553/ + 1 26.715, 26.715, 26.715, 26.715, 26.715, 26.715, 26.715, + 2 27.880, 27.880, 27.880, 27.880, 27.880, 27.880, 27.880, + 3 29.034, 29.034, 29.034, 29.034, 29.034, 29.034, 29.034, + 4 30.166, 30.166, 30.166, 30.166, 30.166, 30.166, 30.166, + 5 31.267, 31.267, 31.267, 31.267, 31.267, 31.267, 31.267, + 6 32.332, 32.332, 32.332, 32.332, 32.332, 32.332, 32.332, + 7 33.358, 33.358, 33.358, 33.358, 33.358, 33.358, 33.358, + 8 34.354, 34.354, 34.354, 34.354, 34.354, 34.354, 34.354, + 9 35.348, 35.348, 35.348, 35.348, 35.348, 35.348, 35.348/ + DATA PF554/ + 1 36.396, 36.396, 36.396, 36.396, 36.396, 36.396, 36.396, + 2 37.608, 37.608, 37.608, 37.608, 37.608, 37.608, 37.608, + 3 39.157, 39.157, 39.157, 39.157, 39.157, 39.157, 39.157, + 4 41.311, 41.311, 41.311, 41.311, 41.311, 41.311, 41.311, + 5 44.442, 44.442, 44.442, 44.442, 44.442, 44.442, 44.442, + 6 49.065, 49.065, 49.065, 49.065, 49.065, 49.065, 49.065, + 7 55.870, 55.870, 55.870, 55.870, 55.870, 55.870, 55.870, + 8 4.672, 4.672, 4.672, 4.672, 4.672, 4.672, 4.672, + 9 4.742, 4.742, 4.742, 4.742, 4.742, 4.742, 4.742/ + DATA PF555/ + 1 4.815, 4.815, 4.815, 4.815, 4.815, 4.815, 4.815, + 2 4.892, 4.892, 4.892, 4.892, 4.892, 4.892, 4.892, + 3 4.972, 4.972, 4.972, 4.972, 4.972, 4.972, 4.972, + 4 5.055, 5.055, 5.055, 5.055, 5.055, 5.055, 5.055, + 5 5.141, 5.141, 5.141, 5.141, 5.141, 5.141, 5.141, + 6 5.229, 5.229, 5.229, 5.229, 5.229, 5.229, 5.229, + 7 5.320, 5.320, 5.320, 5.320, 5.320, 5.320, 5.320, + 8 5.413, 5.413, 5.413, 5.413, 5.413, 5.413, 5.413, + 9 5.508, 5.508, 5.508, 5.508, 5.508, 5.508, 5.508/ + DATA PF556/ + 1 5.605, 5.605, 5.605, 5.605, 5.605, 5.605, 5.605, + 2 5.703, 5.703, 5.703, 5.703, 5.703, 5.703, 5.703, + 3 5.802, 5.802, 5.802, 5.802, 5.802, 5.802, 5.802, + 4 5.903, 5.903, 5.903, 5.903, 5.903, 5.903, 5.903, + 5 6.004, 6.004, 6.004, 6.004, 6.004, 6.004, 6.004, + 6 6.105, 6.105, 6.105, 6.105, 6.105, 6.105, 6.105, + 7 6.207, 6.207, 6.207, 6.207, 6.207, 6.207, 6.207, + 8 6.308, 6.308, 6.308, 6.308, 6.308, 6.308, 6.308, + 9 6.410, 6.410, 6.410, 6.410, 6.410, 6.410, 6.410/ + DATA PF557/ + 1 6.561, 6.561, 6.561, 6.561, 6.561, 6.561, 6.561, + 2 6.711, 6.711, 6.711, 6.711, 6.711, 6.711, 6.711, + 3 6.858, 6.858, 6.858, 6.858, 6.858, 6.858, 6.858, + 4 7.003, 7.003, 7.003, 7.003, 7.003, 7.003, 7.003, + 5 7.145, 7.145, 7.145, 7.145, 7.145, 7.145, 7.145, + 6 7.284, 7.284, 7.284, 7.284, 7.284, 7.284, 7.284, + 7 7.419, 7.419, 7.419, 7.419, 7.419, 7.419, 7.419, + 8 7.549, 7.549, 7.549, 7.549, 7.549, 7.549, 7.549, + 9 7.676, 7.676, 7.676, 7.676, 7.676, 7.676, 7.676/ + DATA PF558/ + 1 7.798, 7.798, 7.798, 7.798, 7.798, 7.798, 7.798, + 2 7.992, 7.992, 7.992, 7.992, 7.992, 7.992, 7.992, + 3 8.173, 8.173, 8.173, 8.173, 8.173, 8.173, 8.173, + 4 8.341, 8.341, 8.341, 8.341, 8.341, 8.341, 8.341, + 5 8.496, 8.496, 8.496, 8.496, 8.496, 8.496, 8.496, + 6 8.640, 8.640, 8.640, 8.640, 8.640, 8.640, 8.640, + 7 8.771, 8.771, 8.771, 8.771, 8.771, 8.771, 8.771, + 8 8.892, 8.892, 8.892, 8.892, 8.892, 8.892, 8.892, + 9 9.001, 9.001, 9.001, 9.001, 9.001, 9.001, 9.001/ + DATA PF559/ + 1 9.101, 9.101, 9.101, 9.101, 9.101, 9.101, 9.101, + 2 9.192, 9.192, 9.192, 9.192, 9.192, 9.192, 9.192, + 3 9.275, 9.275, 9.275, 9.275, 9.275, 9.275, 9.275, + 4 9.349, 9.349, 9.349, 9.349, 9.349, 9.349, 9.349, + 5 9.416, 9.416, 9.416, 9.416, 9.416, 9.416, 9.416, + 6 9.477, 9.477, 9.477, 9.477, 9.477, 9.477, 9.477, + 7 9.532, 9.532, 9.532, 9.532, 9.532, 9.532, 9.532, + 8 9.583, 9.583, 9.583, 9.583, 9.583, 9.583, 9.583, + 9 9.633, 9.633, 9.633, 9.633, 9.633, 9.633, 9.633/ + DATA PF560/ + 1 9.689, 9.689, 9.689, 9.689, 9.689, 9.689, 9.689, + 2 9.766, 9.766, 9.766, 9.766, 9.766, 9.766, 9.766, + 3 9.891, 9.891, 9.891, 9.891, 9.891, 9.891, 9.891, + 4 10.111, 10.111, 10.111, 10.111, 10.111, 10.111, 10.111, + 5 10.499, 10.499, 10.499, 10.499, 10.499, 10.499, 10.499, + 6 11.155, 11.155, 11.155, 11.155, 11.155, 11.155, 11.155, + 7 12.209, 12.209, 12.209, 12.209, 12.209, 12.209, 12.209, + 8 13.817, 13.817, 13.817, 13.817, 13.817, 13.817, 13.817, + 9 16.163, 16.163, 16.163, 16.163, 16.163, 16.163, 16.163/ + DATA POTLO/500.,1000.,2000.,4000.,8000.,16000.,32000./ + DATA POTLOLOG/2.69897,3.,3.30103,3.60206,3.90309,4.20412,4.50515/ +C IF(PFTAB(1,1,1,1).EQ.0.)THEN +C OPEN(UNIT=4,FILE='KU2A:[KURUCZ.SYNTHE]PFIRON.DAT', +C 1STATUS='OLD',SHARED,READONLY) +C READ(4,1)PFTAB +C 1 FORMAT(26X,7F10.3) +C ENDIF +C123456789012345678901234567890 +C 20.09 56 199526. 4.211 4.211 4.211 4.211 4.211 4.211 4.211 + TLOG=TLOG8 + POTLOW=POTLOW8 + IF(TLOG.GT.4.)GO TO 20 + IF(TLOG.LT.3.7)GO TO 10 + IT=(TLOG-3.7)/.03+21. + F=(TLOG-(IT-21)*.03-3.7)/.03 + GO TO 30 + 10 IT=(TLOG-3.32)/.02+2. + IT=MAX(IT,2) + F=(TLOG-(IT-2)*.02-3.32)/.02 + GO TO 30 + 20 IT=(TLOG-4.0)/.05+31. + IT=MIN(IT,56) + F=(TLOG-(IT-31)*.05-4.)/.05 + 30 LOW=1 + IF(POTLOW.LT.POTLO(LOW))GO TO 32 + DO 31 LOW=2,7 + IF(POTLOW.LT.POTLO(LOW))GO TO 35 + 31 CONTINUE + LOW=7 + 32 PF=F*PFTAB(LOW,IT,ION,NELEM-19)+ + 1 (1.-F)*PFTAB(LOW,IT-1,ION,NELEM-19) + RETURN + 35 P=(LOG10(POTLOW)-POTLOLOG(LOW-1))/.30103 + PF=P*(F*PFTAB(LOW,IT,ION,NELEM-19)+ + 1 (1.-F)*PFTAB(LOW,IT-1,ION,NELEM-19))+ + 2 (1.-P)*(F*PFTAB(LOW-1,IT,ION,NELEM-19)+ + 3 (1.-F)*PFTAB(LOW-1,IT-1,ION,NELEM-19)) + RETURN + END + SUBROUTINE IONPOTS +C +C Kramida, A., Ralchenko, Yu., Reader, J., and NIST ASD Team (2014). +C NIST Atomic Spectra Database (ver. 5.2). physics.nist.gov/asd +C 2014, November 4. +C + IMPLICIT REAL*8 (A-H,O-Z) + COMMON /POTION/POTION(999) + DIMENSION POTH ( 2),POTHe( 3),POTLi( 4),POTBe( 5),POTB ( 6) + DIMENSION POTC ( 7),POTN ( 8),POTO ( 9),POTF( 10),POTNe(11) + DIMENSION POTNa(12),POTMg(13),POTAl(14),POTSi(15),POTP (16) + DIMENSION POTS (17),POTCl(18),POTAr(19),POTK (20),POTCa(21) + DIMENSION POTSc(22),POTTi(23),POTV (24),POTCr(25),POTMn(26) + DIMENSION POTFe(27),POTCo(28),POTNi(29),POTCu(30),POTZn(31) + DIMENSION POTGa(5),POTGe(5),POTAs(5),POTSe(5),POTBr(5) + DIMENSION POTKr(5),POTRb(5),POTSr(5),POTY (5),POTZr(5) + DIMENSION POTNb(5),POTMo(5),POTTc(5),POTRu(5),POTRh(5) + DIMENSION POTPd(5),POTAg(5),POTCd(5),POTIn(5),POTSn(5) + DIMENSION POTSb(5),POTTe(5),POTI (5),POTXe(5),POTCs(5) + DIMENSION POTBa(5),POTLa(5),POTCe(5),POTPr(5),POTNd(5) + DIMENSION POTPm(5),POTSm(5),POTEu(5),POTGd(5),POTTb(5) + DIMENSION POTDy(5),POTHo(5),POTEr(5),POTTm(5),POTYb(5) + DIMENSION POTLu(5),POTHf(5),POTTa(5),POTW (5),POTRe(5) + DIMENSION POTOs(5),POTIr(5),POTPt(5),POTAu(5),POTHg(5) + DIMENSION POTTl(5),POTPb(5),POTBi(5),POTPo(5),POTAt(5) + DIMENSION POTRn(5),POTFr(5),POTRa(5),POTAc(5),POTTh(5) + DIMENSION POTPa(5),POTU (5),POTNp(5),POTPu(5),POTAm(5) + DIMENSION POTCm(5),POTBk(5),POTCf(5),POTEs(5) + EQUIVALENCE (POTION( 1),POTH (1)) + EQUIVALENCE (POTION( 3),POTHe(1)) + EQUIVALENCE (POTION( 6),POTLi(1)) + EQUIVALENCE (POTION( 10),POTBe(1)) + EQUIVALENCE (POTION( 15),POTB (1)) + EQUIVALENCE (POTION( 21),POTC (1)) + EQUIVALENCE (POTION( 28),POTN (1)) + EQUIVALENCE (POTION( 36),POTO (1)) + EQUIVALENCE (POTION( 45),POTF (1)) + EQUIVALENCE (POTION( 55),POTNe(1)) + EQUIVALENCE (POTION( 66),POTNa(1)) + EQUIVALENCE (POTION( 78),POTMg(1)) + EQUIVALENCE (POTION( 91),POTAl(1)) + EQUIVALENCE (POTION(105),POTSi(1)) + EQUIVALENCE (POTION(120),POTP (1)) + EQUIVALENCE (POTION(136),POTS (1)) + EQUIVALENCE (POTION(153),POTCl(1)) + EQUIVALENCE (POTION(171),POTAr(1)) + EQUIVALENCE (POTION(190),POTK (1)) + EQUIVALENCE (POTION(210),POTCa(1)) + EQUIVALENCE (POTION(231),POTSc(1)) + EQUIVALENCE (POTION(253),POTTi(1)) + EQUIVALENCE (POTION(276),POTV (1)) + EQUIVALENCE (POTION(300),POTCr(1)) + EQUIVALENCE (POTION(325),POTMn(1)) + EQUIVALENCE (POTION(351),POTFe(1)) + EQUIVALENCE (POTION(378),POTCo(1)) + EQUIVALENCE (POTION(406),POTNi(1)) + EQUIVALENCE (POTION(435),POTCu(1)) + EQUIVALENCE (POTION(465),POTZn(1)) + EQUIVALENCE (POTION(496),POTGa(1)) + EQUIVALENCE (POTION(501),POTGe(1)) + EQUIVALENCE (POTION(506),POTAs(1)) + EQUIVALENCE (POTION(511),POTSe(1)) + EQUIVALENCE (POTION(516),POTBr(1)) + EQUIVALENCE (POTION(521),POTKr(1)) + EQUIVALENCE (POTION(526),POTRb(1)) + EQUIVALENCE (POTION(531),POTSr(1)) + EQUIVALENCE (POTION(536),POTY (1)) + EQUIVALENCE (POTION(541),POTZr(1)) + EQUIVALENCE (POTION(546),POTNb(1)) + EQUIVALENCE (POTION(551),POTMo(1)) + EQUIVALENCE (POTION(556),POTTc(1)) + EQUIVALENCE (POTION(561),POTRu(1)) + EQUIVALENCE (POTION(566),POTRh(1)) + EQUIVALENCE (POTION(571),POTPd(1)) + EQUIVALENCE (POTION(576),POTAg(1)) + EQUIVALENCE (POTION(581),POTCd(1)) + EQUIVALENCE (POTION(586),POTIn(1)) + EQUIVALENCE (POTION(591),POTSn(1)) + EQUIVALENCE (POTION(596),POTSb(1)) + EQUIVALENCE (POTION(601),POTTe(1)) + EQUIVALENCE (POTION(606),POTI (1)) + EQUIVALENCE (POTION(611),POTXe(1)) + EQUIVALENCE (POTION(616),POTCs(1)) + EQUIVALENCE (POTION(621),POTBa(1)) + EQUIVALENCE (POTION(626),POTLa(1)) + EQUIVALENCE (POTION(631),POTCe(1)) + EQUIVALENCE (POTION(636),POTPr(1)) + EQUIVALENCE (POTION(641),POTNd(1)) + EQUIVALENCE (POTION(646),POTPm(1)) + EQUIVALENCE (POTION(651),POTSm(1)) + EQUIVALENCE (POTION(656),POTEu(1)) + EQUIVALENCE (POTION(661),POTGd(1)) + EQUIVALENCE (POTION(666),POTTb(1)) + EQUIVALENCE (POTION(671),POTDy(1)) + EQUIVALENCE (POTION(676),POTHo(1)) + EQUIVALENCE (POTION(681),POTEr(1)) + EQUIVALENCE (POTION(686),POTTm(1)) + EQUIVALENCE (POTION(691),POTYb(1)) + EQUIVALENCE (POTION(696),POTLu(1)) + EQUIVALENCE (POTION(701),POTHf(1)) + EQUIVALENCE (POTION(706),POTTa(1)) + EQUIVALENCE (POTION(711),POTW (1)) + EQUIVALENCE (POTION(716),POTRe(1)) + EQUIVALENCE (POTION(721),POTOs(1)) + EQUIVALENCE (POTION(726),POTIr(1)) + EQUIVALENCE (POTION(731),POTPt(1)) + EQUIVALENCE (POTION(736),POTAu(1)) + EQUIVALENCE (POTION(741),POTHg(1)) + EQUIVALENCE (POTION(746),POTTl(1)) + EQUIVALENCE (POTION(751),POTPb(1)) + EQUIVALENCE (POTION(756),POTBi(1)) + EQUIVALENCE (POTION(761),POTPo(1)) + EQUIVALENCE (POTION(766),POTAt(1)) + EQUIVALENCE (POTION(771),POTRn(1)) + EQUIVALENCE (POTION(776),POTFr(1)) + EQUIVALENCE (POTION(781),POTRa(1)) + EQUIVALENCE (POTION(786),POTAc(1)) + EQUIVALENCE (POTION(791),POTTh(1)) + EQUIVALENCE (POTION(796),POTPa(1)) + EQUIVALENCE (POTION(801),POTU (1)) + EQUIVALENCE (POTION(806),POTNp(1)) + EQUIVALENCE (POTION(811),POTPu(1)) + EQUIVALENCE (POTION(816),POTAm(1)) + EQUIVALENCE (POTION(821),POTCm(1)) + EQUIVALENCE (POTION(826),POTBk(1)) + EQUIVALENCE (POTION(831),POTCf(1)) + EQUIVALENCE (POTION(836),POTEs(1)) + DATA POTH / 109678.772D0,0./ + DATA POTHe/ 198310.666D0, 438908.879D0,0./ + DATA POTLi/ 43487.114D0, 610078.526D0, 987661.014D0,0./ + DATA POTBe/ 75192.640D0, 146882.86D0,1241256.600D0, + 1 1756018.822D0, 0./ + DATA POTB /66928.040D0,202887.40D0,305930.80D0,2091972.D0, + 1 2744107.936D0, 0./ + DATA POTC /90820.42D0,196674.D0,386241.0D0,520175.8D0, + 1 3162423.30D0,3952061.670D0, 0./ + DATA POTN / 117225.70D0,238750.20D0,382672.D0,624866.D0, + 1 789537.D0,4452723.30D0,5380089.80D0, 0./ + DATA POTO / 109837.02D0,283270.90D0,443085.0D0,624382.0D0, + 1 918657.D0,1114004.D0,5963073.00D0,7028394.70D0, 0./ + DATA POTF / 140524.50D0,282058.6D0,505774.0D0,703110.D0,921480.D0, + 1 1267606.0D0,1493632.D0,7693706.60D0,8897242.50D0, 0./ + DATA POTNe/173929.750D0,330388.60D0,511544.D0,783890.D0, + 1 1018250.D0,1273820.D0,1671750.D0,1928447.D0,9644840.7D0, + 2 10986877.20D0,0./ + DATA POTNa/ 41449.451D0,381390.2D0,577654.D0,797970.D0,1116300.D0, + 1 1389100.D0,1681700.D0, 2130850.D0, 2418500.D0, + 2 11817106.70D0,13297680.0D0,0./ + DATA POTMg/61671.050D0,121267.61D0,646402.D0,881285.D0,1139900.D0, + 1 1506300.D0, 1814900.D0, 2144820.D0, 2645400.D0, + 2 2964000.D0,14209914.7D0, 15829950.D0, 0./ + DATA POTAl/48278.48D0,151862.50D0,229445.70D0,967804.D0, + 1 1240684.D0,1536400.D0, 1949900.D0, 2295800.D0, + 2 2663300.D0, 3215300.D0,3565010.D0, 16824539.3D0, + 3 18584143.0D0, 0./ + DATA POTSi/65747.76D0,131838.14D0,270139.30D0,364093.10D0, + 1 1345070.D0,1655590.D0, 1986700.D0, 2449200.D0, + 2 2831800.D0, 3237400.D0,3840600.D0, 4221630.D0, + 3 19661038.9D0, 21560631.0D0, 0./ + DATA POTP / 84580.83D0,159451.70D0,243600.70D0,414922.8D0, + 1 524462.9D0,1777890.D0, 2125800.D0, 2497100.D0, + 2 3002900.D0, 3423000.D0,3867000.D0, 4521700.D0, + 3 4934020.D0, 22719901.6D0,24759942.D0,0./ + DATA POTS / 83559.1D0,188232.7D0,281100.D0,380870.D0,585514.D0, + 1 710195.D0, 2266050.D0, 2651900.D0, 3063600.D0, 3611300.D0, + 2 4069500.D0, 4552200.D0, 5258400.D0, 5702290.D0,26001545.1D0, + 3 28182526.D0, 0./ + DATA POTCl/ 104591.00D0,192070.0D0,321000.D0,429400.D0,545800.D0, + 1 781900.D0, 921096.D0, 2809280.D0, 3233080.D0, 3683000.D0, + 2 4274000.D0, 4771400.D0, 5293400.D0, 6051000.D0, 6526620.D0, + 3 29506532.5D0, 31828983.D0, 0./ + DATA POTAr/ 127109.842D0,222848.3D0,328550.D0,480600.D0,603700.D0, + 1 736300.D0, 1003400.D0, 1157056.D0, 3408500.D0, 3869500.D0, + 2 4359000.D0, 4992000.D0, 5528700.D0, 6090500.D0, 6899800.D0, + 3 7407190.D0, 33235410.D0, 35699895.D0, 0./ + DATA POTK / 35009.814D0,255072.8D0,369427.D0,491330.D0,666700.D0, + 1 802000.D0, 948200.D0, 1249100.D0, 1418063.D0, 4062400.D0, + 2 4562000.D0, 5090000.D0, 5764000.D0, 6342000.D0, 6943800.D0, + 3 7805000.D0, 8344140.D0, 37189176.0D0,39795784.D0, 0./ + DATA POTCa/ 49305.924D0,95751.870D0,410642.3D0,542595.D0, + 1 680200.D0,877400.D0, 1026000.D0, 1187600.D0, 1520600.D0, + 2 1704050.D0,4771600.D0, 5309000.D0, 5877000.D0, 6591000.D0, + 3 7210000.D0,7853000.D0, 8766000.D0, 9337690.D0,41367028.D0, + 4 44117409.D0,0./ + DATA POTSc/52922.00D0,103237.1D0,199677.37D0,592732.D0,741600.D0, + 1 892700.D0, 1113000.D0, 1275000.D0, 1452000.D0, 1816200.D0, + 2 2014760.D0, 5543900.D0, 6111000.D0, 6720000.D0, 7473000.D0, + 3 8135000.D0, 8820000.D0, 9784000.D0,10388070.D0,45771185.D0, + 4 48665510.D0, 0./ + DATA POTTi/ 55072.50D0,109494.D0,221735.6D0,348973.3D0,800900.D0, + 1 964100.D0, 1134700.D0, 1375000.D0, 1549000.D0,1741500.D0, + 2 2137900.D0, 2351110.D0, 6353000.D0, 6969000.D0,7618000.D0, + 3 8408000.D0, 9116000.D0, 9842000.D0,10859000.D0,11495470.D0, + 4 50401766.D0, 53440740.D0, 0./ + DATA POTV / 54411.67D0,117900.D0, 236410.D0, 376730.D0,526532.0D0, + 1 1033400.D0, 1215700.D0, 1399800.D0, 1661000.D0, 1859000.D0, + 2 2055000.D0, 2488200.D0, 2712230.D0, 7227000.D0, 7882000.D0, + 3 8573000.D0, 9398000.D0, 10153000.D0,10922000.D0,11991000.D0, + 4 12660130.D0, 55259549.D0, 58443920.D0, 0./ + DATA POTCr/ 54575.6D0,132971.02D0,249700.D0, 396500.D0,560200.D0, + 1 731020.D0,1292800.D0, 1490200.D0, 1690100.D0, 1972000.D0, + 2 2184000.D0,2393000.D0, 2860500.D0, 3098480.D0, 8159000.D0, + 3 8850000.D0,9582000.D0,10443000.D0,11247000.D0,12059000.D0, + 4 13180000.D0,13882280.D0, 60345293.D0,63675850.D0, 0./ + DATA POTMn/ 59959.4D0,126145.00D0,271550.D0,413000.D0, 584000.D0, + 1 771100.D0, 961440.D0, 1577000.D0, 1789600.D0, 2005400.D0, + 2 2308000.D0, 2536000.D0, 2771000.D0, 3250000.D0, 3509900.D0, + 3 9144000.D0, 9873000.D0, 10649000.D0,11541000.D0,12398000.D0, + 4 13253000.D0,14427000.D0, 15162200.D0,65659877.D0,69137430.D0, + 5 0./ + DATA POTFe/ 63737.704D0,130655.40D0,247220.D0,442900.D0,604900.D0, + 1 798370.D0, 1008000.D0, 1218380.D0, 1884000.D0, 2114000.D0, + 2 2346000.D0, 2668000.D0, 2912000.D0, 3163000.D0, 3680000.D0, + 3 3946570.D0,10184000.D0,10951000.D0,11770000.D0,12708000.D0, + 4 13607000.D0,14505000.D0,15731000.D0,16500160.D0,71204137.D0, + 5 74829550.D0, 0./ + DATA POTCo/ 63564.6D0,137795.D0, 270200.D0, 413500.D0, 641200.D0, + 1 822700.D0, 1040000.D0, 1273000.D0, 1501300.D0, 2221000.D0, + 2 2462600.D0, 2711000.D0, 3053000.D0, 3307000.D0, 3558000.D0, + 3 4129200.D0, 4408530.D0,11269000.D0,12135000.D0,12950000.D0, + 4 13900000.D0,14873000.D0,15815000.D0,17094000.D0,17896440.D0, + 5 76979030.D0,80753210.D0, 0./ + DATA POTNi/ 61619.77D0,146541.56D0,283800.D0,443000.D0,613500.D0, + 1 871000.D0,1065000.D0,1307000.D0,1558000.D0,1812000.D0, + 2 2577000.D0,2836100.D0,3102000.D0,3463000.D0,3732000.D0, + 3 3995000.D0,4606000.D0,4895950.D0,12429000.D0,13274000.D0, + 4 14180000.D0, 15170000.D0, 16196000.D0,1718300.D0,18515000.D0, + 5 19351330.D0, 82985464.D0, 86909350.D0, 0./ + DATA POTCu/ 62317.460D0,163669.20D0,297140.D0,462800.D0,644000.D0, + 1 831000.D0,1121000.D0,1339000.D0,1597000.D0,1873000.D0, + 2 2140000.D0,2960000.D0,3234000.D0,3517000.D0,3897000.D0, + 3 4184000.D0,4458000.D0,5101000.D0,5408820.D0,13635000.D0, + 4 14518000.D0,15470000.D0,16480000.D0,17578000.D0,18610000.D0, + 5 19995000.D0,20865190.D0,89224526.D0,93299090.D0, 0./ + DATA POTZn/75769.328D0,144892.6D0,320390.0D0,480490.D0,666000.D0, + 1 871000.D0,1080000.D0,1403000.D0,1637000.D0,1920000.D0, + 2 2213000.D0,2507000.D0,3368000.D0,3657000.D0,3957000.D0, + 3 4355000.D0,4660000.D0,4946000.D0,5626000.D0,5947260.D0, + 4 14896000.D0,15820000.D0,16820000.D0,17860000.D0,19019000.D0, + 5 20095000.D0,21534000.D0,22438310.D0,95697194.D0,99923450.D0, + 6 0./ + DATA POTGa/ 48387.634D0,165465.8D0,247820.0D0,510070.D0,693700.D0/ + DATA POTGe/ 63713.24D0, 128521.30D0,274693.D0,368720.D0,729930.D0/ + DATA POTAs/ 78950.0D0, 149932.D0, 228650.D0, 404500.D0, 506200.D0/ + DATA POTSe/ 78658.35D0,170960.D0, 255650.D0, 346390.D0, 550900.D0/ + DATA POTBr/ 95284.80D0,174140.D0, 282000.D0, 385400.D0, 480670.D0/ + DATA POTKr/112914.433D0,196475.4D0,287700.D0, 410100.D0,521800.D0/ + DATA POTRb/ 33690.81D0,220105.00D0,316550.D0, 421000.D0,552000.D0/ + DATA POTSr/45932.204D0,88965.180D0,345879.0D0,453930.D0,570000.D0/ + DATA POTY / 50145.60D0, 98590.D0,165540.5D0, 488830.D0,604700.D0/ + DATA POTZr/ 53506.00D0,105900.D0, 186880.D0,277602.80D0,648050.D0/ + DATA POTNb/ 54513.80D0,115500.D0, 202000.D0, 303350.D0, 407897.D0/ + DATA POTMo/ 57204.30D0,130300.D0, 218800.D0, 325300.D0, 439450.D0/ + DATA POTTc/ 57421.68D0,123100.D0, 238300.D0, 331000.D0, 460000.D0/ + DATA POTRu/ 59366.40D0,135200.D0, 229600.D0, 363000.D0, 476000.D0/ + DATA POTRh/ 60160.10D0,145800.D0, 250500.D0, 339000.D0, 508000.D0/ + DATA POTPd/ 67241.30D0,156700.D0, 265600.D0, 371000.D0, 492000.D0/ + DATA POTAg/ 61106.45D0,173283.D0, 280900.D0, 395000.D0, 524000.D0/ + DATA POTCd/ 72540.07D0,136374.74D0,302200.D0,411000.D0, 548000.D0/ + DATA POTIn/46670.104D0,152200.10D0,226191.3D0,447200.D0,559000.D0/ + DATA POTSn/ 59232.69D0,118017.0D0,246020.0D0,328600.D0, 621300.D0/ + DATA POTSb/ 69431.34D0, 134100.D0,204248.D0, 353300.D0, 443600.D0/ + DATA POTTe/ 72667.80D0, 150000.D0,224500.D0, 301776.D0, 478000.D0/ + DATA POTI / 84295.10D0,154304.0D0,238500.D0, 325500.D0, 415500.D0/ + DATA POTXe/ 97833.787D0,169180.D0,250400.D0, 340400.D0, 437000.D0/ + DATA POTCs/ 31406.468D0,186777.40D0,267740.D0,347000.D0,452000.D0/ + DATA POTBa/ 42034.91D0,80686.30D0,289100.D0, 379000.D0, 468000.D0/ + DATA POTLa/ 44981.D0, 90212.50D0, 154675.D0,402900.D0, 497000.D0/ + DATA POTCe/ 44672.D0, 87500.D0, 162903.D0, 297670.D0, 528700.D0/ + DATA POTPr/ 44140.D0, 85100.D0, 174407.D0, 314400.D0, 464000.D0/ + DATA POTNd/ 44562.D0, 86500.D0, 178600.D0, 326000.D0, 483900.D0/ + DATA POTPm/ 45020.D0, 87900.D0, 180000.D0, 331000.D0, 498000.D0/ + DATA POTSm/ 45519.6D0, 89300.D0, 189000.D0, 334000.D0, 505000.D0/ + DATA POTEu/ 45734.740D0,90660.D0, 201000.D0, 344000.D0, 510000.D0/ + DATA POTGd/ 49601.45D0, 97500.D0, 166400.D0, 355000.D0, 522000.D0/ + DATA POTTb/ 47295.D0, 92900.D0, 176700.D0, 317500.D0, 536000.D0/ + DATA POTDy/ 47901.70D0, 94100.D0, 185000.D0, 334000.D0, 501000.D0/ + DATA POTHo/ 48567.D0, 95200.D0, 184200.D0, 343000.D0, 516000.D0/ + DATA POTEr/ 49262.D0, 96200.D0, 183400.D0, 344000.D0, 525000.D0/ + DATA POTTm/ 49879.80D0, 97200.D0, 191000.D0, 344000.D0, 528000.D0/ + DATA POTYb/ 50443.20D0,98231.75D0,202070.D0, 351300.D0, 529000.D0/ + DATA POTLu/ 43762.60D0,112000.D0, 169010.D0, 364960.D0, 539000.D0/ + DATA POTHf/ 55047.90D0,120000.D0, 188000.D0, 269150.D0, 551500.D0/ + DATA POTTa/ 60891.40D0,131000.D0, 186000.D0, 282000.D0, 389340.D0/ + DATA POTW / 63427.70D0,132000.D0, 210000.D0, 308000.D0, 416000.D0/ + DATA POTRe/ 63181.60D0,134000.D0, 218000.D0, 315000.D0, 419000.D0/ + DATA POTOs/ 68058.9D0, 137000.D0, 202000.D0, 331000.D0, 444000.D0/ + DATA POTIr/ 72323.9D0, 137100.D0, 226000.D0, 323000.D0, 460000.D0/ + DATA POTPt/ 72257.80D0,149700.D0, 234000.D0, 347000.D0, 452000.D0/ + DATA POTAu/ 74409.11D0,162950.D0, 242000.D0, 363000.D0, 484000.D0/ + DATA POTHg/ 84184.150D0,151284.40D0,277900.D0,391600.D0,493600.D0/ + DATA POTTl/ 49266.660D0,164765.D0, 240773.D0, 412500.D0,505000.D0/ + DATA POTPb/59819.558D0,121245.28D0,257592.D0,341435.1D0,555000.D0/ + DATA POTBi/ 58761.650D0,134720.D0, 206180.D0, 365900.D0,442400.D0/ + DATA POTPo/ 67860.D0, 156000.D0, 220000.D0, 290000.D0, 460000.D0/ + DATA POTAt/ 75150.80D0,144210.D0, 214400.D0, 319800.D0, 406400.D0/ + DATA POTRn/ 86692.5D0, 173000.D0, 237000.D0, 298000.D0, 427000.D0/ + DATA POTFr/ 32848.872D0,181000.D0,270000.D0, 315000.D0, 403000.D0/ + DATA POTRa/ 42573.36D0,81842.31D0,250000.D0, 331000.D0, 427000.D0/ + DATA POTAc/ 43394.45D0, 94800.D0, 140590.D0, 361000.D0, 444000.D0/ + DATA POTTh/ 50867.0D0, 96000.D0, 147800.D0, 231060.D0, 468000.D0/ + DATA POTPa/ 47500.D0, 96000.D0, 150000.D0, 249000.D0, 357000.D0/ + DATA POTU / 49958.40D0, 94000.D0, 159700.D0, 296000.D0, 371000.D0/ + DATA POTNp/ 50535.0D0, 93000.D0, 159000.D0, 273000.D0, 387000.D0/ + DATA POTPu/ 48601.0D0, 93000.D0, 170000.D0, 282000.D0, 395000.D0/ + DATA POTAm/ 48182.0D0, 94000.D0, 175000.D0, 297000.D0, 403000.D0/ + DATA POTCm/ 48324.0D0, 100000.D0, 162000.D0, 304000.D0, 411000.D0/ + DATA POTBk/ 49989.0D0, 96000.D0, 174000.D0, 290000.D0, 452000.D0/ + DATA POTCf/ 50665.0D0, 97000.D0, 181000.D0, 304000.D0, 419000.D0/ + DATA POTEs/ 51358.0D0, 98000.D0, 183000.D0, 313000.D0, 436000.D0/ + RETURN + END + FUNCTION PFGROUND(NELION,T) +C 14jun2004 additional levels added that are above the ground term but +c populated at low temperatures +C La up still missing +C FOR H-K, CU-BA + PARAMETER (HCK=6.6256D-27*2.99792458D10/1.38054D-16) + IMPLICIT REAL*8 (A-H,O-Z) + IF(NELION.LE.114)THEN + GO TO (1,2,2,2,2,2,7,8,9,9,9,9,13,14,15,16,16,16,19,20,21,22, + 1 23,23,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42, + 2 43,44,45,46,47,48,49,50,51,52,53,54,55,56,57,58,59,60,61,62, + 3 63,64,65,66,67,68,69,70,71,72,73,74,75,76,77,78,79,80,81,82, + 4 83,84,85,86,87,88,89,90,91,92,93,94,95,96,97,98,99,100,101,102, + 5 103,104,105,106,107,108,109,110,111,112,113,114),NELION +C 1.00 + 1 PFGROUND=2. + RETURN +C 1.01 + 2 PFGROUND=1. + RETURN +C 2.00 + 7 PFGROUND=1. + RETURN +C 2.01 + 8 PFGROUND=2. + RETURN +C 2.02 + 9 PFGROUND=1. + RETURN +C 3.00 + 13 PFGROUND=2. + RETURN +C 3.01 + 14 PFGROUND=1. + RETURN +C 3.02 + 15 PFGROUND=2. + RETURN +C 3.03 + 16 PFGROUND=1. + RETURN +C 4.00 + 19 PFGROUND=1. + RETURN +C 4.01 + 20 PFGROUND=2. + RETURN +C 4.02 + 21 PFGROUND=1. + RETURN +C 4.03 + 22 PFGROUND=2. + RETURN +C 4.04 + 23 PFGROUND=1. +C missing RETURN found by Bischof 31jul2004 + RETURN +C 5.00 + 25 PFGROUND=2.+4.*EXP(-HCK/T*15.254D0) + RETURN +C 5.01 + 26 PFGROUND=1.+1.*EXP(-HCK/T*37336.7D0)+3.*EXP(-HCK/T*37342.4D0)+ + 15.*EXP(-HCK/T* 37358.3D0)+3.*EXP(-HCK/T*73396.60D0) + RETURN +C 5.02 + 27 PFGROUND=2.+2.*EXP(-HCK/T*48358.40D0)+4.*EXP(-HCK/T*48392.50D0) + RETURN +C 5.03 + 28 PFGROUND=1. + RETURN +C 5.04 + 29 PFGROUND=2. + RETURN +C 5.05 + 30 PFGROUND=1. + RETURN +C 6.00 + 31 PFGROUND=1.+3.*EXP(-HCK/T*16.40D0)+5.*EXP(-HCK/T*43.40D0)+ + 1 5.*EXP(-HCK/T*10192.63D0) + RETURN +C 6.01 + 32 PFGROUND=2.+4.*EXP(-HCK/T*63.42D0) + RETURN +C 6.02 + 33 PFGROUND=1. + RETURN +C 6.03 + 34 PFGROUND=2.+2.*EXP(-HCK/T*64484.0D0)+4.*EXP(-HCK/T*64591.7D0) + RETURN +C 6.04 + 35 PFGROUND=1. + RETURN +C 6.05 + 36 PFGROUND=2. + RETURN +C 7.00 + 37 PFGROUND=4. + RETURN +C 7.01 + 38 PFGROUND=1.+3.*EXP(-HCK/T*48.7D0)+5.*EXP(-HCK/T*130.8D0)+ + 1 5.*EXP(-HCK/T*15316.2D0) + RETURN +C 7.02 + 39 PFGROUND=2.+4.*EXP(-HCK/T*174.4D0) + RETURN +C 7.03 + 40 PFGROUND=1. + RETURN +C 7.04 + 41 PFGROUND=2.+2.*EXP(-HCK/T*80463.2D0)+4.*EXP(-HCK/T*80721.9D0) + RETURN +C 7.05 + 42 PFGROUND=1. + RETURN +C 8.00 + 43 PFGROUND=5.+3.*EXP(-HCK/T*158.265D0)+EXP(-HCK/T*226.977D0) + RETURN +C 8.01 + 44 PFGROUND=4.+6.*EXP(-HCK/T*26810.55D0)+4.*EXP(-HCK/T*26830.57D0) + RETURN +C 8.02 + 45 PFGROUND=1.+3.*EXP(-HCK/T*113.178D0)+5.*EXP(-HCK/T*306.174D0)+ + 1 5.*EXP(-HCK/T*20273.27D0)+1.*EXP(-HCK/T*43185.74D0)+ + 2 5.*EXP(-HCK/T*60324.79D0) + RETURN +C 8.03 + 46 PFGROUND=2.+4.*EXP(-HCK/T*385.9D0)+2.*EXP(-HCK/T*71439.8D0)+ + 1 4.*EXP(-HCK/T*71570.1D0)+6.*EXP(-HCK/T*71755.5D0) + RETURN +C 8.04 + 47 PFGROUND=1.+1.*EXP(-HCK/T*81942.5D0)+3.*EXP(-HCK/T*82078.6D0)+ + 1 5.*EXP(-HCK/T*82385.3D0) + RETURN +C 8.05 + 48 PFGROUND=2.+2.*EXP(-HCK/T*96375.0D0)+4.*EXP(-HCK/T*96907.5D0) + RETURN +C 9.00 + 49 PFGROUND=4.+2.*EXP(-HCK/T*404.1D0) + RETURN +C 9.01 + 50 PFGROUND=5.+3.*EXP(-HCK/T*341.0D0)+EXP(-HCK/T*489.9D0)+ + 1 5.*EXP(-HCK/T*20873.4D0)+1.*EXP(-HCK/T*44918.1D0) + RETURN +C 9.02 + 51 PFGROUND=4.+6.*EXP(-HCK/T*34087.4D0)+4.*EXP(-HCK/T*34123.2D0)+ + 1 4.*EXP(-HCK/T*51561.4D0)+2.*EXP(-HCK/T*51560.6D0) + RETURN +C 9.03 + 52 PFGROUND=1.+3.*EXP(-HCK/T*225.2D0)+5.*EXP(-HCK/T*612.2D0)+ + 1 5.*EXP(-HCK/T*25238.2D0)+1.*EXP(-HCK/T*53541.2D0)+ + 2 5.*EXP(-HCK/T*74194.7D0) + RETURN +C 9.04 + 53 PFGROUND=2.+4.*EXP(-HCK/T*744.5D0)+ + 1 2.*EXP(-HCK/T*85790.2D0)+4.*EXP(-HCK/T*86043.5D0)+ + 2 6.*EXP(-HCK/T*86407.0D0) + RETURN +C 9.05 + 54 PFGROUND=1.+1.*EXP(-HCK/T*96590.D0)+3.*EXP(-HCK/T*96850.D0)+ + 1 5.*EXP(-HCK/T*97427.D0) +C missing EXP found by Bischof 31jul2004 +c 1 5.*(-HCK/T*97427.D0) + RETURN +C 10.00 + 55 PFGROUND=1. + RETURN +C 10.01 + 56 PFGROUND=4.+2.*EXP(-HCK/T*780.45D0) + RETURN +C 10.02 + 57 PFGROUND=5.+3.*EXP(-HCK/T*642.9D0)+EXP(-HCK/T*920.4D0)+ + 1 4.*EXP(-HCK/T*96907.5D0)+5.*EXP(-HCK/T*25840.8D0)+ + 2 1.*EXP(-HCK/T*55750.6D0) + RETURN +C 10.03 + 58 PFGROUND=4.+6.*EXP(-HCK/T*41234.6D0)+4.*EXP(-HCK/T*41279.5D0)+ + 1 2.*EXP(-HCK/T*62434.6D0)+4.*EXP(-HCK/T*62441.3D0) + RETURN +C 10.04 + 59 PFGROUND=1.+3.*EXP(-HCK/T*414.D0)+5.*EXP(-HCK/T*1112.D0)+ + 1 5.*EXP(-HCK/T*30291.5D0)+1.*EXP(-HCK/T*63913.6D0)+ + 2 5.*EXP(-HCK/T*88360.D0) + RETURN +C 10.05 + 60 PFGROUND=2.+4.*EXP(-HCK/T*1310.D0)+2.*EXP(-HCK/T*100261.D0)+ + 1 4.*EXP(-HCK/T*100704.D0)+6.*EXP(-HCK/T*101347.D0) + RETURN +C 11.00 + 61 PFGROUND=2. + RETURN +C 11.01 + 62 PFGROUND=1. + RETURN +C 11.02 + 63 PFGROUND=4.+2.*EXP(-HCK/T*780.45D0) + RETURN +C 11.03 + 64 PFGROUND=5.+3.*EXP(-HCK/T*642.9D0)+EXP(-HCK/T*920.4D0)+ + 1 5.*EXP(-HCK/T*30839.8D0)+1.*EXP(-HCK/T*66496.D0) + RETURN +C 11.04 + 65 PFGROUND=4.+6.*EXP(-HCK/T*48330.D0)+4.*EXP(-HCK/T*48366.D0)+ + 1 2.*EXP(-HCK/T*73218.D0)+4.*EXP(-HCK/T*73255.D0) + RETURN +C 11.05 + 66 PFGROUND=1.+3.*EXP(-HCK/T*414.D0)+5.*EXP(-HCK/T*1112.D0)+ + 1 5.*EXP(-HCK/T*35498.D0)+1.*EXP(-HCK/T*74414.D0) + RETURN +C 12.00 + 67 PFGROUND=1. + RETURN +C 12.01 + 68 PFGROUND=2. + RETURN +C 12.02 + 69 PFGROUND=1. + RETURN +C 12.03 + 70 PFGROUND=4.+2.*EXP(-HCK/T*2238.D0) + RETURN +C 12.04 + 71 PFGROUND=5.+3.*EXP(-HCK/T*1782.1D0)+EXP(-HCK/T*2521.8D0)+ + 1 5.*EXP(-HCK/T*35926.D0)+1.*EXP(-HCK/T*77279.D0) + RETURN +C 12.05 + 72 PFGROUND=4.+6.*EXP(-HCK/T*55356.D0)+4.*EXP(-HCK/T*55372.8D0)+ + 1 2.*EXP(-HCK/T*83920.0D0)+4.*EXP(-HCK/T*84028.4D0) + RETURN +C 13.00 + 73 PFGROUND=2.+4.*EXP(-HCK/T*112.061D0) + RETURN +C 13.01 + 74 PFGROUND=1. + RETURN +C 13.02 + 75 PFGROUND=2. + RETURN +C 13.03 + 76 PFGROUND=1. + RETURN +C 13.04 + 77 PFGROUND=4.+2.*EXP(-HCK/T*3442.D0) + RETURN +C 13.05 + 78 PFGROUND=5.+3.*EXP(-HCK/T*2732.D0)+EXP(-HCK/T*3829.D0)+ + 1 5.*EXP(-HCK/T*41167.D0)+1.*EXP(-HCK/T*88213.D0) + RETURN +C 14.00 + 79 PFGROUND=1.+3.*EXP(-HCK/T*77.115D0)+5.*EXP(-HCK/T*223.157D0)+ + 1 5.*EXP(-HCK/T*6298.850D0) + RETURN +C 14.01 + 80 PFGROUND=2.+4.*EXP(-HCK/T*287.32D0)+2.*EXP(-HCK/T*42824.35D0)+ + 1 4.*EXP(-HCK/T*42932.68D0)+6.*EXP(-HCK/T*43107.97D0) + RETURN +C 14.02 + 81 PFGROUND=1.+1.*EXP(-HCK/T*52724.69D0)+3.*EXP(-HCK/T*52853.28D0)+ + 1 5.*EXP(-HCK/T*53115.01D0)+3.*EXP(-HCK/T*82884.41D0) + RETURN +C 14.03 + 82 PFGROUND=2. + RETURN +C 14.04 + 83 PFGROUND=1. + RETURN +C 14.05 + 84 PFGROUND=4.+2.*EXP(-HCK/T*5090.D0) + RETURN +C 15.00 + 85 PFGROUND=4. + RETURN +C 15.01 + 86 PFGROUND=1.+3.*EXP(-HCK/T*164.90D0)+5.*EXP(-HCK/T*469.12D0)+ + 1 5.*EXP(-HCK/T*8882.31D0)+1.*EXP(-HCK/T*21575.63D0) + RETURN +C 15.02 + 87 PFGROUND=2.+4.*EXP(-HCK/T*559.14D0)+2.*EXP(-HCK/T*56021.67D0)+ + 1 4.*EXP(-HCK/T*57125.98D0)+6.*EXP(-HCK/T*57454.00D0)+ + 2 4.*EXP(-HCK/T*74916.85D0)+6.*EXP(-HCK/T*74945.86D0) + RETURN +C 15.03 + 88 PFGROUND=1.+1.*EXP(-HCK/T*67918.03D0)+3.*EXP(-HCK/T*68146.48D0)+ + 1 5.*EXP(-HCK/T*68615.17D0) + RETURN +C 15.04 + 89 PFGROUND=2.+2.*EXP(-HCK/T*88651.87D0)+4.*EXP(-HCK/T*89447.25D0) + RETURN +C 15.05 + 90 PFGROUND=1. + RETURN +C 16.00 + 91 PFGROUND=5.+3.*EXP(-HCK/T*396.055D0)+EXP(-HCK/T*573.640D0)+ + 1 5.*EXP(-HCK/T*9238.609D0) + RETURN +C 16.01 + 92 PFGROUND=4.+4.*EXP(-HCK/T*14852.94D0)+6.*EXP(-HCK/T*14884.73D0)+ + 1 2.*EXP(-HCK/T*24524.83D0)+4.*EXP(-HCK/T*24571.54D0) + RETURN +C 16.02 + 93 PFGROUND=1.+3.*EXP(-HCK/T*298.69D0)+5.*EXP(-HCK/T*833.08D0)+ + 1 5.*EXP(-HCK/T*11322.7D0)+1.*EXP(-HCK/T*27161.0D0) + RETURN +C 16.03 + 94 PFGROUND=2.+4.*EXP(-HCK/T*951.43D0)+2.*EXP(-HCK/T*71184.1D0)+ + 1 4.*EXP(-HCK/T*71528.7D0)+6.*EXP(-HCK/T*72074.4D0)+ + 2 4.*EXP(-HCK/T*94103.1D0)+6.*EXP(-HCK/T*94150.4D0) + RETURN +C 16.04 + 95 PFGROUND=1.+1.*EXP(-HCK/T*83024.0D0)+3.*EXP(-HCK/T*83393.5D0)+ + 1 5.*EXP(-HCK/T*84155.2D0) + RETURN +C 16.05 + 96 PFGROUND=2. + RETURN +C 17.00 + 97 PFGROUND=4.+2.*EXP(-HCK/T*882.36D0) + RETURN +C 17.01 + 98 PFGROUND=5.+3.*EXP(-HCK/T*696.1D0)+EXP(-HCK/T*996.4D0)+ + 1 5.*EXP(-HCK/T*11653.58D0)+1.*EXP(-HCK/T*27878.02D0) + RETURN +C 17.02 + 99 PFGROUND=4.+4.*EXP(-HCK/T*18053.D0)+6.*EXP(-HCK/T*18118.6D0)+ + 1 2.*EXP(-HCK/T*29812.D0)+4.*EXP(-HCK/T*29907.D0) + RETURN +C 17.03 + 100 PFGROUND=1.+3.*EXP(-HCK/T*491.D0)+5.*EXP(-HCK/T*1341.D0)+ + 1 5.*EXP(-HCK/T*13767.6D0)+1.*EXP(-HCK/T*32547.8D0)+ + 2 5.*EXP(-HCK/T*65000.D0) + RETURN +C 17.04 + 101 PFGROUND=2.+4.*EXP(-HCK/T*1490.8D0)+2.*EXP(-HCK/T*86000.D0)+ + 1 4.*EXP(-HCK/T*86538.D0)+6.*EXP(-HCK/T*87381.D0) + RETURN +C 17.05 + 102 PFGROUND=1.+1.*EXP(-HCK/T*97405.D0)+3.*EXP(-HCK/T*97958.D0)+ + 1 5.*EXP(-HCK/T*99123.D0) + RETURN +C 18.00 + 103 PFGROUND=1. + RETURN +C 18.01 + 104 PFGROUND=4.+2.*EXP(-HCK/T*1431.41D0) + RETURN +C 18.02 + 105 PFGROUND=5.+3.*EXP(-HCK/T*1112.1D0)+EXP(-HCK/T*1570.2D0)+ + 1 5.*EXP(-HCK/T*14010.004D0)+1.*EXP(-HCK/T*33265.724D0) + RETURN +C 18.03 + 106 PFGROUND=4.+4.*EXP(-HCK/T*21090.4D0)+6.*EXP(-HCK/T*21219.3D0)+ + 1 2.*EXP(-HCK/T*34855.5D0)+4.*EXP(-HCK/T*35032.6D0) + RETURN +C 18.04 + 107 PFGROUND=1.+3.*EXP(-HCK/T*765.D0)+5.*EXP(-HCK/T*2030.D0)+ + 1 5.*EXP(-HCK/T*16298.9D0)+1.*EXP(-HCK/T*37912.0D0)+ + 2 5.*EXP(-HCK/T*84100.0D0) + RETURN +C 18.05 + 108 PFGROUND=2.+4.*EXP(-HCK/T*2208.D0) + RETURN +C 19.00 + 109 PFGROUND=2. + RETURN +C 19.01 + 110 PFGROUND=1. + RETURN +C 19.02 + 111 PFGROUND=4.+2.*EXP(-HCK/T*2166.D0) + RETURN +C 19.03 + 112 PFGROUND=5.+3.*EXP(-HCK/T*1673.D0)+EXP(-HCK/T*2325.D0)+ + 1 5.*EXP(-HCK/T*16384.1D0)+EXP(-HCK/T*38546.3D0) + RETURN +C 19.04 + 113 PFGROUND=4.+4.*EXP(-HCK/T*24012.5D0)+6.*EXP(-HCK/T*24249.6D0)+ + 1 2.*EXP(-HCK/T*39758.1D0)+4.*EXP(-HCK/T*40080.2D0) + RETURN +C 19.05 + 114 PFGROUND=1.+3.*EXP(-HCK/T*1132.D0)+5.*EXP(-HCK/T*2924.D0)+ + 1 5.*EXP(-HCK/T*18977.8D0)+1.*EXP(-HCK/T*43358.8D0) + RETURN + ENDIF + IF(NELION.GT.114.AND.NELION.LT.169)THEN +C THESE ARE IRON GROUP ELEMENTS TO BE READ FROM PFIRON + PFGROUND=1. + RETURN + ENDIF + IF(NELION.GT.168.AND.NELION.LT.337)THEN + GO TO (169,170,171,666,666,666,175,176,177,666,666,666,181,182, + 1 183,666,666,666,187,188,189,666,666,666,193,194,195,666, + 2 666,666,199,200,201,666,666,666,205,206,207,666,666,666, + 3 211,212,213,666,666,666,217,218,219,666,666,666,223,224, + 4 225,666,666,666,229,230,231,666,666,666,235,236,237,666, + 5 666,666,241,242,243,666,666,666,247,248,249,666,666,666, + 6 253,254,255,666,666,666,259,260,261,666,666,666,265,266, + 7 267,666,666,666,271,272,273,666,666,666,277,278,279,666, + 8 666,666,283,284,285,666,666,666,289,290,291,666,666,666, + 9 295,296,297,666,666,666,301,302,303,666,666,666,307,308, + A 309,666,666,666,313,314,315,666,666,666,319,320,321,666, + 1 666,666,325,326,327,666,666,666,331,332,333,666,666,666) + 2 NELION-168 +C 29.00 + 169 PFGROUND=2. + RETURN +C 29.01 + 170 PFGROUND=1. + RETURN +C 29.02 + 171 PFGROUND=6.+4.*EXP(-HCK/T*2071.8D0) + RETURN +C 30.00 + 175 PFGROUND=1. + RETURN +C 30.01 + 176 PFGROUND=2. + RETURN +C 30.02 + 177 PFGROUND=1. + RETURN +C 31.00 + 181 PFGROUND=2.+4.*EXP(-HCK/T*826.19D0) + RETURN +C 31.01 + 182 PFGROUND=1. + RETURN +C 31.02 + 183 PFGROUND=2. + RETURN +C 32.00 + 187 PFGROUND=1.+3.*EXP(-HCK/T*557.134D0)+5.*EXP(-HCK/T*1409.961D0)+ + 1 5.*EXP(-HCK/T*7125.299D0) + RETURN +C 32.01 + 188 PFGROUND=2.+4.*EXP(-HCK/T*1767.356D0) + RETURN +C 32.02 + 189 PFGROUND=1. + RETURN +C 33.00 + 193 PFGROUND=4. + RETURN +C 33.01 + 194 PFGROUND=1.+3.*EXP(-HCK/T*1061.D0)+5.*EXP(-HCK/T*2538.D0) + RETURN +C 33.02 + 195 PFGROUND=2.+4.*EXP(-HCK/T*2940.D0) + RETURN +C 34.00 + 199 PFGROUND=5.+3.*EXP(-HCK/T*1989.49D0)+EXP(-HCK/T*2534.35D0)+ + 1 5.*EXP(-HCK/T*9576.149D0)+1.*EXP(-HCK/T*22446.202D0) + RETURN +C 34.01 + 200 PFGROUND=4.+4.*EXP(-HCK/T*13168.2D0)+6.*EXP(-HCK/T*13784.4D0)+ + 1 2.*EXP(-HCK/T*23038.3D0)+4.*EXP(-HCK/T*23894.8D0) + RETURN +C 34.02 + 201 PFGROUND=1.+3.*EXP(-HCK/T*1741.D0)+5.*EXP(-HCK/T*3937.D0)+ + 1 5.*EXP(-HCK/T*13032.D0)+1.*EXP(-HCK/T*28430.D0) + RETURN +C 35.00 + 205 PFGROUND=4.+2.*EXP(-HCK/T*3685.24D0) + RETURN +C 35.01 + 206 PFGROUND=5.+3.*EXP(-HCK/T*3136.4D0)+EXP(-HCK/T*3837.5D0)+ + 1 5.*EXP(-HCK/T*12089.1D0) + RETURN +C 35.02 + 207 PFGROUND=4.+4.*EXP(-HCK/T*15042.0D0)+6.*EXP(-HCK/T*16301.0D0)+ + 1 2.*EXP(-HCK/T*26915.0D0)+4.*EXP(-HCK/T*28579.0D0) + RETURN +C 36.00 + 211 PFGROUND=1. + RETURN +C 36.01 + 212 PFGROUND=4.+2.*EXP(-HCK/T*5371.D0) + RETURN +C 36.02 + 213 PFGROUND=5.+3.*EXP(-HCK/T*3136.4D0)+EXP(-HCK/T*3837.5D0)+ + 1 5.*EXP(-HCK/T*14644.3D0)+1.*EXP(-HCK/T*33079.6D0) + RETURN +C 37.00 + 217 PFGROUND=2. + RETURN +C 37.01 + 218 PFGROUND=1. + RETURN +C 37.02 + 219 PFGROUND=4.+2.*EXP(-HCK/T*7380.D0) + RETURN +C 38.00 + 223 PFGROUND=1. + RETURN +C 38.01 + 224 PFGROUND=2.+4.*EXP(-HCK/T*14555.50D0)+6.*EXP(-HCK/T*14836.24D0) + RETURN +C 38.02 + 225 PFGROUND=1. + RETURN +C 39.00 + 229 PFGROUND=4.+6.*EXP(-HCK/T*530.36D0) + RETURN +C 39.01 + 230 PFGROUND=1.+3.*EXP(-HCK/T*840.198D0)+5.*EXP(-HCK/T*1045.076D0)+ + 1 7.*EXP(-HCK/T*1449.752D0)+5.*EXP(-HCK/T*3296.280D0)+ + 2 5.*EXP(-HCK/T*8003.126D0)+7.*EXP(-HCK/T*8328.039D0)+ + 3 9.*EXP(-HCK/T*8743.322D0) + RETURN +C 39.02 + 231 PFGROUND=4.+6.*EXP(-HCK/T*724.15D0)+2.*EXP(-HCK/T*7467.10D0) + RETURN +C 40.00 + 235 PFGROUND=5.+7.*EXP(-HCK/T*570.41D0)+9.*EXP(-HCK/T*1240.84D0)+ + 1 1.*EXP(-HCK/T*4196.85D0)+3.*EXP(-HCK/T*4376.28D0)+ + 2 5.*EXP(-HCK/T*4186.11D0)+3.*EXP(-HCK/T*4870.53D0)+ + 3 5.*EXP(-HCK/T*5023.41D0)+7.*EXP(-HCK/T*5249.07D0)+ + 4 9.*EXP(-HCK/T*5540.54D0)+11.*EXP(-HCK/T*5888.93D0)+ + 5 5.*EXP(-HCK/T*5101.68D0)+9.*EXP(-HCK/T*8057.30D0) + RETURN +C 40.01 + 236 PFGROUND=4.+6.*EXP(-HCK/T*314.67D0)+8.*EXP(-HCK/T*763.44D0)+ + 1 10.*EXP(-HCK/T*1322.91D0)+4.*EXP(-HCK/T*2572.21D0)+ + 2 6.*EXP(-HCK/T*2895.00D0)+8.*EXP(-HCK/T*3299.58D0)+ + 3 10.*EXP(-HCK/T*3757.63D0)+4.*EXP(-HCK/T*4247.97D0)+ + 4 6.*EXP(-HCK/T*4505.30D0)+2.*EXP(-HCK/T*5723.78D0)+ + 5 4.*EXP(-HCK/T*6111.16D0)+6.*EXP(-HCK/T*5752.55D0)+ + 6 8.*EXP(-HCK/T*6467.10D0)+2.*EXP(-HCK/T*7512.61D0)+ + 7 4.*EXP(-HCK/T*7736.05D0)+6.*EXP(-HCK/T*8058.27D0)+ + 8 8.*EXP(-HCK/T*7837.49D0)+10.*EXP(-HCK/T*8152.57D0)+ + 9 2.*EXP(-HCK/T*9553.13D0)+4.*EXP(-HCK/T*9742.80D0)+ + A 6.*EXP(-HCK/T*9968.75D0) + RETURN +C 40.02 + 237 PFGROUND=5.+7.*EXP(-HCK/T*681.2D0)+9.*EXP(-HCK/T*1485.8D0)+ + 1 5.*EXP(-HCK/T*5742.8D0)+1.*EXP(-HCK/T*8062.7D0)+ + 2 3.*EXP(-HCK/T*8327.0D0)+5.*EXP(-HCK/T*8839.7D0)+ + 3 9.*EXP(-HCK/T*11049.9D0)+1.*EXP(-HCK/T*23974.9D0)+ + 4 3.*EXP(-HCK/T*18400.8D0)+5.*EXP(-HCK/T*18804.7D0)+ + 5 7.*EXP(-HCK/T*19535.3D0)+5.*EXP(-HCK/T*25066.9D0)+ + 6 1.*EXP(-HCK/T*36473.7D0) + RETURN +C 41.00 + 241 PFGROUND=2.+4.*EXP(-HCK/T*154.19D0)+6.*EXP(-HCK/T*391.99D0)+ + 1 8.*EXP(-HCK/T*695.25D0)+10.*EXP(-HCK/T*1050.26D0)+ + 2 4.*EXP(-HCK/T*1142.79D0)+6.*EXP(-HCK/T*1586.90D0)+ + 3 8.*EXP(-HCK/T*2154.11D0)+10.*EXP(-HCK/T*2805.36D0)+ + 4 2.*EXP(-HCK/T*4998.17D0)+4.*EXP(-HCK/T*5297.92D0)+ + 5 6.*EXP(-HCK/T*5965.45D0)+2.*EXP(-HCK/T*8410.90D0)+ + 6 4.*EXP(-HCK/T*8705.32D0)+6.*EXP(-HCK/T*9043.14D0)+ + 7 8.*EXP(-HCK/T*9497.52D0)+8.*EXP(-HCK/T*8827.00D0)+ + 8 10.*EXP(-HCK/T*9328.88D0)+4.*EXP(-HCK/T*9439.08D0)+ + 9 6.*EXP(-HCK/T*10237.51D0) + RETURN +C 41.01 + 242 PFGROUND=1.+3.*EXP(-HCK/T*158.99D0)+5.*EXP(-HCK/T*438.38D0)+ + 1 7.*EXP(-HCK/T*801.38D0)+9.*EXP(-HCK/T*1224.87D0)+ + 2 3.*EXP(-HCK/T*2356.76D0)+5.*EXP(-HCK/T*2629.07D0)+ + 3 7.*EXP(-HCK/T*3029.57D0)+9.*EXP(-HCK/T*3542.50D0)+ + 4 11.*EXP(-HCK/T*4146.00D0)+1.*EXP(-HCK/T*5562.26D0)+ + 5 3.*EXP(-HCK/T*6192.33D0)+5.*EXP(-HCK/T*7261.33D0)+ + 6 5.*EXP(-HCK/T*7505.78D0)+7.*EXP(-HCK/T*7900.65D0)+ + 7 9.*EXP(-HCK/T*8320.40D0)+9.*EXP(-HCK/T*9509.67D0)+ + 8 11.*EXP(-HCK/T*9812.56D0)+13.*EXP(-HCK/T*10186.41D0) + RETURN +C 41.02 + 243 PFGROUND=4.+6.*EXP(-HCK/T*515.8D0)+8.*EXP(-HCK/T*1176.6D0)+ + 1 10.*EXP(-HCK/T*1939.0D0)+ + 2 2.*EXP(-HCK/T*8664.3D0)+4.*EXP(-HCK/T*8607.5D0)+ + 3 6.*EXP(-HCK/T*9593.7D0)+8.*EXP(-HCK/T*9236.1D0)+ + 4 10.*EXP(-HCK/T*9804.5D0)+4.*EXP(-HCK/T*10912.2D0)+ + 5 6.*EXP(-HCK/T*13094.0D0)+10.*EXP(-HCK/T*12916.0D0)+ + 6 12.*EXP(-HCK/T*13263.8D0)+6.*EXP(-HCK/T*19975.0D0)+ + 7 8.*EXP(-HCK/T*19861.0D0)+4.*EXP(-HCK/T*25220.2D0)+ + 8 6.*EXP(-HCK/T*25735.2D0)+8.*EXP(-HCK/T*26463.7D0)+ + 9 10.*EXP(-HCK/T*27373.5D0) + RETURN +C 42.00 + 247 PFGROUND=7. + RETURN +C 42.01 + 248 PFGROUND=6. + RETURN +C 42.02 + 249 PFGROUND=1.+3.*EXP(-HCK/T*243.10D0)+5.*EXP(-HCK/T*669.60D0)+ + 1 7.*EXP(-HCK/T*1225.20D0)+9.*EXP(-HCK/T*1873.80D0) + RETURN +C 43.00 +C 7jun04 corrected by John Laird second term is low +C 253 PFGROUND=6. + 253 PFGROUND=6. +10.*EXP(-HCK/T*2572.89D0)+8.*EXP(-HCK/T*3250.91D0)+ + 1 6.*EXP(-HCK/T*3700.54D0)+4.*EXP(-HCK/T*4002.57D0)+ + 2 2.*EXP(-HCK/T*4178.75D0) + RETURN +C 43.01 +C 7jun04 corrected by John Laird second term is low +C 254 PFGROUND=7. + 254 PFGROUND=7. +9.*EXP(-HCK/T*3461.27D0)+7.*EXP(-HCK/T*4217.17D0)+ + 1 5.*EXP(-HCK/T*4669.22D0)+3.*EXP(-HCK/T*4961.14D0)+ + 2 1.*EXP(-HCK/T*5100.98D0) + RETURN +C 43.02 + 255 PFGROUND=6. + RETURN +C 44.00 + 259 PFGROUND=11.+9.*EXP(-HCK/T*1190.64D0)+7.*EXP(-HCK/T*2091.54D0)+ + 1 5.*EXP(-HCK/T*2713.24D0)+3.*EXP(-HCK/T*3105.49D0)+ + 2 9.*EXP(-HCK/T*6545.03D0)+7.*EXP(-HCK/T*8084.12D0)+ + 3 5.*EXP(-HCK/T*9183.66D0)+9.*EXP(-HCK/T*7483.07D0)+ + 4 7.*EXP(-HCK/T*8575.42D0)+5.*EXP(-HCK/T*9057.64D0)+ + 5 3.*EXP(-HCK/T*9072.98D0)+1.*EXP(-HCK/T*8492.37D0)+ + 6 7.*EXP(-HCK/T*8770.93D0)+5.*EXP(-HCK/T*8043.69D0)+ + 7 3.*EXP(-HCK/T*9620.29D0)+9.*EXP(-HCK/T*9120.63D0) + RETURN +C 44.01 +c 4jan03 corrected by John Lester + 260 PFGROUND=10.+8.*EXP(-HCK/T*1523.1D0)+6.*EXP(-HCK/T*2493.9D0)+ + 1 4.*EXP(-HCK/T*3104.2D0)+6.*EXP(-HCK/T*8256.7D0)+ + 2 4.*EXP(-HCK/T*8477.4D0)+2.*EXP(-HCK/T*9373.4D0)+ + 3 10.*EXP(-HCK/T*9151.6D0) +c 1 4.*EXP(HCK/T*3104.2D0) +c corrected by Katherina Bischof + RETURN +C 44.02 + 261 PFGROUND=9.+7.*EXP(-HCK/T*1158.8D0)+5.*EXP(-HCK/T*1826.3D0)+ + 1 3.*EXP(-HCK/T*2266.3D0)+EXP(-HCK/T*2476.0D0)+ + 2 7.*EXP(-HCK/T*27162.8D0)+5.*EXP(-HCK/T*41111.7D0) + RETURN +C 45.00 + 265 PFGROUND=10.+8.*EXP(-HCK/T*1529.97D0)+6.*EXP(-HCK/T*2598.03D0)+ + 1 4.*EXP(-HCK/T*3472.68D0)+6.*EXP(-HCK/T*3309.86D0)+ + 2 4.*EXP(-HCK/T*5657.97D0)+8.*EXP(-HCK/T*5690.97D0)+ + 3 6.*EXP(-HCK/T*7791.23D0)+6.*EXP(-HCK/T*9221.22D0) + RETURN +C 45.01 + 266 PFGROUND=9.+7.*EXP(-HCK/T*2401.3D0)+5.*EXP(-HCK/T*3580.7D0)+ + 1 5.*EXP(-HCK/T*8164.4D0)+1.*EXP(-HCK/T*10760.8D0)+ + 2 3.*EXP(-HCK/T*10515.0D0)+5.*EXP(-HCK/T*11643.7D0)+ + 3 9.*EXP(-HCK/T*14855.4D0)+11.*EXP(-HCK/T*16884.8D0)+ + 4 9.*EXP(-HCK/T*18540.4D0)+7.*EXP(-HCK/T*19792.4D0) + RETURN +C 45.02 + 267 PFGROUND=10.+8.*EXP(-HCK/T*2147.8D0)+6.*EXP(-HCK/T*3485.7D0)+ + 1 4.*EXP(-HCK/T*4322.0D0)+6.*EXP(-HCK/T*11062.3D0)+ + 2 4.*EXP(-HCK/T*10997.1D0)+2.*EXP(-HCK/T*12469.8D0)+ + 3 10.*EXP(-HCK/T*14044.0D0)+8.*EXP(-HCK/T*15256.8D0)+ + 4 4.*EXP(-HCK/T*16870.7D0)+2.*EXP(-HCK/T*18303.7D0)+ + 5 12.*EXP(-HCK/T*19490.2D0)+6.*EXP(-HCK/T*19528.5D0) + RETURN +C 46.00 + 271 PFGROUND=1.+7.*EXP(-HCK/T*6564.11D0)+5.*EXP(-HCK/T*7754.99D0) + RETURN +C 46.01 + 272 PFGROUND=6.+4.*EXP(-HCK/T*3539.2D0) + RETURN +C 46.02 + 273 PFGROUND=9.+7.*EXP(-HCK/T*3229.3D0)+5.*EXP(-HCK/T*4687.5D0)+ + 1 5.*EXP(-HCK/T*10229.3D0)+3.*EXP(-HCK/T*13468.9D0)+ + 2 1.*EXP(-HCK/T*13697.5D0)+5.*EXP(-HCK/T*14634.4D0)+ + 3 9.*EXP(-HCK/T*17879.3D0) + RETURN +C 47.00 + 277 PFGROUND=2. + RETURN +C 47.01 + 278 PFGROUND=1. + RETURN +C 47.02 + 279 PFGROUND=6.+4.*EXP(-HCK/T*4607.D0) + RETURN +C 48.00 + 283 PFGROUND=1. + RETURN +C 48.01 + 284 PFGROUND=2. + RETURN +C 48.02 + 285 PFGROUND=1. + RETURN +C 49.00 + 289 PFGROUND=2.+4.*EXP(-HCK/T*2212.598D0) + RETURN +C 49.01 + 290 PFGROUND=1. + RETURN +C 49.02 + 291 PFGROUND=2. + RETURN +C 50.00 + 295 PFGROUND=1.+3.*EXP(-HCK/T*1691.8D0)+5.*EXP(-HCK/T*3427.7D0)+ + 1 5.*EXP(-HCK/T*6513.0D0) + RETURN +C 50.01 + 296 PFGROUND=2.+4.*EXP(-HCK/T*4251.4D0) + RETURN +C 50.02 + 297 PFGROUND=1. + RETURN +C 51.00 + 301 PFGROUND=4.+4.*EXP(-HCK/T*8512.1D0)+6.*EXP(-HCK/T*9854.1D0) + RETURN +C 51.01 + 302 PFGROUND=1.+3.*EXP(-HCK/T*3055.0D0)+5.*EXP(-HCK/T*5659.0D0) + RETURN +C 51.02 + 303 PFGROUND=2.+4.*EXP(-HCK/T*6576.D0) + RETURN +C 52.00 + 307 PFGROUND=5.+3.*EXP(-HCK/T*4750.712D0)+EXP(-HCK/T*4706.5D0) + RETURN +C 52.01 + 308 PFGROUND=4.+4.*EXP(-HCK/T*10222.385D0)+6.*EXP(-HCK/T*12421.854D0)+ + 1 2.*EXP(-HCK/T*20546.591D0)+4.*EXP(-HCK/T*24032.2D0) + RETURN +C 52.02 + 309 PFGROUND=1.+3.*EXP(-HCK/T*4756.5D0)+5.*EXP(-HCK/T*8166.9D0)+ + 1 5.*EXP(-HCK/T*17358.D0) + RETURN +C 53.00 + 313 PFGROUND=4.+2.*EXP(-HCK/T*7063.15D0) + RETURN +C 53.01 + 314 PFGROUND=5.+3.*EXP(-HCK/T*7087.0D0)+EXP(-HCK/T*6447.9D0)+ + 1 5.*EXP(-HCK/T*13727.2D0)+1.*EXP(-HCK/T*29501.3D0) + RETURN +C 53.02 + 315 PFGROUND=4.+4.*EXP(-HCK/T*11711.2D0)+6.*EXP(-HCK/T*14901.9D0)+ + 1 2.*EXP(-HCK/T*24299.3D0)+4.*EXP(-HCK/T*29636.8D0) + RETURN +C 54.00 + 319 PFGROUND=1. + RETURN +C 54.01 + 320 PFGROUND=4.+2.*EXP(-HCK/T*10537.01D0) + RETURN +C 54.02 + 321 PFGROUND=5.+3.*EXP(-HCK/T*9794.36D0)+EXP(-HCK/T*8130.08D0)+ + 1 5.*EXP(-HCK/T*17098.73D0)+1.*EXP(-HCK/T*36102.94D0) + RETURN +C 55.00 + 325 PFGROUND=2. + RETURN +C 55.01 + 326 PFGROUND=1. + RETURN +C 55.02 + 327 PFGROUND=4.+2.*EXP(-HCK/T*13884.D0) + RETURN +C 56.00 + 331 PFGROUND=1. + RETURN +C 56.01 + 332 PFGROUND=2.+4.*EXP(-HCK/T*4873.852D0)+6.*EXP(-HCK/T*5674.807D0) + RETURN +C 56.02 + 333 PFGROUND=1. + RETURN + ENDIF +C IF(NELION.GT.336)THEN +C THESE CAN HAVE LOW EXCITED LEVELS + 666 PFGROUND=1. + RETURN + END diff --git a/synthe/broaden.for b/synthe/broaden.for new file mode 100644 index 0000000..25a51c3 --- /dev/null +++ b/synthe/broaden.for @@ -0,0 +1,224 @@ + PROGRAM BROADEN +c revised 4nov14 constatn given D exponents +c revised 21jul97 +C TAPE5=INPUT +C TAPE6=OUTPUT +C TAPE21=SPECTRUM INPUT +C TAPE22=SPECTRUM OUTPUT +C THE MINIMUM DIMENSION OF H IS (NWL+19999+19999)*NMU +C FOR FLUX SPECTRA NMU IS 1 +C DIMENSION H(4000000) + DIMENSION H(4100000) + DIMENSION RED(20000),BLUE(20000) + DIMENSION COMMENT(13),A(3),B(3) + REAL*8 LINDAT8(14) + REAL*4 LINDAT(28) + DIMENSION XMU(20),QMU(40),WLEDGE(377),TITLE(74) + REAL*8 TEFF,GLOG,TITLE,WBEGIN,RESOLU,XMU,WLEDGE,RATIO + REAL*8 QMU + DIMENSION APLOT(101) + DATA APLOT/101*1H / + LINOUT=300 + REWIND 21 + READ(21)TEFF,GLOG,TITLE,WBEGIN,RESOLU,NWL,IFSURF,NMU,XMU,NEDGE, + 1(WLEDGE(I),I=1,NEDGE) +C 1(WLEDGE + WRITE(6,1010)TEFF,GLOG,NWL,TITLE + 1010 FORMAT( 5H TEFF,F7.0,7H GRAV,F7.3,' NWL',I8/7H TITLE ,74A1) + WRITE(6,1007)NMU,(XMU(IMU),IMU=1,NMU) + 1007 FORMAT(I4,20F6.3) +C IFSURF=3 FOR ROTATED SPECTRUM + IF(IFSURF.EQ.3) NMU=1 + RATIO=1.+1./RESOLU + WEND=WBEGIN*RATIO**(NWL-1) + WCEN=(WBEGIN+WEND)*.5 + VSTEP=2.99792458D5/RESOLU + WRITE(6,1005)WBEGIN,WEND,RESOLU,VSTEP,NWL + 1005 FORMAT(2F14.5,F12.1,F12.5,I10) + NMU1=NMU+1 + NMU2=NMU+NMU +C +C SAMPLE CARDS RIGHT SHIFTED BY 1 +CGAUSSIAN 3.5 KM COMMENT FIELD +CGAUSSIAN 100000. RESOLUTIONCOMMENT FIELD +CGAUSSIAN 7. PM COMMENT FIELD +CSINX/X 3.5 KM COMMENT FIELD +CSINX/X 100000. RESOLUTIONCOMMENT FIELD +CSINX/X 7. PM COMMENT FIELD +CRECT 7. PM COMMENT FIELD +CRECT 3.5 KM COMMENT FIELD +CRECT 100000. RESOLUTIONCOMMENT FIELD +CMACRO 2.0 KM COMMENT FIELD +CPROFILE 5. POINTS COMMENT FIELD +CRED .3 .1 .1 .1 .05 +CBLUE .3 .1 .1 .1 .05 +C +C POINTS ARE TABULATED AT THE SPACING OF THE COMPUTED SPECTRUM +C THE CENTER IS THE FIRST POINT FOR EACH WING +C TAKING THE CENTER ONLY ONCE, THE PROFILE SUMS TO 1. +C + READ(5,1)A,X,B,COMMENT + 1 FORMAT(A4,A4,A2,F10.2,A4,A4,A2,12A4,A2) + WRITE(6,2)A,X,B,COMMENT + 2 FORMAT(1X,A4,A4,A2,F10.2,A4,A4,A2,12A4,A2) + IF(A(1).EQ.4HMACR)GO TO 10 + IF(A(1).EQ.4HGAUS)GO TO 20 + IF(A(1).EQ.4HSINX)GO TO 25 + IF(A(1).EQ.4HRECT)GO TO 30 + IF(A(1).EQ.4HPROF)GO TO 40 + WRITE(6,3) + 3 FORMAT(10H0BAD INPUT) + CALL EXIT +C +C MACROTURBULENT VELOCITY IN KM + 10 VMAC=X + DO 11 I=1,20000 + RED(I)=EXP(-(FLOAT(I-1)*VSTEP/VMAC)**2) + IF(RED(I).LT.1.D-5)GO TO 12 + 11 CONTINUE + 12 NPROF=I + RED(1)=RED(1)/2. + SUM=0. + DO 13 I=1,NPROF + 13 SUM=SUM+RED(I) + SUM=SUM*2. + DO 14 I=1,NPROF + RED(I)=RED(I)/SUM + 14 BLUE(I)=RED(I) + GO TO 50 +C +C GAUSSIAN INSTRUMENTAL PROFILE HALF WIDTH IN KM FWHM + 20 FWHM=0. + IF(B(1).EQ.4HPM )FWHM=X/WCEN/1000.*299792.458D0 + IF(B(1).EQ.4HKM )FWHM=X + IF(B(1).EQ.4HRESO)FWHM=299792.458D0/X + DO 21 I=1,20000 + RED(I)=EXP(-(FLOAT(I-1)*VSTEP/FWHM *.8325546D0*2.)**2) + IF(RED(I).LT.1.D-5)GO TO 22 + 21 CONTINUE + 22 NPROF=I + RED(1)=RED(1)/2. + SUM=0. + DO 23 I=1,NPROF + 23 SUM=SUM+RED(I) + SUM=SUM*2. + DO 24 I=1,NPROF + RED(I)=RED(I)/SUM + 24 BLUE(I)=RED(I) + GO TO 50 +C +C SINX/X INSTRUMENTAL PROFILE HALF WIDTH IN KM FWHM +C APODIZED BY EXP(-0.06*X**2) + 25 FWHM=0. + IF(B(1).EQ.4HPM )FWHM=X/WCEN/1000.*299792.458D0 + IF(B(1).EQ.4HKM )FWHM=X + IF(B(1).EQ.4HRESO)FWHM=299792.458D0/X + RED(1)=0.5 + DO 26 I=2,20000 + X=(FLOAT(I-1)*VSTEP/FWHM*2.*1.8954942D0) + RED(I)=SIN(X)/X*EXP(-0.06*X**2) + IF(ABS(RED(I))+ABS(RED(I-1)).LT.1.D-5)GO TO 27 + 26 CONTINUE + 27 NPROF=I + SUM=0. + DO 28 I=1,NPROF + 28 SUM=SUM+RED(I) + SUM=SUM*2. + DO 29 I=1,NPROF + RED(I)=RED(I)/SUM + 29 BLUE(I)=RED(I) + GO TO 50 +C +C RECTANGULAR INSTRUMENTAL PROFILE HALF WIDTH IN KM FWHM + 30 FWHM=0. + IF(B(1).EQ.4HPM )FWHM=X/WCEN/1000.*299792.458D0 + IF(B(1).EQ.4HKM )FWHM=X + IF(B(1).EQ.4HRESO)FWHM=299792.458D0/X + XRECT=FWHM/2./VSTEP + NRECT=XRECT+1.5 + NPROF=NRECT + DO 31 I=1,NPROF + 31 RED(I)=1. + RED(NPROF)=XRECT+1.5-FLOAT(NRECT) + RED(1)=RED(1)/2. + SUM=0. + DO 33 I=1,NPROF + 33 SUM=SUM+RED(I) + SUM=SUM*2. + DO 34 I=1,NPROF + RED(I)=RED(I)/SUM + 34 BLUE(I)=RED(I) + GO TO 50 +C +C INSTRUMENTAL PROFILE TABULATED AT SPECTRUM POINT SPACING. +C RED AND BLUE WINGS BOTH START AT CENTRAL POINT. +C THE PROFILE SHOULD SUM TO 1. + 40 NPROF=X + READ(5,41)(RED(I),I=1,NPROF) + READ(5,41)(BLUE(I),I=1,NPROF) + 41 FORMAT(10X,7F10.6) + RED(1)=RED(1)/2. + BLUE(1)=BLUE(1)/2. + 50 WRITE(6,51)(I,RED(I),BLUE(I),I=1,NPROF) + 51 FORMAT(I5,2F10.6) + WRITE(22)TEFF,GLOG,TITLE,WBEGIN,RESOLU,NWL,IFSURF,NMU,XMU,NEDGE, + 1(WLEDGE,I=1,NEDGE) +C 1WLEDGE + NH=(NWL+19999+19999)*NMU + DO 52 I=1,NH + 52 H(I)=0. + WRITE(6,1117) + 1117 FORMAT(1H1) + IF(NMU.EQ.1)GO TO 150 + DO 57 IWL=1,NWL + READ(21)(QMU(I),I=1,NMU) + DO 56 IMU=1,NMU + Q=QMU(IMU) + IWL1000=(IWL+20000)*NMU+IMU + DO 53 I=1,NPROF + 53 H(IWL1000-I*NMU)=H(IWL1000-I*NMU)+BLUE(I)*Q + IWL998=(IWL+19998)*NMU+IMU + DO 54 I=1,NPROF + 54 H(IWL998+I*NMU)=H(IWL998+I*NMU)+RED(I)*Q + 56 CONTINUE + 57 CONTINUE + GO TO 160 + 150 DO 157 IWL=1,NWL + READ(21)QMU(1) + Q=QMU(1) + IWL1001=IWL+20001 + DO 153 I=1,NPROF + 153 H(IWL1001-I)=H(IWL1001-I)+BLUE(I)*Q + IWL999=IWL+19999 + DO 154 I=1,NPROF + 154 H(IWL999+I)=H(IWL999+I)+RED(I)*Q + 157 CONTINUE + 160 REWIND 21 + READ(21) + DO 70 IWL=1,NWL + READ(21)(QMU(IMU),IMU=1,NMU2) + IWLNMU=(IWL+19999)*NMU + DO 58 IMU=1,NMU + 58 QMU(IMU)=H(IWLNMU+IMU) + WRITE(22)(QMU(I),I=1,NMU2) + IF(IWL.GT.LINOUT)GO TO 63 + WAVE=WBEGIN*RATIO**(IWL-1) + RESID=QMU(1)/QMU(NMU1) + IRESID=RESID*1000.+.5 + IPLOT=RESID*100.+1.5 + IPLOT=MAX0(1,MIN0(101,IPLOT)) + APLOT(IPLOT)=1HX + WRITE(6,2300)IWL,WAVE,IRESID,APLOT + 2300 FORMAT(1H ,I5,F11.4,I7,101A1) + APLOT(IPLOT)=(1H ) + 63 CONTINUE + 68 CONTINUE + 70 CONTINUE + READ(21)NLINES + WRITE(22)NLINES + DO 200 I=1,NLINES + READ(21)LINDAT8,LINDAT + WRITE(22)LINDAT8,LINDAT + 200 CONTINUE + CALL EXIT + END diff --git a/synthe/broadenx.for b/synthe/broadenx.for new file mode 100644 index 0000000..28e057c --- /dev/null +++ b/synthe/broadenx.for @@ -0,0 +1,343 @@ + PROGRAM BROADENX +c constants given D exponents +c revised 31jan01 changed read statement for wledge +c +C TAPE5=INPUT +C TAPE6=OUTPUT +C TAPE21=SPECTRUM INPUT +C TAPE22=SPECTRUM OUTPUT +C THE MINIMUM DIMENSION OF H IS (NWL+19999+19999)*NMU +C FOR FLUX SPECTRA NMU IS 1 +C DIMENSION H(4000000) + DIMENSION H(4100000) + DIMENSION RED(20000),BLUE(20000) + DIMENSION RED1(20000),BLUE1(20000),RED2(20000),BLUE2(20000) + EQUIVALENCE (RED(1),RED1(1)),(BLUE(1),BLUE1(1)) + CHARACTER*10 A,B + CHARACTER*50 COMMENT + REAL*8 LINDAT8(14) + REAL*4 LINDAT4(28) + DIMENSION XMU(20),QMU(40),WLEDGE(377),TITLE(74) + REAL*8 TEFF,GLOG,TITLE,WBEGIN,RESOLU,XMU,WLEDGE,RATIO + REAL*8 QMU + CHARACTER*1 APLOT(101) + DATA APLOT/101*' '/ + LINOUT=300 + REWIND 21 + READ(21)TEFF,GLOG,TITLE,WBEGIN,RESOLU,NWL,IFSURF,NMU,XMU,NEDGE, + 1(WLEDGE(iedge),iedge=1,nedge) + WRITE(6,1010)TEFF,GLOG,TITLE + 1010 FORMAT( 5H TEFF,F7.0,7H GRAV,F7.3/7H TITLE ,74A1) + WRITE(6,1007)NMU,(XMU(IMU),IMU=1,NMU) + 1007 FORMAT(I4,20F6.3) +C IFSURF=3 FOR ROTATED SPECTRUM + IF(IFSURF.EQ.3) NMU=1 + RATIO=1.+1./RESOLU + WEND=WBEGIN*RATIO**(NWL-1) + WCEN=(WBEGIN+WEND)*.5 + VSTEP=2.99792458D5/RESOLU + WRITE(6,1005)WBEGIN,WEND,RESOLU,VSTEP,NWL + 1005 FORMAT(2F14.5,F12.1,F12.5,I10) + NMU1=NMU+1 + NMU2=NMU+NMU +C +C SAMPLE CARDS RIGHT SHIFTED BY 1 +C THESE ARE EVALUATED AT WLCEN AND HAVE CONSTANT +C RESOLUTION OR RESOLVING POWER +CGAUSSIAN 3.5 KM COMMENT FIELD +CGAUSSIAN 100000. RESOLUTION COMMENT FIELD +CGAUSSIAN 7. PM COMMENT FIELD +CGAUSSIAN .01 CM-1 COMMENT FIELD +CSINX/X 3.5 KM COMMENT FIELD +CSINX/X 100000. RESOLUTION COMMENT FIELD +CSINX/X 7. PM COMMENT FIELD +CSINX/X .01 CM-1 COMMENT FIELD +CRECT 7. PM COMMENT FIELD +CRECT 3.5 KM COMMENT FIELD +CRECT 100000. RESOLUTION COMMENT FIELD +CREDT .01 CM-1 COMMENT FIELD +CMACRO 2.0 KM COMMENT FIELD +CPROFILE 5. POINTS COMMENT FIELD +CRED .3 .1 .1 .1 .05 +CBLUE .3 .1 .1 .1 .05 +C POINTS ARE TABULATED AT THE SPACING OF THE COMPUTED SPECTRUM +C THE CENTER IS THE FIRST POINT FOR EACH WING +C TAKING THE CENTER ONLY ONCE, THE PROFILE SUMS TO 1. +C +C IN THESE PROFILES THE RESOLUTION OR RESOLVING POWER VARIES +C THEY ARE LINEARLY INTERPOLATED FROM WLBEG TO WLEND +C AT WLBEG AT WLEND +CGAUSSIAN 3.5 KM 3. COMMENT FIELD +CGAUSSIAN 100000. RESOLUTION 120000. COMMENT FIELD +CGAUSSIAN 7. PM 7. COMMENT FIELD +CGAUSSIAN .01 CM-1 .01 COMMENT FIELD +CSINX/X 3.5 KM 3. COMMENT FIELD +CSINX/X 100000. RESOLUTION 120000. COMMENT FIELD +CSINX/X 7. PM 7. COMMENT FIELD +CSINX/X .01 CM-1 .01 COMMENT FIELD +CRECT 7. PM 7. COMMENT FIELD +CRECT 3.5 KM 3. COMMENT FIELD +CRECT 100000. RESOLUTION 120000. COMMENT FIELD +CRECT .01 CM-1 .01 COMMENT FIELD +CPROFILE 5. POINTS 5. COMMENT FIELD +CRED .3 .1 .1 .1 .05 +CBLUE .3 .1 .1 .1 .05 +CRED .25 .125 .1 .1 .05 +CBLUE .25 .125 .1 .1 .05 + + READ(5,1)A,X1,B,X2,COMMENT + 1 FORMAT(A10,F10.2,A10,F10.2,A50) + WRITE(6,2)A,X1,B,X2,COMMENT + 2 FORMAT(1X,A10,F10.2,A10,F10.2,A50) + FWHM=-1. + IF(B.EQ.'PM ')FWHM=X1/WCEN/1000.*299792.458D0 + IF(B.EQ.'KM ')FWHM=X1 + IF(B.EQ.'RESOLUTION')FWHM=299792.458D0/X1 + IF(B.EQ.'CM-1 ')FWHM=X1/(1.E7/WCEN)*299792.458D0 + IF(FWHM.LT.0.)THEN + WRITE(6,3) + CALL EXIT + ENDIF + FWHM1=FWHM + FWHM2=FWHM + IF(X2.GT.0.)THEN + IF(B.EQ.'PM ')FWHM2=X2/WCEN/1000.*299792.458D0 + IF(B.EQ.'KM ')FWHM2=X2 + IF(B.EQ.'RESO ')FWHM2=299792.458D0/X2 + IF(B.EQ.'CM-1 ')FWHM2=X2/(1.E7/WCEN)*299792.458D0 + ENDIF + IF(A.EQ.'MACRO ')GO TO 10 + IF(A.EQ.'GAUSSIAN ')GO TO 20 + IF(A.EQ.'SINX/X ')GO TO 60 + IF(A.EQ.'RECT ')GO TO 30 + IF(A.EQ.'PROFILE ')GO TO 40 + WRITE(6,3) + 3 FORMAT(10H0BAD INPUT) + CALL EXIT +C +C MACROTURBULENT VELOCITY IN KM + 10 VMAC=X1 + DO 11 I=1,20000 + RED(I)=EXP(-(FLOAT(I-1)*VSTEP/VMAC)**2) + IF(RED(I).LT.1.E-5)GO TO 12 + 11 CONTINUE + 12 NPROF=I + RED(1)=RED(1)/2. + SUM=0. + DO 13 I=1,NPROF + 13 SUM=SUM+RED(I) + SUM=SUM*2. + DO 14 I=1,NPROF + RED(I)=RED(I)/SUM + 14 BLUE(I)=RED(I) + GO TO 50 +C +C GAUSSIAN INSTRUMENTAL PROFILE HALF WIDTH IN KM FWHM + 20 DO 21 I=1,20000 + RED(I)=EXP(-(FLOAT(I-1)*VSTEP/FWHM*.8325546D0*2.)**2) + IF(RED(I).LT.1.E-5)GO TO 22 + 21 CONTINUE + 22 NPROF=I + RED(1)=RED(1)/2. + SUM=0. + DO 23 I=1,NPROF + 23 SUM=SUM+RED(I) + SUM=SUM*2. + DO 24 I=1,NPROF + RED(I)=RED(I)/SUM + 24 BLUE(I)=RED(I) + IF(X2.EQ.0.)GO TO 50 + DO 25 I=1,20000 + RED2(I)=EXP(-(FLOAT(I-1)*VSTEP/FWHM2*.8325546D0*2.)**2) + IF(RED2(I).LT.1.E-5)GO TO 26 + 25 CONTINUE + 26 NPROF=I + RED2(1)=RED2(1)/2. + SUM=0. + DO 27 I=1,NPROF + 27 SUM=SUM+RED2(I) + SUM=SUM*2. + DO 28 I=1,NPROF + RED2(I)=RED2(I)/SUM + 28 BLUE2(I)=RED2(I) + GO TO 50 +C +C SINX/X INSTRUMENTAL PROFILE HALF WIDTH IN KM FWHM +C APODIZED BY EXP(-0.06*X**2) + 60 RED(1)=0.5 + DO 61 I=2,20000 + X=(FLOAT(I-1)*VSTEP/FWHM*2.*1.8954942D0) + RED(I)=SIN(X)/X*EXP(-0.06*X**2) + IF(ABS(RED(I))+ABS(RED(I-1)).LT.1.E-5)GO TO 62 + 61 CONTINUE + 62 NPROF=I + SUM=0. + DO 63 I=1,NPROF + 63 SUM=SUM+RED(I) + SUM=SUM*2. + DO 64 I=1,NPROF + RED(I)=RED(I)/SUM + 64 BLUE(I)=RED(I) + IF(X2.GT.0)GO TO 50 + RED2(1)=0.5 + DO 65 I=2,20000 + X=(FLOAT(I-1)*VSTEP/FWHM2*2.*1.8954942D0) + RED2(I)=SIN(X)/X*EXP(-0.06*X**2) + IF(ABS(RED2(I))+ABS(RED2(I-1)).LT.1.D-5)GO TO 66 + 65 CONTINUE + 66 NPROF=I + SUM=0. + DO 67 I=1,NPROF + 67 SUM=SUM+RED2(I) + SUM=SUM*2. + DO 68 I=1,NPROF + RED2(I)=RED2(I)/SUM + 68 BLUE2(I)=RED2(I) + GO TO 50 +C +C RECTANGULAR INSTRUMENTAL PROFILE HALF WIDTH IN KM FWHM + 30 XRECT=FWHM/2./VSTEP + NRECT=XRECT+1.5 + NPROF=NRECT + DO 31 I=1,NPROF + 31 RED(I)=1. + RED(NPROF)=XRECT+1.5-FLOAT(NRECT) + RED(1)=RED(1)/2. + SUM=0. + DO 33 I=1,NPROF + 33 SUM=SUM+RED(I) + SUM=SUM*2. + DO 34 I=1,NPROF + RED(I)=RED(I)/SUM + 34 BLUE(I)=RED(I) + IF(X2.EQ.0.)GO TO 50 + XRECT=FWHM2/2./VSTEP + NRECT=XRECT+1.5 + NPROF=NRECT + DO 35 I=1,NPROF + 35 RED2(I)=1. + RED2(NPROF)=XRECT+1.5-FLOAT(NRECT) + RED2(1)=RED2(1)/2. + SUM=0. + DO 36 I=1,NPROF + 36 SUM=SUM+RED2(I) + SUM=SUM*2. + DO 37 I=1,NPROF + RED2(I)=RED2(I)/SUM + 37 BLUE2(I)=RED2(I) + GO TO 50 +C +C INSTRUMENTAL PROFILE TABULATED AT SPECTRUM POINT SPACING. +C RED AND BLUE WINGS BOTH START AT CENTRAL POINT. +C THE PROFILE SHOULD SUM TO 1. + 40 NPROF=X1 + READ(5,41)(RED(I),I=1,NPROF) + READ(5,41)(BLUE(I),I=1,NPROF) + 41 FORMAT(10X,7F10.6) + RED(1)=RED(1)/2. + BLUE(1)=BLUE(1)/2. + IF(X2.LE.0.)GO TO 50 + READ(5,41)(RED2(I),I=1,NPROF) + READ(5,41)(BLUE2(I),I=1,NPROF) + RED2(1)=RED2(1)/2. + BLUE2(1)=BLUE2(1)/2. + 50 WRITE(6,51)(I,RED1(I),BLUE1(I),RED2(I),BLUE2(I),I=1,NPROF) + 51 FORMAT(I5,4F10.6) + WRITE(22)TEFF,GLOG,TITLE,WBEGIN,RESOLU,NWL,IFSURF,NMU,XMU,NEDGE, + 1WLEDGE + NH=(NWL+19999+19999)*NMU + DO 52 I=1,NH + 52 H(I)=0. + WRITE(6,1117) + 1117 FORMAT(1H1) + IF(NMU.EQ.1)GO TO 150 + DO 57 IWL=1,NWL + READ(21)(QMU(I),I=1,NMU) + DO 56 IMU=1,NMU + Q=QMU(IMU) + IWL1000=(IWL+20000)*NMU+IMU + DO 53 I=1,NPROF + 53 H(IWL1000-I*NMU)=H(IWL1000-I*NMU)+BLUE(I)*Q + IWL998=(IWL+19998)*NMU+IMU + DO 54 I=1,NPROF + 54 H(IWL998+I*NMU)=H(IWL998+I*NMU)+RED(I)*Q + 56 CONTINUE + 57 CONTINUE + IF(X2.EQ.0.)GO TO 160 + REWIND 21 + READ(21) + DO 58 IWL=1,NWL + IWLNMU=(IWL+19999)*NMU + WT2=FLOAT(IWL-1)/FLOAT(NWL-1) + WT1=1.-WT2 + DO 58 IMU=1,NMU + 58 H(IWLNMU+IMU)=H(IWLNMU+IMU)*WT1 + DO 257 IWL=1,NWL + READ(21)(QMU(I),I=1,NMU) + WT2=FLOAT(IWL-1)/FLOAT(NWL-1) + DO 256 IMU=1,NMU + Q=QMU(IMU)*WT2 + IWL1000=(IWL+20000)*NMU+IMU + DO 253 I=1,NPROF + 253 H(IWL1000-I*NMU)=H(IWL1000-I*NMU)+BLUE(I)*Q + IWL998=(IWL+19998)*NMU+IMU + DO 254 I=1,NPROF + 254 H(IWL998+I*NMU)=H(IWL998+I*NMU)+RED(I)*Q + 256 CONTINUE + 257 CONTINUE + GO TO 160 + 150 DO 157 IWL=1,NWL + READ(21)QMU(1) + Q=QMU(1) + IWL1001=IWL+20001 + DO 153 I=1,NPROF + 153 H(IWL1001-I)=H(IWL1001-I)+BLUE(I)*Q + IWL999=IWL+19999 + DO 154 I=1,NPROF + 154 H(IWL999+I)=H(IWL999+I)+RED(I)*Q + 157 CONTINUE + IF(X2.EQ.0.)GO TO 160 + REWIND 21 + READ(21) + DO 358 IWL=1,NWL + WT2=FLOAT(IWL-1)/FLOAT(NWL-1) + WT1=1.-WT2 + 358 H(IWL+20000)=H(IWL+20000)*WT1 + DO 357 IWL=1,NWL + READ(21)QMU(1) + WT2=FLOAT(IWL-1)/FLOAT(NWL-1) + Q=QMU(1)*WT2 + IWL1001=IWL+20001 + DO 353 I=1,NPROF + 353 H(IWL1001-I)=H(IWL1001-I)+BLUE(I)*Q + IWL999=IWL+19999 + DO 354 I=1,NPROF + 354 H(IWL999+I)=H(IWL999+I)+RED(I)*Q + 357 CONTINUE + 160 REWIND 21 + READ(21) + DO 170 IWL=1,NWL + READ(21)(QMU(IMU),IMU=1,NMU2) + IWLNMU=(IWL+19999)*NMU + DO 162 IMU=1,NMU + 162 QMU(IMU)=H(IWLNMU+IMU) + WRITE(22)(QMU(I),I=1,NMU2) + IF(IWL.GT.LINOUT)GO TO 170 + WAVE=WBEGIN*RATIO**(IWL-1) + RESID=QMU(1)/QMU(NMU1) + IRESID=RESID*1000.+.5 + IPLOT=RESID*100.+1.5 + IPLOT=MAX0(1,MIN0(101,IPLOT)) + APLOT(IPLOT)='X' + WRITE(6,2300)IWL,WAVE,IRESID,APLOT + 2300 FORMAT(1H ,I5,F11.4,I7,101A1) + APLOT(IPLOT)=' ' + 170 CONTINUE + READ(21)NLINES + WRITE(22)NLINES + DO 200 I=1,NLINES + READ(21)LINDAT8,LINDAT4 + WRITE(22)LINDAT8,LINDAT4 + 200 CONTINUE + CALL EXIT + END diff --git a/synthe/converfsynnmtoa.for b/synthe/converfsynnmtoa.for new file mode 100644 index 0000000..51efaa1 --- /dev/null +++ b/synthe/converfsynnmtoa.for @@ -0,0 +1,78 @@ + PROGRAM CONVERFSYNNMTOA +C PROGRAM ASCIISYN(TAPE1,TAPE2,OUTPUT,TAPE6=OUTPUT) +C TAPE1=SPECTRUM INPUT +C TAPE2=SPECTRUM OUTPUT IN ASCII CARD IMAGES +C TAPE6=OUTPUT +C FOR FLUX SPECTRA NMU IS 1 +c COMMON/LINDAT/WL,GFLOG,XJ,E,XJP,EP,CODE,LABEL(2),LABELP(2),NELION, +c 1 GAMMAR,GAMMAS,GAMMAW,REF,NBLO,NBUP,ISO1,X1,ISO2, +c 2 X2,OTHER1(2),OTHER2(2),ELO,GF,WLVAC,GS,GR,GW,CENTER,CONCEN + COMMON /LINDAT/WL,E,EP,LABEL(2),LABELP(2),OTHER1(2),OTHER2(2), + 1 WLVAC,CENTER,CONCEN, NELION,GAMMAR,GAMMAS,GAMMAW,REF, + 2 NBLO,NBUP,ISO1,X1,ISO2,X2,GFLOG,XJ,XJP,CODE,ELO,GF,GS,GR,GW, + 3 DWL,DGFLOG,DGAMMAR,DGAMMAS,DGAMMAW,EXTRA1,EXTRA2,EXTRA3 + REAL*8 WL,E,EP,WLVAC,CENTER,CONCEN + REAL*8 LABEL,LABELP,OTHER1,OTHER2,LINDAT +CCRAY DIMENSION LINDAT(34) + DIMENSION LINDAT(24) + EQUIVALENCE (LINDAT(1),WL) + DIMENSION XMU(20),QMU(40),WLEDGE(200),TITLE(74) + REAL*8 TEFF,GLOG,TITLE,WBEGIN,RESOLU,XMU,WLEDGE + REAL*8 QMU + DIMENSION QOUT(10000) + OPEN(UNIT=1,FORM='UNFORMATTED',READONLY,STATUS='OLD') + READ(1)TEFF,GLOG,TITLE,WBEGIN,RESOLU,NWL,IFSURF,NMU,XMU,NEDGE, + 1WLEDGE + WRITE(6,1)TEFF,GLOG,TITLE + 1 FORMAT(5HTEFF ,F7.0,7HGRAVITY,F7.3/7HTITLE ,74A1) + WRITE(2,1)TEFF,GLOG,TITLE + IF(IFSURF.EQ.3)NMU=1 + NMU2=NMU+NMU +C OPEN(UNIT=2,BLOCKSIZE=4800,RECORDSIZE=80,STATUS='NEW', +C 1RECORDTYPE='FIXED') +C WRITE(2,2)TEFF,GLOG,TITLE,WBEGIN,RESOLU,NWL,IFSURF,NMU,XMU,NEDGE, +C 1WLEDGE + 2 FORMAT(F10.1,F10.3/6HTITLE ,74A1/F10.3,F10.1,I10,I5,I5/ + 1 10F8.4/10F8.4/I10/(5F16.5)) + npti=0 + DO 6 IWL=1,NWL,100 + N100=MIN0(NWL-IWL+1,100) + J=0 + DO 4 I100=1,N100 + READ(1)(QMU(I),I=1,NMU2) + DO 3 I=1,NMU2 + J=J+1 + 3 QOUT(J)=QMU(I) + NIWL=IWL+I100-1 + WAVE=WBEGIN*(1.+1./RESOLU)**(NIWL-1) + freq=2.997925e17/wave + npti=npti+1 +c WRITE(2,5)j,WAVE,freq,QOUT(J-1),QOUT(J) +c 5 FORMAT(4HFLUX,I5,F9.5,1PE20.6,2E13.4) + wavea=10.*wave + fluxl=4.*qout(j-1)*2.99792458E18/(wavea*wavea) + fluxc=4.*qout(j)*2.99792458E18/(wavea*wavea) + resid=fluxl/fluxc +c WRITE(2,5)WAVE,freq,QOUT(J-1),QOUT(J) + WRITE(2,55)WAVEa,fluxl,fluxc,resid + 5 FORMAT(4HFLUX,5x,F9.4,1PE20.6,2E13.4) +55 format(1x,f11.4,1x,1pE12.4,1x,1pE12.4,1x,0PF8.4) + 4 CONTINUE + 6 CONTINUE +C READ(1)NLINES +C WRITE(2,7)NLINES +C 7 FORMAT(I10) +C DO 9 I=1,NLINES +C READ(1)LINDAT +C WRITE(2,8)WL,GFLOG,XJ,E,XJP,EP,CODE,LABEL,LABELP, +C 1WL,NELION,GR,GS,GW,REF,NBLO,NBUP,ISO1,X1,ISO2,X2,OTHER1,OTHER2, +C 2WL,GF,WLVAC,GAMMAR,GAMMAS,GAMMAW,CENTER,CONCEN +C 2WL,ELO,GF,WLVAC,GAMMAR,GAMMAS,GAMMAW,CENTER,CONCEN +C ELO MUST BE RECONSTRUCTED + 8 FORMAT(F10.4,F7.3,F5.1,F12.3,F5.1,F12.3,F9.2,A8,A2,A8,A2/ + 1F10.4,I4,3F6.2,A4,2I2,I3,F7.2,I3,F7.2,A8,A2,A8,A2/ + 2F10.4,1PE10.3,0PF10.3,1P5E10.3) + 9 CONTINUE + type*,npti + CALL EXIT + END diff --git a/synthe/examples/ap05t5750g40k2odfnew.mod b/synthe/examples/ap05t5750g40k2odfnew.mod new file mode 100644 index 0000000..43cb869 --- /dev/null +++ b/synthe/examples/ap05t5750g40k2odfnew.mod @@ -0,0 +1,103 @@ +SURFACE INTENSI 17 1.,.9,.8,.7,.6,.5,.4,.3,.25,.2,.15,.125,.1,.075,.05,.025,.01 +ITERATIONS 1 PRINT 2 PUNCH 2 +CORRECTION OFF +PRESSURE OFF +MOLECULES ON +READ MOLECULES +TEFF 5750. GRAVITY 4.00000 LTE +TITLE [+0.5] N(He)/Ntot=0.07813 VTURB=2.0 L/H=1.25 NOVER + OPACITY IFOP 1 1 1 1 1 1 1 1 1 1 1 1 1 0 1 0 0 0 0 0 + CONVECTION ON 1.25 TURBULENCE OFF 0.00 0.00 0.00 0.00 +ABUNDANCE SCALE 3.16228 ABUNDANCE CHANGE 1 0.91790 2 0.07813 + ABUNDANCE CHANGE 3 -10.94 4 -10.64 5 -9.49 6 -3.52 7 -4.12 8 -3.21 + ABUNDANCE CHANGE 9 -7.48 10 -3.96 11 -5.71 12 -4.46 13 -5.57 14 -4.49 + ABUNDANCE CHANGE 15 -6.59 16 -4.71 17 -6.54 18 -5.64 19 -6.92 20 -5.68 + ABUNDANCE CHANGE 21 -8.87 22 -7.02 23 -8.04 24 -6.37 25 -6.65 26 -4.54 + ABUNDANCE CHANGE 27 -7.12 28 -5.79 29 -7.83 30 -7.44 31 -9.16 32 -8.63 + ABUNDANCE CHANGE 33 -9.67 34 -8.63 35 -9.41 36 -8.73 37 -9.44 38 -9.07 + ABUNDANCE CHANGE 39 -9.80 40 -9.44 41 -10.62 42 -10.12 43 -20.00 44 -10.20 + ABUNDANCE CHANGE 45 -10.92 46 -10.35 47 -11.10 48 -10.27 49 -10.38 50 -10.04 + ABUNDANCE CHANGE 51 -11.04 52 -9.80 53 -10.53 54 -9.87 55 -10.91 56 -9.91 + ABUNDANCE CHANGE 57 -10.87 58 -10.46 59 -11.33 60 -10.54 61 -20.00 62 -11.03 + ABUNDANCE CHANGE 63 -11.53 64 -10.92 65 -11.69 66 -10.90 67 -11.78 68 -11.11 + ABUNDANCE CHANGE 69 -12.04 70 -10.96 71 -11.98 72 -11.16 73 -12.17 74 -10.93 + ABUNDANCE CHANGE 75 -11.76 76 -10.59 77 -10.69 78 -10.24 79 -11.03 80 -10.91 + ABUNDANCE CHANGE 81 -11.14 82 -10.09 83 -11.33 84 -20.00 85 -20.00 86 -20.00 + ABUNDANCE CHANGE 87 -20.00 88 -20.00 89 -20.00 90 -11.95 91 -20.00 92 -12.54 + ABUNDANCE CHANGE 93 -20.00 94 -20.00 95 -20.00 96 -20.00 97 -20.00 98 -20.00 + ABUNDANCE CHANGE 99 -20.00 +READ DECK6 72 RHOX,T,P,XNE,ABROSS,ACCRAD,VTURB, FLXCNV,VCONV,VELSND + 3.29981450E-04 3503.5 3.300E+00 1.636E+09 4.041E-04 1.166E-01 2.000E+05 0.000E+00 0.000E+00 7.620E+05 + 4.36751702E-04 3518.7 4.367E+00 2.101E+09 4.290E-04 1.136E-01 2.000E+05 0.000E+00 0.000E+00 7.272E+05 + 5.70444387E-04 3535.7 5.704E+00 2.670E+09 4.583E-04 1.075E-01 2.000E+05 0.000E+00 0.000E+00 7.012E+05 + 7.36747009E-04 3554.0 7.367E+00 3.365E+09 4.929E-04 1.004E-01 2.000E+05 0.000E+00 0.000E+00 6.816E+05 + 9.42109231E-04 3573.4 9.421E+00 4.207E+09 5.339E-04 9.369E-02 2.000E+05 0.000E+00 0.000E+00 6.668E+05 + 1.19449447E-03 3594.1 1.194E+01 5.229E+09 5.802E-04 8.587E-02 2.000E+05 0.000E+00 0.000E+00 6.558E+05 + 1.50335160E-03 3616.3 1.503E+01 6.468E+09 6.343E-04 7.880E-02 2.000E+05 0.000E+00 0.000E+00 6.475E+05 + 1.87462783E-03 3641.7 1.875E+01 7.969E+09 7.170E-04 7.879E-02 2.000E+05 0.000E+00 0.000E+00 6.416E+05 + 2.30042713E-03 3671.0 2.300E+01 9.733E+09 8.528E-04 9.022E-02 2.000E+05 0.000E+00 0.000E+00 6.378E+05 + 2.77595485E-03 3701.2 2.776E+01 1.173E+10 1.021E-03 1.043E-01 2.000E+05 0.000E+00 0.000E+00 6.353E+05 + 3.30360479E-03 3732.7 3.304E+01 1.400E+10 1.231E-03 1.228E-01 2.000E+05 0.000E+00 0.000E+00 6.340E+05 + 3.88533817E-03 3765.7 3.885E+01 1.656E+10 1.493E-03 1.460E-01 2.000E+05 0.000E+00 0.000E+00 6.335E+05 + 4.52181895E-03 3799.5 4.522E+01 1.942E+10 1.821E-03 1.771E-01 2.000E+05 0.000E+00 0.000E+00 6.336E+05 + 5.25069322E-03 3832.2 5.251E+01 2.269E+10 2.034E-03 1.718E-01 2.000E+05 0.000E+00 0.000E+00 6.340E+05 + 6.12173079E-03 3864.2 6.122E+01 2.655E+10 2.272E-03 1.657E-01 2.000E+05 0.000E+00 0.000E+00 6.348E+05 + 7.15878557E-03 3895.5 7.159E+01 3.110E+10 2.551E-03 1.617E-01 2.000E+05 0.000E+00 0.000E+00 6.357E+05 + 8.38667041E-03 3926.6 8.387E+01 3.646E+10 2.881E-03 1.592E-01 2.000E+05 0.000E+00 0.000E+00 6.369E+05 + 9.83323043E-03 3957.6 9.833E+01 4.274E+10 3.268E-03 1.583E-01 2.000E+05 0.000E+00 0.000E+00 6.121E+05 + 1.15363151E-02 3989.0 1.154E+02 5.012E+10 3.691E-03 1.554E-01 2.000E+05 0.000E+00 0.000E+00 6.399E+05 + 1.35552548E-02 4020.4 1.356E+02 5.882E+10 4.143E-03 1.508E-01 2.000E+05 0.000E+00 0.000E+00 6.416E+05 + 1.59479066E-02 4051.3 1.595E+02 6.904E+10 4.673E-03 1.477E-01 2.000E+05 0.000E+00 0.000E+00 6.435E+05 + 1.87706182E-02 4082.0 1.877E+02 8.102E+10 5.292E-03 1.460E-01 2.000E+05 0.000E+00 0.000E+00 6.455E+05 + 2.20882509E-02 4112.6 2.209E+02 9.501E+10 6.014E-03 1.455E-01 2.000E+05 0.000E+00 0.000E+00 6.476E+05 + 2.59749964E-02 4143.1 2.597E+02 1.113E+11 6.855E-03 1.461E-01 2.000E+05 0.000E+00 0.000E+00 6.497E+05 + 3.05191416E-02 4173.7 3.052E+02 1.303E+11 7.819E-03 1.476E-01 2.000E+05 0.000E+00 0.000E+00 6.520E+05 + 3.58622411E-02 4204.7 3.586E+02 1.525E+11 8.822E-03 1.460E-01 2.000E+05 0.000E+00 0.000E+00 6.543E+05 + 4.21704781E-02 4235.5 4.217E+02 1.785E+11 9.978E-03 1.453E-01 2.000E+05 0.000E+00 0.000E+00 6.567E+05 + 4.95963302E-02 4266.2 4.960E+02 2.088E+11 1.132E-02 1.458E-01 2.000E+05 0.000E+00 0.000E+00 6.591E+05 + 5.83129722E-02 4297.0 5.831E+02 2.442E+11 1.288E-02 1.476E-01 2.000E+05 0.000E+00 0.000E+00 6.615E+05 + 6.85208691E-02 4327.9 6.852E+02 2.854E+11 1.468E-02 1.505E-01 2.000E+05 0.000E+00 0.000E+00 6.640E+05 + 8.04512626E-02 4359.1 8.045E+02 3.333E+11 1.676E-02 1.545E-01 2.000E+05 0.000E+00 0.000E+00 6.665E+05 + 9.43680038E-02 4390.3 9.437E+02 3.888E+11 1.918E-02 1.612E-01 2.000E+05 0.000E+00 0.000E+00 6.690E+05 + 1.10617125E-01 4422.5 1.106E+03 4.534E+11 2.186E-02 1.683E-01 2.000E+05 0.000E+00 0.000E+00 6.716E+05 + 1.29641827E-01 4455.5 1.296E+03 5.288E+11 2.489E-02 1.759E-01 2.000E+05 0.000E+00 0.000E+00 6.743E+05 + 1.51895864E-01 4489.7 1.519E+03 6.168E+11 2.841E-02 1.853E-01 2.000E+05 0.000E+00 0.000E+00 6.772E+05 + 1.77874958E-01 4525.4 1.779E+03 7.196E+11 3.248E-02 1.964E-01 2.000E+05 0.000E+00 0.000E+00 6.802E+05 + 2.08145025E-01 4562.7 2.081E+03 8.393E+11 3.720E-02 2.100E-01 2.000E+05 0.000E+00 0.000E+00 6.833E+05 + 2.43699346E-01 4603.2 2.437E+03 9.809E+11 4.185E-02 2.128E-01 2.000E+05 0.000E+00 0.000E+00 6.868E+05 + 2.85891363E-01 4643.7 2.859E+03 1.148E+12 4.701E-02 2.143E-01 2.000E+05 0.000E+00 0.000E+00 6.902E+05 + 3.35955540E-01 4684.0 3.359E+03 1.344E+12 5.285E-02 2.178E-01 2.000E+05 0.000E+00 0.000E+00 6.936E+05 + 3.95375321E-01 4724.6 3.954E+03 1.576E+12 5.938E-02 2.233E-01 2.000E+05 0.000E+00 0.000E+00 6.970E+05 + 4.65755626E-01 4765.7 4.657E+03 1.849E+12 6.700E-02 2.319E-01 2.000E+05 0.000E+00 0.000E+00 7.004E+05 + 5.48705442E-01 4807.8 5.487E+03 2.170E+12 7.600E-02 2.457E-01 2.000E+05 0.000E+00 0.000E+00 7.038E+05 + 6.46030682E-01 4852.7 6.460E+03 2.548E+12 8.652E-02 2.644E-01 2.000E+05 0.000E+00 0.000E+00 7.075E+05 + 7.59958226E-01 4901.6 7.599E+03 2.995E+12 9.859E-02 2.859E-01 2.000E+05 0.000E+00 0.000E+00 7.116E+05 + 8.93245531E-01 4955.8 8.932E+03 3.524E+12 1.124E-01 3.108E-01 2.000E+05 0.000E+00 0.000E+00 7.161E+05 + 1.04910032E+00 5016.5 1.049E+04 4.154E+12 1.282E-01 3.393E-01 2.000E+05 0.000E+00 0.000E+00 7.212E+05 + 1.23149243E+00 5085.5 1.231E+04 4.909E+12 1.460E-01 3.710E-01 2.000E+05 0.000E+00 0.000E+00 7.269E+05 + 1.44514834E+00 5164.3 1.445E+04 5.823E+12 1.662E-01 4.072E-01 2.000E+05 0.000E+00 0.000E+00 7.334E+05 + 1.69540330E+00 5255.5 1.695E+04 6.941E+12 1.892E-01 4.486E-01 2.000E+05 0.000E+00 0.000E+00 7.407E+05 + 1.98817689E+00 5361.2 1.988E+04 8.338E+12 2.159E-01 4.967E-01 2.000E+05 0.000E+00 0.000E+00 7.487E+05 + 2.32881605E+00 5485.3 2.329E+04 1.015E+13 2.488E-01 5.592E-01 2.000E+05 0.000E+00 0.000E+00 7.576E+05 + 2.72087692E+00 5630.3 2.721E+04 1.263E+13 2.901E-01 6.364E-01 2.000E+05 0.000E+00 0.000E+00 7.672E+05 + 3.16366854E+00 5799.1 3.164E+04 1.632E+13 3.480E-01 7.470E-01 2.000E+05 0.000E+00 0.000E+00 7.773E+05 + 3.64224243E+00 5997.9 3.642E+04 2.236E+13 4.428E-01 9.399E-01 2.000E+05 0.000E+00 0.000E+00 7.878E+05 + 4.12981074E+00 6229.4 4.130E+04 3.286E+13 5.967E-01 1.251E+00 2.000E+05 1.181E+03 0.000E+00 7.982E+05 + 4.59398918E+00 6499.5 4.594E+04 5.205E+13 8.692E-01 1.812E+00 2.000E+05 1.406E+05 3.926E+03 8.080E+05 + 5.00448056E+00 6812.4 5.004E+04 8.785E+13 1.354E+00 2.816E+00 2.000E+05 5.340E+06 1.861E+04 8.161E+05 + 5.34405281E+00 7176.9 5.344E+04 1.564E+14 2.256E+00 4.679E+00 2.000E+05 4.108E+07 5.970E+04 8.217E+05 + 5.60558593E+00 7601.8 5.605E+04 2.895E+14 4.024E+00 8.007E+00 2.000E+05 2.693E+08 1.044E+05 8.251E+05 + 5.80041350E+00 8031.8 5.800E+04 5.088E+14 7.107E+00 1.190E+01 2.000E+05 9.774E+08 1.863E+05 8.286E+05 + 5.95559806E+00 8387.2 5.955E+04 7.790E+14 1.122E+01 1.332E+01 2.000E+05 2.061E+09 2.477E+05 8.340E+05 + 6.09491091E+00 8660.7 6.094E+04 1.058E+15 1.582E+01 1.241E+01 2.000E+05 3.015E+09 2.701E+05 8.402E+05 + 6.23143622E+00 8887.3 6.230E+04 1.347E+15 2.090E+01 1.115E+01 2.000E+05 3.633E+09 2.785E+05 8.469E+05 + 6.37223609E+00 9086.3 6.371E+04 1.650E+15 2.654E+01 1.008E+01 2.000E+05 4.018E+09 2.809E+05 8.540E+05 + 6.52205734E+00 9269.2 6.520E+04 1.974E+15 3.288E+01 9.210E+00 2.000E+05 4.260E+09 2.804E+05 8.615E+05 + 6.68484805E+00 9441.5 6.683E+04 2.326E+15 4.003E+01 8.481E+00 2.000E+05 4.427E+09 2.785E+05 8.693E+05 + 6.86423619E+00 9608.8 6.862E+04 2.714E+15 4.819E+01 7.891E+00 2.000E+05 4.541E+09 2.768E+05 8.777E+05 + 7.06373086E+00 9773.6 7.062E+04 3.145E+15 5.756E+01 7.302E+00 2.000E+05 4.627E+09 2.729E+05 8.866E+05 + 7.28759181E+00 9934.8 7.285E+04 3.620E+15 6.811E+01 6.875E+00 2.000E+05 4.695E+09 2.721E+05 8.960E+05 + 7.53976217E+00 10103.6 7.537E+04 4.174E+15 8.064E+01 6.386E+00 2.000E+05 4.738E+09 2.669E+05 9.064E+05 + 7.82617853E+00 10262.1 7.824E+04 4.762E+15 9.400E+01 6.322E+00 2.000E+05 4.777E+09 2.662E+05 9.168E+05 +PRADK 1.4610E+00 +BEGIN ITERATION 15 COMPLETED diff --git a/synthe/examples/r2500-10500t5750g40k2p.com b/synthe/examples/r2500-10500t5750g40k2p.com new file mode 100644 index 0000000..5c66f84 --- /dev/null +++ b/synthe/examples/r2500-10500t5750g40k2p.com @@ -0,0 +1,127 @@ +ln -s molecules.dat fort.2 +ln -s continua.dat fort.17 +./xnfpelsyn.exe<ap05t5750g40k2odfnew.mod>xnfpelsyn.out +mv fort.10 xnfp05t5750g40k2odfnew.dat +rm fort.* +./synbeg.exe<<EOF>synbeg.out +AIR 250.0 1050.0 500000. 0. 0 -10 .001 1 00 +AIRorVAC WLBEG WLEND RESOLU TURBV IFNLTE LINOUT CUTOFF NREAD +EOF +ln -s gf0300.100 fort.11 +./rgfalllinesnew.exe>gf0300.out +rm fort.11 +ln -s gf0400.100 fort.11 +./rgfalllinesnew.exe>gf0400.out +rm fort.11 +ln -s gf0500.100 fort.11 +./rgfalllinesnew.exe>gf0500.out +rm fort.11 +ln -s gf0600.100 fort.11 +./rgfalllinesnew.exe>gf0600.out +rm fort.11 +ln -s gf0800.100 fort.11 +./rgfalllines.exe>gf0800.out +rm fort.11 +ln -s gf1200.100 fort.11 +./rgfalllinesnew.exe>gf1200.out +rm fort.11 +ln -s fclowlines.bin fort.11 +./rpredict.exe>predictedlow.out +rm fort.11 +ln -s fchighlines.bin fort.11 +./rpredict.exe>predicthigh.out +rm fort.11 +ln -s chjorg.asc fort.11 +./rmolecasc.exe>chjorg.out +rm fort.11 +ln -s mgh.asc fort.11 +./rmolecasc.exe>mgh.out +rm fort.11 +ln -s nh.asc fort.11 +./rmolecasc.exe>nh.out +rm fort.11 +ln -s ohupdate.asc fort.11 +./rmolecasc.exe>oh.out +rm fort.11 +ln -s sihax.asc fort.11 +./rmolecasc.exe>sihax.out +rm fort.11 +ln -s h2.asc fort.11 +./rmolecasc.exe>h2.out +rm fort.11 +ln -s h2xx.asc fort.11 +./rmolecasc.exe>h2xx.out +rm fort.11 +ln -s hdxx.asc fort.11 +./rmolecasc.exe>hdxx.out +rm fort.11 +ln -s c2ax.asc fort.11 +./rmolecasc.exe>c2ax.out +rm fort.11 +ln -s c2ba.asc fort.11 +./rmolecasc.exe>c2ba.out +rm fort.11 +ln -s c2dabrookek.asc fort.11 +./rmolecasc.exe>c2da.out +rm fort.11 +ln -s c2ea.asc fort.11 +./rmolecasc.exe>c2ea.out +rm fort.11 +ln -s cnaxbrookek.asc fort.11 +./rmolecasc.exe>cnax.out +rm fort.11 +ln -s cnbxbrookek.asc fort.11 +./rmolecasc.exe>cnbx.out +rm fort.11 +ln -s cnxx12brooke.asc fort.11 +./rmolecasc.exe>cnxx12.out +rm fort.11 +ln -s coax.asc fort.11 +./rmolecasc.exe>coax.out +rm fort.11 +ln -s coxx.asc fort.11 +./rmolecasc.exe>coxx.out +rm fort.11 +ln -s sioax.asc fort.11 +./rmolecasc.exe>sioax.out +rm fort.11 +ln -s sioex.asc fort.11 +./rmolecasc.exe>sioex.out +rm fort.11 +ln -s sioxx.asc fort.11 +./rmolecasc.exe>sioxx.out +rm fort.11 +ln -s tioschwenke.bin fort.11 +ln -s eschwenke.bin fort.48 +./rschwenk.exe>rschwenk.out +rm fort.11 +rm fort.48 +ln -s h2ofastfix.bin fort.11 +./rh2ofast.exe>h2ofastfix.out +rm fort.11 +ln -s xnfp05t5750g40k2odfnew.dat fort.10 +ln -s he1tables.dat fort.18 +./synthe.exe>synthe.out +ln -s molecules.dat fort.2 +cat <<EOF >fort.25 +0.0 0. 1. 0. 0. 0. 0. 0. +0. +RHOXJ R1 R101 PH1 PC1 PSI1 PRDDOP PRDPOW +EOF +./spectrv.exe<ap05t5750g40k2odfnew.mod>spectrv.out +mv fort.7 i2500-10500.dat +ln -s i2500-10500.dat fort.1 +./rotate.exe<<EOF>rotate.out + 1 +0. +EOF +mv ROT1 f2500-10500vr0p05t5750g40k2.dat +rm fort.* +#! +ln -s f2500-10500vr0p05t5750g40k2.dat fort.1 +./fluxaverage1a_nmtoa.exe<<EOF>f2500-10500p05t5750g40k2_1a.out + 250.0 1050.0 + 250.0 250.1 250.05 +EOF +mv fort.2 f2500-10500p05t5750g40k2_1ap.txt +rm fort.* diff --git a/synthe/fluxaverage1a_nmtoa.for b/synthe/fluxaverage1a_nmtoa.for new file mode 100644 index 0000000..cb8deb9 --- /dev/null +++ b/synthe/fluxaverage1a_nmtoa.for @@ -0,0 +1,87 @@ + PROGRAM FLUXAVERAGE1A + IMPLICIT REAL*8 (A-H,O-Z) + DIMENSION FLAM1(100000),FLAM2(100000),FLAMC(100000), + 1 AVERHSURF(100000) + DIMENSION TITLE(74),WLEDGE(200),XMU(20),AVERCONTIN(100000) + DATA NPTI/100000/ +C +C FIX THE WAVELENGHT RANGE IN WHICH WE WANT AVERAGED FLUXES +C + READ(5,56)WAVE1,WAVE2 +56 FORMAT(3F10.4) + TYPE*,WAVE1,WAVE2 +C + READ(5,56)FLAM1(1),FLAM2(1),FLAMC(1) + TYPE*,FLAM1(1),FLAM2(1),FLAMC(1) +C FLAM1(1)=362.0 +C FLAM2(1)=362.1 +C FLAMC(1)=362.05 + DO 550 I=2,NPTI + FLAM1(I)=FLAM1(I-1)+0.100 + FLAM2(I)=FLAM2(I-1)+0.100 + FLAMC(I)=FLAM1(I)+0.0500 +C TYPE*,N,FLAM1(I),FLAM2(I),FLAMC(I) +c if(flam2(i).gt.wave2)go to 501 + if(flam2(i).ge.wave2)go to 501 +550 CONTINUE +C +501 npti=i +c type*,npti,flam1(npti),flam2(npti),flamc(npti) + do 1001 k=1,npti + if(flam1(k).lt.wave1)go to 1001 + nlam1=k + go to 101 +1001 continue +101 CONTINUE +c type*,nlam1,wave1,flam1(nlam1) + OPEN(UNIT=1,FORM='UNFORMATTED',READONLY,STATUS='OLD') + READ(1)TEFF,GLOG,TITLE,WBEGIN,RESOLU,NWL,IFSURF,NMU,XMU,NEDGE, + 1WLEDGE +2 FORMAT(F10.1,F10.3,/6HTITLE ,74A1/F10.3,F10.1,I10,I5,I5/ + 1 10F8.4/10F8.4/I10/(5F16.5)) + WRITE(2,3)TEFF,GLOG +3 FORMAT(5X,F7.0,9X,F8.5,5X) + WRITE(2,334)TITLE +c334 FORMAT(5HTITLE,74A1) +334 FORMAT(74A1/) + write(2,335) + 335 format(4x,'Wavelength',10x,'Flux'/5x, + 1 'Angstrom', 2x,'erg/sec/cm2/Angstrom') +c type*,nmu + K=nlam1 + NAVER=0 + SUMHSURF=0. + SUMCONTIN=0. + NIWL=0 + DO 100 I=1,1000000000 + READ(1)HSURF,CONTIN + NIWL=NIWL+1 + WAVE=WBEGIN*(1.+1./RESOLU)**(NIWL-1) +5 FORMAT(1X,F10.4,2E10.4) + IF(WAVE.LT.FLAM1(K))GO TO 100 + IF(WAVE.GE.FLAM1(K).AND.WAVE.LE.FLAM2(K)) THEN + NAVER=NAVER+1 + SUMHSURF=SUMHSURF+HSURF + SUMCONTIN=SUMCONTIN+CONTIN +c TYPE*,naver,WAVE,hsurf,sumhsurf + END IF + IF(WAVE.GE.FLAM2(K)-0.001) THEN + AVERHSURF(K)=SUMHSURF/NAVER + AVERCONTIN(K)=SUMCONTIN/NAVER +c IF(K.GT.100000)type*,i,k,flam2(k),averhsurf(k) + K=K+1 + NAVER=0 + SUMHSURF=0. + SUMCONTIN=0. + END IF + IF(WAVE.GE.wave2-0.001) GO TO 98 +100 CONTINUE +98 DO 200 I=1,NPTI + FLAMC(I)=10.*FLAMC(I) + freq=2.997925e18/flamc(i) + FLUXLAM=4.*FREQ/FLAMC(I)*AVERHSURF(I) + WRITE(2,67)FLAMC(I),FLUXLAM + 67 FORMAT(3X,F9.1,3X,1PE18.12) +200 CONTINUE + STOP + END diff --git a/synthe/he1tables.dat b/synthe/he1tables.dat new file mode 100644 index 0000000..ab3b01c --- /dev/null +++ b/synthe/he1tables.dat @@ -0,0 +1,5196 @@ + 4471 H+ He+ + Ne dwl+150 5000 10000 20000 40000 5000 10000 20000 40000 + 13.0 0.00 -7.413 -7.432 -7.456 -7.481 -7.413 -7.432 -7.456 -7.481 + 13.5 0.00 -6.937 -6.954 -6.975 -6.997 -6.937 -6.954 -6.975 -6.997 + 14.0 0.00 -6.682 -6.682 -6.697 -6.717 -6.682 -6.682 -6.697 -6.717 + 14.5 0.00 -6.331 -6.321 -6.323 -6.339 -6.331 -6.321 -6.323 -6.339 + 15.0 0.00 -5.890 -5.869 -5.863 -5.873 -5.890 -5.869 -5.863 -5.873 + 15.5 0.00 -5.474 -5.442 -5.432 -5.435 -5.474 -5.442 -5.432 -5.435 + 16.0 0.00 -5.082 -5.042 -5.015 -5.006 -5.082 -5.042 -5.015 -5.006 + 13.0 30.00 -7.219 -7.238 -7.262 -7.288 -7.219 -7.238 -7.262 -7.288 + 13.5 30.00 -6.743 -6.760 -6.781 -6.803 -6.743 -6.760 -6.781 -6.803 + 14.0 30.00 -6.488 -6.488 -6.503 -6.523 -6.488 -6.488 -6.503 -6.523 + 14.5 30.00 -6.137 -6.128 -6.129 -6.145 -6.137 -6.128 -6.129 -6.145 + 15.0 30.00 -5.696 -5.675 -5.670 -5.679 -5.696 -5.675 -5.670 -5.679 + 15.5 30.00 -5.280 -5.248 -5.238 -5.242 -5.280 -5.248 -5.238 -5.242 + 16.0 30.00 -4.836 -4.804 -4.777 -4.775 -4.836 -4.804 -4.777 -4.775 + 13.0 50.00 -7.060 -7.080 -7.104 -7.129 -7.060 -7.080 -7.104 -7.129 + 13.5 50.00 -6.585 -6.602 -6.623 -6.644 -6.585 -6.602 -6.623 -6.644 + 14.0 50.00 -6.330 -6.330 -6.345 -6.365 -6.330 -6.330 -6.345 -6.365 + 14.5 50.00 -5.979 -5.969 -5.971 -5.986 -5.979 -5.969 -5.971 -5.986 + 15.0 50.00 -5.537 -5.516 -5.511 -5.520 -5.537 -5.516 -5.511 -5.520 + 15.5 50.00 -5.122 -5.090 -5.080 -5.083 -5.122 -5.090 -5.080 -5.083 + 16.0 50.00 -4.642 -4.613 -4.592 -4.609 -4.642 -4.613 -4.592 -4.609 + 13.0 70.00 -6.867 -6.886 -6.910 -6.935 -6.867 -6.886 -6.910 -6.935 + 13.5 70.00 -6.391 -6.408 -6.429 -6.451 -6.391 -6.408 -6.429 -6.451 + 14.0 70.00 -6.136 -6.136 -6.151 -6.171 -6.136 -6.136 -6.151 -6.171 + 14.5 70.00 -5.785 -5.775 -5.777 -5.793 -5.785 -5.775 -5.777 -5.793 + 15.0 70.00 -5.344 -5.323 -5.317 -5.327 -5.344 -5.323 -5.317 -5.327 + 15.5 70.00 -4.928 -4.896 -4.886 -4.889 -4.928 -4.896 -4.886 -4.889 + 16.0 70.00 -4.405 -4.373 -4.359 -4.367 -4.405 -4.373 -4.359 -4.367 + 13.0 80.00 -6.751 -6.770 -6.794 -6.819 -6.751 -6.770 -6.794 -6.819 + 13.5 80.00 -6.275 -6.292 -6.313 -6.335 -6.275 -6.292 -6.313 -6.335 + 14.0 80.00 -6.020 -6.020 -6.035 -6.055 -6.020 -6.020 -6.035 -6.055 + 14.5 80.00 -5.669 -5.659 -5.661 -5.677 -5.669 -5.659 -5.661 -5.677 + 15.0 80.00 -5.228 -5.207 -5.201 -5.211 -5.228 -5.207 -5.201 -5.211 + 15.5 80.00 -4.783 -4.757 -4.747 -4.754 -4.783 -4.757 -4.747 -4.754 + 16.0 80.00 -4.245 -4.220 -4.210 -4.218 -4.245 -4.220 -4.210 -4.218 + 13.0 90.00 -6.617 -6.636 -6.660 -6.686 -6.617 -6.636 -6.660 -6.686 + 13.5 90.00 -6.141 -6.158 -6.179 -6.201 -6.141 -6.158 -6.179 -6.201 + 14.0 90.00 -5.886 -5.886 -5.901 -5.921 -5.886 -5.886 -5.901 -5.921 + 14.5 90.00 -5.535 -5.525 -5.527 -5.543 -5.535 -5.525 -5.527 -5.543 + 15.0 90.00 -5.094 -5.073 -5.068 -5.077 -5.094 -5.073 -5.068 -5.077 + 15.5 90.00 -4.618 -4.593 -4.588 -4.597 -4.618 -4.593 -4.588 -4.597 + 16.0 90.00 -4.085 -4.068 -4.060 -4.069 -4.085 -4.068 -4.060 -4.069 + 13.0 95.00 -6.541 -6.560 -6.584 -6.610 -6.541 -6.560 -6.584 -6.610 + 13.5 95.00 -6.066 -6.083 -6.103 -6.125 -6.066 -6.083 -6.103 -6.125 + 14.0 95.00 -5.810 -5.810 -5.826 -5.845 -5.810 -5.810 -5.826 -5.845 + 14.5 95.00 -5.460 -5.450 -5.452 -5.467 -5.460 -5.450 -5.452 -5.467 + 15.0 95.00 -5.000 -4.979 -4.979 -4.987 -5.000 -4.979 -4.979 -4.987 + 15.5 95.00 -4.520 -4.497 -4.494 -4.504 -4.520 -4.497 -4.494 -4.504 + 16.0 95.00 -3.986 -3.970 -3.965 -3.976 -3.986 -3.970 -3.965 -3.976 + 13.0 100.00 -6.458 -6.478 -6.502 -6.527 -6.458 -6.478 -6.502 -6.527 + 13.5 100.00 -5.983 -6.000 -6.020 -6.042 -5.983 -6.000 -6.020 -6.042 + 14.0 100.00 -5.728 -5.728 -5.743 -5.762 -5.728 -5.728 -5.743 -5.762 + 14.5 100.00 -5.377 -5.367 -5.369 -5.384 -5.377 -5.367 -5.369 -5.384 + 15.0 100.00 -4.896 -4.879 -4.879 -4.893 -4.896 -4.879 -4.879 -4.893 + 15.5 100.00 -4.421 -4.401 -4.399 -4.411 -4.421 -4.401 -4.399 -4.411 + 16.0 100.00 -3.886 -3.873 -3.870 -3.883 -3.886 -3.873 -3.870 -3.883 + 13.0 105.00 -6.367 -6.386 -6.410 -6.436 -6.367 -6.386 -6.410 -6.436 + 13.5 105.00 -5.891 -5.908 -5.929 -5.951 -5.891 -5.908 -5.929 -5.951 + 14.0 105.00 -5.636 -5.636 -5.651 -5.671 -5.636 -5.636 -5.651 -5.671 + 14.5 105.00 -5.285 -5.276 -5.278 -5.293 -5.285 -5.276 -5.278 -5.293 + 15.0 105.00 -4.785 -4.772 -4.772 -4.785 -4.785 -4.772 -4.772 -4.785 + 15.5 105.00 -4.308 -4.292 -4.292 -4.305 -4.308 -4.292 -4.292 -4.305 + 16.0 105.00 -3.767 -3.754 -3.753 -3.761 -3.767 -3.754 -3.753 -3.761 + 13.0 110.00 -6.265 -6.284 -6.308 -6.333 -6.265 -6.284 -6.308 -6.333 + 13.5 110.00 -5.789 -5.806 -5.827 -5.849 -5.789 -5.806 -5.827 -5.849 + 14.0 110.00 -5.534 -5.534 -5.549 -5.569 -5.534 -5.534 -5.549 -5.569 + 14.5 110.00 -5.183 -5.173 -5.175 -5.190 -5.183 -5.173 -5.175 -5.190 + 15.0 110.00 -4.662 -4.648 -4.650 -4.666 -4.662 -4.648 -4.650 -4.666 + 15.5 110.00 -4.182 -4.169 -4.171 -4.186 -4.182 -4.169 -4.171 -4.186 + 16.0 110.00 -3.648 -3.635 -3.636 -3.638 -3.648 -3.635 -3.636 -3.638 + 13.0 115.00 -6.149 -6.168 -6.192 -6.217 -6.149 -6.168 -6.192 -6.217 + 13.5 115.00 -5.673 -5.690 -5.711 -5.733 -5.673 -5.690 -5.711 -5.733 + 14.0 115.00 -5.418 -5.418 -5.433 -5.453 -5.418 -5.418 -5.433 -5.453 + 14.5 115.00 -5.044 -5.034 -5.039 -5.056 -5.044 -5.034 -5.039 -5.056 + 15.0 115.00 -4.519 -4.509 -4.514 -4.530 -4.519 -4.509 -4.514 -4.530 + 15.5 115.00 -4.040 -4.029 -4.033 -4.050 -4.040 -4.029 -4.033 -4.050 + 16.0 115.00 -3.502 -3.495 -3.500 -3.509 -3.502 -3.495 -3.500 -3.509 + 13.0 120.00 -6.015 -6.034 -6.058 -6.084 -6.015 -6.034 -6.058 -6.084 + 13.5 120.00 -5.539 -5.556 -5.577 -5.599 -5.539 -5.556 -5.577 -5.599 + 14.0 120.00 -5.284 -5.284 -5.299 -5.319 -5.284 -5.284 -5.299 -5.319 + 14.5 120.00 -4.883 -4.873 -4.883 -4.900 -4.883 -4.873 -4.883 -4.900 + 15.0 120.00 -4.358 -4.350 -4.357 -4.376 -4.358 -4.350 -4.357 -4.376 + 15.5 120.00 -3.876 -3.870 -3.876 -3.893 -3.876 -3.870 -3.876 -3.893 + 16.0 120.00 -3.336 -3.330 -3.337 -3.356 -3.336 -3.330 -3.337 -3.356 + 13.0 125.00 -5.856 -5.875 -5.900 -5.925 -5.856 -5.875 -5.900 -5.925 + 13.5 125.00 -5.381 -5.398 -5.418 -5.440 -5.381 -5.398 -5.418 -5.440 + 14.0 125.00 -5.126 -5.126 -5.141 -5.160 -5.126 -5.126 -5.141 -5.160 + 14.5 125.00 -4.690 -4.686 -4.695 -4.717 -4.690 -4.686 -4.695 -4.717 + 15.0 125.00 -4.166 -4.162 -4.171 -4.192 -4.166 -4.162 -4.171 -4.192 + 15.5 125.00 -3.684 -3.680 -3.690 -3.710 -3.684 -3.680 -3.690 -3.710 + 16.0 125.00 -3.144 -3.143 -3.155 -3.171 -3.144 -3.143 -3.155 -3.171 + 13.0 130.00 -5.663 -5.682 -5.706 -5.731 -5.663 -5.682 -5.706 -5.731 + 13.5 130.00 -5.187 -5.204 -5.225 -5.247 -5.187 -5.204 -5.225 -5.247 + 14.0 130.00 -4.932 -4.932 -4.947 -4.967 -4.932 -4.932 -4.947 -4.967 + 14.5 130.00 -4.456 -4.456 -4.469 -4.491 -4.456 -4.456 -4.469 -4.491 + 15.0 130.00 -3.932 -3.932 -3.943 -3.967 -3.932 -3.932 -3.943 -3.967 + 15.5 130.00 -3.449 -3.449 -3.461 -3.483 -3.449 -3.449 -3.461 -3.483 + 16.0 130.00 -2.917 -2.910 -2.924 -2.951 -2.917 -2.910 -2.924 -2.951 + 13.0 132.00 -5.571 -5.590 -5.614 -5.640 -5.571 -5.590 -5.614 -5.640 + 13.5 132.00 -5.096 -5.113 -5.133 -5.155 -5.096 -5.113 -5.133 -5.155 + 14.0 132.00 -4.821 -4.824 -4.839 -4.863 -4.821 -4.824 -4.839 -4.863 + 14.5 132.00 -4.346 -4.348 -4.362 -4.385 -4.346 -4.348 -4.362 -4.385 + 15.0 132.00 -3.821 -3.824 -3.839 -3.860 -3.821 -3.824 -3.839 -3.860 + 15.5 132.00 -3.337 -3.339 -3.353 -3.375 -3.337 -3.339 -3.353 -3.375 + 16.0 132.00 -2.792 -2.788 -2.800 -2.825 -2.792 -2.788 -2.800 -2.825 + 13.0 134.00 -5.469 -5.488 -5.512 -5.538 -5.469 -5.488 -5.512 -5.538 + 13.5 134.00 -4.993 -5.010 -5.031 -5.053 -4.993 -5.010 -5.031 -5.053 + 14.0 134.00 -4.699 -4.703 -4.719 -4.742 -4.699 -4.703 -4.719 -4.742 + 14.5 134.00 -4.222 -4.226 -4.242 -4.265 -4.222 -4.226 -4.242 -4.265 + 15.0 134.00 -3.699 -3.701 -3.717 -3.740 -3.699 -3.701 -3.717 -3.740 + 15.5 134.00 -3.213 -3.216 -3.231 -3.254 -3.213 -3.216 -3.231 -3.254 + 16.0 134.00 -2.666 -2.666 -2.676 -2.699 -2.666 -2.666 -2.676 -2.699 + 13.0 135.00 -5.413 -5.432 -5.456 -5.481 -5.413 -5.432 -5.456 -5.481 + 13.5 135.00 -4.937 -4.954 -4.975 -4.997 -4.937 -4.954 -4.975 -4.997 + 14.0 135.00 -4.629 -4.634 -4.651 -4.675 -4.629 -4.634 -4.651 -4.675 + 14.5 135.00 -4.152 -4.157 -4.173 -4.197 -4.152 -4.157 -4.173 -4.197 + 15.0 135.00 -3.628 -3.632 -3.708 -3.673 -3.628 -3.632 -3.708 -3.673 + 15.5 135.00 -3.143 -3.146 -3.162 -3.186 -3.143 -3.146 -3.162 -3.186 + 16.0 135.00 -2.604 -2.606 -2.614 -2.636 -2.604 -2.606 -2.614 -2.636 + 13.0 136.00 -5.353 -5.372 -5.396 -5.422 -5.353 -5.372 -5.396 -5.422 + 13.5 136.00 -4.877 -4.894 -4.915 -4.937 -4.877 -4.894 -4.915 -4.937 + 14.0 136.00 -4.559 -4.565 -4.583 -4.607 -4.559 -4.565 -4.583 -4.607 + 14.5 136.00 -4.081 -4.088 -4.105 -4.129 -4.081 -4.088 -4.105 -4.129 + 15.0 136.00 -3.558 -3.564 -3.699 -3.606 -3.558 -3.564 -3.699 -3.606 + 15.5 136.00 -3.072 -3.077 -3.093 -3.117 -3.072 -3.077 -3.093 -3.117 + 16.0 136.00 -2.524 -2.525 -2.531 -2.553 -2.524 -2.525 -2.531 -2.553 + 13.0 138.00 -5.219 -5.238 -5.262 -5.288 -5.219 -5.238 -5.262 -5.288 + 13.5 138.00 -4.743 -4.760 -4.781 -4.803 -4.743 -4.760 -4.781 -4.803 + 14.0 138.00 -4.398 -4.407 -4.425 -4.450 -4.398 -4.407 -4.425 -4.450 + 14.5 138.00 -3.921 -3.928 -3.947 -3.975 -3.921 -3.928 -3.947 -3.975 + 15.0 138.00 -3.396 -3.405 -3.423 -3.447 -3.396 -3.405 -3.423 -3.447 + 15.5 138.00 -2.910 -2.917 -2.936 -2.959 -2.910 -2.917 -2.936 -2.959 + 16.0 138.00 -2.364 -2.365 -2.365 -2.385 -2.364 -2.365 -2.365 -2.385 + 13.0 140.00 -5.060 -5.080 -5.104 -5.129 -5.060 -5.080 -5.104 -5.129 + 13.5 140.00 -4.585 -4.602 -4.623 -4.644 -4.585 -4.602 -4.623 -4.644 + 14.0 140.00 -4.206 -4.218 -4.237 -4.263 -4.206 -4.218 -4.237 -4.263 + 14.5 140.00 -3.728 -3.740 -3.759 -3.785 -3.728 -3.740 -3.759 -3.785 + 15.0 140.00 -3.203 -3.214 -3.234 -3.260 -3.203 -3.214 -3.234 -3.260 + 15.5 140.00 -2.714 -2.724 -2.740 -2.764 -2.714 -2.724 -2.740 -2.764 + 16.0 140.00 -2.170 -2.169 -2.173 -2.190 -2.170 -2.169 -2.173 -2.190 + 13.0 141.00 -4.969 -4.988 -5.012 -5.038 -4.969 -4.988 -5.012 -5.038 + 13.5 141.00 -4.494 -4.511 -4.531 -4.553 -4.494 -4.511 -4.531 -4.553 + 14.0 141.00 -4.095 -4.108 -4.128 -4.154 -4.095 -4.108 -4.128 -4.154 + 14.5 141.00 -3.618 -3.631 -3.652 -3.678 -3.618 -3.631 -3.652 -3.678 + 15.0 141.00 -3.085 -3.096 -3.118 -3.143 -3.085 -3.096 -3.118 -3.143 + 15.5 141.00 -2.581 -2.592 -2.617 -2.651 -2.580 -2.590 -2.608 -2.633 + 16.0 141.00 -2.055 -2.048 -2.052 -2.066 -2.055 -2.048 -2.052 -2.066 + 13.0 142.00 -4.867 -4.886 -4.910 -4.935 -4.867 -4.886 -4.910 -4.935 + 13.5 142.00 -4.391 -4.408 -4.429 -4.451 -4.391 -4.408 -4.429 -4.451 + 14.0 142.00 -3.971 -3.983 -4.006 -4.032 -3.971 -3.983 -4.006 -4.032 + 14.5 142.00 -3.492 -3.507 -3.529 -3.554 -3.492 -3.507 -3.529 -3.554 + 15.0 142.00 -2.967 -2.979 -3.002 -3.027 -2.967 -2.979 -3.002 -3.027 + 15.5 142.00 -2.447 -2.461 -2.495 -2.538 -2.446 -2.457 -2.476 -2.502 + 16.0 142.00 -1.939 -1.928 -1.932 -1.943 -1.939 -1.928 -1.932 -1.943 + 13.0 143.00 -4.751 -4.770 -4.794 -4.819 -4.751 -4.770 -4.794 -4.819 + 13.5 143.00 -4.275 -4.292 -4.313 -4.335 -4.275 -4.292 -4.313 -4.335 + 14.0 143.00 -3.827 -3.842 -3.866 -3.889 -3.827 -3.842 -3.866 -3.889 + 14.5 143.00 -3.349 -3.366 -3.387 -3.413 -3.349 -3.366 -3.387 -3.413 + 15.0 143.00 -2.816 -2.830 -2.850 -2.870 -2.816 -2.830 -2.853 -2.878 + 15.5 143.00 -2.299 -2.313 -2.340 -2.378 -2.298 -2.307 -2.323 -2.343 + 16.0 143.00 -1.796 -1.780 -1.779 -1.784 -1.796 -1.780 -1.779 -1.784 + 13.0 144.00 -4.617 -4.636 -4.660 -4.686 -4.617 -4.636 -4.660 -4.686 + 13.5 144.00 -4.141 -4.158 -4.179 -4.201 -4.141 -4.158 -4.179 -4.201 + 14.0 144.00 -3.662 -3.678 -3.701 -3.726 -3.662 -3.678 -3.701 -3.726 + 14.5 144.00 -3.183 -3.201 -3.223 -3.249 -3.183 -3.201 -3.223 -3.249 + 15.0 144.00 -2.666 -2.682 -2.699 -2.712 -2.666 -2.682 -2.703 -2.728 + 15.5 144.00 -2.151 -2.165 -2.184 -2.218 -2.149 -2.157 -2.169 -2.184 + 16.0 144.00 -1.654 -1.633 -1.625 -1.625 -1.654 -1.633 -1.625 -1.625 + 13.0 145.00 -4.458 -4.478 -4.502 -4.527 -4.458 -4.478 -4.502 -4.527 + 13.5 145.00 -3.983 -4.000 -4.020 -4.042 -3.983 -4.000 -4.020 -4.042 + 14.0 145.00 -3.461 -3.480 -3.503 -3.527 -3.461 -3.480 -3.503 -3.527 + 14.5 145.00 -2.987 -3.005 -3.027 -3.052 -2.987 -3.005 -3.027 -3.052 + 15.0 145.00 -2.472 -2.493 -2.475 -2.485 -2.481 -2.498 -2.495 -2.530 + 15.5 145.00 -1.969 -1.974 -1.988 -2.015 -1.967 -1.971 -1.983 -1.996 + 16.0 145.00 -1.481 -1.457 -1.442 -1.435 -1.481 -1.457 -1.442 -1.435 + 13.0 145.50 -4.328 -4.353 -4.378 -4.406 -4.328 -4.353 -4.378 -4.406 + 13.5 145.50 -3.856 -3.874 -3.895 -3.916 -3.856 -3.874 -3.895 -3.916 + 14.0 145.50 -3.345 -3.365 -3.387 -3.411 -3.345 -3.365 -3.387 -3.411 + 14.5 145.50 -2.854 -2.870 -2.886 -2.898 -2.859 -2.881 -2.904 -2.924 + 15.0 145.50 -2.335 -2.352 -2.335 -2.344 -2.345 -2.357 -2.363 -2.377 + 15.5 145.50 -1.845 -1.844 -1.854 -1.875 -1.841 -1.840 -1.850 -1.860 + 16.0 145.50 -1.389 -1.363 -1.345 -1.334 -1.389 -1.363 -1.345 -1.334 + 13.0 146.00 -4.186 -4.213 -4.241 -4.269 -4.186 -4.213 -4.241 -4.269 + 13.5 146.00 -3.728 -3.747 -3.770 -3.790 -3.728 -3.747 -3.770 -3.790 + 14.0 146.00 -3.213 -3.233 -3.255 -3.278 -3.213 -3.233 -3.255 -3.278 + 14.5 146.00 -2.721 -2.735 -2.745 -2.745 -2.730 -2.757 -2.780 -2.796 + 15.0 146.00 -2.199 -2.210 -2.195 -2.202 -2.208 -2.216 -2.231 -2.223 + 15.5 146.00 -1.721 -1.714 -1.719 -1.735 -1.714 -1.710 -1.717 -1.724 + 16.0 146.00 -1.297 -1.268 -1.248 -1.233 -1.297 -1.268 -1.248 -1.233 + 13.0 146.50 -4.028 -4.056 -4.084 -4.112 -4.028 -4.056 -4.084 -4.112 + 13.5 146.50 -3.565 -3.587 -3.609 -3.631 -3.565 -3.587 -3.609 -3.631 + 14.0 146.50 -3.056 -3.076 -3.099 -3.121 -3.056 -3.076 -3.099 -3.121 + 14.5 146.50 -2.543 -2.554 -2.559 -2.565 -2.552 -2.573 -2.591 -2.602 + 15.0 146.50 -2.019 -2.027 -2.021 -2.034 -2.025 -2.030 -2.047 -2.045 + 15.5 146.50 -1.564 -1.554 -1.554 -1.567 -1.561 -1.553 -1.550 -1.554 + 16.0 146.50 -1.206 -1.179 -1.158 -1.140 -1.206 -1.179 -1.158 -1.140 + 13.0 147.00 -3.848 -3.873 -3.900 -3.928 -3.848 -3.873 -3.900 -3.928 + 13.5 147.00 -3.378 -3.401 -3.424 -3.444 -3.378 -3.401 -3.424 -3.444 + 14.0 147.00 -2.854 -2.876 -2.896 -2.914 -2.854 -2.876 -2.896 -2.914 + 14.5 147.00 -2.366 -2.373 -2.374 -2.386 -2.374 -2.389 -2.401 -2.408 + 15.0 147.00 -1.839 -1.845 -1.848 -1.866 -1.842 -1.845 -1.863 -1.866 + 15.5 147.00 -1.388 -1.375 -1.376 -1.390 -1.386 -1.370 -1.364 -1.368 + 16.0 147.00 -1.127 -1.107 -1.089 -1.071 -1.127 -1.107 -1.089 -1.071 + 13.0 147.20 -3.757 -3.782 -3.808 -3.830 -3.757 -3.782 -3.808 -3.830 + 13.5 147.20 -3.285 -3.307 -3.329 -3.348 -3.285 -3.307 -3.329 -3.348 + 14.0 147.20 -2.753 -2.773 -2.792 -2.807 -2.753 -2.773 -2.792 -2.807 + 14.5 147.20 -2.273 -2.276 -2.277 -2.290 -2.281 -2.289 -2.296 -2.301 + 15.0 147.20 -1.743 -1.747 -1.753 -1.773 -1.747 -1.748 -1.762 -1.768 + 15.5 147.20 -1.312 -1.249 -1.301 -1.317 -1.309 -1.291 -1.284 -1.288 + 16.0 147.20 -1.110 -1.095 -1.081 -1.066 -1.110 -1.095 -1.081 -1.066 + 13.0 147.40 -3.667 -3.691 -3.716 -3.733 -3.667 -3.691 -3.716 -3.733 + 13.5 147.40 -3.192 -3.213 -3.234 -3.253 -3.192 -3.213 -3.234 -3.253 + 14.0 147.40 -2.652 -2.670 -2.687 -2.701 -2.652 -2.670 -2.687 -2.701 + 14.5 147.40 -2.181 -2.180 -2.181 -2.194 -2.188 -2.190 -2.191 -2.195 + 15.0 147.40 -1.647 -1.649 -1.658 -1.680 -1.652 -1.651 -1.660 -1.669 + 15.5 147.40 -1.236 -1.222 -1.225 -1.245 -1.228 -1.208 -1.201 -1.208 + 16.0 147.40 -1.092 -1.083 -1.073 -1.061 -1.092 -1.083 -1.073 -1.061 + 13.0 147.50 -3.622 -3.646 -3.670 -3.684 -3.622 -3.646 -3.670 -3.684 + 13.5 147.50 -3.146 -3.166 -3.186 -3.206 -3.146 -3.166 -3.186 -3.206 + 14.0 147.50 -2.602 -2.618 -2.635 -2.648 -2.602 -2.618 -2.635 -2.648 + 14.5 147.50 -2.135 -2.132 -2.133 -2.146 -2.142 -2.140 -2.138 -2.141 + 15.0 147.50 -1.599 -1.600 -1.611 -1.633 -1.605 -1.603 -1.610 -1.620 + 15.5 147.50 -1.198 -1.185 -1.190 -1.211 -1.187 -1.167 -1.160 -1.168 + 16.0 147.50 -1.084 -1.077 -1.069 -1.058 -1.084 -1.077 -1.069 -1.058 + 13.0 147.60 -3.554 -3.575 -3.597 -3.612 -3.553 -3.574 -3.595 -3.608 + 13.5 147.60 -3.069 -3.089 -3.108 -3.127 -3.073 -3.093 -3.109 -3.126 + 14.0 147.60 -2.532 -2.547 -2.549 -2.579 -2.530 -2.545 -2.560 -2.573 + 14.5 147.60 -2.068 -2.067 -2.071 -2.087 -2.074 -2.072 -2.072 -2.077 + 15.0 147.60 -1.551 -1.551 -1.564 -1.587 -1.558 -1.554 -1.559 -1.570 + 15.5 147.60 -1.160 -1.148 -1.154 -1.177 -1.146 -1.125 -1.119 -1.129 + 16.0 147.60 -1.089 -1.087 -1.085 -1.079 -1.089 -1.087 -1.085 -1.079 + 13.0 147.80 -3.418 -3.434 -3.452 -3.467 -3.417 -3.431 -3.446 -3.457 + 13.5 147.80 -2.917 -2.934 -2.952 -2.971 -2.928 -2.946 -2.955 -2.966 + 14.0 147.80 -2.391 -2.406 -2.379 -2.440 -2.387 -2.400 -2.412 -2.423 + 14.5 147.80 -1.935 -1.939 -1.948 -1.967 -1.938 -1.937 -1.940 -1.947 + 15.0 147.80 -1.424 -1.424 -1.523 -1.467 -1.426 -1.418 -1.421 -1.435 + 15.5 147.80 -1.092 -1.082 -1.091 -1.117 -1.069 -1.048 -1.042 -1.059 + 16.0 147.80 -1.099 -1.108 -1.116 -1.119 -1.099 -1.108 -1.116 -1.119 + 13.0 148.00 -3.282 -3.292 -3.306 -3.321 -3.280 -3.288 -3.297 -3.305 + 13.5 148.00 -2.764 -2.780 -2.796 -2.815 -2.783 -2.799 -2.801 -2.807 + 14.0 148.00 -2.251 -2.264 -2.209 -2.302 -2.244 -2.254 -2.264 -2.273 + 14.5 148.00 -1.801 -1.810 -1.824 -1.848 -1.801 -1.801 -1.807 -1.818 + 15.0 148.00 -1.282 -1.284 -1.303 -1.340 -1.276 -1.266 -1.270 -1.288 + 15.5 148.00 -1.041 -1.036 -1.047 -1.075 -1.006 -0.989 -0.990 -1.009 + 16.0 148.00 -1.109 -1.130 -1.147 -1.159 -1.109 -1.130 -1.147 -1.159 + 13.0 148.10 -3.190 -3.202 -3.218 -3.233 -3.191 -3.196 -3.201 -3.203 + 13.5 148.10 -2.679 -2.694 -2.712 -2.734 -2.683 -2.700 -2.705 -2.709 + 14.0 148.10 -2.167 -2.179 -2.146 -2.220 -2.160 -2.166 -2.173 -2.180 + 14.5 148.10 -1.700 -1.711 -1.731 -1.763 -1.697 -1.697 -1.704 -1.717 + 15.0 148.10 -1.212 -1.216 -1.237 -1.281 -1.196 -1.185 -1.193 -1.216 + 15.5 148.10 -1.031 -1.028 -1.039 -1.067 -0.992 -0.980 -0.982 -1.002 + 16.0 148.10 -1.127 -1.156 -1.182 -1.206 -1.127 -1.156 -1.182 -1.206 + 13.0 148.20 -3.097 -3.111 -3.130 -3.144 -3.101 -3.104 -3.106 -3.101 + 13.5 148.20 -2.593 -2.609 -2.629 -2.652 -2.583 -2.602 -2.609 -2.611 + 14.0 148.20 -2.082 -2.094 -2.082 -2.138 -2.076 -2.078 -2.082 -2.086 + 14.5 148.20 -1.599 -1.613 -1.638 -1.678 -1.592 -1.593 -1.600 -1.616 + 15.0 148.20 -1.147 -1.153 -1.177 -1.228 -1.116 -1.108 -1.120 -1.152 + 15.5 148.20 -1.021 -1.020 -1.032 -1.058 -0.979 -0.971 -0.975 -0.996 + 16.0 148.20 -1.145 -1.182 -1.218 -1.252 -1.145 -1.182 -1.218 -1.252 + 13.0 148.30 -2.952 -2.968 -2.993 -3.027 -2.938 -2.939 -2.944 -2.963 + 13.5 148.30 -1.058 -0.957 -0.979 -1.011 -2.428 -2.440 -2.454 -2.481 + 14.0 148.30 -1.957 -1.972 -1.980 -2.037 -1.947 -1.947 -1.951 -1.967 + 14.5 148.30 -1.474 -1.495 -1.532 -1.588 -1.451 -1.456 -1.474 -1.509 + 15.0 148.30 -1.096 -1.105 -1.132 -1.190 -1.048 -1.044 -1.063 -1.106 + 15.5 148.30 -1.034 -1.034 -1.044 -1.065 -0.998 -0.992 -0.997 -1.014 + 16.0 148.30 -1.164 -1.208 -1.253 -1.299 -1.164 -1.208 -1.253 -1.299 + 13.0 148.40 -2.807 -2.824 -2.857 -2.910 -2.775 -2.775 -2.783 -2.824 + 13.5 148.40 -2.304 -2.330 -2.370 -2.435 -2.273 -2.277 -2.298 -2.351 + 14.0 148.40 -1.785 -1.815 -1.857 -1.939 -1.754 -1.759 -1.796 -1.854 + 14.5 148.40 -1.348 -1.382 -1.439 -1.517 -1.290 -1.309 -1.355 -1.423 + 15.0 148.40 -1.077 -1.084 -1.111 -1.172 -1.016 -1.015 -1.039 -1.087 + 15.5 148.40 -1.047 -1.047 -1.056 -1.071 -1.017 -1.014 -1.019 -1.033 + 16.0 148.40 -1.182 -1.234 -1.289 -1.345 -1.182 -1.234 -1.289 -1.345 + 13.0 148.45 -2.666 -2.716 -2.787 -2.864 -2.607 -2.647 -2.699 -2.773 + 13.5 148.45 -2.188 -2.233 -2.300 -2.390 -2.138 -2.161 -2.216 -2.298 + 14.0 148.45 -1.686 -1.738 -1.804 -1.903 -1.631 -1.660 -1.728 -1.812 + 14.5 148.45 -1.303 -1.343 -1.408 -1.495 -1.226 -1.256 -1.317 -1.397 + 15.0 148.45 -1.092 -1.092 -1.116 -1.174 -1.033 -1.031 -1.051 -1.095 + 15.5 148.45 -1.063 -1.063 -1.070 -1.079 -1.042 -1.041 -1.043 -1.054 + 16.0 148.45 -1.191 -1.247 -1.306 -1.368 -1.191 -1.247 -1.306 -1.368 + 13.0 148.50 -2.524 -2.609 -2.717 -2.818 -2.440 -2.520 -2.616 -2.721 + 13.5 148.50 -2.067 -2.149 -2.246 -2.356 -1.988 -2.062 -2.154 -2.261 + 14.0 148.50 -1.613 -1.684 -1.767 -1.879 -1.530 -1.592 -1.684 -1.785 + 14.5 148.50 -1.286 -1.328 -1.395 -1.483 -1.203 -1.238 -1.302 -1.385 + 15.0 148.50 -1.106 -1.101 -1.120 -1.177 -1.051 -1.046 -1.062 -1.103 + 15.5 148.50 -1.080 -1.079 -1.085 -1.086 -1.067 -1.067 -1.067 -1.075 + 16.0 148.50 -1.200 -1.260 -1.324 -1.391 -1.200 -1.260 -1.324 -1.391 + 13.0 148.52 -2.491 -2.588 -2.704 -2.809 -2.403 -2.498 -2.604 -2.712 + 13.5 148.52 -2.044 -2.133 -2.235 -2.347 -1.961 -2.045 -2.144 -2.253 + 14.0 148.52 -1.597 -1.672 -1.759 -1.873 -1.510 -1.578 -1.674 -1.777 + 14.5 148.52 -1.294 -1.332 -1.397 -1.483 -1.218 -1.248 -1.306 -1.387 + 15.0 148.52 -1.118 -1.112 -1.128 -1.182 -1.071 -1.064 -1.077 -1.113 + 15.5 148.52 -1.086 -1.085 -1.091 -1.090 -1.077 -1.078 -1.077 -1.083 + 16.0 148.52 -1.199 -1.260 -1.325 -1.393 -1.199 -1.260 -1.325 -1.393 + 13.0 148.53 -2.474 -2.578 -2.698 -2.805 -2.385 -2.487 -2.597 -2.708 + 13.5 148.53 -2.032 -2.125 -2.230 -2.343 -1.948 -2.036 -2.138 -2.250 + 14.0 148.53 -1.593 -1.670 -1.757 -1.870 -1.507 -1.577 -1.672 -1.777 + 14.5 148.53 -1.298 -1.335 -1.398 -1.483 -1.226 -1.252 -1.309 -1.388 + 15.0 148.53 -1.124 -1.118 -1.132 -1.184 -1.082 -1.074 -1.084 -1.118 + 15.5 148.53 -1.090 -1.088 -1.094 -1.091 -1.082 -1.083 -1.082 -1.088 + 16.0 148.53 -1.199 -1.260 -1.325 -1.394 -1.199 -1.260 -1.325 -1.394 + 13.0 148.54 -2.457 -2.568 -2.692 -2.800 -2.366 -2.476 -2.591 -2.703 + 13.5 148.54 -2.021 -2.117 -2.224 -2.339 -1.934 -2.028 -2.133 -2.246 + 14.0 148.54 -1.593 -1.670 -1.757 -1.870 -1.509 -1.577 -1.672 -1.775 + 14.5 148.54 -1.302 -1.337 -1.399 -1.483 -1.233 -1.257 -1.311 -1.388 + 15.0 148.54 -1.130 -1.123 -1.136 -1.187 -1.092 -1.083 -1.091 -1.123 + 15.5 148.54 -1.093 -1.091 -1.097 -1.093 -1.086 -1.088 -1.087 -1.092 + 16.0 148.54 -1.198 -1.260 -1.326 -1.395 -1.198 -1.260 -1.326 -1.395 + 13.0 148.55 -2.440 -2.558 -2.686 -2.796 -2.348 -2.465 -2.585 -2.699 + 13.5 148.55 -2.009 -2.110 -2.219 -2.335 -1.920 -2.019 -2.128 -2.242 + 14.0 148.55 -1.597 -1.670 -1.757 -1.866 -1.514 -1.580 -1.672 -1.775 + 14.5 148.55 -1.306 -1.339 -1.400 -1.483 -1.240 -1.262 -1.313 -1.389 + 15.0 148.55 -1.136 -1.128 -1.140 -1.189 -1.103 -1.092 -1.098 -1.128 + 15.5 148.55 -1.096 -1.094 -1.100 -1.094 -1.091 -1.094 -1.091 -1.096 + 16.0 148.55 -1.198 -1.260 -1.326 -1.396 -1.198 -1.260 -1.326 -1.396 + 13.0 148.56 -2.451 -2.561 -2.687 -2.795 -2.365 -2.472 -2.587 -2.699 + 13.5 148.56 -2.018 -2.113 -2.220 -2.335 -1.935 -2.026 -2.130 -2.242 + 14.0 148.56 -1.604 -1.674 -1.757 -1.866 -1.524 -1.585 -1.674 -1.775 + 14.5 148.56 -1.317 -1.347 -1.405 -1.485 -1.258 -1.274 -1.321 -1.393 + 15.0 148.56 -1.141 -1.134 -1.144 -1.192 -1.113 -1.101 -1.106 -1.133 + 15.5 148.56 -1.100 -1.098 -1.103 -1.096 -1.096 -1.099 -1.096 -1.100 + 16.0 148.56 -1.198 -1.260 -1.326 -1.396 -1.198 -1.260 -1.326 -1.396 + 13.0 148.57 -2.461 -2.565 -2.688 -2.794 -2.381 -2.479 -2.590 -2.699 + 13.5 148.57 -2.028 -2.116 -2.221 -2.334 -1.950 -2.032 -2.132 -2.243 + 14.0 148.57 -1.613 -1.678 -1.759 -1.866 -1.539 -1.593 -1.678 -1.777 + 14.5 148.57 -1.328 -1.354 -1.409 -1.488 -1.275 -1.287 -1.328 -1.397 + 15.0 148.57 -1.147 -1.139 -1.148 -1.194 -1.124 -1.110 -1.113 -1.138 + 15.5 148.57 -1.103 -1.101 -1.106 -1.097 -1.101 -1.104 -1.101 -1.104 + 16.0 148.57 -1.197 -1.260 -1.327 -1.397 -1.197 -1.260 -1.327 -1.397 + 13.0 148.58 -2.472 -2.569 -2.689 -2.793 -2.398 -2.486 -2.592 -2.699 + 13.5 148.58 -2.037 -2.120 -2.222 -2.333 -1.965 -2.039 -2.135 -2.244 + 14.0 148.58 -1.625 -1.684 -1.762 -1.866 -1.558 -1.604 -1.684 -1.777 + 14.5 148.58 -1.338 -1.362 -1.414 -1.490 -1.292 -1.299 -1.336 -1.401 + 15.0 148.58 -1.153 -1.145 -1.151 -1.197 -1.134 -1.119 -1.120 -1.143 + 15.5 148.58 -1.106 -1.104 -1.109 -1.099 -1.106 -1.110 -1.106 -1.109 + 16.0 148.58 -1.197 -1.260 -1.327 -1.398 -1.197 -1.260 -1.327 -1.398 + 13.0 148.60 -2.493 -2.577 -2.690 -2.790 -2.432 -2.500 -2.597 -2.699 + 13.5 148.60 -2.055 -2.127 -2.223 -2.332 -1.995 -2.053 -2.139 -2.245 + 14.0 148.60 -1.656 -1.703 -1.770 -1.870 -1.606 -1.633 -1.697 -1.783 + 14.5 148.60 -1.360 -1.377 -1.423 -1.495 -1.327 -1.323 -1.351 -1.409 + 15.0 148.60 -1.165 -1.156 -1.159 -1.202 -1.155 -1.137 -1.134 -1.152 + 15.5 148.60 -1.113 -1.110 -1.115 -1.102 -1.116 -1.120 -1.116 -1.117 + 16.0 148.60 -1.196 -1.260 -1.328 -1.400 -1.196 -1.260 -1.328 -1.400 + 13.0 148.70 -2.750 -2.738 -2.780 -2.824 -2.788 -2.728 -2.721 -2.754 + 13.5 148.70 -2.254 -2.276 -2.320 -2.382 -2.261 -2.262 -2.282 -2.326 + 14.0 148.70 -1.857 -1.845 -1.854 -1.910 -1.900 -1.845 -1.827 -1.851 + 14.5 148.70 -1.509 -1.493 -1.504 -1.542 -1.547 -1.502 -1.479 -1.485 + 15.0 148.70 -1.249 -1.230 -1.217 -1.240 -1.287 -1.258 -1.234 -1.224 + 15.5 148.70 -1.144 -1.138 -1.145 -1.116 -1.167 -1.172 -1.162 -1.160 + 16.0 148.70 -1.192 -1.259 -1.331 -1.408 -1.192 -1.259 -1.331 -1.408 + 13.0 148.80 -2.896 -2.879 -2.896 -2.889 -2.955 -2.917 -2.883 -2.857 + 13.5 148.80 -2.453 -2.425 -2.417 -2.433 -2.527 -2.471 -2.425 -2.408 + 14.0 148.80 -2.015 -1.980 -1.957 -1.971 -2.093 -2.033 -1.982 -1.950 + 14.5 148.80 -1.652 -1.614 -1.597 -1.699 -1.730 -1.676 -1.625 -1.587 + 15.0 148.80 -1.334 -1.304 -1.276 -1.277 -1.401 -1.372 -1.335 -1.302 + 15.5 148.80 -1.175 -1.166 -1.175 -1.130 -1.217 -1.224 -1.208 -1.203 + 16.0 148.80 -1.189 -1.259 -1.335 -1.416 -1.189 -1.259 -1.335 -1.416 + 13.0 148.90 -2.995 -2.967 -2.962 -2.941 -3.071 -3.038 -2.992 -2.948 + 13.5 148.90 -2.552 -2.517 -2.492 -2.485 -2.636 -2.592 -2.539 -2.499 + 14.0 148.90 -2.091 -2.053 -2.017 -2.010 -2.173 -2.130 -2.075 -2.026 + 14.5 148.90 -1.750 -1.706 -1.674 -1.662 -1.836 -1.796 -1.738 -1.682 + 15.0 148.90 -1.389 -1.356 -1.319 -1.303 -1.467 -1.449 -1.410 -1.364 + 15.5 148.90 -1.174 -1.166 -1.179 -1.133 -1.218 -1.234 -1.232 -1.219 + 16.0 148.90 -1.185 -1.259 -1.338 -1.425 -1.185 -1.259 -1.338 -1.425 + 13.0 149.00 -3.094 -3.056 -3.028 -2.994 -3.188 -3.159 -3.101 -3.038 + 13.5 149.00 -2.650 -2.609 -2.567 -2.538 -2.745 -2.712 -2.654 -2.590 + 14.0 149.00 -2.167 -2.126 -2.077 -2.049 -2.253 -2.228 -2.167 -2.102 + 14.5 149.00 -1.785 -1.757 -1.724 -1.703 -1.848 -1.845 -1.804 -1.752 + 15.0 149.00 -1.399 -1.373 -1.333 -1.306 -1.474 -1.469 -1.438 -1.388 + 15.5 149.00 -1.173 -1.166 -1.182 -1.135 -1.220 -1.245 -1.255 -1.234 + 16.0 149.00 -1.181 -1.258 -1.342 -1.433 -1.181 -1.258 -1.342 -1.433 + 13.0 149.10 -3.062 -3.041 -3.016 -2.984 -3.131 -3.131 -3.095 -3.044 + 13.5 149.10 -2.563 -2.533 -2.495 -2.426 -2.644 -2.623 -2.576 -2.478 + 14.0 149.10 -2.126 -2.099 -2.057 -2.022 -2.193 -2.198 -2.149 -2.091 + 14.5 149.10 -1.777 -1.780 -1.747 -2.000 -1.804 -1.839 -1.827 -1.785 + 15.0 149.10 -1.353 -1.336 -1.304 -1.273 -1.412 -1.419 -1.401 -1.358 + 15.5 149.10 -1.128 -1.128 -1.151 -1.114 -1.165 -1.201 -1.221 -1.206 + 16.0 149.10 -1.148 -1.223 -1.303 -1.390 -1.148 -1.223 -1.303 -1.390 + 13.0 149.20 -3.029 -3.026 -3.003 -2.974 -3.075 -3.104 -3.088 -3.050 + 13.5 149.20 -2.476 -2.457 -2.423 -2.315 -2.544 -2.535 -2.498 -2.366 + 14.0 149.20 -2.085 -2.073 -2.037 -1.995 -2.133 -2.169 -2.130 -2.080 + 14.5 149.20 -1.726 -1.750 -1.733 -1.708 -1.733 -1.790 -1.796 -1.770 + 15.0 149.20 -1.306 -1.298 -1.274 -1.239 -1.350 -1.370 -1.364 -1.328 + 15.5 149.20 -1.084 -1.090 -1.120 -1.092 -1.110 -1.158 -1.186 -1.179 + 16.0 149.20 -1.114 -1.187 -1.265 -1.348 -1.114 -1.187 -1.265 -1.348 + 13.0 149.30 -2.925 -2.936 -2.915 -2.849 -2.961 -2.992 -2.989 -2.920 + 13.5 149.30 -2.389 -2.381 -2.351 -2.203 -2.443 -2.446 -2.420 -2.254 + 14.0 149.30 -1.977 -1.973 -1.942 -1.888 -2.018 -2.052 -2.027 -1.972 + 14.5 149.30 -1.631 -1.666 -1.666 -1.635 -1.631 -1.699 -1.717 -1.695 + 15.0 149.30 -1.207 -1.207 -1.193 -1.158 -1.244 -1.268 -1.267 -1.235 + 15.5 149.30 -1.006 -1.024 -1.060 -1.044 -1.024 -1.080 -1.114 -1.116 + 16.0 149.30 -1.081 -1.152 -1.226 -1.305 -1.081 -1.152 -1.226 -1.305 + 13.0 149.40 -2.821 -2.845 -2.827 -2.724 -2.848 -2.879 -2.889 -2.790 + 13.5 149.40 -2.302 -2.305 -2.278 -2.092 -2.343 -2.357 -2.342 -2.142 + 14.0 149.40 -1.870 -1.873 -1.848 -1.780 -1.903 -1.936 -1.924 -1.863 + 14.5 149.40 -1.513 -1.544 -1.541 -1.488 -1.504 -1.572 -1.588 -1.550 + 15.0 149.40 -1.108 -1.116 -1.112 -1.077 -1.138 -1.166 -1.171 -1.142 + 15.5 149.40 -0.928 -0.959 -1.000 -0.996 -0.938 -1.001 -1.042 -1.053 + 16.0 149.40 -1.047 -1.117 -1.188 -1.263 -1.047 -1.117 -1.188 -1.263 + 13.0 149.50 -2.640 -2.652 -2.574 -2.044 -2.669 -2.691 -2.629 -2.079 + 13.5 149.50 -2.215 -2.228 -2.206 -1.980 -2.243 -2.268 -2.264 -2.030 + 14.0 149.50 -1.695 -1.693 -1.649 -1.472 -1.727 -1.748 -1.719 -1.532 + 14.5 149.50 -1.398 -1.371 -1.354 -1.272 -1.352 -1.405 -1.405 -1.329 + 15.0 149.50 -0.962 -0.976 -0.974 -0.942 -0.988 -1.016 -1.019 -0.989 + 15.5 149.50 -0.833 -0.877 -0.919 -0.929 -0.834 -0.903 -0.948 -0.966 + 16.0 149.50 -1.014 -1.081 -1.149 -1.220 -1.014 -1.081 -1.149 -1.220 + 13.0 149.60 -2.458 -2.458 -2.321 -1.365 -2.491 -2.502 -2.370 -1.368 + 13.5 149.60 -1.976 -1.960 -1.750 -1.306 -2.006 -2.003 -1.791 -1.333 + 14.0 149.60 -1.520 -1.513 -1.451 -1.164 -1.551 -1.561 -1.514 -1.200 + 14.5 149.60 -1.147 -1.152 -1.114 -0.980 -1.162 -1.192 -1.166 -1.019 + 15.0 149.60 -0.815 -0.836 -0.836 -0.807 -0.839 -0.867 -0.867 -0.836 + 15.5 149.60 -0.738 -0.796 -0.839 -0.863 -0.730 -0.804 -0.854 -0.879 + 16.0 149.60 -0.979 -1.042 -1.102 -1.165 -0.979 -1.042 -1.102 -1.165 + 13.0 149.70 -2.186 -2.120 -1.377 -0.594 -2.222 -2.166 -1.384 -0.591 + 13.5 149.70 -1.738 -1.693 -1.294 -0.633 -1.770 -1.738 -1.319 -0.635 + 14.0 149.70 -1.260 -1.225 -1.038 -0.623 -1.295 -1.272 -1.076 -0.629 + 14.5 149.70 -0.893 -0.876 -0.799 -0.614 -0.917 -0.921 -0.836 -0.623 + 15.0 149.70 -0.625 -0.644 -0.648 -0.627 -0.642 -0.668 -0.665 -0.633 + 15.5 149.70 -0.641 -0.711 -0.751 -0.785 -0.627 -0.700 -0.752 -0.785 + 16.0 149.70 -0.945 -1.002 -1.055 -1.109 -0.945 -1.002 -1.055 -1.109 + 13.0 149.80 -1.699 -0.973 -0.315 -0.027 -1.735 -0.980 -0.312 -0.023 + 13.5 149.80 -1.306 -0.930 -0.374 -0.079 -1.344 -0.948 -0.375 -0.077 + 14.0 149.80 -0.863 -0.690 -0.364 -0.123 -0.900 -0.717 -0.368 -0.117 + 14.5 149.80 -0.539 -0.489 -0.372 -0.232 -0.559 -0.513 -0.377 -0.220 + 15.0 149.80 -0.397 -0.423 -0.437 -0.432 -0.399 -0.426 -0.432 -0.414 + 15.5 149.80 -0.544 -0.625 -0.664 -0.708 -0.523 -0.595 -0.650 -0.690 + 16.0 149.80 -0.910 -0.962 -1.008 -1.054 -0.910 -0.962 -1.008 -1.054 + 13.0 149.85 -0.932 -0.249 0.076 0.173 -0.943 -0.249 0.079 0.177 + 13.5 149.85 -0.810 -0.303 0.015 0.127 -0.830 -0.304 0.017 0.128 + 14.0 149.85 -0.435 -0.267 -0.068 0.049 -0.454 -0.277 -0.065 0.055 + 14.5 149.85 -0.295 -0.235 -0.141 -0.063 -0.305 -0.240 -0.132 -0.047 + 15.0 149.85 -0.277 -0.308 -0.329 -0.337 -0.270 -0.300 -0.315 -0.312 + 15.5 149.85 -0.509 -0.589 -0.625 -0.670 -0.488 -0.555 -0.607 -0.648 + 16.0 149.85 -0.893 -0.942 -0.984 -1.026 -0.893 -0.942 -0.984 -1.026 + 13.0 149.90 0.037 0.294 0.354 0.316 0.037 0.297 0.358 0.320 + 13.5 149.90 -0.062 0.202 0.289 0.270 -0.062 0.205 0.291 0.271 + 14.0 149.90 -0.006 0.156 0.229 0.221 -0.008 0.163 0.237 0.227 + 14.5 149.90 -0.003 0.031 0.068 0.077 0.009 0.041 0.083 0.093 + 15.0 149.90 -0.157 -0.194 -0.223 -0.243 -0.140 -0.175 -0.198 -0.210 + 15.5 149.90 -0.475 -0.553 -0.586 -0.633 -0.452 -0.515 -0.564 -0.606 + 16.0 149.90 -0.876 -0.923 -0.961 -0.999 -0.876 -0.923 -0.961 -0.999 + 13.0 149.94 0.577 0.572 0.495 0.391 0.577 0.573 0.500 0.394 + 13.5 149.94 0.486 0.504 0.447 0.354 0.491 0.508 0.450 0.354 + 14.0 149.94 0.393 0.415 0.378 0.303 0.401 0.423 0.387 0.310 + 14.5 149.94 0.224 0.214 0.200 0.163 0.246 0.229 0.215 0.180 + 15.0 149.94 -0.083 -0.118 -0.151 -0.180 -0.063 -0.096 -0.123 -0.146 + 15.5 149.94 -0.447 -0.525 -0.555 -0.603 -0.424 -0.482 -0.530 -0.572 + 16.0 149.94 -0.862 -0.907 -0.942 -0.976 -0.862 -0.907 -0.942 -0.976 + 13.0 149.95 0.660 0.614 0.517 0.403 0.660 0.615 0.521 0.406 + 13.5 149.95 0.566 0.546 0.470 0.366 0.572 0.551 0.472 0.366 + 14.0 149.95 0.468 0.461 0.405 0.319 0.478 0.470 0.413 0.325 + 14.5 149.95 0.281 0.260 0.233 0.185 0.305 0.276 0.248 0.201 + 15.0 149.95 -0.064 -0.099 -0.133 -0.164 -0.043 -0.077 -0.105 -0.129 + 15.5 149.95 -0.440 -0.517 -0.547 -0.595 -0.417 -0.474 -0.522 -0.564 + 16.0 149.95 -0.859 -0.903 -0.937 -0.971 -0.859 -0.903 -0.937 -0.971 + 13.0 149.96 0.743 0.656 0.539 0.415 0.743 0.658 0.543 0.418 + 13.5 149.96 0.645 0.589 0.493 0.378 0.652 0.593 0.494 0.378 + 14.0 149.96 0.544 0.507 0.431 0.335 0.555 0.516 0.439 0.340 + 14.5 149.96 0.317 0.289 0.254 0.199 0.342 0.305 0.268 0.215 + 15.0 149.96 -0.045 -0.080 -0.115 -0.148 -0.024 -0.057 -0.086 -0.113 + 15.5 149.96 -0.433 -0.510 -0.540 -0.588 -0.410 -0.466 -0.513 -0.555 + 16.0 149.96 -0.855 -0.899 -0.933 -0.965 -0.855 -0.899 -0.933 -0.965 + 13.0 149.98 0.837 0.704 0.566 0.430 0.837 0.705 0.569 0.433 + 13.5 149.98 0.767 0.653 0.528 0.398 0.773 0.657 0.529 0.398 + 14.0 149.98 0.652 0.572 0.470 0.356 0.662 0.579 0.476 0.362 + 14.5 149.98 0.390 0.347 0.295 0.227 0.416 0.363 0.309 0.241 + 15.0 149.98 -0.008 -0.043 -0.079 -0.117 0.015 -0.018 -0.049 -0.081 + 15.5 149.98 -0.419 -0.496 -0.524 -0.572 -0.396 -0.450 -0.496 -0.538 + 16.0 149.98 -0.849 -0.891 -0.923 -0.954 -0.849 -0.891 -0.923 -0.954 + 13.0 149.99 0.848 0.710 0.569 0.433 0.847 0.711 0.573 0.436 + 13.5 149.99 0.791 0.666 0.535 0.402 0.796 0.669 0.536 0.402 + 14.0 149.99 0.688 0.593 0.483 0.364 0.696 0.600 0.489 0.369 + 14.5 149.99 0.426 0.376 0.316 0.241 0.453 0.391 0.330 0.254 + 15.0 149.99 0.011 -0.024 -0.061 -0.101 0.034 0.002 -0.030 -0.065 + 15.5 149.99 -0.412 -0.489 -0.516 -0.565 -0.389 -0.442 -0.487 -0.530 + 16.0 149.99 -0.845 -0.887 -0.918 -0.949 -0.845 -0.887 -0.918 -0.949 + 13.0 150.00 0.859 0.715 0.573 0.436 0.858 0.717 0.576 0.439 + 13.5 150.00 0.814 0.678 0.542 0.407 0.819 0.681 0.543 0.407 + 14.0 150.00 0.710 0.608 0.491 0.369 0.718 0.613 0.497 0.375 + 14.5 150.00 0.462 0.405 0.336 0.255 0.490 0.420 0.350 0.267 + 15.0 150.00 0.030 -0.005 -0.043 -0.086 0.053 0.021 -0.012 -0.049 + 15.5 150.00 -0.406 -0.481 -0.509 -0.558 -0.382 -0.434 -0.479 -0.521 + 16.0 150.00 -0.842 -0.883 -0.914 -0.943 -0.842 -0.883 -0.914 -0.943 + 13.0 150.01 0.833 0.703 0.568 0.435 0.832 0.704 0.572 0.438 + 13.5 150.01 0.805 0.674 0.541 0.407 0.809 0.677 0.542 0.407 + 14.0 150.01 0.720 0.615 0.497 0.375 0.725 0.619 0.501 0.378 + 14.5 150.01 0.468 0.413 0.345 0.262 0.493 0.426 0.357 0.273 + 15.0 150.01 0.037 0.005 -0.033 -0.076 0.060 0.030 -0.002 -0.040 + 15.5 150.01 -0.403 -0.477 -0.503 -0.552 -0.380 -0.430 -0.474 -0.516 + 16.0 150.01 -0.840 -0.881 -0.911 -0.940 -0.840 -0.881 -0.911 -0.940 + 13.0 150.02 0.808 0.691 0.563 0.435 0.806 0.692 0.567 0.438 + 13.5 150.02 0.797 0.670 0.540 0.408 0.799 0.673 0.540 0.408 + 14.0 150.02 0.717 0.615 0.498 0.377 0.720 0.618 0.502 0.380 + 14.5 150.02 0.474 0.421 0.352 0.268 0.497 0.432 0.363 0.278 + 15.0 150.02 0.044 0.014 -0.023 -0.066 0.066 0.038 0.008 -0.030 + 15.5 150.02 -0.400 -0.473 -0.498 -0.546 -0.378 -0.426 -0.468 -0.510 + 16.0 150.02 -0.839 -0.879 -0.909 -0.937 -0.839 -0.879 -0.909 -0.937 + 13.0 150.03 0.747 0.661 0.551 0.429 0.745 0.662 0.554 0.433 + 13.5 150.03 0.754 0.650 0.531 0.405 0.754 0.651 0.531 0.405 + 14.0 150.03 0.701 0.608 0.497 0.377 0.702 0.610 0.500 0.378 + 14.5 150.03 0.480 0.429 0.361 0.275 0.500 0.438 0.369 0.283 + 15.0 150.03 0.051 0.024 -0.012 -0.056 0.072 0.047 0.018 -0.021 + 15.5 150.03 -0.398 -0.468 -0.493 -0.540 -0.375 -0.422 -0.463 -0.504 + 16.0 150.03 -0.838 -0.877 -0.906 -0.933 -0.838 -0.877 -0.906 -0.933 + 13.0 150.04 0.686 0.631 0.538 0.423 0.683 0.631 0.542 0.428 + 13.5 150.04 0.708 0.627 0.521 0.401 0.709 0.628 0.521 0.401 + 14.0 150.04 0.672 0.593 0.491 0.375 0.671 0.594 0.494 0.377 + 14.5 150.04 0.486 0.438 0.369 0.281 0.503 0.444 0.376 0.289 + 15.0 150.04 0.058 0.033 -0.002 -0.046 0.078 0.056 0.027 -0.011 + 15.5 150.04 -0.395 -0.464 -0.487 -0.534 -0.373 -0.418 -0.458 -0.498 + 16.0 150.04 -0.836 -0.875 -0.903 -0.930 -0.836 -0.875 -0.903 -0.930 + 13.0 150.05 0.590 0.585 0.517 0.414 0.586 0.585 0.521 0.418 + 13.5 150.05 0.629 0.588 0.502 0.393 0.628 0.587 0.502 0.392 + 14.0 150.05 0.625 0.569 0.480 0.369 0.623 0.569 0.482 0.372 + 14.5 150.05 0.491 0.446 0.377 0.288 0.507 0.450 0.382 0.294 + 15.0 150.05 0.065 0.043 0.009 -0.036 0.084 0.064 0.037 -0.002 + 15.5 150.05 -0.393 -0.459 -0.482 -0.528 -0.371 -0.414 -0.453 -0.492 + 16.0 150.05 -0.835 -0.873 -0.901 -0.927 -0.835 -0.873 -0.901 -0.927 + 13.0 150.06 0.494 0.539 0.497 0.405 0.490 0.539 0.500 0.408 + 13.5 150.06 0.549 0.548 0.483 0.384 0.548 0.547 0.483 0.382 + 14.0 150.06 0.579 0.545 0.468 0.364 0.574 0.543 0.470 0.367 + 14.5 150.06 0.468 0.433 0.371 0.286 0.481 0.435 0.376 0.293 + 15.0 150.06 0.072 0.052 0.019 -0.027 0.090 0.073 0.047 0.008 + 15.5 150.06 -0.390 -0.455 -0.477 -0.522 -0.369 -0.411 -0.448 -0.486 + 16.0 150.06 -0.834 -0.871 -0.898 -0.923 -0.834 -0.871 -0.898 -0.923 + 13.0 150.08 0.229 0.409 0.435 0.375 0.225 0.409 0.437 0.379 + 13.5 150.08 0.330 0.435 0.428 0.357 0.327 0.432 0.427 0.355 + 14.0 150.08 0.446 0.473 0.433 0.346 0.436 0.468 0.433 0.348 + 14.5 150.08 0.421 0.407 0.361 0.284 0.428 0.406 0.363 0.289 + 15.0 150.08 0.086 0.071 0.040 -0.007 0.102 0.090 0.067 0.026 + 15.5 150.08 -0.385 -0.446 -0.466 -0.511 -0.364 -0.403 -0.438 -0.474 + 16.0 150.08 -0.831 -0.868 -0.893 -0.917 -0.831 -0.868 -0.893 -0.917 + 13.0 150.10 -0.036 0.279 0.372 0.345 -0.040 0.278 0.375 0.349 + 13.5 150.10 0.111 0.322 0.373 0.330 0.107 0.318 0.371 0.328 + 14.0 150.10 0.288 0.380 0.384 0.322 0.276 0.373 0.382 0.322 + 14.5 150.10 0.375 0.382 0.350 0.281 0.377 0.377 0.350 0.286 + 15.0 150.10 0.100 0.090 0.061 0.013 0.114 0.107 0.086 0.045 + 15.5 150.10 -0.380 -0.437 -0.456 -0.499 -0.360 -0.395 -0.427 -0.462 + 16.0 150.10 -0.828 -0.864 -0.888 -0.910 -0.828 -0.864 -0.888 -0.910 + 13.0 150.12 -0.100 0.159 0.289 0.299 -0.103 0.158 0.291 0.303 + 13.5 150.12 -0.026 0.186 0.288 0.285 -0.027 0.183 0.285 0.282 + 14.0 150.12 0.130 0.274 0.322 0.290 0.121 0.265 0.320 0.290 + 14.5 150.12 0.303 0.328 0.318 0.265 0.303 0.320 0.315 0.267 + 15.0 150.12 0.092 0.087 0.064 0.019 0.102 0.101 0.086 0.049 + 15.5 150.12 -0.374 -0.428 -0.445 -0.487 -0.356 -0.387 -0.417 -0.451 + 16.0 150.12 -0.826 -0.860 -0.883 -0.903 -0.826 -0.860 -0.883 -0.903 + 13.0 150.14 -0.163 0.038 0.206 0.253 -0.165 0.038 0.208 0.257 + 13.5 150.14 -0.162 0.050 0.203 0.239 -0.161 0.047 0.200 0.236 + 14.0 150.14 0.009 0.161 0.253 0.250 0.000 0.155 0.248 0.250 + 14.5 150.14 0.232 0.275 0.286 0.249 0.230 0.264 0.280 0.248 + 15.0 150.14 0.084 0.084 0.067 0.026 0.091 0.095 0.085 0.053 + 15.5 150.14 -0.369 -0.419 -0.434 -0.475 -0.351 -0.379 -0.407 -0.439 + 16.0 150.14 -0.823 -0.856 -0.878 -0.897 -0.823 -0.856 -0.878 -0.897 + 13.0 150.15 -0.195 -0.022 0.165 0.230 -0.196 -0.023 0.166 0.234 + 13.5 150.15 -0.230 -0.018 0.161 0.216 -0.228 -0.020 0.157 0.213 + 14.0 150.15 -0.028 0.108 0.213 0.228 -0.031 0.103 0.209 0.227 + 14.5 150.15 0.196 0.248 0.269 0.241 0.193 0.235 0.262 0.238 + 15.0 150.15 0.081 0.083 0.068 0.029 0.085 0.091 0.085 0.055 + 15.5 150.15 -0.367 -0.415 -0.429 -0.470 -0.349 -0.375 -0.401 -0.433 + 16.0 150.15 -0.822 -0.854 -0.875 -0.893 -0.822 -0.854 -0.875 -0.893 + 13.0 150.16 -0.163 -0.045 0.120 0.200 -0.163 -0.045 0.122 0.203 + 13.5 150.16 -0.207 -0.061 0.113 0.187 -0.204 -0.063 0.109 0.183 + 14.0 150.16 -0.064 0.055 0.174 0.206 -0.063 0.051 0.170 0.204 + 14.5 150.16 0.167 0.217 0.245 0.225 0.165 0.204 0.237 0.222 + 15.0 150.16 0.077 0.081 0.070 0.032 0.080 0.088 0.084 0.057 + 15.5 150.16 -0.364 -0.410 -0.424 -0.464 -0.347 -0.371 -0.396 -0.427 + 16.0 150.16 -0.820 -0.852 -0.873 -0.890 -0.820 -0.852 -0.873 -0.890 + 13.0 150.18 -0.098 -0.090 0.031 0.138 -0.099 -0.090 0.033 0.141 + 13.5 150.18 -0.162 -0.147 0.018 0.129 -0.156 -0.148 0.013 0.124 + 14.0 150.18 -0.095 -0.032 0.087 0.151 -0.087 -0.032 0.084 0.149 + 14.5 150.18 0.108 0.155 0.197 0.195 0.109 0.142 0.187 0.190 + 15.0 150.18 0.069 0.078 0.073 0.039 0.068 0.082 0.083 0.061 + 15.5 150.18 -0.359 -0.401 -0.413 -0.452 -0.343 -0.363 -0.386 -0.415 + 16.0 150.18 -0.817 -0.849 -0.867 -0.883 -0.817 -0.849 -0.867 -0.883 + 13.0 150.20 -0.033 -0.135 -0.058 0.077 -0.034 -0.135 -0.056 0.080 + 13.5 150.20 -0.139 -0.199 -0.070 0.070 -0.133 -0.199 -0.075 0.064 + 14.0 150.20 -0.125 -0.120 0.001 0.096 -0.111 -0.115 -0.002 0.093 + 14.5 150.20 0.049 0.093 0.149 0.164 0.053 0.079 0.137 0.158 + 15.0 150.20 0.061 0.076 0.076 0.045 0.057 0.076 0.083 0.064 + 15.5 150.20 -0.354 -0.393 -0.402 -0.440 -0.338 -0.356 -0.376 -0.403 + 16.0 150.20 -0.815 -0.845 -0.862 -0.877 -0.815 -0.845 -0.862 -0.877 + 13.0 150.25 -0.269 -0.291 -0.274 -0.109 -0.273 -0.292 -0.273 -0.106 + 13.5 150.25 -0.301 -0.353 -0.312 -0.121 -0.301 -0.354 -0.318 -0.128 + 14.0 150.25 -0.341 -0.317 -0.223 -0.085 -0.333 -0.310 -0.223 -0.088 + 14.5 150.25 -0.071 -0.050 0.009 0.064 -0.068 -0.061 -0.007 0.052 + 15.0 150.25 0.004 0.028 0.038 0.025 -0.001 0.023 0.037 0.034 + 15.5 150.25 -0.359 -0.387 -0.392 -0.424 -0.346 -0.356 -0.369 -0.391 + 16.0 150.25 -0.808 -0.835 -0.849 -0.860 -0.808 -0.835 -0.849 -0.860 + 13.0 150.30 -0.921 -0.636 -0.517 -0.322 -0.928 -0.638 -0.516 -0.320 + 13.5 150.30 -0.790 -0.642 -0.559 -0.341 -0.796 -0.646 -0.567 -0.351 + 14.0 150.30 -0.558 -0.514 -0.447 -0.265 -0.554 -0.506 -0.444 -0.270 + 14.5 150.30 -0.224 -0.197 -0.143 -0.059 -0.226 -0.210 -0.161 -0.076 + 15.0 150.30 -0.053 -0.020 0.000 0.004 -0.059 -0.030 -0.008 0.003 + 15.5 150.30 -0.364 -0.381 -0.382 -0.408 -0.354 -0.356 -0.362 -0.378 + 16.0 150.30 -0.802 -0.826 -0.836 -0.844 -0.802 -0.826 -0.836 -0.844 + 13.0 150.40 -2.161 -1.807 -1.221 -0.825 -2.161 -1.812 -1.221 -0.824 + 13.5 150.40 -1.609 -1.466 -1.156 -0.829 -1.620 -1.471 -1.167 -0.842 + 14.0 150.40 -1.079 -1.022 -0.900 -0.694 -1.082 -1.028 -0.902 -0.700 + 14.5 150.40 -0.582 -0.539 -0.467 -0.351 -0.587 -0.556 -0.488 -0.374 + 15.0 150.40 -0.202 -0.166 -0.131 -0.096 -0.212 -0.182 -0.151 -0.112 + 15.5 150.40 -0.374 -0.370 -0.361 -0.377 -0.370 -0.356 -0.349 -0.353 + 16.0 150.40 -0.788 -0.807 -0.811 -0.810 -0.788 -0.807 -0.811 -0.810 + 13.0 150.50 -2.431 -2.435 -2.137 -1.450 -2.431 -2.437 -2.140 -1.450 + 13.5 150.50 -1.844 -1.784 -1.633 -1.363 -1.851 -1.785 -1.640 -1.376 + 14.0 150.50 -1.367 -1.364 -1.301 -1.119 -1.366 -1.367 -1.309 -1.128 + 14.5 150.50 -0.854 -0.842 -0.788 -0.665 -0.854 -0.854 -0.807 -0.688 + 15.0 150.50 -0.363 -0.331 -0.292 -0.238 -0.369 -0.345 -0.318 -0.272 + 15.5 150.50 -0.414 -0.394 -0.377 -0.378 -0.413 -0.390 -0.371 -0.363 + 16.0 150.50 -0.775 -0.788 -0.785 -0.777 -0.775 -0.788 -0.785 -0.777 + 13.0 150.60 -2.607 -2.629 -2.620 -2.160 -2.604 -2.627 -2.622 -2.162 + 13.5 150.60 -2.080 -2.101 -2.110 -1.897 -2.081 -2.100 -2.113 -1.909 + 14.0 150.60 -1.559 -1.570 -1.561 -1.467 -1.556 -1.570 -1.565 -1.478 + 14.5 150.60 -1.052 -1.057 -1.039 -0.953 -1.048 -1.063 -1.051 -0.975 + 15.0 150.60 -0.517 -0.493 -0.461 -0.400 -0.526 -0.509 -0.486 -0.432 + 15.5 150.60 -0.455 -0.418 -0.393 -0.380 -0.456 -0.424 -0.394 -0.374 + 16.0 150.60 -0.783 -0.791 -0.785 -0.773 -0.783 -0.791 -0.785 -0.773 + 13.0 150.70 -2.753 -2.775 -2.778 -2.544 -2.750 -2.772 -2.779 -2.547 + 13.5 150.70 -2.223 -2.245 -2.265 -2.146 -2.221 -2.242 -2.265 -2.155 + 14.0 150.70 -1.687 -1.700 -1.699 -1.632 -1.684 -1.700 -1.702 -1.640 + 14.5 150.70 -1.210 -1.223 -1.220 -1.178 -1.203 -1.225 -1.228 -1.196 + 15.0 150.70 -0.658 -0.642 -0.618 -0.565 -0.661 -0.656 -0.642 -0.597 + 15.5 150.70 -0.507 -0.463 -0.435 -0.412 -0.509 -0.475 -0.441 -0.414 + 16.0 150.70 -0.791 -0.794 -0.784 -0.769 -0.791 -0.794 -0.784 -0.769 + 13.0 150.80 -2.900 -2.921 -2.936 -2.928 -2.896 -2.917 -2.936 -2.932 + 13.5 150.80 -2.366 -2.388 -2.419 -2.396 -2.362 -2.384 -2.418 -2.400 + 14.0 150.80 -1.815 -1.829 -1.837 -1.796 -1.811 -1.829 -1.838 -1.803 + 14.5 150.80 -1.334 -1.350 -1.356 -1.339 -1.327 -1.352 -1.361 -1.352 + 15.0 150.80 -0.780 -0.775 -0.762 -0.719 -0.783 -0.783 -0.780 -0.750 + 15.5 150.80 -0.559 -0.509 -0.478 -0.445 -0.562 -0.526 -0.488 -0.454 + 16.0 150.80 -0.799 -0.798 -0.784 -0.765 -0.799 -0.798 -0.784 -0.765 + 13.0 150.90 -2.982 -3.008 -3.028 -3.028 -2.979 -3.004 -3.027 -3.035 + 13.5 150.90 -2.472 -2.495 -2.529 -2.514 -2.468 -2.490 -2.526 -2.516 + 14.0 150.90 -1.943 -1.959 -1.974 -1.961 -1.939 -1.958 -1.974 -1.965 + 14.5 150.90 -1.439 -1.452 -1.461 -1.458 -1.432 -1.453 -1.463 -1.467 + 15.0 150.90 -0.883 -0.887 -0.881 -0.849 -0.887 -0.892 -0.896 -0.876 + 15.5 150.90 -0.615 -0.563 -0.533 -0.497 -0.618 -0.583 -0.547 -0.510 + 16.0 150.90 -0.807 -0.801 -0.783 -0.761 -0.807 -0.801 -0.783 -0.761 + 13.0 151.00 -3.064 -3.095 -3.120 -3.128 -3.061 -3.090 -3.117 -3.139 + 13.5 151.00 -2.578 -2.602 -2.638 -2.633 -2.575 -2.597 -2.635 -2.633 + 14.0 151.00 -2.071 -2.088 -2.112 -2.125 -2.067 -2.088 -2.111 -2.128 + 14.5 151.00 -1.536 -1.550 -1.559 -1.562 -1.529 -1.551 -1.561 -1.567 + 15.0 151.00 -0.987 -1.000 -1.000 -0.979 -0.992 -1.001 -1.011 -1.003 + 15.5 151.00 -0.672 -0.618 -0.588 -0.548 -0.674 -0.640 -0.605 -0.567 + 16.0 151.00 -0.815 -0.804 -0.783 -0.757 -0.815 -0.804 -0.783 -0.757 + 13.0 151.20 -3.215 -3.243 -3.271 -3.288 -3.213 -3.240 -3.269 -3.294 + 13.5 151.20 -2.733 -2.756 -2.788 -2.792 -2.730 -2.752 -2.785 -2.792 + 14.0 151.20 -2.223 -2.239 -2.260 -2.271 -2.219 -2.237 -2.257 -2.272 + 14.5 151.20 -1.710 -1.733 -1.747 -1.763 -1.704 -1.732 -1.750 -1.766 + 15.0 151.20 -1.167 -1.181 -1.194 -1.188 -1.166 -1.182 -1.201 -1.208 + 15.5 151.20 -0.783 -0.735 -0.710 -0.670 -0.785 -0.757 -0.726 -0.695 + 16.0 151.20 -0.853 -0.837 -0.812 -0.784 -0.853 -0.837 -0.812 -0.784 + 13.0 151.40 -3.366 -3.392 -3.421 -3.447 -3.365 -3.391 -3.420 -3.450 + 13.5 151.40 -2.887 -2.909 -2.937 -2.951 -2.886 -2.908 -2.936 -2.951 + 14.0 151.40 -2.375 -2.390 -2.408 -2.418 -2.372 -2.386 -2.403 -2.416 + 14.5 151.40 -1.884 -1.916 -1.936 -1.964 -1.880 -1.913 -1.939 -1.964 + 15.0 151.40 -1.321 -1.340 -1.361 -1.367 -1.319 -1.339 -1.364 -1.381 + 15.5 151.40 -0.889 -0.851 -0.833 -0.796 -0.886 -0.867 -0.848 -0.821 + 16.0 151.40 -0.891 -0.870 -0.842 -0.811 -0.891 -0.870 -0.842 -0.811 + 13.0 151.50 -3.441 -3.466 -3.496 -3.527 -3.441 -3.466 -3.496 -3.527 + 13.5 151.50 -2.964 -2.986 -3.011 -3.031 -2.963 -2.985 -3.011 -3.031 + 14.0 151.50 -2.451 -2.466 -2.481 -2.491 -2.449 -2.461 -2.476 -2.488 + 14.5 151.50 -1.971 -2.007 -2.030 -2.064 -1.968 -2.003 -2.034 -2.063 + 15.0 151.50 -1.385 -1.405 -1.428 -1.439 -1.383 -1.405 -1.431 -1.451 + 15.5 151.50 -0.940 -0.905 -0.890 -0.858 -0.939 -0.921 -0.905 -0.882 + 16.0 151.50 -0.910 -0.886 -0.857 -0.824 -0.910 -0.886 -0.857 -0.824 + 13.0 151.60 -3.495 -3.520 -3.550 -3.582 -3.495 -3.520 -3.550 -3.582 + 13.5 151.60 -3.018 -3.040 -3.064 -3.086 -3.017 -3.040 -3.064 -3.086 + 14.0 151.60 -2.504 -2.519 -2.531 -2.540 -2.501 -2.513 -2.526 -2.537 + 14.5 151.60 -2.025 -2.062 -2.087 -2.123 -2.022 -2.058 -2.089 -2.122 + 15.0 151.60 -1.449 -1.470 -1.496 -1.511 -1.447 -1.471 -1.498 -1.521 + 15.5 151.60 -0.991 -0.959 -0.947 -0.921 -0.991 -0.975 -0.963 -0.943 + 16.0 151.60 -0.933 -0.908 -0.879 -0.846 -0.933 -0.908 -0.879 -0.846 + 13.0 151.80 -3.604 -3.627 -3.657 -3.690 -3.604 -3.627 -3.657 -3.690 + 13.5 151.80 -3.125 -3.147 -3.171 -3.196 -3.126 -3.148 -3.171 -3.196 + 14.0 151.80 -2.609 -2.625 -2.629 -2.637 -2.607 -2.618 -2.625 -2.634 + 14.5 151.80 -2.133 -2.172 -2.203 -2.243 -2.131 -2.168 -2.200 -2.239 + 15.0 151.80 -1.558 -1.581 -1.610 -1.631 -1.556 -1.585 -1.614 -1.643 + 15.5 151.80 -1.086 -1.064 -1.058 -1.039 -1.085 -1.075 -1.069 -1.061 + 16.0 151.80 -0.980 -0.952 -0.923 -0.891 -0.980 -0.952 -0.923 -0.891 + 13.0 152.00 -3.712 -3.735 -3.764 -3.799 -3.712 -3.735 -3.764 -3.799 + 13.5 152.00 -3.233 -3.255 -3.277 -3.306 -3.234 -3.256 -3.278 -3.306 + 14.0 152.00 -2.714 -2.730 -2.728 -2.735 -2.712 -2.724 -2.724 -2.730 + 14.5 152.00 -2.241 -2.281 -2.319 -2.362 -2.240 -2.277 -2.312 -2.356 + 15.0 152.00 -1.668 -1.693 -1.724 -1.750 -1.666 -1.699 -1.730 -1.764 + 15.5 152.00 -1.172 -1.157 -1.157 -1.146 -1.171 -1.165 -1.165 -1.165 + 16.0 152.00 -1.026 -0.996 -0.967 -0.936 -1.026 -0.996 -0.967 -0.936 + 13.0 152.50 -3.932 -3.951 -3.979 -4.011 -3.932 -3.951 -3.979 -4.011 + 13.5 152.50 -3.462 -3.483 -3.509 -3.536 -3.462 -3.483 -3.509 -3.536 + 14.0 152.50 -2.928 -2.951 -2.959 -2.967 -2.928 -2.951 -2.959 -2.967 + 14.5 152.50 -2.419 -2.458 -2.488 -2.529 -2.418 -2.455 -2.482 -2.522 + 15.0 152.50 -1.889 -1.917 -1.951 -1.979 -1.886 -1.932 -1.959 -2.000 + 15.5 152.50 -1.371 -1.371 -1.381 -1.386 -1.369 -1.373 -1.384 -1.398 + 16.0 152.50 -1.149 -1.118 -1.090 -1.066 -1.149 -1.118 -1.090 -1.066 + 13.0 153.00 -4.110 -4.131 -4.157 -4.189 -4.110 -4.131 -4.157 -4.189 + 13.5 153.00 -3.636 -3.658 -3.682 -3.710 -3.636 -3.658 -3.682 -3.710 + 14.0 153.00 -3.106 -3.127 -3.143 -3.165 -3.106 -3.127 -3.143 -3.165 + 14.5 153.00 -2.597 -2.635 -2.658 -2.697 -2.597 -2.633 -2.652 -2.688 + 15.0 153.00 -2.068 -2.097 -2.130 -2.165 -2.066 -2.099 -2.137 -2.161 + 15.5 153.00 -1.541 -1.553 -1.570 -1.590 -1.539 -1.553 -1.572 -1.595 + 16.0 153.00 -1.268 -1.240 -1.217 -1.199 -1.268 -1.240 -1.217 -1.199 + 13.0 153.50 -4.262 -4.281 -4.308 -4.341 -4.262 -4.281 -4.308 -4.341 + 13.5 153.50 -3.788 -3.807 -3.830 -3.860 -3.788 -3.807 -3.830 -3.860 + 14.0 153.50 -3.258 -3.277 -3.305 -3.326 -3.258 -3.277 -3.305 -3.326 + 14.5 153.50 -2.769 -2.805 -2.825 -2.860 -2.773 -2.805 -2.826 -2.865 + 15.0 153.50 -2.219 -2.251 -2.288 -2.328 -2.221 -2.252 -2.290 -2.323 + 15.5 153.50 -1.665 -1.681 -1.703 -1.727 -1.683 -1.703 -1.726 -1.756 + 16.0 153.50 -1.381 -1.357 -1.338 -1.327 -1.381 -1.357 -1.338 -1.327 + 13.0 154.00 -4.396 -4.413 -4.441 -4.472 -4.396 -4.413 -4.441 -4.472 + 13.5 154.00 -3.917 -3.936 -3.963 -3.991 -3.917 -3.936 -3.963 -3.991 + 14.0 154.00 -3.389 -3.409 -3.437 -3.466 -3.389 -3.409 -3.437 -3.466 + 14.5 154.00 -2.941 -2.975 -2.992 -3.023 -2.950 -2.977 -3.000 -3.041 + 15.0 154.00 -2.371 -2.406 -2.446 -2.491 -2.377 -2.406 -2.444 -2.484 + 15.5 154.00 -1.790 -1.810 -1.835 -1.864 -1.827 -1.854 -1.879 -1.917 + 16.0 154.00 -1.488 -1.466 -1.453 -1.449 -1.488 -1.466 -1.453 -1.449 + 13.0 154.50 -4.514 -4.533 -4.561 -4.595 -4.514 -4.533 -4.561 -4.595 + 13.5 154.50 -4.029 -4.046 -4.072 -4.100 -4.029 -4.046 -4.072 -4.100 + 14.0 154.50 -3.545 -3.565 -3.593 -3.629 -3.545 -3.565 -3.593 -3.629 + 14.5 154.50 -3.060 -3.086 -3.110 -3.144 -3.064 -3.087 -3.114 -3.153 + 15.0 154.50 -2.489 -2.518 -2.564 -2.598 -2.496 -2.521 -2.564 -2.597 + 15.5 154.50 -1.915 -1.938 -1.967 -2.001 -1.932 -1.959 -1.988 -2.026 + 16.0 154.50 -1.584 -1.565 -1.557 -1.556 -1.584 -1.565 -1.557 -1.556 + 13.0 155.00 -4.618 -4.636 -4.664 -4.697 -4.618 -4.636 -4.664 -4.697 + 13.5 155.00 -4.141 -4.157 -4.181 -4.209 -4.141 -4.157 -4.181 -4.209 + 14.0 155.00 -3.656 -3.674 -3.706 -3.740 -3.656 -3.674 -3.706 -3.740 + 14.5 155.00 -3.178 -3.197 -3.228 -3.264 -3.178 -3.197 -3.228 -3.264 + 15.0 155.00 -2.607 -2.631 -2.682 -2.706 -2.614 -2.636 -2.684 -2.710 + 15.5 155.00 -2.040 -2.067 -2.100 -2.138 -2.038 -2.065 -2.097 -2.134 + 16.0 155.00 -1.680 -1.664 -1.660 -1.664 -1.680 -1.664 -1.660 -1.664 + 13.0 156.00 -4.776 -4.795 -4.822 -4.855 -4.776 -4.795 -4.822 -4.855 + 13.5 156.00 -4.299 -4.316 -4.339 -4.367 -4.299 -4.316 -4.339 -4.367 + 14.0 156.00 -3.836 -3.854 -3.883 -3.921 -3.836 -3.854 -3.883 -3.921 + 14.5 156.00 -3.361 -3.382 -3.409 -3.446 -3.361 -3.382 -3.409 -3.446 + 15.0 156.00 -2.830 -2.848 -2.876 -2.910 -2.830 -2.848 -2.876 -2.910 + 15.5 156.00 -2.225 -2.255 -2.291 -2.334 -2.231 -2.262 -2.290 -2.331 + 16.0 156.00 -1.845 -1.836 -1.836 -1.848 -1.845 -1.836 -1.836 -1.848 + 13.0 157.00 -4.910 -4.929 -4.956 -4.989 -4.910 -4.929 -4.956 -4.989 + 13.5 157.00 -4.433 -4.450 -4.473 -4.501 -4.433 -4.450 -4.473 -4.501 + 14.0 157.00 -3.991 -4.004 -4.086 -4.074 -3.991 -4.004 -4.086 -4.074 + 14.5 157.00 -3.516 -3.532 -3.561 -3.599 -3.516 -3.532 -3.561 -3.599 + 15.0 157.00 -2.982 -2.998 -3.027 -3.063 -2.982 -2.998 -3.027 -3.063 + 15.5 157.00 -2.387 -2.419 -2.446 -2.487 -2.393 -2.426 -2.449 -2.492 + 16.0 157.00 -1.982 -1.976 -1.981 -1.998 -1.982 -1.976 -1.981 -1.998 + 13.0 158.00 -5.026 -5.045 -5.072 -5.105 -5.026 -5.045 -5.072 -5.105 + 13.5 158.00 -4.549 -4.566 -4.589 -4.617 -4.549 -4.566 -4.589 -4.617 + 14.0 158.00 -4.126 -4.140 -4.169 -4.207 -4.126 -4.140 -4.169 -4.207 + 14.5 158.00 -3.648 -3.664 -3.693 -3.730 -3.648 -3.664 -3.693 -3.730 + 15.0 158.00 -3.134 -3.148 -3.177 -3.215 -3.134 -3.148 -3.177 -3.215 + 15.5 158.00 -2.548 -2.583 -2.602 -2.640 -2.554 -2.590 -2.609 -2.654 + 16.0 158.00 -2.119 -2.116 -2.127 -2.148 -2.119 -2.116 -2.127 -2.148 + 13.0 160.00 -5.220 -5.238 -5.266 -5.299 -5.220 -5.238 -5.266 -5.299 + 13.5 160.00 -4.743 -4.759 -4.783 -4.811 -4.743 -4.759 -4.783 -4.811 + 14.0 160.00 -4.354 -4.366 -4.394 -4.432 -4.354 -4.366 -4.394 -4.432 + 14.5 160.00 -3.876 -3.889 -3.917 -3.955 -3.876 -3.889 -3.917 -3.955 + 15.0 160.00 -3.362 -3.374 -3.402 -3.441 -3.362 -3.374 -3.402 -3.441 + 15.5 160.00 -2.833 -2.842 -2.866 -2.900 -2.833 -2.842 -2.866 -2.900 + 16.0 160.00 -2.341 -2.343 -2.366 -2.385 -2.341 -2.343 -2.366 -2.385 + 13.0 162.00 -5.378 -5.397 -5.424 -5.457 -5.378 -5.397 -5.424 -5.457 + 13.5 162.00 -4.901 -4.918 -4.942 -4.969 -4.901 -4.918 -4.942 -4.969 + 14.0 162.00 -4.542 -4.553 -4.580 -4.620 -4.542 -4.553 -4.580 -4.620 + 14.5 162.00 -4.065 -4.075 -4.102 -4.142 -4.065 -4.075 -4.102 -4.142 + 15.0 162.00 -3.550 -3.559 -3.588 -3.629 -3.550 -3.559 -3.588 -3.629 + 15.5 162.00 -3.062 -3.074 -3.099 -3.138 -3.062 -3.074 -3.099 -3.138 + 16.0 162.00 -2.548 -2.556 -2.580 -2.611 -2.548 -2.556 -2.580 -2.611 + 13.0 164.00 -5.512 -5.531 -5.558 -5.591 -5.512 -5.531 -5.558 -5.591 + 13.5 164.00 -5.035 -5.052 -5.075 -5.103 -5.035 -5.052 -5.075 -5.103 + 14.0 164.00 -4.701 -4.710 -4.738 -4.780 -4.701 -4.710 -4.738 -4.780 + 14.5 164.00 -4.227 -4.236 -4.264 -4.305 -4.227 -4.236 -4.264 -4.305 + 15.0 164.00 -3.710 -3.719 -3.745 -3.788 -3.710 -3.719 -3.745 -3.788 + 15.5 164.00 -3.228 -3.237 -3.264 -3.305 -3.228 -3.237 -3.264 -3.305 + 16.0 164.00 -2.717 -2.727 -2.752 -2.786 -2.717 -2.727 -2.752 -2.786 + 13.0 165.00 -5.572 -5.591 -5.618 -5.651 -5.572 -5.591 -5.618 -5.651 + 13.5 165.00 -5.095 -5.112 -5.135 -5.163 -5.095 -5.112 -5.135 -5.163 + 14.0 165.00 -4.779 -4.788 -4.815 -4.860 -4.779 -4.788 -4.815 -4.860 + 14.5 165.00 -4.299 -4.307 -4.335 -4.377 -4.299 -4.307 -4.335 -4.377 + 15.0 165.00 -3.780 -3.788 -3.815 -3.858 -3.780 -3.788 -3.815 -3.858 + 15.5 165.00 -3.302 -3.309 -3.337 -3.379 -3.302 -3.309 -3.337 -3.379 + 16.0 165.00 -2.801 -2.812 -2.839 -2.873 -2.801 -2.812 -2.839 -2.873 + 13.0 166.00 -5.628 -5.647 -5.674 -5.707 -5.628 -5.647 -5.674 -5.707 + 13.5 166.00 -5.151 -5.168 -5.191 -5.219 -5.151 -5.168 -5.191 -5.219 + 14.0 166.00 -4.857 -4.866 -4.893 -4.939 -4.857 -4.866 -4.893 -4.939 + 14.5 166.00 -4.372 -4.379 -4.407 -4.450 -4.372 -4.379 -4.407 -4.450 + 15.0 166.00 -3.851 -3.857 -3.886 -3.928 -3.851 -3.857 -3.886 -3.928 + 15.5 166.00 -3.375 -3.382 -3.410 -3.453 -3.375 -3.382 -3.410 -3.453 + 16.0 166.00 -2.859 -2.870 -2.894 -2.930 -2.859 -2.870 -2.894 -2.930 + 13.0 168.00 -5.731 -5.749 -5.776 -5.809 -5.731 -5.749 -5.776 -5.809 + 13.5 168.00 -5.253 -5.270 -5.294 -5.322 -5.253 -5.270 -5.294 -5.322 + 14.0 168.00 -4.983 -4.979 -5.013 -5.058 -4.983 -4.979 -5.013 -5.058 + 14.5 168.00 -4.500 -4.507 -4.536 -4.582 -4.500 -4.507 -4.536 -4.582 + 15.0 168.00 -3.979 -3.987 -4.014 -4.059 -3.979 -3.987 -4.014 -4.059 + 15.5 168.00 -3.498 -3.504 -3.533 -3.578 -3.498 -3.504 -3.533 -3.578 + 16.0 168.00 -2.975 -2.985 -3.006 -3.044 -2.975 -2.985 -3.006 -3.044 + 13.0 170.00 -5.822 -5.841 -5.868 -5.901 -5.822 -5.841 -5.868 -5.901 + 13.5 170.00 -5.345 -5.362 -5.385 -5.413 -5.345 -5.362 -5.385 -5.413 + 14.0 170.00 -5.074 -5.080 -5.110 -5.155 -5.074 -5.080 -5.110 -5.155 + 14.5 170.00 -4.597 -4.604 -4.633 -4.678 -4.597 -4.604 -4.633 -4.678 + 15.0 170.00 -4.074 -4.081 -4.110 -4.155 -4.074 -4.081 -4.110 -4.155 + 15.5 170.00 -3.593 -3.600 -3.629 -3.676 -3.593 -3.600 -3.629 -3.676 + 16.0 170.00 -3.092 -3.101 -3.117 -3.158 -3.092 -3.101 -3.117 -3.158 + 13.0 175.00 -6.016 -6.034 -6.061 -6.095 -6.016 -6.034 -6.061 -6.095 + 13.5 175.00 -5.539 -5.555 -5.579 -5.607 -5.539 -5.555 -5.579 -5.607 + 14.0 175.00 -5.267 -5.274 -5.303 -5.349 -5.267 -5.274 -5.303 -5.349 + 14.5 175.00 -4.793 -4.801 -4.830 -4.876 -4.793 -4.801 -4.830 -4.876 + 15.0 175.00 -4.271 -4.278 -4.308 -4.356 -4.271 -4.278 -4.308 -4.356 + 15.5 175.00 -3.783 -3.793 -3.824 -3.873 -3.783 -3.793 -3.824 -3.873 + 16.0 175.00 -3.280 -3.291 -3.312 -3.357 -3.280 -3.291 -3.312 -3.357 + 13.0 180.00 -6.174 -6.193 -6.220 -6.253 -6.174 -6.193 -6.220 -6.253 + 13.5 180.00 -5.697 -5.714 -5.737 -5.765 -5.697 -5.714 -5.737 -5.765 + 14.0 180.00 -5.426 -5.433 -5.462 -5.507 -5.426 -5.433 -5.462 -5.507 + 14.5 180.00 -4.939 -4.951 -4.987 -5.035 -4.939 -4.951 -4.987 -5.035 + 15.0 180.00 -4.418 -4.429 -4.463 -4.513 -4.418 -4.429 -4.463 -4.513 + 15.5 180.00 -3.928 -3.943 -3.979 -4.028 -3.928 -3.943 -3.979 -4.028 + 16.0 180.00 -3.433 -3.442 -3.470 -3.526 -3.433 -3.442 -3.470 -3.526 + 13.0 185.00 -6.308 -6.327 -6.354 -6.387 -6.308 -6.327 -6.354 -6.387 + 13.5 185.00 -5.831 -5.848 -5.871 -5.899 -5.831 -5.848 -5.871 -5.899 + 14.0 185.00 -5.560 -5.566 -5.596 -5.641 -5.560 -5.566 -5.596 -5.641 + 14.5 185.00 -5.041 -5.063 -5.103 -5.158 -5.041 -5.063 -5.103 -5.158 + 15.0 185.00 -4.514 -4.538 -4.578 -4.633 -4.514 -4.538 -4.578 -4.633 + 15.5 185.00 -4.046 -4.064 -4.103 -4.157 -4.046 -4.064 -4.103 -4.157 + 16.0 185.00 -3.553 -3.551 -3.597 -3.631 -3.553 -3.551 -3.597 -3.631 + 13.0 190.00 -6.424 -6.443 -6.470 -6.503 -6.424 -6.443 -6.470 -6.503 + 13.5 190.00 -5.947 -5.964 -5.987 -6.015 -5.947 -5.964 -5.987 -6.015 + 14.0 190.00 -5.676 -5.682 -5.712 -5.757 -5.676 -5.682 -5.712 -5.757 + 14.5 190.00 -5.105 -5.141 -5.191 -5.253 -5.105 -5.141 -5.191 -5.253 + 15.0 190.00 -4.573 -4.613 -4.664 -4.726 -4.573 -4.613 -4.664 -4.726 + 15.5 190.00 -4.157 -4.178 -4.218 -4.272 -4.157 -4.178 -4.218 -4.272 + 16.0 190.00 -3.583 -3.606 -3.654 -3.672 -3.583 -3.606 -3.654 -3.672 + 13.0 192.00 -6.467 -6.485 -6.512 -6.545 -6.467 -6.485 -6.512 -6.545 + 13.5 192.00 -5.989 -6.006 -6.030 -6.058 -5.989 -6.006 -6.030 -6.058 + 14.0 192.00 -5.718 -5.725 -5.754 -5.799 -5.718 -5.725 -5.754 -5.799 + 14.5 192.00 -5.148 -5.183 -5.233 -5.296 -5.148 -5.183 -5.233 -5.296 + 15.0 192.00 -4.494 -4.495 -4.563 -4.600 -4.494 -4.495 -4.563 -4.600 + 15.5 192.00 -4.114 -4.131 -4.164 -4.211 -4.114 -4.131 -4.164 -4.211 + 16.0 192.00 -3.570 -3.597 -3.578 -3.620 -3.570 -3.597 -3.578 -3.620 + 13.0 193.00 -6.487 -6.505 -6.533 -6.566 -6.487 -6.505 -6.533 -6.566 + 13.5 193.00 -6.010 -6.026 -6.050 -6.078 -6.010 -6.026 -6.050 -6.078 + 14.0 193.00 -5.739 -5.745 -5.774 -5.820 -5.739 -5.745 -5.774 -5.820 + 14.5 193.00 -5.168 -5.204 -5.254 -5.316 -5.168 -5.204 -5.254 -5.316 + 15.0 193.00 -4.454 -4.437 -4.513 -4.537 -4.454 -4.437 -4.513 -4.537 + 15.5 193.00 -4.093 -4.107 -4.137 -4.180 -4.093 -4.107 -4.137 -4.180 + 16.0 193.00 -3.500 -3.495 -3.510 -3.539 -3.500 -3.495 -3.510 -3.539 + 13.0 194.00 -6.507 -6.525 -6.553 -6.586 -6.507 -6.525 -6.553 -6.586 + 13.5 194.00 -6.030 -6.046 -6.070 -6.098 -6.030 -6.046 -6.070 -6.098 + 14.0 194.00 -5.759 -5.765 -5.794 -5.840 -5.759 -5.765 -5.794 -5.840 + 14.5 194.00 -5.188 -5.224 -5.274 -5.336 -5.188 -5.224 -5.274 -5.336 + 15.0 194.00 -4.414 -4.378 -4.463 -4.474 -4.414 -4.378 -4.463 -4.474 + 15.5 194.00 -4.072 -4.084 -4.110 -4.149 -4.072 -4.084 -4.110 -4.149 + 16.0 194.00 -3.377 -3.349 -3.364 -3.377 -3.377 -3.349 -3.364 -3.377 + 13.0 194.80 -6.523 -6.541 -6.568 -6.601 -6.523 -6.541 -6.568 -6.601 + 13.5 194.80 -6.045 -6.062 -6.086 -6.114 -6.045 -6.062 -6.086 -6.114 + 14.0 194.80 -5.774 -5.781 -5.810 -5.855 -5.774 -5.781 -5.810 -5.855 + 14.5 194.80 -5.204 -5.239 -5.290 -5.352 -5.204 -5.239 -5.290 -5.352 + 15.0 194.80 -4.382 -4.331 -4.422 -4.424 -4.382 -4.331 -4.422 -4.424 + 15.5 194.80 -3.924 -3.900 -3.893 -3.900 -3.924 -3.900 -3.893 -3.900 + 16.0 194.80 -3.149 -3.102 -3.107 -3.089 -3.149 -3.102 -3.107 -3.089 + 13.0 195.00 -6.526 -6.545 -6.572 -6.605 -6.526 -6.545 -6.572 -6.605 + 13.5 195.00 -6.049 -6.066 -6.090 -6.117 -6.049 -6.066 -6.090 -6.117 + 14.0 195.00 -5.778 -5.785 -5.814 -5.859 -5.778 -5.785 -5.814 -5.859 + 14.5 195.00 -5.207 -5.243 -5.293 -5.356 -5.207 -5.243 -5.293 -5.356 + 15.0 195.00 -4.374 -4.320 -4.412 -4.411 -4.374 -4.320 -4.412 -4.411 + 15.5 195.00 -3.795 -3.749 -3.717 -3.695 -3.795 -3.749 -3.717 -3.695 + 16.0 195.00 -3.092 -3.040 -3.043 -3.017 -3.092 -3.040 -3.043 -3.017 + 13.0 195.20 -6.530 -6.549 -6.576 -6.609 -6.530 -6.549 -6.576 -6.609 + 13.5 195.20 -6.053 -6.070 -6.093 -6.121 -6.053 -6.070 -6.093 -6.121 + 14.0 195.20 -5.782 -5.789 -5.818 -5.863 -5.782 -5.789 -5.818 -5.863 + 14.5 195.20 -5.211 -5.247 -5.297 -5.360 -5.211 -5.247 -5.297 -5.360 + 15.0 195.20 -4.229 -4.181 -4.119 -4.991 -4.229 -4.181 -4.119 -4.991 + 15.5 195.20 -3.666 -3.599 -3.542 -3.489 -3.666 -3.599 -3.542 -3.489 + 16.0 195.20 -3.006 -2.962 -2.961 -2.933 -3.006 -2.962 -2.961 -2.933 + 13.0 195.40 -6.534 -6.553 -6.580 -6.613 -6.534 -6.553 -6.580 -6.613 + 13.5 195.40 -6.057 -6.074 -6.097 -6.125 -6.057 -6.074 -6.097 -6.125 + 14.0 195.40 -5.786 -5.792 -5.822 -5.867 -5.786 -5.792 -5.822 -5.867 + 14.5 195.40 -5.215 -5.251 -5.301 -5.363 -5.215 -5.251 -5.301 -5.363 + 15.0 195.40 -3.682 -3.564 -3.480 -3.440 -3.682 -3.564 -3.480 -3.440 + 15.5 195.40 -3.357 -3.309 -3.271 -3.246 -3.357 -3.309 -3.271 -3.246 + 16.0 195.40 -2.920 -2.883 -2.878 -2.848 -2.920 -2.883 -2.878 -2.848 + 13.0 195.60 -6.538 -6.556 -6.584 -6.617 -6.538 -6.556 -6.584 -6.617 + 13.5 195.60 -6.061 -6.077 -6.101 -6.129 -6.061 -6.077 -6.101 -6.129 + 14.0 195.60 -5.790 -5.796 -5.825 -5.871 -5.790 -5.796 -5.825 -5.871 + 14.5 195.60 -5.219 -5.255 -5.305 -5.367 -5.219 -5.255 -5.305 -5.367 + 15.0 195.60 -3.167 -3.188 -3.214 -3.253 -3.167 -3.188 -3.214 -3.253 + 15.5 195.60 -3.048 -3.019 -3.000 -3.003 -3.048 -3.019 -3.000 -3.003 + 16.0 195.60 -2.834 -2.805 -2.796 -2.764 -2.834 -2.805 -2.796 -2.764 + 13.0 195.80 -6.542 -6.560 -6.587 -6.621 -6.542 -6.560 -6.587 -6.621 + 13.5 195.80 -6.065 -6.081 -6.105 -6.133 -6.065 -6.081 -6.105 -6.133 + 14.0 195.80 -5.793 -5.800 -5.829 -5.875 -5.793 -5.800 -5.829 -5.875 + 14.5 195.80 -5.223 -5.258 -5.309 -5.371 -5.223 -5.258 -5.309 -5.371 + 15.0 195.80 -3.471 -3.463 -3.450 -3.429 -3.471 -3.463 -3.450 -3.429 + 15.5 195.80 -3.093 -3.076 -3.065 -3.063 -3.093 -3.076 -3.065 -3.063 + 16.0 195.80 -2.748 -2.726 -2.713 -2.680 -2.748 -2.726 -2.713 -2.680 + 13.0 196.00 -6.546 -6.564 -6.591 -6.624 -6.546 -6.564 -6.591 -6.624 + 13.5 196.00 -6.068 -6.085 -6.109 -6.137 -6.068 -6.085 -6.109 -6.137 + 14.0 196.00 -5.797 -5.804 -5.833 -5.878 -5.797 -5.804 -5.833 -5.878 + 14.5 196.00 -5.227 -5.262 -5.313 -5.375 -5.227 -5.262 -5.313 -5.375 + 15.0 196.00 -3.654 -3.652 -3.650 -3.640 -3.654 -3.652 -3.650 -3.640 + 15.5 196.00 -3.138 -3.133 -3.130 -3.124 -3.138 -3.133 -3.130 -3.124 + 16.0 196.00 -2.662 -2.648 -2.631 -2.595 -2.662 -2.648 -2.631 -2.595 + 13.0 196.40 -6.553 -6.571 -6.599 -6.632 -6.553 -6.571 -6.599 -6.632 + 13.5 196.40 -6.076 -6.092 -6.116 -6.144 -6.076 -6.092 -6.116 -6.144 + 14.0 196.40 -5.805 -5.811 -5.841 -5.886 -5.805 -5.811 -5.841 -5.886 + 14.5 196.40 -5.234 -5.270 -5.320 -5.382 -5.234 -5.270 -5.320 -5.382 + 15.0 196.40 -3.834 -3.837 -3.841 -3.845 -3.834 -3.837 -3.841 -3.845 + 15.5 196.40 -3.334 -3.330 -3.330 -3.332 -3.334 -3.330 -3.330 -3.332 + 16.0 196.40 -2.704 -2.686 -2.676 -2.653 -2.704 -2.686 -2.676 -2.653 + 13.0 196.50 -6.555 -6.573 -6.601 -6.634 -6.555 -6.573 -6.601 -6.634 + 13.5 196.50 -6.078 -6.094 -6.118 -6.146 -6.078 -6.094 -6.118 -6.146 + 14.0 196.50 -5.807 -5.813 -5.842 -5.888 -5.807 -5.813 -5.842 -5.888 + 14.5 196.50 -5.236 -5.272 -5.322 -5.384 -5.236 -5.272 -5.322 -5.384 + 15.0 196.50 -3.879 -3.883 -3.889 -3.896 -3.879 -3.883 -3.889 -3.896 + 15.5 196.50 -3.363 -3.359 -3.360 -3.363 -3.363 -3.359 -3.360 -3.363 + 16.0 196.50 -2.714 -2.695 -2.688 -2.668 -2.714 -2.695 -2.688 -2.668 + 13.0 197.00 -6.564 -6.583 -6.610 -6.643 -6.564 -6.583 -6.610 -6.643 + 13.5 197.00 -6.087 -6.104 -6.127 -6.155 -6.087 -6.104 -6.127 -6.155 + 14.0 197.00 -5.816 -5.823 -5.852 -5.897 -5.816 -5.823 -5.852 -5.897 + 14.5 197.00 -5.245 -5.281 -5.331 -5.393 -5.245 -5.281 -5.331 -5.393 + 15.0 197.00 -4.016 -4.038 -4.067 -4.093 -4.016 -4.038 -4.067 -4.093 + 15.5 197.00 -3.504 -3.504 -3.509 -3.517 -3.504 -3.504 -3.509 -3.517 + 16.0 197.00 -2.767 -2.742 -2.745 -2.740 -2.767 -2.742 -2.745 -2.740 + 13.0 198.00 -6.583 -6.601 -6.628 -6.661 -6.583 -6.601 -6.628 -6.661 + 13.5 198.00 -6.105 -6.122 -6.146 -6.174 -6.105 -6.122 -6.146 -6.174 + 14.0 198.00 -5.834 -5.841 -5.870 -5.915 -5.834 -5.841 -5.870 -5.915 + 14.5 198.00 -5.263 -5.299 -5.349 -5.412 -5.263 -5.299 -5.349 -5.412 + 15.0 198.00 -4.113 -4.134 -4.160 -4.184 -4.113 -4.134 -4.160 -4.184 + 15.5 198.00 -3.670 -3.672 -3.678 -3.688 -3.670 -3.672 -3.678 -3.688 + 16.0 198.00 -2.907 -2.900 -2.900 -2.903 -2.907 -2.900 -2.900 -2.903 + 13.0 199.00 -6.600 -6.619 -6.646 -6.679 -6.600 -6.619 -6.646 -6.679 + 13.5 199.00 -6.123 -6.140 -6.164 -6.191 -6.123 -6.140 -6.164 -6.191 + 14.0 199.00 -5.852 -5.859 -5.888 -5.933 -5.852 -5.859 -5.888 -5.933 + 14.5 199.00 -5.281 -5.317 -5.367 -5.430 -5.281 -5.317 -5.367 -5.430 + 15.0 199.00 -4.209 -4.229 -4.253 -4.275 -4.209 -4.229 -4.253 -4.275 + 15.5 199.00 -3.757 -3.761 -3.771 -3.782 -3.757 -3.761 -3.771 -3.782 + 16.0 199.00 -3.027 -3.024 -3.030 -3.032 -3.027 -3.024 -3.030 -3.032 + 13.0 200.00 -6.618 -6.636 -6.664 -6.697 -6.618 -6.636 -6.664 -6.697 + 13.5 200.00 -6.141 -6.157 -6.181 -6.209 -6.141 -6.157 -6.181 -6.209 + 14.0 200.00 -5.870 -5.876 -5.905 -5.951 -5.870 -5.876 -5.905 -5.951 + 14.5 200.00 -5.299 -5.335 -5.385 -5.447 -5.299 -5.335 -5.385 -5.447 + 15.0 200.00 -4.305 -4.325 -4.346 -4.367 -4.305 -4.325 -4.346 -4.367 + 15.5 200.00 -3.845 -3.851 -3.863 -3.876 -3.845 -3.851 -3.863 -3.876 + 16.0 200.00 -3.123 -3.122 -3.128 -3.136 -3.123 -3.122 -3.128 -3.136 + 13.0 202.00 -6.652 -6.670 -6.698 -6.731 -6.652 -6.670 -6.698 -6.731 + 13.5 202.00 -6.175 -6.191 -6.215 -6.243 -6.175 -6.191 -6.215 -6.243 + 14.0 202.00 -5.904 -5.910 -5.940 -5.985 -5.904 -5.910 -5.940 -5.985 + 14.5 202.00 -5.333 -5.369 -5.419 -5.481 -5.333 -5.369 -5.419 -5.481 + 15.0 202.00 -4.396 -4.416 -4.438 -4.461 -4.396 -4.416 -4.438 -4.461 + 15.5 202.00 -3.925 -3.931 -3.945 -3.960 -3.925 -3.931 -3.945 -3.960 + 16.0 202.00 -3.253 -3.256 -3.265 -3.274 -3.253 -3.256 -3.265 -3.274 + 13.0 205.00 -6.701 -6.719 -6.746 -6.780 -6.701 -6.719 -6.746 -6.780 + 13.5 205.00 -6.224 -6.240 -6.264 -6.292 -6.224 -6.240 -6.264 -6.292 + 14.0 205.00 -5.952 -5.959 -5.988 -6.034 -5.952 -5.959 -5.988 -6.034 + 14.5 205.00 -5.382 -5.417 -5.468 -5.530 -5.382 -5.417 -5.468 -5.530 + 15.0 205.00 -4.532 -4.553 -4.577 -4.604 -4.532 -4.553 -4.577 -4.604 + 15.5 205.00 -4.046 -4.052 -4.067 -4.085 -4.046 -4.052 -4.067 -4.085 + 16.0 205.00 -3.406 -3.406 -3.406 -3.428 -3.406 -3.406 -3.406 -3.428 + 13.0 210.00 -6.776 -6.795 -6.822 -6.855 -6.776 -6.795 -6.822 -6.855 + 13.5 210.00 -6.299 -6.316 -6.339 -6.367 -6.299 -6.316 -6.339 -6.367 + 14.0 210.00 -6.028 -6.035 -6.064 -6.109 -6.028 -6.035 -6.064 -6.109 + 14.5 210.00 -5.457 -5.493 -5.543 -5.606 -5.457 -5.493 -5.543 -5.606 + 15.0 210.00 -4.740 -4.745 -4.759 -4.777 -4.740 -4.745 -4.759 -4.777 + 15.5 210.00 -4.246 -4.254 -4.271 -4.293 -4.246 -4.254 -4.271 -4.293 + 16.0 210.00 -3.587 -3.599 -3.595 -3.609 -3.587 -3.599 -3.595 -3.609 + 13.0 220.00 -6.910 -6.929 -6.956 -6.989 -6.910 -6.929 -6.956 -6.989 + 13.5 220.00 -6.433 -6.450 -6.473 -6.501 -6.433 -6.450 -6.473 -6.501 + 14.0 220.00 -6.162 -6.169 -6.198 -6.243 -6.162 -6.169 -6.198 -6.243 + 14.5 220.00 -5.591 -5.627 -5.677 -5.739 -5.591 -5.627 -5.677 -5.739 + 15.0 220.00 -4.874 -4.879 -4.893 -4.911 -4.874 -4.879 -4.893 -4.911 + 15.5 220.00 -4.487 -4.487 -4.499 -4.519 -4.487 -4.487 -4.499 -4.519 + 16.0 220.00 -3.833 -3.818 -3.824 -3.842 -3.833 -3.818 -3.824 -3.842 + 13.0 230.00 -7.026 -7.045 -7.072 -7.105 -7.026 -7.045 -7.072 -7.105 + 13.5 230.00 -6.549 -6.566 -6.589 -6.617 -6.549 -6.566 -6.589 -6.617 + 14.0 230.00 -6.278 -6.285 -6.314 -6.359 -6.278 -6.285 -6.314 -6.359 + 14.5 230.00 -5.707 -5.743 -5.793 -5.855 -5.707 -5.743 -5.793 -5.855 + 15.0 230.00 -4.990 -4.995 -5.009 -5.027 -4.990 -4.995 -5.009 -5.027 + 15.5 230.00 -4.690 -4.678 -4.682 -4.697 -4.690 -4.678 -4.682 -4.697 + 16.0 230.00 -3.979 -3.987 -3.996 -4.009 -3.979 -3.987 -3.996 -4.009 + 13.0 250.00 -7.220 -7.238 -7.266 -7.299 -7.220 -7.238 -7.266 -7.299 + 13.5 250.00 -6.743 -6.759 -6.783 -6.811 -6.743 -6.759 -6.783 -6.811 + 14.0 250.00 -6.472 -6.478 -6.508 -6.553 -6.472 -6.478 -6.508 -6.553 + 14.5 250.00 -5.901 -5.937 -5.987 -6.049 -5.901 -5.937 -5.987 -6.049 + 15.0 250.00 -5.184 -5.188 -5.203 -5.221 -5.184 -5.188 -5.203 -5.221 + 15.5 250.00 -4.884 -4.872 -4.876 -4.891 -4.884 -4.872 -4.876 -4.891 + 16.0 250.00 -4.293 -4.281 -4.276 -4.286 -4.293 -4.281 -4.276 -4.286 + 13.0 270.00 -7.378 -7.397 -7.424 -7.457 -7.378 -7.397 -7.424 -7.457 + 13.5 270.00 -6.901 -6.918 -6.942 -6.969 -6.901 -6.918 -6.942 -6.969 + 14.0 270.00 -6.630 -6.637 -6.666 -6.711 -6.630 -6.637 -6.666 -6.711 + 14.5 270.00 -6.059 -6.095 -6.145 -6.208 -6.059 -6.095 -6.145 -6.208 + 15.0 270.00 -5.342 -5.347 -5.362 -5.379 -5.342 -5.347 -5.362 -5.379 + 15.5 270.00 -5.043 -5.030 -5.034 -5.049 -5.043 -5.030 -5.034 -5.049 + 16.0 270.00 -4.538 -4.498 -4.484 -4.496 -4.538 -4.498 -4.484 -4.496 + 13.0 300.00 -7.572 -7.591 -7.618 -7.651 -7.572 -7.591 -7.618 -7.651 + 13.5 300.00 -7.095 -7.112 -7.135 -7.163 -7.095 -7.112 -7.135 -7.163 + 14.0 300.00 -6.824 -6.831 -6.860 -6.905 -6.824 -6.831 -6.860 -6.905 + 14.5 300.00 -6.253 -6.289 -6.339 -6.401 -6.253 -6.289 -6.339 -6.401 + 15.0 300.00 -5.536 -5.541 -5.555 -5.573 -5.536 -5.541 -5.555 -5.573 + 15.5 300.00 -5.236 -5.224 -5.228 -5.243 -5.236 -5.224 -5.228 -5.243 + 16.0 300.00 -4.712 -4.674 -4.622 -4.620 -4.712 -4.674 -4.622 -4.620 + 4026 + Ne dwl+150 5000 10000 20000 40000 + 14.00 0.00 -6.869 -6.881 -6.881 -6.851 + 14.50 0.00 -6.376 -6.397 -6.426 -6.461 + 15.00 0.00 -5.838 -5.852 -5.871 -5.898 + 15.50 0.00 -5.308 -5.317 -5.334 -5.359 + 16.00 0.00 -4.725 -4.722 -4.733 -4.755 + 16.50 0.00 -4.253 -4.232 -4.225 -4.234 + 17.00 0.00 -3.788 -3.730 -3.698 -3.692 + 17.50 0.00 -3.487 -3.413 -3.366 -3.346 + 14.00 10.00 -6.794 -6.806 -6.806 -6.776 + 14.50 10.00 -6.301 -6.323 -6.351 -6.386 + 15.00 10.00 -5.763 -5.777 -5.796 -5.823 + 15.50 10.00 -5.234 -5.242 -5.259 -5.284 + 16.00 10.00 -4.650 -4.647 -4.658 -4.681 + 16.50 10.00 -4.178 -4.157 -4.150 -4.159 + 17.00 10.00 -3.713 -3.655 -3.623 -3.617 + 17.50 10.00 -3.412 -3.338 -3.292 -3.271 + 14.00 20.00 -6.714 -6.725 -6.725 -6.695 + 14.50 20.00 -6.220 -6.242 -6.271 -6.305 + 15.00 20.00 -5.683 -5.697 -5.715 -5.742 + 15.50 20.00 -5.153 -5.161 -5.178 -5.204 + 16.00 20.00 -4.569 -4.567 -4.577 -4.600 + 16.50 20.00 -4.098 -4.076 -4.070 -4.079 + 17.00 20.00 -3.633 -3.575 -3.543 -3.536 + 17.50 20.00 -3.331 -3.258 -3.211 -3.191 + 14.00 30.00 -6.627 -6.638 -6.638 -6.609 + 14.50 30.00 -6.134 -6.155 -6.184 -6.218 + 15.00 30.00 -5.596 -5.610 -5.628 -5.655 + 15.50 30.00 -5.066 -5.075 -5.091 -5.117 + 16.00 30.00 -4.482 -4.480 -4.490 -4.513 + 16.50 30.00 -4.011 -3.989 -3.983 -3.992 + 17.00 30.00 -3.546 -3.488 -3.456 -3.449 + 17.50 30.00 -3.244 -3.171 -3.124 -3.104 + 14.00 40.00 -6.532 -6.544 -6.544 -6.514 + 14.50 40.00 -6.039 -6.061 -6.089 -6.124 + 15.00 40.00 -5.501 -5.516 -5.534 -5.561 + 15.50 40.00 -4.972 -4.980 -4.997 -5.023 + 16.00 40.00 -4.388 -4.385 -4.396 -4.419 + 16.50 40.00 -3.917 -3.895 -3.888 -3.898 + 17.00 40.00 -3.451 -3.393 -3.361 -3.355 + 17.50 40.00 -3.150 -3.076 -3.030 -3.009 + 14.00 50.00 -6.429 -6.440 -6.440 -6.411 + 14.50 50.00 -5.936 -5.957 -5.986 -6.020 + 15.00 50.00 -5.398 -5.412 -5.430 -5.457 + 15.50 50.00 -4.868 -4.877 -4.893 -4.919 + 16.00 50.00 -4.284 -4.282 -4.292 -4.315 + 16.50 50.00 -3.813 -3.791 -3.785 -3.794 + 17.00 50.00 -3.348 -3.290 -3.258 -3.251 + 17.50 50.00 -3.046 -2.973 -2.926 -2.906 + 14.00 60.00 -6.315 -6.326 -6.326 -6.296 + 14.50 60.00 -5.821 -5.843 -5.871 -5.906 + 15.00 60.00 -5.284 -5.298 -5.316 -5.343 + 15.50 60.00 -4.754 -4.762 -4.779 -4.805 + 16.00 60.00 -4.170 -4.168 -4.178 -4.201 + 16.50 60.00 -3.699 -3.677 -3.670 -3.680 + 17.00 60.00 -3.233 -3.175 -3.144 -3.137 + 17.50 60.00 -2.932 -2.858 -2.812 -2.791 + 14.00 70.00 -6.187 -6.198 -6.198 -6.168 + 14.50 70.00 -5.693 -5.715 -5.743 -5.778 + 15.00 70.00 -5.156 -5.170 -5.188 -5.215 + 15.50 70.00 -4.626 -4.634 -4.651 -4.677 + 16.00 70.00 -4.042 -4.040 -4.050 -4.073 + 16.50 70.00 -3.571 -3.549 -3.543 -3.552 + 17.00 70.00 -3.105 -3.047 -3.016 -3.009 + 17.50 70.00 -2.804 -2.730 -2.684 -2.664 + 14.00 74.00 -6.131 -6.142 -6.142 -6.113 + 14.50 74.00 -5.638 -5.659 -5.688 -5.722 + 15.00 74.00 -5.100 -5.114 -5.132 -5.160 + 15.50 74.00 -4.570 -4.579 -4.596 -4.621 + 16.00 74.00 -3.986 -3.984 -3.994 -4.017 + 16.50 74.00 -3.515 -3.493 -3.487 -3.496 + 17.00 74.00 -3.050 -2.992 -2.960 -2.954 + 17.50 74.00 -2.767 -2.695 -2.650 -2.633 + 14.00 78.00 -6.072 -6.084 -6.084 -6.054 + 14.50 78.00 -5.579 -5.601 -5.629 -5.664 + 15.00 78.00 -5.041 -5.055 -5.074 -5.101 + 15.50 78.00 -4.512 -4.520 -4.537 -4.562 + 16.00 78.00 -3.928 -3.925 -3.936 -3.959 + 16.50 78.00 -3.456 -3.435 -3.428 -3.437 + 17.00 78.00 -2.991 -2.933 -2.901 -2.895 + 17.50 78.00 -2.721 -2.658 -2.618 -2.602 + 14.00 82.00 -6.010 -6.022 -6.022 -5.992 + 14.50 82.00 -5.517 -5.538 -5.567 -5.602 + 15.00 82.00 -4.979 -4.993 -5.012 -5.039 + 15.50 82.00 -4.450 -4.458 -4.475 -4.500 + 16.00 82.00 -3.866 -3.863 -3.874 -3.897 + 16.50 82.00 -3.394 -3.373 -3.366 -3.375 + 17.00 82.00 -2.929 -2.871 -2.839 -2.833 + 17.50 82.00 -2.674 -2.620 -2.587 -2.573 + 14.00 86.00 -5.944 -5.956 -5.956 -5.926 + 14.50 86.00 -5.451 -5.473 -5.501 -5.536 + 15.00 86.00 -4.913 -4.927 -4.946 -4.973 + 15.50 86.00 -4.384 -4.392 -4.409 -4.435 + 16.00 86.00 -3.800 -3.797 -3.808 -3.831 + 16.50 86.00 -3.329 -3.307 -3.300 -3.309 + 17.00 86.00 -2.863 -2.805 -2.773 -2.767 + 17.50 86.00 -2.592 -2.582 -2.565 -2.544 + 14.00 90.00 -5.874 -5.886 -5.886 -5.856 + 14.50 90.00 -5.381 -5.403 -5.431 -5.466 + 15.00 90.00 -4.843 -4.857 -4.876 -4.903 + 15.50 90.00 -4.314 -4.322 -4.339 -4.365 + 16.00 90.00 -3.730 -3.727 -3.738 -3.761 + 16.50 90.00 -3.258 -3.237 -3.230 -3.239 + 17.00 90.00 -2.793 -2.735 -2.703 -2.697 + 17.50 90.00 -2.573 -2.544 -2.524 -2.516 + 14.00 94.00 -5.799 -5.811 -5.811 -5.781 + 14.50 94.00 -5.306 -5.328 -5.356 -5.391 + 15.00 94.00 -4.768 -4.782 -4.801 -4.828 + 15.50 94.00 -4.239 -4.247 -4.264 -4.290 + 16.00 94.00 -3.655 -3.652 -3.663 -3.686 + 16.50 94.00 -3.184 -3.162 -3.155 -3.164 + 17.00 94.00 -2.735 -2.676 -2.642 -2.635 + 17.50 94.00 -2.526 -2.506 -2.493 -2.488 + 14.00 98.00 -5.719 -5.731 -5.731 -5.701 + 14.50 98.00 -5.226 -5.247 -5.276 -5.311 + 15.00 98.00 -4.688 -4.702 -4.720 -4.747 + 15.50 98.00 -4.158 -4.167 -4.184 -4.209 + 16.00 98.00 -3.574 -3.572 -3.582 -3.605 + 16.50 98.00 -3.103 -3.081 -3.075 -3.084 + 17.00 98.00 -2.668 -2.613 -2.580 -2.570 + 17.50 98.00 -2.475 -2.468 -2.465 -2.463 + 14.00 102.00 -5.632 -5.644 -5.644 -5.614 + 14.50 102.00 -5.139 -5.160 -5.189 -5.223 + 15.00 102.00 -4.601 -4.615 -4.634 -4.661 + 15.50 102.00 -4.071 -4.080 -4.097 -4.122 + 16.00 102.00 -3.487 -3.485 -3.496 -3.518 + 16.50 102.00 -3.016 -2.994 -2.988 -2.997 + 17.00 102.00 -2.597 -2.547 -2.516 -2.504 + 17.50 102.00 -2.430 -2.433 -2.437 -2.440 + 14.00 106.00 -5.538 -5.549 -5.549 -5.519 + 14.50 106.00 -5.044 -5.066 -5.094 -5.129 + 15.00 106.00 -4.507 -4.521 -4.539 -4.566 + 15.50 106.00 -3.977 -3.985 -4.002 -4.028 + 16.00 106.00 -3.393 -3.391 -3.401 -3.424 + 16.50 106.00 -2.922 -2.900 -2.893 -2.903 + 17.00 106.00 -2.592 -2.478 -2.426 -2.437 + 17.50 106.00 -2.375 -2.397 -2.411 -2.418 + 14.00 110.00 -5.434 -5.446 -5.446 -5.416 + 14.50 110.00 -4.941 -4.962 -4.991 -5.026 + 15.00 110.00 -4.403 -4.417 -4.436 -4.463 + 15.50 110.00 -3.874 -3.882 -3.899 -3.924 + 16.00 110.00 -3.289 -3.287 -3.298 -3.320 + 16.50 110.00 -2.818 -2.796 -2.790 -2.799 + 17.00 110.00 -2.450 -2.406 -2.378 -2.366 + 17.50 110.00 -2.327 -2.362 -2.386 -2.398 + 14.00 112.00 -5.378 -5.390 -5.390 -5.360 + 14.50 112.00 -4.885 -4.907 -4.935 -4.970 + 15.00 112.00 -4.347 -4.361 -4.380 -4.407 + 15.50 112.00 -3.818 -3.826 -3.843 -3.869 + 16.00 112.00 -3.234 -3.231 -3.242 -3.265 + 16.50 112.00 -2.763 -2.741 -2.734 -2.743 + 17.00 112.00 -2.405 -2.368 -2.343 -2.331 + 17.50 112.00 -2.301 -2.346 -2.375 -2.389 + 14.00 114.00 -5.320 -5.331 -5.331 -5.301 + 14.50 114.00 -4.826 -4.848 -4.876 -4.911 + 15.00 114.00 -4.289 -4.303 -4.321 -4.348 + 15.50 114.00 -3.759 -3.767 -3.784 -3.810 + 16.00 114.00 -3.175 -3.173 -3.183 -3.206 + 16.50 114.00 -2.704 -2.682 -2.675 -2.685 + 17.00 114.00 -2.366 -2.331 -2.307 -2.296 + 17.50 114.00 -2.276 -2.329 -2.364 -2.380 + 14.00 116.00 -5.258 -5.269 -5.269 -5.239 + 14.50 116.00 -4.764 -4.786 -4.814 -4.849 + 15.00 116.00 -4.227 -4.241 -4.259 -4.286 + 15.50 116.00 -3.697 -3.705 -3.722 -3.748 + 16.00 116.00 -3.113 -3.111 -3.121 -3.144 + 16.50 116.00 -2.642 -2.620 -2.614 -2.623 + 17.00 116.00 -2.326 -2.293 -2.272 -2.261 + 17.50 116.00 -2.251 -2.313 -2.353 -2.371 + 14.00 118.00 -5.192 -5.203 -5.203 -5.173 + 14.50 118.00 -4.699 -4.720 -4.749 -4.783 + 15.00 118.00 -4.161 -4.175 -4.193 -4.220 + 15.50 118.00 -3.631 -3.639 -3.656 -3.682 + 16.00 118.00 -3.047 -3.045 -3.055 -3.078 + 16.50 118.00 -2.576 -2.554 -2.548 -2.557 + 17.00 118.00 -2.282 -2.256 -2.237 -2.227 + 17.50 118.00 -2.227 -2.297 -2.342 -2.362 + 14.00 120.00 -5.122 -5.133 -5.133 -5.103 + 14.50 120.00 -4.628 -4.650 -4.679 -4.713 + 15.00 120.00 -4.091 -4.105 -4.123 -4.150 + 15.50 120.00 -3.561 -3.569 -3.586 -3.612 + 16.00 120.00 -2.977 -2.975 -2.985 -3.008 + 16.50 120.00 -2.506 -2.484 -2.478 -2.487 + 17.00 120.00 -2.240 -2.219 -2.203 -2.194 + 17.50 120.00 -2.204 -2.281 -2.332 -2.355 + 14.00 122.00 -5.047 -5.058 -5.058 -5.028 + 14.50 122.00 -4.554 -4.575 -4.604 -4.638 + 15.00 122.00 -4.016 -4.030 -4.048 -4.075 + 15.50 122.00 -3.486 -3.494 -3.511 -3.537 + 16.00 122.00 -2.902 -2.900 -2.910 -2.933 + 16.50 122.00 -2.442 -2.418 -2.410 -2.418 + 17.00 122.00 -2.196 -2.182 -2.171 -2.162 + 17.50 122.00 -2.181 -2.266 -2.322 -2.347 + 14.00 124.00 -4.966 -4.978 -4.978 -4.948 + 14.50 124.00 -4.473 -4.495 -4.523 -4.558 + 15.00 124.00 -3.935 -3.950 -3.968 -3.995 + 15.50 124.00 -3.406 -3.414 -3.431 -3.457 + 16.00 124.00 -2.822 -2.819 -2.830 -2.853 + 16.50 124.00 -2.378 -2.353 -2.343 -2.349 + 17.00 124.00 -2.152 -2.146 -2.139 -2.132 + 17.50 124.00 -2.159 -2.252 -2.311 -2.338 + 14.00 126.00 -4.879 -4.891 -4.891 -4.861 + 14.50 126.00 -4.386 -4.408 -4.436 -4.471 + 15.00 126.00 -3.849 -3.863 -3.881 -3.908 + 15.50 126.00 -3.319 -3.327 -3.344 -3.370 + 16.00 126.00 -2.735 -2.733 -2.743 -2.766 + 16.50 126.00 -2.305 -2.280 -2.269 -2.273 + 17.00 126.00 -2.110 -2.110 -2.109 -2.105 + 17.50 126.00 -2.138 -2.237 -2.301 -2.330 + 14.00 128.00 -4.785 -4.797 -4.797 -4.767 + 14.50 128.00 -4.292 -4.313 -4.342 -4.377 + 15.00 128.00 -3.754 -3.768 -3.786 -3.813 + 15.50 128.00 -3.224 -3.233 -3.250 -3.275 + 16.00 128.00 -2.640 -2.638 -2.648 -2.671 + 16.50 128.00 -2.233 -2.208 -2.196 -2.198 + 17.00 128.00 -2.068 -2.076 -2.080 -2.078 + 17.50 128.00 -2.117 -2.223 -2.291 -2.320 + 14.00 129.00 -4.735 -4.746 -4.746 -4.716 + 14.50 129.00 -4.241 -4.263 -4.291 -4.326 + 15.00 129.00 -3.704 -3.718 -3.736 -3.763 + 15.50 129.00 -3.174 -3.182 -3.199 -3.225 + 16.00 129.00 -2.590 -2.588 -2.598 -2.621 + 16.50 129.00 -2.198 -2.171 -2.157 -2.158 + 17.00 129.00 -2.047 -2.060 -2.066 -2.066 + 17.50 129.00 -2.106 -2.216 -2.286 -2.316 + 14.00 130.00 -4.682 -4.693 -4.693 -4.663 + 14.50 130.00 -4.188 -4.210 -4.238 -4.273 + 15.00 130.00 -3.651 -3.665 -3.683 -3.710 + 15.50 130.00 -3.121 -3.129 -3.146 -3.172 + 16.00 130.00 -2.537 -2.535 -2.545 -2.568 + 16.50 130.00 -2.154 -2.130 -2.118 -2.118 + 17.00 130.00 -2.027 -2.044 -2.053 -2.055 + 17.50 130.00 -2.096 -2.209 -2.281 -2.311 + 14.00 131.00 -4.626 -4.637 -4.637 -4.607 + 14.50 131.00 -4.133 -4.154 -4.183 -4.217 + 15.00 131.00 -3.595 -3.609 -3.627 -3.654 + 15.50 131.00 -3.065 -3.073 -3.090 -3.116 + 16.00 131.00 -2.481 -2.479 -2.489 -2.512 + 16.50 131.00 -2.117 -2.091 -2.077 -2.076 + 17.00 131.00 -2.007 -2.028 -2.041 -2.044 + 17.50 131.00 -2.086 -2.202 -2.275 -2.306 + 14.00 132.00 -4.567 -4.579 -4.579 -4.549 + 14.50 132.00 -4.074 -4.095 -4.124 -4.159 + 15.00 132.00 -3.536 -3.550 -3.569 -3.596 + 15.50 132.00 -3.007 -3.015 -3.032 -3.057 + 16.00 132.00 -2.422 -2.420 -2.431 -2.454 + 16.50 132.00 -2.069 -2.048 -2.036 -2.034 + 17.00 132.00 -1.987 -2.013 -2.028 -2.033 + 17.50 132.00 -2.076 -2.195 -2.270 -2.301 + 14.00 133.00 -4.505 -4.517 -4.517 -4.487 + 14.50 133.00 -4.012 -4.033 -4.062 -4.097 + 15.00 133.00 -3.474 -3.488 -3.507 -3.533 + 15.50 133.00 -2.944 -2.953 -2.970 -2.995 + 16.00 133.00 -2.367 -2.363 -2.372 -2.393 + 16.50 133.00 -2.027 -2.007 -1.996 -1.991 + 17.00 133.00 -1.967 -1.998 -2.017 -2.023 + 17.50 133.00 -2.066 -2.188 -2.265 -2.296 + 14.00 134.00 -4.439 -4.451 -4.451 -4.421 + 14.50 134.00 -3.946 -3.967 -3.996 -4.031 + 15.00 134.00 -3.408 -3.422 -3.441 -3.468 + 15.50 134.00 -2.879 -2.887 -2.904 -2.929 + 16.00 134.00 -2.312 -2.305 -2.313 -2.332 + 16.50 134.00 -1.983 -1.963 -1.951 -1.947 + 17.00 134.00 -1.947 -1.983 -2.005 -2.013 + 17.50 134.00 -2.056 -2.182 -2.260 -2.290 + 14.00 135.00 -4.369 -4.381 -4.381 -4.351 + 14.50 135.00 -3.876 -3.897 -3.926 -3.961 + 15.00 135.00 -3.338 -3.352 -3.371 -3.398 + 15.50 135.00 -2.809 -2.817 -2.834 -2.859 + 16.00 135.00 -2.247 -2.240 -2.246 -2.264 + 16.50 135.00 -1.947 -1.921 -1.907 -1.903 + 17.00 135.00 -1.929 -1.969 -1.994 -2.004 + 17.50 135.00 -2.047 -2.175 -2.254 -2.284 + 14.00 136.00 -4.294 -4.306 -4.306 -4.276 + 14.50 136.00 -3.801 -3.822 -3.851 -3.886 + 15.00 136.00 -3.263 -3.277 -3.296 -3.323 + 15.50 136.00 -2.734 -2.742 -2.759 -2.784 + 16.00 136.00 -2.182 -2.175 -2.179 -2.196 + 16.50 136.00 -1.889 -1.876 -1.867 -1.860 + 17.00 136.00 -1.910 -1.955 -1.983 -1.996 + 17.50 136.00 -2.037 -2.168 -2.249 -2.279 + 14.00 137.00 -4.214 -4.225 -4.225 -4.195 + 14.50 137.00 -3.720 -3.742 -3.770 -3.805 + 15.00 137.00 -3.183 -3.197 -3.215 -3.242 + 15.50 137.00 -2.653 -2.661 -2.678 -2.704 + 16.00 137.00 -2.112 -2.102 -2.105 -2.119 + 16.50 137.00 -1.854 -1.836 -1.824 -1.818 + 17.00 137.00 -1.891 -1.940 -1.971 -1.985 + 17.50 137.00 -2.027 -2.162 -2.244 -2.273 + 14.00 138.00 -4.127 -4.138 -4.138 -4.109 + 14.50 138.00 -3.634 -3.655 -3.684 -3.718 + 15.00 138.00 -3.096 -3.110 -3.128 -3.155 + 15.50 138.00 -2.566 -2.575 -2.592 -2.617 + 16.00 138.00 -2.041 -2.030 -2.030 -2.042 + 16.50 138.00 -1.796 -1.791 -1.785 -1.780 + 17.00 138.00 -1.873 -1.924 -1.959 -1.975 + 17.50 138.00 -2.018 -2.155 -2.239 -2.268 + 14.00 139.00 -4.032 -4.044 -4.044 -4.014 + 14.50 139.00 -3.539 -3.561 -3.589 -3.624 + 15.00 139.00 -3.001 -3.016 -3.034 -3.061 + 15.50 139.00 -2.472 -2.480 -2.497 -2.523 + 16.00 139.00 -1.959 -1.951 -1.951 -1.959 + 16.50 139.00 -1.757 -1.752 -1.747 -1.742 + 17.00 139.00 -1.856 -1.912 -1.947 -1.961 + 17.50 139.00 -2.010 -2.150 -2.234 -2.262 + 14.00 140.00 -3.929 -3.941 -3.941 -3.911 + 14.50 140.00 -3.436 -3.457 -3.486 -3.520 + 15.00 140.00 -2.898 -2.912 -2.930 -2.957 + 15.50 140.00 -2.368 -2.377 -2.394 -2.419 + 16.00 140.00 -1.883 -1.870 -1.867 -1.873 + 16.50 140.00 -1.710 -1.712 -1.712 -1.710 + 17.00 140.00 -1.839 -1.900 -1.936 -1.947 + 17.50 140.00 -2.001 -2.144 -2.229 -2.257 + 14.00 140.50 -3.873 -3.885 -3.885 -3.855 + 14.50 140.50 -3.380 -3.401 -3.430 -3.465 + 15.00 140.50 -2.842 -2.856 -2.875 -2.902 + 15.50 140.50 -2.313 -2.321 -2.338 -2.363 + 16.00 140.50 -1.836 -1.824 -1.821 -1.827 + 16.50 140.50 -1.692 -1.695 -1.696 -1.695 + 17.00 140.50 -1.831 -1.892 -1.928 -1.939 + 17.50 140.50 -1.998 -2.141 -2.227 -2.255 + 14.00 141.00 -3.815 -3.826 -3.826 -3.796 + 14.50 141.00 -3.321 -3.343 -3.371 -3.406 + 15.00 141.00 -2.783 -2.798 -2.816 -2.843 + 15.50 141.00 -2.254 -2.262 -2.279 -2.305 + 16.00 141.00 -1.793 -1.780 -1.775 -1.777 + 16.50 141.00 -1.674 -1.678 -1.680 -1.680 + 17.00 141.00 -1.823 -1.885 -1.921 -1.932 + 17.50 141.00 -1.994 -2.139 -2.225 -2.253 + 14.00 141.50 -3.753 -3.764 -3.764 -3.734 + 14.50 141.50 -3.259 -3.281 -3.309 -3.344 + 15.00 141.50 -2.721 -2.736 -2.754 -2.781 + 15.50 141.50 -2.192 -2.200 -2.217 -2.243 + 16.00 141.50 -1.752 -1.735 -1.728 -1.730 + 16.50 141.50 -1.650 -1.660 -1.666 -1.667 + 17.00 141.50 -1.815 -1.877 -1.914 -1.925 + 17.50 141.50 -1.991 -2.137 -2.223 -2.251 + 14.00 142.00 -3.687 -3.698 -3.698 -3.668 + 14.50 142.00 -3.193 -3.215 -3.243 -3.278 + 15.00 142.00 -2.656 -2.670 -2.688 -2.715 + 15.50 142.00 -2.126 -2.134 -2.151 -2.177 + 16.00 142.00 -1.701 -1.688 -1.682 -1.682 + 16.50 142.00 -1.625 -1.642 -1.652 -1.654 + 17.00 142.00 -1.807 -1.870 -1.907 -1.917 + 17.50 142.00 -1.987 -2.134 -2.221 -2.249 + 14.00 142.20 -3.659 -3.671 -3.671 -3.641 + 14.50 142.20 -3.166 -3.187 -3.216 -3.251 + 15.00 142.20 -2.628 -2.642 -2.661 -2.688 + 15.50 142.20 -2.099 -2.107 -2.124 -2.149 + 16.00 142.20 -1.683 -1.670 -1.663 -1.662 + 16.50 142.20 -1.619 -1.636 -1.646 -1.649 + 17.00 142.20 -1.803 -1.867 -1.904 -1.914 + 17.50 142.20 -1.986 -2.134 -2.221 -2.248 + 14.00 142.50 -3.617 -3.628 -3.628 -3.598 + 14.50 142.50 -3.123 -3.145 -3.173 -3.208 + 15.00 142.50 -2.586 -2.600 -2.618 -2.645 + 15.50 142.50 -2.060 -2.067 -2.083 -2.107 + 16.00 142.50 -1.656 -1.642 -1.635 -1.633 + 16.50 142.50 -1.609 -1.626 -1.638 -1.642 + 17.00 142.50 -1.796 -1.862 -1.900 -1.909 + 17.50 142.50 -1.984 -2.132 -2.220 -2.247 + 14.00 142.80 -3.572 -3.584 -3.584 -3.554 + 14.50 142.80 -3.079 -3.101 -3.129 -3.164 + 15.00 142.80 -2.541 -2.555 -2.574 -2.601 + 15.50 142.80 -2.021 -2.027 -2.041 -2.065 + 16.00 142.80 -1.625 -1.613 -1.606 -1.603 + 16.50 142.80 -1.600 -1.617 -1.629 -1.635 + 17.00 142.80 -1.790 -1.857 -1.896 -1.905 + 17.50 142.80 -1.982 -2.132 -2.219 -2.246 + 14.00 143.00 -3.542 -3.553 -3.553 -3.523 + 14.50 143.00 -3.048 -3.070 -3.098 -3.133 + 15.00 143.00 -2.511 -2.525 -2.543 -2.570 + 15.50 143.00 -1.993 -1.998 -2.011 -2.033 + 16.00 143.00 -1.604 -1.594 -1.587 -1.583 + 16.50 143.00 -1.594 -1.611 -1.623 -1.631 + 17.00 143.00 -1.786 -1.854 -1.893 -1.902 + 17.50 143.00 -1.981 -2.131 -2.219 -2.245 + 14.00 143.40 -3.478 -3.489 -3.489 -3.459 + 14.50 143.40 -2.984 -3.006 -3.034 -3.069 + 15.00 143.40 -2.447 -2.461 -2.479 -2.506 + 15.50 143.40 -1.936 -1.939 -1.951 -1.971 + 16.00 143.40 -1.568 -1.556 -1.549 -1.546 + 16.50 143.40 -1.574 -1.596 -1.611 -1.620 + 17.00 143.40 -1.777 -1.848 -1.888 -1.895 + 17.50 143.40 -1.978 -2.129 -2.218 -2.244 + 14.00 143.50 -3.461 -3.473 -3.473 -3.443 + 14.50 143.50 -2.968 -2.989 -3.018 -3.053 + 15.00 143.50 -2.430 -2.444 -2.463 -2.490 + 15.50 143.50 -1.920 -1.923 -1.934 -1.954 + 16.00 143.50 -1.559 -1.547 -1.539 -1.536 + 16.50 143.50 -1.569 -1.592 -1.608 -1.617 + 17.00 143.50 -1.775 -1.846 -1.886 -1.894 + 17.50 143.50 -1.978 -2.129 -2.217 -2.244 + 14.00 144.00 -3.374 -3.386 -3.386 -3.356 + 14.50 144.00 -2.881 -2.902 -2.931 -2.966 + 15.00 144.00 -2.343 -2.357 -2.376 -2.403 + 15.50 144.00 -1.842 -1.842 -1.851 -1.870 + 16.00 144.00 -1.513 -1.502 -1.495 -1.492 + 16.50 144.00 -1.544 -1.574 -1.594 -1.604 + 17.00 144.00 -1.765 -1.839 -1.879 -1.886 + 17.50 144.00 -1.975 -2.127 -2.216 -2.242 + 14.00 144.50 -3.280 -3.291 -3.291 -3.261 + 14.50 144.50 -2.786 -2.808 -2.837 -2.871 + 15.00 144.50 -2.249 -2.263 -2.281 -2.308 + 15.50 144.50 -1.753 -1.755 -1.762 -1.776 + 16.00 144.50 -1.465 -1.458 -1.454 -1.450 + 16.50 144.50 -1.528 -1.556 -1.576 -1.586 + 17.00 144.50 -1.758 -1.834 -1.874 -1.879 + 17.50 144.50 -1.974 -2.127 -2.216 -2.241 + 14.00 144.60 -3.260 -3.272 -3.272 -3.241 + 14.50 144.60 -2.767 -2.788 -2.817 -2.851 + 15.00 144.60 -2.229 -2.243 -2.261 -2.288 + 15.50 144.60 -1.735 -1.737 -1.745 -1.757 + 16.00 144.60 -1.456 -1.450 -1.446 -1.442 + 16.50 144.60 -1.525 -1.553 -1.572 -1.583 + 17.00 144.60 -1.757 -1.832 -1.873 -1.877 + 17.50 144.60 -1.974 -2.127 -2.216 -2.241 + 14.00 145.00 -3.176 -3.188 -3.188 -3.158 + 14.50 145.00 -2.683 -2.705 -2.733 -2.768 + 15.00 145.00 -2.145 -2.159 -2.178 -2.205 + 15.50 145.00 -1.663 -1.663 -1.668 -1.678 + 16.00 145.00 -1.420 -1.417 -1.414 -1.413 + 16.50 145.00 -1.513 -1.539 -1.558 -1.569 + 17.00 145.00 -1.752 -1.828 -1.868 -1.872 + 17.50 145.00 -1.973 -2.126 -2.215 -2.240 + 14.00 145.20 -3.132 -3.144 -3.144 -3.114 + 14.50 145.20 -2.639 -2.660 -2.689 -2.724 + 15.00 145.20 -2.101 -2.115 -2.134 -2.161 + 15.50 145.20 -1.627 -1.625 -1.629 -1.638 + 16.00 145.20 -1.402 -1.401 -1.401 -1.401 + 16.50 145.20 -1.504 -1.530 -1.549 -1.559 + 17.00 145.20 -1.750 -1.826 -1.866 -1.869 + 17.50 145.20 -1.972 -2.126 -2.215 -2.240 + 14.00 145.50 -3.062 -3.073 -3.073 -3.044 + 14.50 145.50 -2.569 -2.590 -2.619 -2.654 + 15.00 145.50 -2.031 -2.045 -2.063 -2.091 + 15.50 145.50 -1.570 -1.566 -1.567 -1.574 + 16.00 145.50 -1.376 -1.378 -1.380 -1.382 + 16.50 145.50 -1.490 -1.517 -1.535 -1.545 + 17.00 145.50 -1.746 -1.823 -1.863 -1.864 + 17.50 145.50 -1.972 -2.125 -2.214 -2.240 + 14.00 145.80 -2.987 -2.999 -2.999 -2.969 + 14.50 145.80 -2.494 -2.515 -2.544 -2.579 + 15.00 145.80 -1.956 -1.970 -1.988 -2.016 + 15.50 145.80 -1.513 -1.506 -1.505 -1.509 + 16.00 145.80 -1.351 -1.356 -1.361 -1.365 + 16.50 145.80 -1.476 -1.504 -1.522 -1.531 + 17.00 145.80 -1.742 -1.820 -1.859 -1.860 + 17.50 145.80 -1.971 -2.125 -2.214 -2.239 + 14.00 146.00 -2.934 -2.946 -2.946 -2.916 + 14.50 146.00 -2.441 -2.462 -2.491 -2.526 + 15.00 146.00 -1.903 -1.917 -1.936 -1.963 + 15.50 146.00 -1.471 -1.463 -1.460 -1.463 + 16.00 146.00 -1.334 -1.342 -1.349 -1.355 + 16.50 146.00 -1.467 -1.495 -1.513 -1.521 + 17.00 146.00 -1.740 -1.818 -1.857 -1.857 + 17.50 146.00 -1.971 -2.125 -2.214 -2.239 + 14.00 146.40 -2.820 -2.831 -2.831 -2.801 + 14.50 146.40 -2.326 -2.348 -2.376 -2.411 + 15.00 146.40 -1.799 -1.807 -1.824 -1.848 + 15.50 146.40 -1.388 -1.377 -1.372 -1.373 + 16.00 146.40 -1.299 -1.313 -1.326 -1.336 + 16.50 146.40 -1.450 -1.477 -1.492 -1.496 + 17.00 146.40 -1.738 -1.817 -1.856 -1.855 + 17.50 146.40 -1.972 -2.125 -2.214 -2.239 + 14.00 146.50 -2.789 -2.801 -2.801 -2.771 + 14.50 146.50 -2.296 -2.317 -2.346 -2.381 + 15.00 146.50 -1.788 -1.796 -1.813 -1.836 + 15.50 146.50 -1.367 -1.356 -1.350 -1.350 + 16.00 146.50 -1.291 -1.306 -1.320 -1.331 + 16.50 146.50 -1.446 -1.472 -1.487 -1.490 + 17.00 146.50 -1.738 -1.817 -1.855 -1.855 + 17.50 146.50 -1.973 -2.126 -2.214 -2.239 + 14.00 146.60 -2.758 -2.769 -2.769 -2.739 + 14.50 146.60 -2.264 -2.286 -2.314 -2.349 + 15.00 146.60 -1.778 -1.786 -1.802 -1.824 + 15.50 146.60 -1.345 -1.334 -1.329 -1.328 + 16.00 146.60 -1.282 -1.298 -1.313 -1.325 + 16.50 146.60 -1.442 -1.468 -1.482 -1.484 + 17.00 146.60 -1.738 -1.816 -1.855 -1.854 + 17.50 146.60 -1.973 -2.126 -2.214 -2.239 + 14.00 146.80 -2.692 -2.703 -2.703 -2.673 + 14.50 146.80 -2.198 -2.220 -2.249 -2.283 + 15.00 146.80 -1.757 -1.764 -1.780 -1.801 + 15.50 146.80 -1.300 -1.292 -1.286 -1.285 + 16.00 146.80 -1.265 -1.283 -1.299 -1.313 + 16.50 146.80 -1.433 -1.459 -1.471 -1.471 + 17.00 146.80 -1.737 -1.816 -1.855 -1.853 + 17.50 146.80 -1.974 -2.126 -2.214 -2.239 + 14.00 147.00 -2.622 -2.633 -2.633 -2.603 + 14.50 147.00 -2.128 -2.150 -2.178 -2.213 + 15.00 147.00 -1.611 -1.613 -1.623 -1.640 + 15.50 147.00 -1.262 -1.251 -1.245 -1.243 + 16.00 147.00 -1.248 -1.267 -1.285 -1.302 + 16.50 147.00 -1.425 -1.450 -1.461 -1.458 + 17.00 147.00 -1.736 -1.815 -1.854 -1.852 + 17.50 147.00 -1.975 -2.126 -2.215 -2.239 + 14.00 147.20 -2.547 -2.558 -2.558 -2.528 + 14.50 147.20 -2.054 -2.075 -2.104 -2.138 + 15.00 147.20 -1.541 -1.539 -1.547 -1.559 + 15.50 147.20 -1.220 -1.211 -1.206 -1.203 + 16.00 147.20 -1.228 -1.247 -1.265 -1.283 + 16.50 147.20 -1.416 -1.442 -1.452 -1.446 + 17.00 147.20 -1.736 -1.815 -1.853 -1.851 + 17.50 147.20 -1.975 -2.127 -2.215 -2.239 + 14.00 147.40 -2.466 -2.478 -2.478 -2.448 + 14.50 147.40 -1.980 -2.000 -2.029 -2.063 + 15.00 147.40 -1.466 -1.462 -1.466 -1.475 + 15.50 147.40 -1.179 -1.174 -1.171 -1.169 + 16.00 147.40 -1.209 -1.227 -1.246 -1.265 + 16.50 147.40 -1.407 -1.433 -1.442 -1.434 + 17.00 147.40 -1.735 -1.814 -1.853 -1.850 + 17.50 147.40 -1.976 -2.127 -2.215 -2.239 + 14.00 147.50 -2.424 -2.435 -2.435 -2.405 + 14.50 147.50 -1.943 -1.963 -1.991 -2.025 + 15.00 147.50 -1.427 -1.421 -1.423 -1.431 + 15.50 147.50 -1.161 -1.157 -1.156 -1.156 + 16.00 147.50 -1.199 -1.217 -1.237 -1.256 + 16.50 147.50 -1.402 -1.429 -1.438 -1.428 + 17.00 147.50 -1.735 -1.814 -1.852 -1.850 + 17.50 147.50 -1.977 -2.127 -2.215 -2.239 + 14.00 147.60 -2.379 -2.391 -2.391 -2.361 + 14.50 147.60 -1.896 -1.914 -1.941 -1.972 + 15.00 147.60 -1.387 -1.380 -1.381 -1.386 + 15.50 147.60 -1.143 -1.141 -1.141 -1.143 + 16.00 147.60 -1.186 -1.204 -1.222 -1.240 + 16.50 147.60 -1.398 -1.425 -1.433 -1.421 + 17.00 147.60 -1.734 -1.814 -1.852 -1.850 + 17.50 147.60 -1.977 -2.127 -2.215 -2.239 + 14.00 147.80 -2.285 -2.296 -2.296 -2.267 + 14.50 147.80 -1.801 -1.818 -1.839 -1.867 + 15.00 147.80 -1.305 -1.296 -1.293 -1.297 + 15.50 147.80 -1.107 -1.111 -1.115 -1.121 + 16.00 147.80 -1.161 -1.178 -1.194 -1.209 + 16.50 147.80 -1.389 -1.417 -1.424 -1.409 + 17.00 147.80 -1.734 -1.813 -1.851 -1.849 + 17.50 147.80 -1.978 -2.128 -2.215 -2.240 + 14.00 147.90 -2.235 -2.246 -2.246 -2.216 + 14.50 147.90 -1.752 -1.765 -1.783 -1.807 + 15.00 147.90 -1.264 -1.253 -1.250 -1.252 + 15.50 147.90 -1.090 -1.097 -1.105 -1.114 + 16.00 147.90 -1.149 -1.164 -1.179 -1.193 + 16.50 147.90 -1.384 -1.413 -1.419 -1.403 + 17.00 147.90 -1.733 -1.813 -1.851 -1.848 + 17.50 147.90 -1.978 -2.128 -2.215 -2.240 + 14.00 148.00 -2.182 -2.193 -2.193 -2.163 + 14.50 148.00 -1.697 -1.708 -1.724 -1.745 + 15.00 148.00 -1.223 -1.211 -1.207 -1.208 + 15.50 148.00 -1.073 -1.084 -1.095 -1.106 + 16.00 148.00 -1.136 -1.151 -1.165 -1.177 + 16.50 148.00 -1.380 -1.409 -1.414 -1.397 + 17.00 148.00 -1.733 -1.813 -1.851 -1.848 + 17.50 148.00 -1.979 -2.128 -2.215 -2.240 + 14.00 148.10 -2.126 -2.137 -2.137 -2.107 + 14.50 148.10 -1.640 -1.648 -1.661 -1.678 + 15.00 148.10 -1.182 -1.169 -1.164 -1.164 + 15.50 148.10 -1.056 -1.070 -1.085 -1.101 + 16.00 148.10 -1.122 -1.135 -1.146 -1.155 + 16.50 148.10 -1.379 -1.408 -1.413 -1.395 + 17.00 148.10 -1.734 -1.814 -1.852 -1.849 + 17.50 148.10 -1.979 -2.128 -2.216 -2.240 + 14.00 148.20 -2.067 -2.079 -2.079 -2.049 + 14.50 148.20 -1.580 -1.587 -1.597 -1.609 + 15.00 148.20 -1.141 -1.129 -1.124 -1.124 + 15.50 148.20 -1.039 -1.057 -1.076 -1.095 + 16.00 148.20 -1.109 -1.119 -1.127 -1.132 + 16.50 148.20 -1.379 -1.408 -1.412 -1.393 + 17.00 148.20 -1.736 -1.814 -1.852 -1.850 + 17.50 148.20 -1.980 -2.129 -2.216 -2.240 + 14.00 148.30 -2.005 -2.017 -2.017 -1.987 + 14.50 148.30 -1.517 -1.520 -1.529 -1.539 + 15.00 148.30 -1.104 -1.092 -1.087 -1.088 + 15.50 148.30 -1.020 -1.040 -1.062 -1.085 + 16.00 148.30 -1.095 -1.103 -1.108 -1.109 + 16.50 148.30 -1.379 -1.407 -1.411 -1.390 + 17.00 148.30 -1.738 -1.816 -1.853 -1.850 + 17.50 148.30 -1.980 -2.129 -2.217 -2.240 + 14.00 148.40 -1.939 -1.951 -1.951 -1.921 + 14.50 148.40 -1.452 -1.452 -1.458 -1.467 + 15.00 148.40 -1.067 -1.059 -1.056 -1.059 + 15.50 148.40 -1.000 -1.022 -1.048 -1.075 + 16.00 148.40 -1.081 -1.087 -1.089 -1.087 + 16.50 148.40 -1.378 -1.406 -1.410 -1.388 + 17.00 148.40 -1.739 -1.816 -1.854 -1.852 + 17.50 148.40 -1.980 -2.130 -2.217 -2.241 + 14.00 148.50 -1.870 -1.886 -1.900 -1.896 + 14.50 148.50 -1.383 -1.381 -1.385 -1.393 + 15.00 148.50 -1.036 -1.031 -1.031 -1.037 + 15.50 148.50 -0.975 -0.996 -1.022 -1.051 + 16.00 148.50 -1.067 -1.072 -1.071 -1.064 + 16.50 148.50 -1.378 -1.406 -1.408 -1.386 + 17.00 148.50 -1.741 -1.817 -1.855 -1.852 + 17.50 148.50 -1.981 -2.130 -2.217 -2.241 + 14.00 148.60 -1.791 -1.807 -1.821 -1.824 + 14.50 148.60 -1.311 -1.307 -1.310 -1.314 + 15.00 148.60 -1.010 -1.009 -1.015 -1.026 + 15.50 148.60 -0.951 -0.971 -0.996 -1.028 + 16.00 148.60 -1.058 -1.060 -1.055 -1.044 + 16.50 148.60 -1.377 -1.405 -1.407 -1.384 + 17.00 148.60 -1.742 -1.819 -1.855 -1.853 + 17.50 148.60 -1.981 -2.131 -2.217 -2.241 + 14.00 148.70 -1.699 -1.708 -1.714 -1.708 + 14.50 148.70 -1.237 -1.230 -1.229 -1.236 + 15.00 148.70 -0.987 -0.996 -1.009 -1.026 + 15.50 148.70 -0.910 -0.928 -0.951 -0.980 + 16.00 148.70 -1.049 -1.048 -1.039 -1.023 + 16.50 148.70 -1.377 -1.404 -1.406 -1.382 + 17.00 148.70 -1.744 -1.820 -1.856 -1.854 + 17.50 148.70 -1.982 -2.131 -2.218 -2.241 + 14.00 148.75 -1.650 -1.652 -1.650 -1.640 + 14.50 148.75 -1.203 -1.195 -1.194 -1.205 + 15.00 148.75 -0.979 -0.991 -1.008 -1.027 + 15.50 148.75 -0.890 -0.907 -0.929 -0.956 + 16.00 148.75 -1.045 -1.041 -1.031 -1.013 + 16.50 148.75 -1.377 -1.404 -1.405 -1.381 + 17.00 148.75 -1.745 -1.820 -1.857 -1.855 + 17.50 148.75 -1.982 -2.131 -2.218 -2.242 + 14.00 148.80 -1.594 -1.590 -1.582 -1.572 + 14.50 148.80 -1.169 -1.159 -1.160 -1.175 + 15.00 148.80 -0.971 -0.987 -1.007 -1.029 + 15.50 148.80 -0.870 -0.886 -0.907 -0.932 + 16.00 148.80 -1.040 -1.036 -1.023 -1.003 + 16.50 148.80 -1.377 -1.404 -1.405 -1.380 + 17.00 148.80 -1.745 -1.821 -1.857 -1.855 + 17.50 148.80 -1.982 -2.131 -2.218 -2.242 + 14.00 148.85 -1.536 -1.526 -1.517 -1.514 + 14.50 148.85 -1.145 -1.139 -1.144 -1.162 + 15.00 148.85 -0.957 -0.977 -1.002 -1.023 + 15.50 148.85 -0.843 -0.857 -0.874 -0.894 + 16.00 148.85 -1.036 -1.030 -1.015 -0.993 + 16.50 148.85 -1.376 -1.403 -1.404 -1.379 + 17.00 148.85 -1.746 -1.821 -1.857 -1.856 + 17.50 148.85 -1.982 -2.132 -2.218 -2.242 + 14.00 148.90 -1.479 -1.469 -1.461 -1.469 + 14.50 148.90 -1.122 -1.119 -1.127 -1.149 + 15.00 148.90 -0.943 -0.967 -0.996 -1.017 + 15.50 148.90 -0.817 -0.828 -0.841 -0.856 + 16.00 148.90 -1.032 -1.023 -1.007 -0.983 + 16.50 148.90 -1.376 -1.403 -1.403 -1.378 + 17.00 148.90 -1.747 -1.822 -1.858 -1.856 + 17.50 148.90 -1.983 -2.132 -2.219 -2.242 + 14.00 148.95 -1.432 -1.424 -1.425 -1.439 + 14.50 148.95 -1.120 -1.123 -1.136 -1.151 + 15.00 148.95 -0.916 -0.942 -0.969 -0.988 + 15.50 148.95 -0.791 -0.799 -0.808 -0.818 + 16.00 148.95 -1.027 -1.018 -0.999 -0.973 + 16.50 148.95 -1.376 -1.403 -1.403 -1.377 + 17.00 148.95 -1.748 -1.822 -1.858 -1.857 + 17.50 148.95 -1.983 -2.132 -2.219 -2.242 + 14.00 149.00 -1.399 -1.400 -1.413 -1.425 + 14.50 149.00 -1.118 -1.128 -1.145 -1.154 + 15.00 149.00 -0.889 -0.917 -0.943 -0.959 + 15.50 149.00 -0.765 -0.770 -0.775 -0.780 + 16.00 149.00 -1.023 -1.011 -0.991 -0.963 + 16.50 149.00 -1.376 -1.402 -1.402 -1.376 + 17.00 149.00 -1.749 -1.823 -1.859 -1.857 + 17.50 149.00 -1.983 -2.132 -2.219 -2.242 + 14.00 149.05 -1.396 -1.409 -1.428 -1.412 + 14.50 149.05 -1.125 -1.139 -1.148 -1.124 + 15.00 149.05 -0.841 -0.865 -0.885 -0.891 + 15.50 149.05 -0.740 -0.740 -0.740 -0.739 + 16.00 149.05 -1.023 -1.012 -0.992 -0.962 + 16.50 149.05 -1.377 -1.404 -1.404 -1.378 + 17.00 149.05 -1.749 -1.823 -1.859 -1.858 + 17.50 149.05 -1.983 -2.132 -2.219 -2.242 + 14.00 149.10 -1.442 -1.454 -1.454 -1.375 + 14.50 149.10 -1.133 -1.149 -1.150 -1.095 + 15.00 149.10 -0.793 -0.813 -0.827 -0.824 + 15.50 149.10 -0.716 -0.711 -0.705 -0.698 + 16.00 149.10 -1.023 -1.013 -0.992 -0.962 + 16.50 149.10 -1.378 -1.406 -1.406 -1.380 + 17.00 149.10 -1.750 -1.824 -1.859 -1.858 + 17.50 149.10 -1.983 -2.133 -2.219 -2.243 + 14.00 149.15 -1.503 -1.496 -1.436 -1.283 + 14.50 149.15 -1.066 -1.076 -1.056 -0.981 + 15.00 149.15 -0.721 -0.732 -0.739 -0.730 + 15.50 149.15 -0.692 -0.681 -0.670 -0.657 + 16.00 149.15 -1.023 -1.013 -0.993 -0.961 + 16.50 149.15 -1.380 -1.407 -1.408 -1.382 + 17.00 149.15 -1.751 -1.824 -1.860 -1.859 + 17.50 149.15 -1.984 -2.133 -2.220 -2.243 + 14.00 149.20 -1.466 -1.434 -1.306 -1.143 + 14.50 149.20 -1.000 -1.002 -0.963 -0.867 + 15.00 149.20 -0.650 -0.652 -0.652 -0.636 + 15.50 149.20 -0.668 -0.652 -0.635 -0.616 + 16.00 149.20 -1.022 -1.014 -0.993 -0.961 + 16.50 149.20 -1.381 -1.409 -1.410 -1.384 + 17.00 149.20 -1.752 -1.825 -1.860 -1.859 + 17.50 149.20 -1.984 -2.133 -2.220 -2.243 + 14.00 149.25 -1.282 -1.206 -1.081 -0.987 + 14.50 149.25 -0.834 -0.822 -0.786 -0.729 + 15.00 149.25 -0.572 -0.566 -0.559 -0.549 + 15.50 149.25 -0.658 -0.638 -0.618 -0.596 + 16.00 149.25 -1.022 -1.014 -0.993 -0.961 + 16.50 149.25 -1.382 -1.410 -1.412 -1.387 + 17.00 149.25 -1.753 -1.825 -1.861 -1.859 + 17.50 149.25 -1.984 -2.133 -2.220 -2.243 + 14.00 149.30 -0.971 -0.907 -0.857 -0.851 + 14.50 149.30 -0.668 -0.642 -0.609 -0.592 + 15.00 149.30 -0.495 -0.480 -0.467 -0.462 + 15.50 149.30 -0.648 -0.625 -0.601 -0.575 + 16.00 149.30 -1.022 -1.015 -0.994 -0.960 + 16.50 149.30 -1.383 -1.412 -1.414 -1.389 + 17.00 149.30 -1.753 -1.826 -1.861 -1.860 + 17.50 149.30 -1.984 -2.134 -2.220 -2.243 + 14.00 149.35 -0.670 -0.668 -0.697 -0.752 + 14.50 149.35 -0.518 -0.502 -0.497 -0.513 + 15.00 149.35 -0.445 -0.425 -0.411 -0.410 + 15.50 149.35 -0.639 -0.612 -0.584 -0.555 + 16.00 149.35 -1.022 -1.015 -0.994 -0.960 + 16.50 149.35 -1.385 -1.413 -1.416 -1.391 + 17.00 149.35 -1.754 -1.826 -1.861 -1.860 + 17.50 149.35 -1.984 -2.134 -2.220 -2.243 + 14.00 149.40 -0.529 -0.561 -0.622 -0.703 + 14.50 149.40 -0.369 -0.363 -0.385 -0.435 + 15.00 149.40 -0.396 -0.371 -0.355 -0.359 + 15.50 149.40 -0.629 -0.599 -0.567 -0.535 + 16.00 149.40 -1.022 -1.016 -0.995 -0.959 + 16.50 149.40 -1.386 -1.415 -1.417 -1.393 + 17.00 149.40 -1.755 -1.827 -1.862 -1.861 + 17.50 149.40 -1.985 -2.134 -2.220 -2.243 + 14.00 149.45 -0.585 -0.594 -0.635 -0.701 + 14.50 149.45 -0.399 -0.386 -0.397 -0.437 + 15.00 149.45 -0.396 -0.372 -0.355 -0.356 + 15.50 149.45 -0.635 -0.608 -0.578 -0.547 + 16.00 149.45 -1.022 -1.016 -0.995 -0.959 + 16.50 149.45 -1.387 -1.417 -1.419 -1.395 + 17.00 149.45 -1.756 -1.827 -1.862 -1.861 + 17.50 149.45 -1.985 -2.134 -2.221 -2.243 + 14.00 149.50 -0.760 -0.728 -0.714 -0.738 + 14.50 149.50 -0.430 -0.410 -0.409 -0.438 + 15.00 149.50 -0.397 -0.374 -0.355 -0.354 + 15.50 149.50 -0.640 -0.617 -0.590 -0.560 + 16.00 149.50 -1.022 -1.017 -0.996 -0.959 + 16.50 149.50 -1.388 -1.418 -1.421 -1.397 + 17.00 149.50 -1.757 -1.828 -1.862 -1.862 + 17.50 149.50 -1.985 -2.135 -2.221 -2.244 + 14.00 149.55 -0.900 -0.873 -0.830 -0.799 + 14.50 149.55 -0.519 -0.509 -0.499 -0.497 + 15.00 149.55 -0.429 -0.414 -0.399 -0.392 + 15.50 149.55 -0.646 -0.626 -0.601 -0.572 + 16.00 149.55 -1.027 -1.023 -1.004 -0.969 + 16.50 149.55 -1.390 -1.420 -1.423 -1.400 + 17.00 149.55 -1.757 -1.828 -1.863 -1.862 + 17.50 149.55 -1.985 -2.135 -2.221 -2.244 + 14.00 149.60 -0.959 -0.959 -0.928 -0.854 + 14.50 149.60 -0.609 -0.607 -0.588 -0.556 + 15.00 149.60 -0.461 -0.455 -0.444 -0.431 + 15.50 149.60 -0.652 -0.635 -0.613 -0.585 + 16.00 149.60 -1.033 -1.030 -1.012 -0.979 + 16.50 149.60 -1.391 -1.421 -1.425 -1.402 + 17.00 149.60 -1.758 -1.829 -1.863 -1.863 + 17.50 149.60 -1.985 -2.135 -2.221 -2.244 + 14.00 149.65 -0.971 -0.983 -0.975 -0.854 + 14.50 149.65 -0.630 -0.645 -0.637 -0.590 + 15.00 149.65 -0.488 -0.494 -0.494 -0.482 + 15.50 149.65 -0.665 -0.655 -0.639 -0.616 + 16.00 149.65 -1.038 -1.037 -1.021 -0.990 + 16.50 149.65 -1.392 -1.423 -1.427 -1.404 + 17.00 149.65 -1.759 -1.829 -1.864 -1.863 + 17.50 149.65 -1.986 -2.135 -2.221 -2.244 + 14.00 149.70 -0.936 -0.955 -0.936 -0.747 + 14.50 149.70 -0.652 -0.682 -0.686 -0.623 + 15.00 149.70 -0.514 -0.533 -0.544 -0.533 + 15.50 149.70 -0.678 -0.674 -0.665 -0.647 + 16.00 149.70 -1.044 -1.043 -1.029 -1.000 + 16.50 149.70 -1.394 -1.425 -1.429 -1.406 + 17.00 149.70 -1.760 -1.830 -1.864 -1.864 + 17.50 149.70 -1.986 -2.135 -2.221 -2.244 + 14.00 149.75 -0.848 -0.863 -0.796 -0.547 + 14.50 149.75 -0.574 -0.605 -0.604 -0.538 + 15.00 149.75 -0.514 -0.541 -0.560 -0.558 + 15.50 149.75 -0.690 -0.695 -0.691 -0.679 + 16.00 149.75 -1.049 -1.050 -1.037 -1.010 + 16.50 149.75 -1.395 -1.426 -1.431 -1.408 + 17.00 149.75 -1.760 -1.830 -1.865 -1.864 + 17.50 149.75 -1.986 -2.136 -2.222 -2.244 + 14.00 149.80 -0.697 -0.682 -0.542 -0.310 + 14.50 149.80 -0.496 -0.527 -0.523 -0.454 + 15.00 149.80 -0.513 -0.548 -0.577 -0.583 + 15.50 149.80 -0.703 -0.714 -0.717 -0.710 + 16.00 149.80 -1.054 -1.057 -1.046 -1.021 + 16.50 149.80 -1.396 -1.428 -1.433 -1.410 + 17.00 149.80 -1.761 -1.831 -1.865 -1.865 + 17.50 149.80 -1.986 -2.136 -2.222 -2.244 + 14.00 149.85 -0.463 -0.395 -0.235 -0.087 + 14.50 149.85 -0.342 -0.364 -0.358 -0.312 + 15.00 149.85 -0.487 -0.523 -0.552 -0.563 + 15.50 149.85 -0.715 -0.729 -0.735 -0.734 + 16.00 149.85 -1.060 -1.064 -1.054 -1.031 + 16.50 149.85 -1.397 -1.429 -1.434 -1.413 + 17.00 149.85 -1.762 -1.831 -1.865 -1.865 + 17.50 149.85 -1.987 -2.136 -2.222 -2.244 + 14.00 149.90 -0.127 -0.040 0.053 0.097 + 14.50 149.90 -0.188 -0.200 -0.194 -0.171 + 15.00 149.90 -0.461 -0.498 -0.527 -0.544 + 15.50 149.90 -0.726 -0.743 -0.754 -0.757 + 16.00 149.90 -1.065 -1.070 -1.062 -1.041 + 16.50 149.90 -1.399 -1.431 -1.436 -1.415 + 17.00 149.90 -1.763 -1.832 -1.866 -1.865 + 17.50 149.90 -1.987 -2.136 -2.222 -2.245 + 14.00 149.95 0.255 0.274 0.269 0.233 + 14.50 149.95 -0.039 -0.053 -0.061 -0.065 + 15.00 149.95 -0.428 -0.460 -0.486 -0.501 + 15.50 149.95 -0.738 -0.758 -0.772 -0.781 + 16.00 149.95 -1.071 -1.077 -1.071 -1.052 + 16.50 149.95 -1.400 -1.433 -1.438 -1.417 + 17.00 149.95 -1.764 -1.832 -1.866 -1.866 + 17.50 149.95 -1.987 -2.136 -2.222 -2.245 + 14.00 150.00 0.511 0.462 0.398 0.316 + 14.50 150.00 0.111 0.093 0.072 0.041 + 15.00 150.00 -0.395 -0.421 -0.444 -0.458 + 15.50 150.00 -0.750 -0.772 -0.790 -0.804 + 16.00 150.00 -1.076 -1.084 -1.079 -1.062 + 16.50 150.00 -1.401 -1.434 -1.440 -1.419 + 17.00 150.00 -1.765 -1.833 -1.867 -1.867 + 17.50 150.00 -1.987 -2.137 -2.223 -2.245 + 14.00 150.05 0.538 0.497 0.431 0.346 + 14.50 150.05 0.142 0.133 0.115 0.083 + 15.00 150.05 -0.371 -0.392 -0.408 -0.420 + 15.50 150.05 -0.755 -0.778 -0.797 -0.811 + 16.00 150.05 -1.083 -1.091 -1.088 -1.074 + 16.50 150.05 -1.405 -1.437 -1.444 -1.423 + 17.00 150.05 -1.766 -1.834 -1.867 -1.868 + 17.50 150.05 -1.988 -2.137 -2.223 -2.245 + 14.00 150.10 0.380 0.398 0.384 0.326 + 14.50 150.10 0.173 0.173 0.158 0.124 + 15.00 150.10 -0.347 -0.363 -0.372 -0.381 + 15.50 150.10 -0.761 -0.784 -0.803 -0.817 + 16.00 150.10 -1.090 -1.099 -1.098 -1.085 + 16.50 150.10 -1.408 -1.441 -1.447 -1.428 + 17.00 150.10 -1.767 -1.835 -1.868 -1.869 + 17.50 150.10 -1.988 -2.137 -2.223 -2.245 + 14.00 150.15 0.190 0.235 0.269 0.260 + 14.50 150.15 0.113 0.123 0.122 0.103 + 15.00 150.15 -0.339 -0.349 -0.353 -0.358 + 15.50 150.15 -0.766 -0.790 -0.809 -0.823 + 16.00 150.15 -1.097 -1.107 -1.107 -1.097 + 16.50 150.15 -1.412 -1.444 -1.450 -1.432 + 17.00 150.15 -1.768 -1.836 -1.870 -1.870 + 17.50 150.15 -1.989 -2.138 -2.223 -2.246 + 14.00 150.20 0.053 0.072 0.121 0.155 + 14.50 150.20 0.053 0.072 0.086 0.083 + 15.00 150.20 -0.332 -0.336 -0.334 -0.334 + 15.50 150.20 -0.772 -0.796 -0.815 -0.830 + 16.00 150.20 -1.103 -1.115 -1.116 -1.109 + 16.50 150.20 -1.415 -1.447 -1.454 -1.436 + 17.00 150.20 -1.769 -1.837 -1.870 -1.871 + 17.50 150.20 -1.990 -2.138 -2.224 -2.246 + 14.00 150.25 -0.107 -0.091 -0.048 0.021 + 14.50 150.25 -0.033 -0.013 0.008 0.019 + 15.00 150.25 -0.340 -0.340 -0.333 -0.329 + 15.50 150.25 -0.775 -0.797 -0.815 -0.827 + 16.00 150.25 -1.110 -1.122 -1.126 -1.120 + 16.50 150.25 -1.419 -1.450 -1.457 -1.440 + 17.00 150.25 -1.770 -1.838 -1.872 -1.872 + 17.50 150.25 -1.990 -2.138 -2.224 -2.246 + 14.00 150.30 -0.315 -0.282 -0.229 -0.137 + 14.50 150.30 -0.119 -0.097 -0.071 -0.045 + 15.00 150.30 -0.348 -0.343 -0.333 -0.323 + 15.50 150.30 -0.779 -0.799 -0.814 -0.824 + 16.00 150.30 -1.117 -1.130 -1.135 -1.132 + 16.50 150.30 -1.422 -1.453 -1.461 -1.445 + 17.00 150.30 -1.771 -1.839 -1.872 -1.873 + 17.50 150.30 -1.991 -2.139 -2.224 -2.246 + 14.00 150.35 -0.514 -0.483 -0.419 -0.311 + 14.50 150.35 -0.215 -0.195 -0.168 -0.135 + 15.00 150.35 -0.367 -0.359 -0.345 -0.333 + 15.50 150.35 -0.782 -0.800 -0.813 -0.821 + 16.00 150.35 -1.124 -1.138 -1.145 -1.143 + 16.50 150.35 -1.426 -1.456 -1.464 -1.449 + 17.00 150.35 -1.772 -1.840 -1.873 -1.874 + 17.50 150.35 -1.991 -2.139 -2.224 -2.247 + 14.00 150.40 -0.676 -0.661 -0.607 -0.491 + 14.50 150.40 -0.312 -0.292 -0.265 -0.226 + 15.00 150.40 -0.386 -0.375 -0.359 -0.343 + 15.50 150.40 -0.785 -0.801 -0.813 -0.818 + 16.00 150.40 -1.130 -1.146 -1.154 -1.155 + 16.50 150.40 -1.429 -1.459 -1.467 -1.453 + 17.00 150.40 -1.773 -1.841 -1.875 -1.875 + 17.50 150.40 -1.992 -2.140 -2.225 -2.247 + 14.00 150.45 -0.813 -0.810 -0.775 -0.670 + 14.50 150.45 -0.407 -0.390 -0.365 -0.325 + 15.00 150.45 -0.413 -0.399 -0.381 -0.363 + 15.50 150.45 -0.789 -0.803 -0.813 -0.816 + 16.00 150.45 -1.137 -1.153 -1.163 -1.167 + 16.50 150.45 -1.433 -1.463 -1.471 -1.457 + 17.00 150.45 -1.775 -1.842 -1.875 -1.876 + 17.50 150.45 -1.992 -2.140 -2.225 -2.247 + 14.00 150.50 -0.928 -0.936 -0.921 -0.836 + 14.50 150.50 -0.502 -0.487 -0.465 -0.424 + 15.00 150.50 -0.440 -0.424 -0.403 -0.383 + 15.50 150.50 -0.793 -0.805 -0.813 -0.814 + 16.00 150.50 -1.144 -1.161 -1.173 -1.179 + 16.50 150.50 -1.436 -1.466 -1.474 -1.462 + 17.00 150.50 -1.776 -1.843 -1.877 -1.877 + 17.50 150.50 -1.993 -2.140 -2.225 -2.247 + 14.00 150.55 -1.029 -1.041 -1.041 -0.987 + 14.50 150.55 -0.584 -0.573 -0.555 -0.519 + 15.00 150.55 -0.472 -0.454 -0.432 -0.411 + 15.50 150.55 -0.797 -0.808 -0.813 -0.812 + 16.00 150.55 -1.149 -1.167 -1.179 -1.185 + 16.50 150.55 -1.440 -1.469 -1.478 -1.466 + 17.00 150.55 -1.777 -1.844 -1.878 -1.878 + 17.50 150.55 -1.993 -2.141 -2.225 -2.248 + 14.00 150.60 -1.119 -1.136 -1.145 -1.116 + 14.50 150.60 -0.665 -0.660 -0.646 -0.614 + 15.00 150.60 -0.503 -0.484 -0.461 -0.439 + 15.50 150.60 -0.801 -0.810 -0.813 -0.810 + 16.00 150.60 -1.154 -1.172 -1.185 -1.192 + 16.50 150.60 -1.443 -1.472 -1.481 -1.470 + 17.00 150.60 -1.778 -1.845 -1.878 -1.880 + 17.50 150.60 -1.994 -2.141 -2.226 -2.248 + 14.00 150.65 -1.201 -1.221 -1.237 -1.226 + 14.50 150.65 -0.738 -0.733 -0.725 -0.700 + 15.00 150.65 -0.537 -0.517 -0.494 -0.472 + 15.50 150.65 -0.808 -0.813 -0.814 -0.810 + 16.00 150.65 -1.160 -1.178 -1.191 -1.198 + 16.50 150.65 -1.447 -1.475 -1.485 -1.475 + 17.00 150.65 -1.779 -1.846 -1.880 -1.881 + 17.50 150.65 -1.995 -2.141 -2.226 -2.248 + 14.00 150.70 -1.276 -1.299 -1.319 -1.321 + 14.50 150.70 -0.810 -0.807 -0.804 -0.785 + 15.00 150.70 -0.570 -0.550 -0.527 -0.504 + 15.50 150.70 -0.814 -0.817 -0.815 -0.810 + 16.00 150.70 -1.165 -1.183 -1.197 -1.205 + 16.50 150.70 -1.450 -1.479 -1.488 -1.479 + 17.00 150.70 -1.780 -1.847 -1.880 -1.882 + 17.50 150.70 -1.995 -2.142 -2.226 -2.248 + 14.00 150.75 -1.345 -1.370 -1.393 -1.403 + 14.50 150.75 -0.873 -0.873 -0.872 -0.860 + 15.00 150.75 -0.605 -0.585 -0.563 -0.541 + 15.50 150.75 -0.820 -0.820 -0.817 -0.810 + 16.00 150.75 -1.170 -1.189 -1.203 -1.212 + 16.50 150.75 -1.454 -1.482 -1.492 -1.483 + 17.00 150.75 -1.781 -1.848 -1.882 -1.883 + 17.50 150.75 -1.996 -2.142 -2.226 -2.249 + 14.00 150.80 -1.408 -1.433 -1.458 -1.475 + 14.50 150.80 -0.936 -0.939 -0.939 -0.936 + 15.00 150.80 -0.640 -0.620 -0.599 -0.577 + 15.50 150.80 -0.827 -0.824 -0.818 -0.810 + 16.00 150.80 -1.176 -1.194 -1.209 -1.218 + 16.50 150.80 -1.457 -1.485 -1.495 -1.487 + 17.00 150.80 -1.783 -1.849 -1.883 -1.884 + 17.50 150.80 -1.996 -2.142 -2.227 -2.249 + 14.00 150.85 -1.466 -1.492 -1.519 -1.538 + 14.50 150.85 -0.993 -0.998 -1.002 -1.001 + 15.00 150.85 -0.675 -0.655 -0.635 -0.614 + 15.50 150.85 -0.834 -0.831 -0.823 -0.813 + 16.00 150.85 -1.181 -1.200 -1.215 -1.225 + 16.50 150.85 -1.461 -1.488 -1.498 -1.492 + 17.00 150.85 -1.784 -1.850 -1.883 -1.885 + 17.50 150.85 -1.997 -2.143 -2.227 -2.249 + 14.00 150.90 -1.520 -1.547 -1.574 -1.592 + 14.50 150.90 -1.051 -1.058 -1.065 -1.066 + 15.00 150.90 -0.710 -0.690 -0.672 -0.652 + 15.50 150.90 -0.842 -0.837 -0.828 -0.815 + 16.00 150.90 -1.186 -1.206 -1.221 -1.232 + 16.50 150.90 -1.464 -1.491 -1.502 -1.496 + 17.00 150.90 -1.785 -1.851 -1.885 -1.886 + 17.50 150.90 -1.997 -2.143 -2.227 -2.249 + 14.00 151.00 -1.622 -1.646 -1.670 -1.682 + 14.50 151.00 -1.153 -1.164 -1.177 -1.186 + 15.00 151.00 -0.780 -0.762 -0.745 -0.728 + 15.50 151.00 -0.857 -0.851 -0.839 -0.821 + 16.00 151.00 -1.196 -1.217 -1.233 -1.245 + 16.50 151.00 -1.471 -1.498 -1.509 -1.505 + 17.00 151.00 -1.787 -1.853 -1.887 -1.888 + 17.50 151.00 -1.999 -2.144 -2.228 -2.250 + 14.00 151.10 -1.725 -1.749 -1.773 -1.785 + 14.50 151.10 -1.249 -1.263 -1.280 -1.295 + 15.00 151.10 -0.845 -0.829 -0.815 -0.802 + 15.50 151.10 -0.878 -0.868 -0.854 -0.836 + 16.00 151.10 -1.204 -1.224 -1.239 -1.250 + 16.50 151.10 -1.477 -1.504 -1.515 -1.513 + 17.00 151.10 -1.789 -1.855 -1.888 -1.890 + 17.50 151.10 -2.000 -2.145 -2.228 -2.250 + 14.00 151.20 -1.820 -1.844 -1.867 -1.880 + 14.50 151.20 -1.337 -1.355 -1.375 -1.395 + 15.00 151.20 -0.910 -0.896 -0.886 -0.876 + 15.50 151.20 -0.900 -0.886 -0.870 -0.851 + 16.00 151.20 -1.211 -1.231 -1.245 -1.255 + 16.50 151.20 -1.482 -1.510 -1.522 -1.521 + 17.00 151.20 -1.792 -1.857 -1.890 -1.893 + 17.50 151.20 -2.001 -2.145 -2.229 -2.251 + 14.00 151.30 -1.906 -1.931 -1.954 -1.967 + 14.50 151.30 -1.419 -1.438 -1.462 -1.485 + 15.00 151.30 -0.973 -0.960 -0.952 -0.946 + 15.50 151.30 -0.921 -0.907 -0.890 -0.870 + 16.00 151.30 -1.218 -1.238 -1.252 -1.260 + 16.50 151.30 -1.488 -1.516 -1.529 -1.529 + 17.00 151.30 -1.794 -1.859 -1.893 -1.895 + 17.50 151.30 -2.002 -2.146 -2.229 -2.251 + 14.00 151.40 -1.987 -2.011 -2.035 -2.047 + 14.50 151.40 -1.493 -1.516 -1.541 -1.569 + 15.00 151.40 -1.035 -1.025 -1.019 -1.015 + 15.50 151.40 -0.943 -0.928 -0.910 -0.889 + 16.00 151.40 -1.226 -1.245 -1.258 -1.266 + 16.50 151.40 -1.493 -1.522 -1.536 -1.537 + 17.00 151.40 -1.796 -1.861 -1.895 -1.897 + 17.50 151.40 -2.003 -2.147 -2.230 -2.252 + 14.00 151.50 -2.062 -2.086 -2.110 -2.122 + 14.50 151.50 -1.564 -1.585 -1.614 -1.646 + 15.00 151.50 -1.092 -1.084 -1.080 -1.080 + 15.50 151.50 -0.969 -0.951 -0.932 -0.913 + 16.00 151.50 -1.233 -1.252 -1.264 -1.271 + 16.50 151.50 -1.499 -1.528 -1.543 -1.545 + 17.00 151.50 -1.798 -1.863 -1.896 -1.899 + 17.50 151.50 -2.004 -2.148 -2.230 -2.252 + 14.00 151.60 -2.132 -2.156 -2.180 -2.192 + 14.50 151.60 -1.627 -1.650 -1.680 -1.714 + 15.00 151.60 -1.149 -1.143 -1.142 -1.145 + 15.50 151.60 -0.996 -0.975 -0.955 -0.936 + 16.00 151.60 -1.240 -1.257 -1.268 -1.273 + 16.50 151.60 -1.505 -1.533 -1.549 -1.553 + 17.00 151.60 -1.801 -1.865 -1.899 -1.901 + 17.50 151.60 -2.006 -2.148 -2.231 -2.253 + 14.00 151.70 -2.198 -2.222 -2.246 -2.258 + 14.50 151.70 -1.686 -1.710 -1.742 -1.777 + 15.00 151.70 -1.202 -1.197 -1.199 -1.205 + 15.50 151.70 -1.022 -1.002 -0.982 -0.961 + 16.00 151.70 -1.246 -1.263 -1.272 -1.275 + 16.50 151.70 -1.510 -1.539 -1.556 -1.561 + 17.00 151.70 -1.803 -1.867 -1.901 -1.903 + 17.50 151.70 -2.007 -2.149 -2.231 -2.253 + 14.00 151.80 -2.260 -2.284 -2.308 -2.320 + 14.50 151.80 -1.740 -1.765 -1.799 -1.836 + 15.00 151.80 -1.254 -1.251 -1.256 -1.264 + 15.50 151.80 -1.048 -1.029 -1.008 -0.987 + 16.00 151.80 -1.253 -1.268 -1.276 -1.277 + 16.50 151.80 -1.516 -1.546 -1.563 -1.569 + 17.00 151.80 -1.805 -1.869 -1.903 -1.906 + 17.50 151.80 -2.008 -2.150 -2.232 -2.254 + 14.00 151.90 -2.319 -2.343 -2.366 -2.379 + 14.50 151.90 -1.788 -1.815 -1.851 -1.889 + 15.00 151.90 -1.302 -1.301 -1.307 -1.318 + 15.50 151.90 -1.077 -1.056 -1.036 -1.016 + 16.00 151.90 -1.260 -1.274 -1.280 -1.279 + 16.50 151.90 -1.522 -1.551 -1.570 -1.577 + 17.00 151.90 -1.807 -1.871 -1.905 -1.908 + 17.50 151.90 -2.009 -2.151 -2.232 -2.254 + 14.00 152.00 -2.374 -2.398 -2.422 -2.434 + 14.50 152.00 -1.836 -1.863 -1.896 -1.936 + 15.00 152.00 -1.351 -1.351 -1.359 -1.372 + 15.50 152.00 -1.106 -1.084 -1.064 -1.045 + 16.00 152.00 -1.267 -1.279 -1.284 -1.281 + 16.50 152.00 -1.527 -1.558 -1.577 -1.585 + 17.00 152.00 -1.810 -1.873 -1.907 -1.910 + 17.50 152.00 -2.010 -2.151 -2.233 -2.255 + 14.00 152.10 -2.427 -2.451 -2.475 -2.487 + 14.50 152.10 -1.879 -1.907 -1.943 -1.983 + 15.00 152.10 -1.395 -1.396 -1.405 -1.419 + 15.50 152.10 -1.133 -1.111 -1.092 -1.075 + 16.00 152.10 -1.274 -1.285 -1.288 -1.284 + 16.50 152.10 -1.532 -1.563 -1.582 -1.590 + 17.00 152.10 -1.813 -1.875 -1.909 -1.913 + 17.50 152.10 -2.011 -2.152 -2.234 -2.256 + 14.00 152.20 -2.478 -2.502 -2.526 -2.538 + 14.50 152.20 -1.919 -1.947 -1.983 -2.023 + 15.00 152.20 -1.439 -1.441 -1.452 -1.467 + 15.50 152.20 -1.160 -1.138 -1.120 -1.104 + 16.00 152.20 -1.281 -1.291 -1.293 -1.287 + 16.50 152.20 -1.538 -1.567 -1.587 -1.596 + 17.00 152.20 -1.816 -1.878 -1.912 -1.916 + 17.50 152.20 -2.013 -2.153 -2.234 -2.256 + 14.00 152.30 -2.526 -2.550 -2.574 -2.586 + 14.50 152.30 -1.959 -1.987 -2.023 -2.063 + 15.00 152.30 -1.478 -1.482 -1.493 -1.509 + 15.50 152.30 -1.187 -1.166 -1.148 -1.133 + 16.00 152.30 -1.288 -1.296 -1.297 -1.290 + 16.50 152.30 -1.543 -1.572 -1.592 -1.601 + 17.00 152.30 -1.819 -1.881 -1.914 -1.919 + 17.50 152.30 -2.014 -2.154 -2.235 -2.257 + 14.00 152.40 -2.572 -2.596 -2.620 -2.632 + 14.50 152.40 -1.997 -2.025 -2.060 -2.100 + 15.00 152.40 -1.517 -1.522 -1.534 -1.550 + 15.50 152.40 -1.214 -1.193 -1.176 -1.162 + 16.00 152.40 -1.296 -1.302 -1.301 -1.292 + 16.50 152.40 -1.548 -1.577 -1.597 -1.606 + 17.00 152.40 -1.822 -1.883 -1.917 -1.922 + 17.50 152.40 -2.015 -2.155 -2.236 -2.258 + 14.00 152.50 -2.616 -2.641 -2.664 -2.677 + 14.50 152.50 -2.035 -2.063 -2.098 -2.137 + 15.00 152.50 -1.556 -1.562 -1.575 -1.591 + 15.50 152.50 -1.240 -1.220 -1.204 -1.192 + 16.00 152.50 -1.303 -1.308 -1.305 -1.295 + 16.50 152.50 -1.553 -1.582 -1.602 -1.612 + 17.00 152.50 -1.825 -1.886 -1.920 -1.925 + 17.50 152.50 -2.017 -2.156 -2.237 -2.258 + 14.00 152.60 -2.659 -2.683 -2.707 -2.719 + 14.50 152.60 -2.072 -2.100 -2.134 -2.172 + 15.00 152.60 -1.595 -1.602 -1.616 -1.633 + 15.50 152.60 -1.267 -1.247 -1.232 -1.222 + 16.00 152.60 -1.312 -1.315 -1.311 -1.300 + 16.50 152.60 -1.558 -1.587 -1.607 -1.617 + 17.00 152.60 -1.828 -1.888 -1.922 -1.928 + 17.50 152.60 -2.018 -2.157 -2.237 -2.259 + 14.00 152.80 -2.740 -2.764 -2.787 -2.800 + 14.50 152.80 -2.146 -2.174 -2.207 -2.244 + 15.00 152.80 -1.665 -1.673 -1.689 -1.708 + 15.50 152.80 -1.321 -1.302 -1.288 -1.281 + 16.00 152.80 -1.330 -1.330 -1.323 -1.310 + 16.50 152.80 -1.568 -1.597 -1.617 -1.628 + 17.00 152.80 -1.834 -1.893 -1.927 -1.934 + 17.50 152.80 -2.021 -2.159 -2.239 -2.260 + 14.00 153.00 -2.814 -2.839 -2.862 -2.875 + 14.50 153.00 -2.225 -2.253 -2.286 -2.320 + 15.00 153.00 -1.735 -1.745 -1.762 -1.783 + 15.50 153.00 -1.373 -1.356 -1.345 -1.340 + 16.00 153.00 -1.348 -1.344 -1.334 -1.320 + 16.50 153.00 -1.578 -1.607 -1.627 -1.638 + 17.00 153.00 -1.840 -1.899 -1.933 -1.940 + 17.50 153.00 -2.023 -2.161 -2.240 -2.262 + 14.00 153.20 -2.885 -2.909 -2.932 -2.945 + 14.50 153.20 -2.295 -2.323 -2.356 -2.390 + 15.00 153.20 -1.796 -1.807 -1.826 -1.848 + 15.50 153.20 -1.425 -1.409 -1.400 -1.398 + 16.00 153.20 -1.367 -1.361 -1.350 -1.334 + 16.50 153.20 -1.586 -1.615 -1.634 -1.644 + 17.00 153.20 -1.846 -1.904 -1.938 -1.946 + 17.50 153.20 -2.026 -2.163 -2.242 -2.263 + 14.00 153.40 -2.950 -2.975 -2.998 -3.011 + 14.50 153.40 -2.361 -2.388 -2.422 -2.456 + 15.00 153.40 -1.857 -1.870 -1.889 -1.914 + 15.50 153.40 -1.476 -1.461 -1.454 -1.456 + 16.00 153.40 -1.386 -1.378 -1.365 -1.348 + 16.50 153.40 -1.593 -1.622 -1.641 -1.650 + 17.00 153.40 -1.852 -1.909 -1.943 -1.952 + 17.50 153.40 -2.029 -2.165 -2.243 -2.264 + 14.00 153.50 -2.982 -3.006 -3.030 -3.042 + 14.50 153.50 -2.392 -2.420 -2.453 -2.487 + 15.00 153.50 -1.884 -1.898 -1.918 -1.944 + 15.50 153.50 -1.502 -1.487 -1.482 -1.485 + 16.00 153.50 -1.396 -1.386 -1.373 -1.356 + 16.50 153.50 -1.596 -1.626 -1.644 -1.653 + 17.00 153.50 -1.855 -1.912 -1.946 -1.956 + 17.50 153.50 -2.030 -2.166 -2.244 -2.265 + 14.00 153.60 -3.012 -3.037 -3.060 -3.073 + 14.50 153.60 -2.423 -2.451 -2.484 -2.518 + 15.00 153.60 -1.912 -1.926 -1.947 -1.974 + 15.50 153.60 -1.527 -1.513 -1.509 -1.514 + 16.00 153.60 -1.406 -1.396 -1.382 -1.365 + 16.50 153.60 -1.600 -1.629 -1.648 -1.656 + 17.00 153.60 -1.858 -1.914 -1.948 -1.959 + 17.50 153.60 -2.031 -2.167 -2.245 -2.266 + 14.00 153.80 -3.071 -3.095 -3.119 -3.131 + 14.50 153.80 -2.481 -2.509 -2.542 -2.576 + 15.00 153.80 -1.967 -1.983 -2.005 -2.033 + 15.50 153.80 -1.572 -1.561 -1.560 -1.567 + 16.00 153.80 -1.426 -1.415 -1.401 -1.383 + 16.50 153.80 -1.607 -1.637 -1.655 -1.662 + 17.00 153.80 -1.864 -1.919 -1.953 -1.965 + 17.50 153.80 -2.034 -2.169 -2.246 -2.267 + 14.00 154.00 -3.127 -3.151 -3.175 -3.187 + 14.50 154.00 -2.537 -2.565 -2.598 -2.632 + 15.00 154.00 -2.022 -2.039 -2.061 -2.089 + 15.50 154.00 -1.617 -1.609 -1.611 -1.620 + 16.00 154.00 -1.446 -1.434 -1.419 -1.401 + 16.50 154.00 -1.614 -1.644 -1.661 -1.668 + 17.00 154.00 -1.870 -1.924 -1.959 -1.971 + 17.50 154.00 -2.037 -2.171 -2.248 -2.268 + 14.00 154.20 -3.180 -3.204 -3.228 -3.240 + 14.50 154.20 -2.590 -2.618 -2.651 -2.685 + 15.00 154.20 -2.075 -2.092 -2.114 -2.142 + 15.50 154.20 -1.661 -1.658 -1.661 -1.674 + 16.00 154.20 -1.469 -1.456 -1.440 -1.422 + 16.50 154.20 -1.624 -1.652 -1.668 -1.673 + 17.00 154.20 -1.875 -1.929 -1.964 -1.976 + 17.50 154.20 -2.040 -2.173 -2.250 -2.270 + 14.00 154.50 -3.255 -3.279 -3.303 -3.315 + 14.50 154.50 -2.665 -2.693 -2.726 -2.760 + 15.00 154.50 -2.150 -2.167 -2.189 -2.217 + 15.50 154.50 -1.725 -1.721 -1.727 -1.743 + 16.00 154.50 -1.505 -1.488 -1.471 -1.454 + 16.50 154.50 -1.638 -1.663 -1.677 -1.680 + 17.00 154.50 -1.883 -1.937 -1.971 -1.984 + 17.50 154.50 -2.045 -2.176 -2.252 -2.273 + 14.00 154.80 -3.325 -3.349 -3.373 -3.385 + 14.50 154.80 -2.735 -2.763 -2.796 -2.830 + 15.00 154.80 -2.220 -2.237 -2.259 -2.287 + 15.50 154.80 -1.788 -1.785 -1.793 -1.813 + 16.00 154.80 -1.539 -1.521 -1.505 -1.489 + 16.50 154.80 -1.652 -1.674 -1.686 -1.688 + 17.00 154.80 -1.890 -1.944 -1.979 -1.992 + 17.50 154.80 -2.050 -2.180 -2.255 -2.275 + 14.00 155.00 -3.369 -3.393 -3.417 -3.429 + 14.50 155.00 -2.779 -2.807 -2.840 -2.874 + 15.00 155.00 -2.264 -2.281 -2.303 -2.331 + 15.50 155.00 -1.823 -1.823 -1.833 -1.854 + 16.00 155.00 -1.562 -1.544 -1.527 -1.513 + 16.50 155.00 -1.661 -1.682 -1.692 -1.692 + 17.00 155.00 -1.895 -1.950 -1.984 -1.997 + 17.50 155.00 -2.053 -2.182 -2.257 -2.277 + 14.00 155.40 -3.453 -3.477 -3.501 -3.513 + 14.50 155.40 -2.863 -2.891 -2.924 -2.958 + 15.00 155.40 -2.348 -2.365 -2.387 -2.415 + 15.50 155.40 -1.893 -1.900 -1.914 -1.936 + 16.00 155.40 -1.610 -1.590 -1.575 -1.563 + 16.50 155.40 -1.676 -1.695 -1.704 -1.702 + 17.00 155.40 -1.906 -1.960 -1.994 -2.007 + 17.50 155.40 -2.060 -2.186 -2.260 -2.280 + 14.00 155.50 -3.473 -3.497 -3.520 -3.533 + 14.50 155.50 -2.883 -2.911 -2.944 -2.978 + 15.00 155.50 -2.368 -2.384 -2.407 -2.435 + 15.50 155.50 -1.911 -1.917 -1.932 -1.955 + 16.00 155.50 -1.622 -1.602 -1.587 -1.575 + 16.50 155.50 -1.679 -1.698 -1.707 -1.705 + 17.00 155.50 -1.908 -1.962 -1.996 -2.010 + 17.50 155.50 -2.061 -2.188 -2.261 -2.281 + 14.00 156.00 -3.567 -3.591 -3.615 -3.627 + 14.50 156.00 -2.977 -3.005 -3.038 -3.072 + 15.00 156.00 -2.463 -2.479 -2.501 -2.529 + 15.50 156.00 -2.000 -2.006 -2.023 -2.051 + 16.00 156.00 -1.680 -1.660 -1.646 -1.638 + 16.50 156.00 -1.697 -1.714 -1.721 -1.717 + 17.00 156.00 -1.921 -1.975 -2.009 -2.023 + 17.50 156.00 -2.070 -2.193 -2.265 -2.286 + 14.00 156.50 -3.654 -3.678 -3.702 -3.714 + 14.50 156.50 -3.064 -3.092 -3.125 -3.159 + 15.00 156.50 -2.549 -2.566 -2.588 -2.616 + 15.50 156.50 -2.081 -2.086 -2.105 -2.137 + 16.00 156.50 -1.737 -1.719 -1.708 -1.703 + 16.50 156.50 -1.723 -1.737 -1.740 -1.733 + 17.00 156.50 -1.933 -1.986 -2.020 -2.034 + 17.50 156.50 -2.078 -2.199 -2.270 -2.290 + 14.00 156.60 -3.671 -3.695 -3.718 -3.731 + 14.50 156.60 -3.081 -3.109 -3.142 -3.176 + 15.00 156.60 -2.566 -2.582 -2.605 -2.633 + 15.50 156.60 -2.097 -2.102 -2.122 -2.154 + 16.00 156.60 -1.750 -1.731 -1.720 -1.716 + 16.50 156.60 -1.729 -1.741 -1.744 -1.736 + 17.00 156.60 -1.936 -1.988 -2.022 -2.036 + 17.50 156.60 -2.080 -2.201 -2.271 -2.291 + 14.00 157.00 -3.734 -3.759 -3.782 -3.795 + 14.50 157.00 -3.145 -3.172 -3.206 -3.240 + 15.00 157.00 -2.630 -2.646 -2.668 -2.697 + 15.50 157.00 -2.151 -2.159 -2.180 -2.214 + 16.00 157.00 -1.799 -1.777 -1.767 -1.767 + 16.50 157.00 -1.750 -1.760 -1.760 -1.750 + 17.00 157.00 -1.946 -1.997 -2.030 -2.045 + 17.50 157.00 -2.087 -2.205 -2.275 -2.295 + 14.00 157.50 -3.809 -3.833 -3.857 -3.870 + 14.50 157.50 -3.220 -3.247 -3.280 -3.315 + 15.00 157.50 -2.705 -2.721 -2.743 -2.772 + 15.50 157.50 -2.220 -2.230 -2.253 -2.289 + 16.00 157.50 -1.851 -1.833 -1.827 -1.833 + 16.50 157.50 -1.776 -1.782 -1.780 -1.771 + 17.00 157.50 -1.958 -2.008 -2.041 -2.056 + 17.50 157.50 -2.095 -2.211 -2.279 -2.299 + 14.00 157.80 -3.852 -3.876 -3.900 -3.912 + 14.50 157.80 -3.262 -3.290 -3.323 -3.357 + 15.00 157.80 -2.747 -2.764 -2.786 -2.814 + 15.50 157.80 -2.260 -2.273 -2.298 -2.333 + 16.00 157.80 -1.882 -1.867 -1.862 -1.869 + 16.50 157.80 -1.791 -1.795 -1.793 -1.785 + 17.00 157.80 -1.966 -2.015 -2.047 -2.062 + 17.50 157.80 -2.101 -2.215 -2.282 -2.302 + 14.00 158.00 -3.879 -3.904 -3.927 -3.940 + 14.50 158.00 -3.290 -3.318 -3.351 -3.385 + 15.00 158.00 -2.775 -2.791 -2.813 -2.842 + 15.50 158.00 -2.288 -2.301 -2.325 -2.361 + 16.00 158.00 -1.903 -1.889 -1.886 -1.893 + 16.50 158.00 -1.801 -1.804 -1.801 -1.793 + 17.00 158.00 -1.971 -2.019 -2.052 -2.066 + 17.50 158.00 -2.104 -2.217 -2.284 -2.304 + 14.00 159.00 -4.007 -4.031 -4.055 -4.068 + 14.50 159.00 -3.418 -3.445 -3.478 -3.513 + 15.00 159.00 -2.903 -2.919 -2.941 -2.970 + 15.50 159.00 -2.416 -2.429 -2.453 -2.489 + 16.00 159.00 -2.011 -1.996 -1.996 -2.011 + 16.50 159.00 -1.860 -1.857 -1.851 -1.842 + 17.00 159.00 -1.994 -2.040 -2.070 -2.084 + 17.50 159.00 -2.121 -2.229 -2.293 -2.313 + 14.00 160.00 -4.122 -4.146 -4.170 -4.182 + 14.50 160.00 -3.532 -3.560 -3.593 -3.627 + 15.00 160.00 -3.017 -3.033 -3.056 -3.084 + 15.50 160.00 -2.530 -2.543 -2.567 -2.603 + 16.00 160.00 -2.105 -2.096 -2.101 -2.121 + 16.50 160.00 -1.917 -1.910 -1.903 -1.896 + 17.00 160.00 -2.017 -2.060 -2.089 -2.102 + 17.50 160.00 -2.137 -2.241 -2.303 -2.322 + 14.00 161.00 -4.225 -4.249 -4.273 -4.285 + 14.50 161.00 -3.635 -3.663 -3.696 -3.730 + 15.00 161.00 -3.121 -3.137 -3.159 -3.187 + 15.50 161.00 -2.634 -2.647 -2.671 -2.707 + 16.00 161.00 -2.193 -2.186 -2.195 -2.219 + 16.50 161.00 -1.979 -1.967 -1.959 -1.955 + 17.00 161.00 -2.041 -2.081 -2.106 -2.118 + 17.50 161.00 -2.153 -2.253 -2.313 -2.332 + 14.00 162.00 -4.320 -4.344 -4.367 -4.380 + 14.50 162.00 -3.730 -3.758 -3.791 -3.825 + 15.00 162.00 -3.215 -3.231 -3.254 -3.282 + 15.50 162.00 -2.728 -2.741 -2.765 -2.801 + 16.00 162.00 -2.274 -2.269 -2.281 -2.308 + 16.50 162.00 -2.030 -2.019 -2.013 -2.011 + 17.00 162.00 -2.065 -2.101 -2.124 -2.134 + 17.50 162.00 -2.169 -2.265 -2.322 -2.341 + 14.00 163.00 -4.406 -4.431 -4.454 -4.467 + 14.50 163.00 -3.817 -3.845 -3.878 -3.912 + 15.00 163.00 -3.302 -3.318 -3.341 -3.369 + 15.50 163.00 -2.815 -2.828 -2.852 -2.888 + 16.00 163.00 -2.347 -2.342 -2.356 -2.386 + 16.50 163.00 -2.092 -2.075 -2.068 -2.069 + 17.00 163.00 -2.089 -2.121 -2.141 -2.149 + 17.50 163.00 -2.185 -2.276 -2.331 -2.350 + 14.00 164.00 -4.487 -4.511 -4.535 -4.547 + 14.50 164.00 -3.897 -3.925 -3.958 -3.992 + 15.00 164.00 -3.382 -3.399 -3.421 -3.449 + 15.50 164.00 -2.895 -2.908 -2.933 -2.969 + 16.00 164.00 -2.419 -2.416 -2.431 -2.463 + 16.50 164.00 -2.143 -2.127 -2.122 -2.125 + 17.00 164.00 -2.113 -2.140 -2.157 -2.164 + 17.50 164.00 -2.200 -2.287 -2.341 -2.359 + 14.00 165.00 -4.562 -4.586 -4.610 -4.622 + 14.50 165.00 -3.972 -4.000 -4.033 -4.067 + 15.00 165.00 -3.457 -3.474 -3.496 -3.524 + 15.50 165.00 -2.970 -2.983 -3.008 -3.043 + 16.00 165.00 -2.478 -2.478 -2.495 -2.529 + 16.50 165.00 -2.199 -2.181 -2.175 -2.182 + 17.00 165.00 -2.137 -2.160 -2.174 -2.180 + 17.50 165.00 -2.215 -2.299 -2.349 -2.368 + 14.00 166.00 -4.632 -4.656 -4.680 -4.692 + 14.50 166.00 -4.042 -4.070 -4.103 -4.137 + 15.00 166.00 -3.527 -3.544 -3.566 -3.594 + 15.50 166.00 -3.040 -3.053 -3.078 -3.114 + 16.00 166.00 -2.538 -2.541 -2.559 -2.593 + 16.50 166.00 -2.243 -2.227 -2.223 -2.232 + 17.00 166.00 -2.162 -2.180 -2.191 -2.196 + 17.50 166.00 -2.231 -2.310 -2.359 -2.377 + 14.00 167.00 -4.698 -4.722 -4.746 -4.758 + 14.50 167.00 -4.108 -4.136 -4.169 -4.203 + 15.00 167.00 -3.593 -3.610 -3.632 -3.660 + 15.50 167.00 -3.106 -3.119 -3.144 -3.179 + 16.00 167.00 -2.592 -2.595 -2.614 -2.649 + 16.50 167.00 -2.293 -2.274 -2.270 -2.281 + 17.00 167.00 -2.186 -2.200 -2.209 -2.213 + 17.50 167.00 -2.244 -2.320 -2.367 -2.385 + 14.00 168.00 -4.760 -4.784 -4.808 -4.820 + 14.50 168.00 -4.170 -4.198 -4.231 -4.265 + 15.00 168.00 -3.655 -3.672 -3.694 -3.722 + 15.50 168.00 -3.168 -3.181 -3.205 -3.241 + 16.00 168.00 -2.646 -2.650 -2.670 -2.705 + 16.50 168.00 -2.333 -2.317 -2.315 -2.328 + 17.00 168.00 -2.210 -2.220 -2.227 -2.229 + 17.50 168.00 -2.257 -2.331 -2.376 -2.393 + 14.00 169.00 -4.819 -4.843 -4.866 -4.879 + 14.50 169.00 -4.229 -4.257 -4.290 -4.324 + 15.00 169.00 -3.714 -3.730 -3.753 -3.781 + 15.50 169.00 -3.227 -3.240 -3.264 -3.300 + 16.00 169.00 -2.705 -2.708 -2.728 -2.764 + 16.50 169.00 -2.110 -2.271 -2.359 -2.373 + 17.00 169.00 -2.234 -2.242 -2.246 -2.248 + 17.50 169.00 -2.271 -2.341 -2.385 -2.402 + 14.00 170.00 -4.874 -4.898 -4.922 -4.935 + 14.50 170.00 -4.285 -4.312 -4.345 -4.379 + 15.00 170.00 -3.770 -3.786 -3.808 -3.836 + 15.50 170.00 -3.283 -3.296 -3.320 -3.356 + 16.00 170.00 -2.760 -2.764 -2.784 -2.820 + 16.50 170.00 -2.416 -2.400 -2.400 -2.416 + 17.00 170.00 -2.259 -2.263 -2.265 -2.266 + 17.50 170.00 -2.284 -2.352 -2.394 -2.410 + 14.00 171.00 -4.927 -4.951 -4.975 -4.988 + 14.50 171.00 -4.338 -4.365 -4.398 -4.432 + 15.00 171.00 -3.823 -3.839 -3.861 -3.889 + 15.50 171.00 -3.336 -3.349 -3.373 -3.409 + 16.00 171.00 -2.813 -2.817 -2.837 -2.873 + 16.50 171.00 -2.458 -2.441 -2.441 -2.458 + 17.00 171.00 -2.287 -2.286 -2.286 -2.287 + 17.50 171.00 -2.300 -2.363 -2.403 -2.418 + 14.00 172.00 -4.978 -5.002 -5.026 -5.038 + 14.50 172.00 -4.388 -4.416 -4.449 -4.483 + 15.00 172.00 -3.873 -3.890 -3.912 -3.940 + 15.50 172.00 -3.386 -3.399 -3.423 -3.459 + 16.00 172.00 -2.864 -2.868 -2.888 -2.923 + 16.50 172.00 -2.495 -2.479 -2.480 -2.499 + 17.00 172.00 -2.316 -2.310 -2.307 -2.308 + 17.50 172.00 -2.316 -2.375 -2.411 -2.427 + 14.00 174.00 -5.072 -5.096 -5.120 -5.133 + 14.50 174.00 -4.483 -4.510 -4.543 -4.577 + 15.00 174.00 -3.968 -3.984 -4.006 -4.035 + 15.50 174.00 -3.481 -3.494 -3.518 -3.554 + 16.00 174.00 -2.958 -2.962 -2.982 -3.018 + 16.50 174.00 -2.565 -2.551 -2.555 -2.575 + 17.00 174.00 -2.371 -2.359 -2.353 -2.353 + 17.50 174.00 -2.349 -2.398 -2.430 -2.444 + 14.00 176.00 -5.159 -5.183 -5.207 -5.219 + 14.50 176.00 -4.569 -4.597 -4.630 -4.664 + 15.00 176.00 -4.055 -4.071 -4.093 -4.121 + 15.50 176.00 -3.568 -3.580 -3.605 -3.641 + 16.00 176.00 -3.045 -3.049 -3.069 -3.105 + 16.50 176.00 -2.635 -2.623 -2.629 -2.652 + 17.00 176.00 -2.428 -2.408 -2.398 -2.399 + 17.50 176.00 -2.381 -2.423 -2.450 -2.462 + 14.00 178.00 -5.240 -5.264 -5.287 -5.300 + 14.50 178.00 -4.650 -4.678 -4.711 -4.745 + 15.00 178.00 -4.135 -4.151 -4.174 -4.202 + 15.50 178.00 -3.648 -3.661 -3.685 -3.721 + 16.00 178.00 -3.126 -3.129 -3.149 -3.185 + 16.50 178.00 -2.705 -2.691 -2.697 -2.721 + 17.00 178.00 -2.481 -2.457 -2.445 -2.445 + 17.50 178.00 -2.412 -2.447 -2.470 -2.480 + 14.00 180.00 -5.314 -5.339 -5.362 -5.375 + 14.50 180.00 -4.725 -4.753 -4.786 -4.820 + 15.00 180.00 -4.210 -4.226 -4.249 -4.277 + 15.50 180.00 -3.723 -3.736 -3.760 -3.796 + 16.00 180.00 -3.201 -3.204 -3.224 -3.260 + 16.50 180.00 -2.775 -2.760 -2.764 -2.790 + 17.00 180.00 -2.533 -2.504 -2.491 -2.492 + 17.50 180.00 -2.451 -2.474 -2.491 -2.499 + 14.00 182.00 -5.385 -5.409 -5.432 -5.445 + 14.50 182.00 -4.795 -4.823 -4.856 -4.890 + 15.00 182.00 -4.280 -4.296 -4.319 -4.347 + 15.50 182.00 -3.793 -3.806 -3.830 -3.866 + 16.00 182.00 -3.271 -3.274 -3.294 -3.330 + 16.50 182.00 -2.845 -2.829 -2.835 -2.861 + 17.00 182.00 -2.587 -2.551 -2.535 -2.536 + 17.50 182.00 -2.490 -2.502 -2.511 -2.519 + 14.00 186.00 -5.512 -5.537 -5.560 -5.573 + 14.50 186.00 -4.923 -4.951 -4.984 -5.018 + 15.00 186.00 -4.408 -4.424 -4.446 -4.475 + 15.50 186.00 -3.921 -3.934 -3.958 -3.994 + 16.00 186.00 -3.398 -3.402 -3.422 -3.458 + 16.50 186.00 -2.973 -2.957 -2.962 -2.988 + 17.00 186.00 -2.680 -2.636 -2.616 -2.620 + 17.50 186.00 -2.559 -2.554 -2.554 -2.559 + 14.00 190.00 -5.627 -5.651 -5.675 -5.687 + 14.50 190.00 -5.037 -5.065 -5.098 -5.132 + 15.00 190.00 -4.522 -4.539 -4.561 -4.589 + 15.50 190.00 -4.035 -4.048 -4.073 -4.108 + 16.00 190.00 -3.513 -3.517 -3.537 -3.572 + 16.50 190.00 -3.087 -3.072 -3.077 -3.103 + 17.00 190.00 -2.760 -2.714 -2.695 -2.699 + 17.50 190.00 -2.631 -2.609 -2.599 -2.599 + 14.00 194.00 -5.730 -5.754 -5.778 -5.791 + 14.50 194.00 -5.141 -5.168 -5.201 -5.235 + 15.00 194.00 -4.626 -4.642 -4.664 -4.693 + 15.50 194.00 -4.139 -4.152 -4.176 -4.212 + 16.00 194.00 -3.616 -3.620 -3.640 -3.676 + 16.50 194.00 -3.191 -3.175 -3.180 -3.206 + 17.00 194.00 -2.836 -2.788 -2.767 -2.772 + 17.50 194.00 -2.693 -2.660 -2.642 -2.640 + 14.00 198.00 -5.825 -5.849 -5.873 -5.885 + 14.50 198.00 -5.235 -5.263 -5.296 -5.330 + 15.00 198.00 -4.720 -4.737 -4.759 -4.787 + 15.50 198.00 -4.233 -4.246 -4.270 -4.306 + 16.00 198.00 -3.711 -3.715 -3.734 -3.770 + 16.50 198.00 -3.285 -3.270 -3.275 -3.301 + 17.00 198.00 -2.907 -2.857 -2.836 -2.842 + 17.50 198.00 -2.757 -2.710 -2.684 -2.680 + 14.00 202.00 -5.912 -5.936 -5.960 -5.972 + 14.50 202.00 -5.322 -5.350 -5.383 -5.417 + 15.00 202.00 -4.807 -4.824 -4.846 -4.874 + 15.50 202.00 -4.320 -4.333 -4.357 -4.393 + 16.00 202.00 -3.798 -3.802 -3.821 -3.857 + 16.50 202.00 -3.372 -3.357 -3.362 -3.388 + 17.00 202.00 -2.971 -2.921 -2.900 -2.907 + 17.50 202.00 -2.821 -2.760 -2.726 -2.719 + 14.00 206.00 -5.992 -6.016 -6.040 -6.052 + 14.50 206.00 -5.402 -5.430 -5.463 -5.497 + 15.00 206.00 -4.888 -4.904 -4.926 -4.954 + 15.50 206.00 -4.401 -4.413 -4.438 -4.474 + 16.00 206.00 -3.878 -3.882 -3.902 -3.938 + 16.50 206.00 -3.452 -3.437 -3.442 -3.468 + 17.00 206.00 -3.044 -2.983 -2.959 -2.971 + 17.50 206.00 -2.879 -2.807 -2.767 -2.760 + 14.00 210.00 -6.067 -6.091 -6.115 -6.127 + 14.50 210.00 -5.477 -5.505 -5.538 -5.572 + 15.00 210.00 -4.963 -4.979 -5.001 -5.029 + 15.50 210.00 -4.476 -4.488 -4.513 -4.549 + 16.00 210.00 -3.953 -3.957 -3.977 -4.013 + 16.50 210.00 -3.527 -3.512 -3.517 -3.543 + 17.00 210.00 -3.056 -3.026 -3.016 -3.026 + 17.50 210.00 -2.932 -2.854 -2.810 -2.799 + 14.00 214.00 -6.137 -6.161 -6.185 -6.197 + 14.50 214.00 -5.547 -5.575 -5.608 -5.642 + 15.00 214.00 -5.033 -5.049 -5.071 -5.099 + 15.50 214.00 -4.546 -4.558 -4.583 -4.619 + 16.00 214.00 -4.023 -4.027 -4.047 -4.083 + 16.50 214.00 -3.597 -3.582 -3.587 -3.613 + 17.00 214.00 -3.126 -3.096 -3.086 -3.096 + 17.50 214.00 -2.983 -2.896 -2.848 -2.839 + 14.00 218.00 -6.203 -6.227 -6.251 -6.263 + 14.50 218.00 -5.613 -5.641 -5.674 -5.708 + 15.00 218.00 -5.098 -5.115 -5.137 -5.165 + 15.50 218.00 -4.611 -4.624 -4.649 -4.685 + 16.00 218.00 -4.089 -4.093 -4.113 -4.149 + 16.50 218.00 -3.663 -3.648 -3.653 -3.679 + 17.00 218.00 -3.192 -3.162 -3.152 -3.162 + 17.50 218.00 -3.036 -2.939 -2.886 -2.876 + 14.00 222.00 -6.265 -6.289 -6.313 -6.325 + 14.50 222.00 -5.675 -5.703 -5.736 -5.770 + 15.00 222.00 -5.160 -5.177 -5.199 -5.227 + 15.50 222.00 -4.674 -4.686 -4.711 -4.747 + 16.00 222.00 -4.151 -4.155 -4.175 -4.211 + 16.50 222.00 -3.725 -3.710 -3.715 -3.741 + 17.00 222.00 -3.254 -3.224 -3.214 -3.224 + 17.50 222.00 -3.089 -2.983 -2.924 -2.914 + 14.00 226.00 -6.324 -6.348 -6.372 -6.384 + 14.50 226.00 -5.734 -5.762 -5.795 -5.829 + 15.00 226.00 -5.219 -5.235 -5.258 -5.286 + 15.50 226.00 -4.732 -4.745 -4.769 -4.805 + 16.00 226.00 -4.210 -4.214 -4.233 -4.269 + 16.50 226.00 -3.784 -3.769 -3.774 -3.800 + 17.00 226.00 -3.313 -3.283 -3.273 -3.283 + 17.50 226.00 -3.125 -3.022 -2.963 -2.947 + 14.00 230.00 -6.379 -6.404 -6.427 -6.440 + 14.50 230.00 -5.790 -5.818 -5.851 -5.885 + 15.00 230.00 -5.275 -5.291 -5.313 -5.342 + 15.50 230.00 -4.788 -4.801 -4.825 -4.861 + 16.00 230.00 -4.265 -4.269 -4.289 -4.325 + 16.50 230.00 -3.840 -3.824 -3.829 -3.855 + 17.00 230.00 -3.368 -3.339 -3.329 -3.338 + 17.50 230.00 -3.164 -3.060 -3.000 -2.983 + 14.00 240.00 -6.507 -6.531 -6.555 -6.568 + 14.50 240.00 -5.918 -5.945 -5.978 -6.012 + 15.00 240.00 -5.403 -5.419 -5.441 -5.470 + 15.50 240.00 -4.916 -4.929 -4.953 -4.989 + 16.00 240.00 -4.393 -4.397 -4.417 -4.453 + 16.50 240.00 -3.967 -3.952 -3.957 -3.983 + 17.00 240.00 -3.496 -3.467 -3.457 -3.466 + 17.50 240.00 -3.292 -3.188 -3.128 -3.111 + 14.00 250.00 -6.622 -6.646 -6.670 -6.682 + 14.50 250.00 -6.032 -6.060 -6.093 -6.127 + 15.00 250.00 -5.517 -5.534 -5.556 -5.584 + 15.50 250.00 -5.030 -5.043 -5.067 -5.103 + 16.00 250.00 -4.508 -4.512 -4.531 -4.567 + 16.50 250.00 -4.082 -4.067 -4.072 -4.098 + 17.00 250.00 -3.611 -3.581 -3.571 -3.581 + 17.50 250.00 -3.407 -3.303 -3.242 -3.225 + 14.00 260.00 -6.725 -6.749 -6.773 -6.785 + 14.50 260.00 -6.135 -6.163 -6.196 -6.230 + 15.00 260.00 -5.621 -5.637 -5.659 -5.687 + 15.50 260.00 -5.134 -5.147 -5.171 -5.207 + 16.00 260.00 -4.611 -4.615 -4.635 -4.671 + 16.50 260.00 -4.185 -4.170 -4.175 -4.201 + 17.00 260.00 -3.714 -3.684 -3.674 -3.684 + 17.50 260.00 -3.510 -3.406 -3.346 -3.329 + 14.00 270.00 -6.820 -6.844 -6.867 -6.880 + 14.50 270.00 -6.230 -6.258 -6.291 -6.325 + 15.00 270.00 -5.715 -5.732 -5.754 -5.782 + 15.50 270.00 -5.228 -5.241 -5.265 -5.301 + 16.00 270.00 -4.706 -4.709 -4.729 -4.765 + 16.50 270.00 -4.280 -4.265 -4.270 -4.296 + 17.00 270.00 -3.809 -3.779 -3.769 -3.779 + 17.50 270.00 -3.605 -3.501 -3.440 -3.423 + 14.00 280.00 -6.906 -6.931 -6.954 -6.967 + 14.50 280.00 -6.317 -6.345 -6.378 -6.412 + 15.00 280.00 -5.802 -5.818 -5.841 -5.869 + 15.50 280.00 -5.315 -5.328 -5.352 -5.388 + 16.00 280.00 -4.793 -4.796 -4.816 -4.852 + 16.50 280.00 -4.367 -4.352 -4.357 -4.383 + 17.00 280.00 -3.895 -3.866 -3.856 -3.865 + 17.50 280.00 -3.691 -3.588 -3.527 -3.510 + 14.00 290.00 -6.987 -7.011 -7.035 -7.047 + 14.50 290.00 -6.397 -6.425 -6.458 -6.492 + 15.00 290.00 -5.882 -5.899 -5.921 -5.949 + 15.50 290.00 -5.396 -5.408 -5.433 -5.469 + 16.00 290.00 -4.873 -4.877 -4.897 -4.933 + 16.50 290.00 -4.447 -4.432 -4.437 -4.463 + 17.00 290.00 -3.976 -3.946 -3.936 -3.946 + 17.50 290.00 -3.772 -3.668 -3.608 -3.591 + 14.00 300.00 -7.062 -7.086 -7.110 -7.122 + 14.50 300.00 -6.472 -6.500 -6.533 -6.567 + 15.00 300.00 -5.957 -5.974 -5.996 -6.024 + 15.50 300.00 -5.470 -5.483 -5.508 -5.543 + 16.00 300.00 -4.948 -4.952 -4.972 -5.008 + 16.50 300.00 -4.522 -4.507 -4.512 -4.538 + 17.00 300.00 -4.051 -4.021 -4.011 -4.021 + 17.50 300.00 -3.847 -3.743 -3.682 -3.665 + 4387 + Ne dwl+150 5000 10000 20000 40000 + 14.00 0.000 -6.801 -6.830 -6.860 -6.889 + 14.50 0.000 -6.371 -6.411 -6.460 -6.515 + 15.00 0.000 -5.457 -5.464 -5.480 -5.503 + 15.50 0.000 -5.041 -5.042 -5.049 -5.062 + 16.00 0.000 -4.527 -4.523 -4.530 -4.550 + 16.50 0.000 -4.119 -4.071 -4.051 -4.058 + 17.00 0.000 -3.618 -3.559 -3.524 -3.515 + 17.50 0.000 -3.295 -3.189 -3.125 -3.102 + 14.00 10.000 -6.726 -6.755 -6.785 -6.814 + 14.50 10.000 -6.296 -6.336 -6.385 -6.440 + 15.00 10.000 -5.382 -5.389 -5.405 -5.428 + 15.50 10.000 -4.966 -4.967 -4.974 -4.987 + 16.00 10.000 -4.452 -4.448 -4.455 -4.476 + 16.50 10.000 -4.044 -3.997 -3.976 -3.984 + 17.00 10.000 -3.543 -3.484 -3.449 -3.440 + 17.50 10.000 -3.220 -3.114 -3.050 -3.027 + 14.00 20.000 -6.646 -6.674 -6.705 -6.734 + 14.50 20.000 -6.216 -6.255 -6.305 -6.360 + 15.00 20.000 -5.302 -5.308 -5.325 -5.347 + 15.50 20.000 -4.886 -4.886 -4.893 -4.907 + 16.00 20.000 -4.372 -4.367 -4.375 -4.395 + 16.50 20.000 -3.964 -3.916 -3.896 -3.903 + 17.00 20.000 -3.463 -3.403 -3.369 -3.360 + 17.50 20.000 -3.139 -3.034 -2.970 -2.947 + 14.00 30.000 -6.559 -6.588 -6.618 -6.647 + 14.50 30.000 -6.129 -6.168 -6.218 -6.273 + 15.00 30.000 -5.215 -5.221 -5.238 -5.260 + 15.50 30.000 -4.799 -4.799 -4.806 -4.820 + 16.00 30.000 -4.285 -4.281 -4.288 -4.308 + 16.50 30.000 -3.877 -3.829 -3.809 -3.816 + 17.00 30.000 -3.376 -3.316 -3.282 -3.273 + 17.50 30.000 -3.053 -2.947 -2.883 -2.860 + 14.00 36.000 -6.503 -6.532 -6.562 -6.591 + 14.50 36.000 -6.073 -6.113 -6.162 -6.217 + 15.00 36.000 -5.159 -5.166 -5.182 -5.205 + 15.50 36.000 -4.743 -4.744 -4.751 -4.764 + 16.00 36.000 -4.229 -4.225 -4.232 -4.252 + 16.50 36.000 -3.821 -3.773 -3.753 -3.760 + 17.00 36.000 -3.320 -3.261 -3.226 -3.217 + 17.50 36.000 -3.000 -2.907 -2.848 -2.824 + 14.00 42.000 -6.445 -6.473 -6.503 -6.533 + 14.50 42.000 -6.015 -6.054 -6.103 -6.158 + 15.00 42.000 -5.100 -5.107 -5.123 -5.146 + 15.50 42.000 -4.684 -4.685 -4.692 -4.706 + 16.00 42.000 -4.171 -4.166 -4.174 -4.194 + 16.50 42.000 -3.762 -3.715 -3.695 -3.702 + 17.00 42.000 -3.261 -3.202 -3.168 -3.158 + 17.50 42.000 -2.959 -2.866 -2.810 -2.788 + 14.00 48.000 -6.383 -6.411 -6.441 -6.471 + 14.50 48.000 -5.952 -5.992 -6.041 -6.096 + 15.00 48.000 -5.038 -5.045 -5.061 -5.084 + 15.50 48.000 -4.622 -4.623 -4.630 -4.644 + 16.00 48.000 -4.109 -4.104 -4.112 -4.132 + 16.50 48.000 -3.700 -3.653 -3.632 -3.640 + 17.00 48.000 -3.199 -3.140 -3.105 -3.096 + 17.50 48.000 -2.907 -2.824 -2.772 -2.750 + 14.00 54.000 -6.317 -6.345 -6.376 -6.405 + 14.50 54.000 -5.887 -5.926 -5.975 -6.030 + 15.00 54.000 -4.972 -4.979 -4.995 -5.018 + 15.50 54.000 -4.556 -4.557 -4.564 -4.578 + 16.00 54.000 -4.043 -4.038 -4.046 -4.066 + 16.50 54.000 -3.635 -3.587 -3.567 -3.574 + 17.00 54.000 -3.134 -3.074 -3.040 -3.031 + 17.50 54.000 -2.857 -2.780 -2.733 -2.714 + 14.00 60.000 -6.247 -6.275 -6.306 -6.335 + 14.50 60.000 -5.817 -5.856 -5.905 -5.960 + 15.00 60.000 -4.903 -4.909 -4.925 -4.948 + 15.50 60.000 -4.486 -4.487 -4.494 -4.508 + 16.00 60.000 -3.973 -3.968 -3.976 -3.996 + 16.50 60.000 -3.565 -3.517 -3.497 -3.504 + 17.00 60.000 -3.063 -3.004 -2.970 -2.961 + 17.50 60.000 -2.807 -2.737 -2.695 -2.678 + 14.00 66.000 -6.172 -6.200 -6.231 -6.260 + 14.50 66.000 -5.742 -5.781 -5.830 -5.885 + 15.00 66.000 -4.827 -4.834 -4.850 -4.873 + 15.50 66.000 -4.411 -4.412 -4.419 -4.433 + 16.00 66.000 -3.898 -3.893 -3.901 -3.921 + 16.50 66.000 -3.490 -3.442 -3.422 -3.429 + 17.00 66.000 -2.989 -2.929 -2.895 -2.886 + 17.50 66.000 -2.747 -2.693 -2.658 -2.642 + 14.00 70.000 -6.119 -6.147 -6.178 -6.207 + 14.50 70.000 -5.689 -5.728 -5.778 -5.832 + 15.00 70.000 -4.775 -4.781 -4.797 -4.820 + 15.50 70.000 -4.359 -4.359 -4.366 -4.380 + 16.00 70.000 -3.845 -3.840 -3.848 -3.868 + 16.50 70.000 -3.437 -3.389 -3.369 -3.376 + 17.00 70.000 -2.935 -2.876 -2.842 -2.833 + 17.50 70.000 -2.712 -2.663 -2.631 -2.618 + 14.00 72.000 -6.091 -6.120 -6.150 -6.179 + 14.50 72.000 -5.661 -5.701 -5.750 -5.805 + 15.00 72.000 -4.747 -4.754 -4.770 -4.793 + 15.50 72.000 -4.331 -4.332 -4.339 -4.352 + 16.00 72.000 -3.817 -3.813 -3.820 -3.840 + 16.50 72.000 -3.409 -3.362 -3.341 -3.349 + 17.00 72.000 -2.916 -2.854 -2.819 -2.810 + 17.50 72.000 -2.695 -2.648 -2.618 -2.605 + 14.00 76.000 -6.034 -6.063 -6.093 -6.122 + 14.50 76.000 -5.604 -5.643 -5.693 -5.748 + 15.00 76.000 -4.690 -4.696 -4.713 -4.736 + 15.50 76.000 -4.274 -4.274 -4.281 -4.295 + 16.00 76.000 -3.760 -3.756 -3.763 -3.783 + 16.50 76.000 -3.352 -3.304 -3.284 -3.291 + 17.00 76.000 -2.876 -2.810 -2.772 -2.764 + 17.50 76.000 -2.655 -2.617 -2.594 -2.584 + 14.00 78.000 -6.004 -6.033 -6.063 -6.093 + 14.50 78.000 -5.574 -5.614 -5.663 -5.718 + 15.00 78.000 -4.660 -4.667 -4.683 -4.706 + 15.50 78.000 -4.244 -4.245 -4.252 -4.265 + 16.00 78.000 -3.730 -3.726 -3.733 -3.753 + 16.50 78.000 -3.322 -3.275 -3.254 -3.262 + 17.00 78.000 -2.850 -2.786 -2.749 -2.740 + 17.50 78.000 -2.635 -2.602 -2.582 -2.573 + 14.00 82.000 -5.942 -5.971 -6.001 -6.030 + 14.50 82.000 -5.512 -5.551 -5.601 -5.656 + 15.00 82.000 -4.598 -4.605 -4.621 -4.644 + 15.50 82.000 -4.182 -4.182 -4.190 -4.203 + 16.00 82.000 -3.668 -3.664 -3.671 -3.691 + 16.50 82.000 -3.260 -3.213 -3.192 -3.200 + 17.00 82.000 -2.799 -2.737 -2.701 -2.690 + 17.50 82.000 -2.594 -2.572 -2.558 -2.552 + 14.00 84.000 -5.910 -5.938 -5.969 -5.998 + 14.50 84.000 -5.480 -5.519 -5.569 -5.624 + 15.00 84.000 -4.566 -4.572 -4.589 -4.611 + 15.50 84.000 -4.150 -4.150 -4.157 -4.171 + 16.00 84.000 -3.636 -3.632 -3.639 -3.659 + 16.50 84.000 -3.228 -3.180 -3.160 -3.167 + 17.00 84.000 -2.770 -2.712 -2.677 -2.666 + 17.50 84.000 -2.573 -2.557 -2.547 -2.541 + 14.00 88.000 -5.842 -5.871 -5.901 -5.930 + 14.50 88.000 -5.412 -5.451 -5.501 -5.556 + 15.00 88.000 -4.498 -4.504 -4.521 -4.543 + 15.50 88.000 -4.082 -4.082 -4.089 -4.103 + 16.00 88.000 -3.568 -3.564 -3.571 -3.591 + 16.50 88.000 -3.160 -3.112 -3.092 -3.099 + 17.00 88.000 -2.714 -2.661 -2.629 -2.616 + 17.50 88.000 -2.532 -2.528 -2.524 -2.521 + 14.00 90.000 -5.806 -5.835 -5.865 -5.895 + 14.50 90.000 -5.376 -5.416 -5.465 -5.520 + 15.00 90.000 -4.462 -4.469 -4.485 -4.508 + 15.50 90.000 -4.046 -4.047 -4.054 -4.067 + 16.00 90.000 -3.533 -3.528 -3.536 -3.556 + 16.50 90.000 -3.124 -3.077 -3.056 -3.064 + 17.00 90.000 -2.688 -2.635 -2.603 -2.590 + 17.50 90.000 -2.511 -2.513 -2.513 -2.511 + 14.00 94.000 -5.732 -5.760 -5.790 -5.820 + 14.50 94.000 -5.301 -5.341 -5.390 -5.445 + 15.00 94.000 -4.387 -4.394 -4.410 -4.433 + 15.50 94.000 -3.971 -3.972 -3.979 -3.993 + 16.00 94.000 -3.457 -3.453 -3.461 -3.481 + 16.50 94.000 -3.049 -3.002 -2.981 -2.989 + 17.00 94.000 -2.635 -2.583 -2.551 -2.538 + 17.50 94.000 -2.473 -2.485 -2.492 -2.493 + 14.00 96.000 -5.692 -5.720 -5.751 -5.780 + 14.50 96.000 -5.262 -5.301 -5.351 -5.406 + 15.00 96.000 -4.348 -4.354 -4.371 -4.393 + 15.50 96.000 -3.932 -3.932 -3.939 -3.953 + 16.00 96.000 -3.418 -3.414 -3.421 -3.441 + 16.50 96.000 -3.010 -2.962 -2.942 -2.949 + 17.00 96.000 -2.603 -2.556 -2.525 -2.511 + 17.50 96.000 -2.454 -2.471 -2.481 -2.484 + 14.00 100.000 -5.609 -5.637 -5.667 -5.697 + 14.50 100.000 -5.178 -5.218 -5.267 -5.322 + 15.00 100.000 -4.264 -4.271 -4.287 -4.310 + 15.50 100.000 -3.848 -3.849 -3.856 -3.869 + 16.00 100.000 -3.335 -3.330 -3.338 -3.358 + 16.50 100.000 -2.926 -2.879 -2.859 -2.866 + 17.00 100.000 -2.541 -2.500 -2.472 -2.457 + 17.50 100.000 -2.418 -2.445 -2.462 -2.469 + 14.00 102.000 -5.564 -5.593 -5.623 -5.652 + 14.50 102.000 -5.134 -5.173 -5.223 -5.278 + 15.00 102.000 -4.220 -4.226 -4.243 -4.266 + 15.50 102.000 -3.804 -3.804 -3.812 -3.825 + 16.00 102.000 -3.290 -3.286 -3.293 -3.313 + 16.50 102.000 -2.882 -2.834 -2.814 -2.821 + 17.00 102.000 -2.510 -2.472 -2.446 -2.431 + 17.50 102.000 -2.400 -2.432 -2.452 -2.461 + 14.00 106.000 -5.470 -5.498 -5.529 -5.558 + 14.50 106.000 -5.040 -5.079 -5.128 -5.183 + 15.00 106.000 -4.126 -4.132 -4.148 -4.171 + 15.50 106.000 -3.709 -3.710 -3.717 -3.731 + 16.00 106.000 -3.196 -3.191 -3.199 -3.219 + 16.50 106.000 -2.787 -2.740 -2.720 -2.727 + 17.00 106.000 -2.447 -2.416 -2.392 -2.378 + 17.50 106.000 -2.362 -2.407 -2.435 -2.447 + 14.00 108.000 -5.419 -5.448 -5.478 -5.507 + 14.50 108.000 -4.989 -5.028 -5.078 -5.133 + 15.00 108.000 -4.075 -4.082 -4.098 -4.121 + 15.50 108.000 -3.659 -3.659 -3.667 -3.680 + 16.00 108.000 -3.145 -3.141 -3.148 -3.168 + 16.50 108.000 -2.737 -2.689 -2.669 -2.676 + 17.00 108.000 -2.416 -2.388 -2.366 -2.352 + 17.50 108.000 -2.343 -2.395 -2.427 -2.440 + 14.00 110.000 -5.366 -5.395 -5.425 -5.454 + 14.50 110.000 -4.936 -4.975 -5.025 -5.080 + 15.00 110.000 -4.022 -4.029 -4.045 -4.068 + 15.50 110.000 -3.606 -3.606 -3.614 -3.627 + 16.00 110.000 -3.092 -3.088 -3.095 -3.115 + 16.50 110.000 -2.684 -2.636 -2.616 -2.623 + 17.00 110.000 -2.385 -2.360 -2.340 -2.327 + 17.50 110.000 -2.326 -2.383 -2.419 -2.434 + 14.00 112.000 -5.311 -5.339 -5.369 -5.399 + 14.50 112.000 -4.880 -4.920 -4.969 -5.024 + 15.00 112.000 -3.966 -3.973 -3.989 -4.012 + 15.50 112.000 -3.550 -3.551 -3.558 -3.572 + 16.00 112.000 -3.036 -3.032 -3.039 -3.060 + 16.50 112.000 -2.613 -2.580 -2.567 -2.572 + 17.00 112.000 -2.354 -2.332 -2.314 -2.302 + 17.50 112.000 -2.309 -2.372 -2.411 -2.427 + 14.00 114.000 -5.252 -5.280 -5.311 -5.340 + 14.50 114.000 -4.822 -4.861 -4.911 -4.966 + 15.00 114.000 -3.908 -3.914 -3.930 -3.953 + 15.50 114.000 -3.491 -3.492 -3.499 -3.513 + 16.00 114.000 -2.978 -2.973 -2.981 -3.001 + 16.50 114.000 -2.542 -2.524 -2.517 -2.520 + 17.00 114.000 -2.321 -2.305 -2.290 -2.279 + 17.50 114.000 -2.292 -2.361 -2.403 -2.420 + 14.00 118.000 -5.124 -5.152 -5.183 -5.212 + 14.50 118.000 -4.694 -4.733 -4.783 -4.838 + 15.00 118.000 -3.780 -3.786 -3.803 -3.825 + 15.50 118.000 -3.364 -3.364 -3.371 -3.385 + 16.00 118.000 -2.850 -2.845 -2.853 -2.873 + 16.50 118.000 -2.479 -2.433 -2.410 -2.410 + 17.00 118.000 -2.256 -2.250 -2.243 -2.233 + 17.50 118.000 -2.265 -2.340 -2.388 -2.408 + 14.00 120.000 -5.054 -5.082 -5.113 -5.142 + 14.50 120.000 -4.624 -4.663 -4.713 -4.768 + 15.00 120.000 -3.710 -3.716 -3.733 -3.755 + 15.50 120.000 -3.293 -3.294 -3.301 -3.315 + 16.00 120.000 -2.780 -2.775 -2.783 -2.803 + 16.50 120.000 -2.374 -2.362 -2.356 -2.353 + 17.00 120.000 -2.226 -2.225 -2.220 -2.213 + 17.50 120.000 -2.251 -2.330 -2.380 -2.401 + 14.00 122.000 -4.979 -5.007 -5.038 -5.067 + 14.50 122.000 -4.549 -4.588 -4.638 -4.693 + 15.00 122.000 -3.635 -3.641 -3.658 -3.680 + 15.50 122.000 -3.219 -3.219 -3.226 -3.240 + 16.00 122.000 -2.705 -2.701 -2.708 -2.728 + 16.50 122.000 -2.318 -2.306 -2.298 -2.294 + 17.00 122.000 -1.195 -2.201 -2.199 -2.194 + 17.50 122.000 -2.238 -2.320 -2.371 -2.393 + 14.00 124.000 -4.898 -4.927 -4.957 -4.987 + 14.50 124.000 -4.468 -4.508 -4.557 -4.612 + 15.00 124.000 -3.554 -3.561 -3.577 -3.600 + 15.50 124.000 -3.138 -3.139 -3.146 -3.159 + 16.00 124.000 -2.625 -2.620 -2.628 -2.648 + 16.50 124.000 -2.273 -2.253 -2.240 -2.234 + 17.00 124.000 -2.164 -2.177 -2.181 -2.176 + 17.50 124.000 -2.225 -2.309 -2.363 -2.386 + 14.00 126.000 -4.812 -4.840 -4.870 -4.900 + 14.50 126.000 -4.381 -4.421 -4.470 -4.525 + 15.00 126.000 -3.467 -3.474 -3.490 -3.513 + 15.50 126.000 -3.051 -3.052 -3.059 -3.073 + 16.00 126.000 -2.538 -2.533 -2.541 -2.561 + 16.50 126.000 -2.226 -2.199 -2.181 -2.171 + 17.00 126.000 -2.136 -2.154 -2.162 -2.161 + 17.50 126.000 -2.212 -2.299 -2.355 -2.378 + 14.00 128.000 -4.717 -4.746 -4.776 -4.805 + 14.50 128.000 -4.287 -4.326 -4.376 -4.431 + 15.00 128.000 -3.373 -3.379 -3.396 -3.418 + 15.50 128.000 -2.957 -2.957 -2.964 -2.978 + 16.00 128.000 -2.456 -2.447 -2.451 -2.467 + 16.50 128.000 -2.182 -2.143 -2.119 -2.109 + 17.00 128.000 -2.111 -2.134 -2.146 -2.148 + 17.50 128.000 -2.197 -2.288 -2.345 -2.368 + 14.00 130.000 -4.614 -4.642 -4.673 -4.702 + 14.50 130.000 -4.184 -4.223 -4.272 -4.327 + 15.00 130.000 -3.269 -3.276 -3.292 -3.315 + 15.50 130.000 -2.853 -2.854 -2.861 -2.875 + 16.00 130.000 -2.364 -2.353 -2.354 -2.366 + 16.50 130.000 -2.066 -2.063 -2.056 -2.043 + 17.00 130.000 -2.085 -2.115 -2.131 -2.135 + 17.50 130.000 -2.182 -2.276 -2.334 -2.357 + 14.00 132.000 -4.499 -4.528 -4.558 -4.587 + 14.50 132.000 -4.069 -4.108 -4.158 -4.213 + 15.00 132.000 -3.155 -3.161 -3.178 -3.201 + 15.50 132.000 -2.739 -2.740 -2.747 -2.760 + 16.00 132.000 -2.263 -2.250 -2.248 -2.256 + 16.50 132.000 -2.009 -2.004 -1.996 -1.983 + 17.00 132.000 -2.063 -2.097 -2.118 -2.124 + 17.50 132.000 -2.168 -2.264 -2.324 -2.347 + 14.00 134.000 -4.371 -4.400 -4.430 -4.459 + 14.50 134.000 -3.941 -3.980 -4.030 -4.085 + 15.00 134.000 -3.027 -3.034 -3.050 -3.073 + 15.50 134.000 -2.611 -2.612 -2.619 -2.632 + 16.00 134.000 -2.155 -2.140 -2.134 -2.137 + 16.50 134.000 -1.955 -1.951 -1.943 -1.932 + 17.00 134.000 -2.041 -2.080 -2.104 -2.114 + 17.50 134.000 -2.151 -2.251 -2.312 -2.335 + 14.00 136.000 -4.226 -4.255 -4.285 -4.314 + 14.50 136.000 -3.796 -3.836 -3.885 -3.940 + 15.00 136.000 -2.882 -2.889 -2.905 -2.928 + 15.50 136.000 -2.466 -2.467 -2.474 -2.487 + 16.00 136.000 -2.038 -2.019 -2.008 -2.006 + 16.50 136.000 -1.917 -1.907 -1.896 -1.886 + 17.00 136.000 -2.020 -2.062 -2.089 -2.102 + 17.50 136.000 -2.134 -2.237 -2.300 -2.322 + 14.00 138.000 -4.059 -4.088 -4.118 -4.147 + 14.50 138.000 -3.629 -3.668 -3.718 -3.773 + 15.00 138.000 -2.715 -2.721 -2.738 -2.760 + 15.50 138.000 -2.299 -2.299 -2.306 -2.320 + 16.00 138.000 -1.910 -1.893 -1.879 -1.870 + 16.50 138.000 -1.886 -1.870 -1.857 -1.848 + 17.00 138.000 -1.996 -2.043 -2.073 -2.087 + 17.50 138.000 -2.118 -2.224 -2.288 -2.310 + 14.00 139.000 -3.965 -3.993 -4.023 -4.053 + 14.50 139.000 -3.534 -3.574 -3.623 -3.678 + 15.00 139.000 -2.620 -2.627 -2.643 -2.666 + 15.50 139.000 -2.204 -2.205 -2.212 -2.226 + 16.00 139.000 -1.851 -1.833 -1.818 -1.807 + 16.50 139.000 -1.827 -1.839 -1.842 -1.836 + 17.00 139.000 -1.985 -2.032 -2.062 -2.076 + 17.50 139.000 -2.108 -2.217 -2.282 -2.303 + 14.00 140.000 -3.861 -3.889 -3.920 -3.949 + 14.50 140.000 -3.431 -3.470 -3.520 -3.575 + 15.00 140.000 -2.517 -2.523 -2.540 -2.563 + 15.50 140.000 -2.101 -2.101 -2.109 -2.122 + 16.00 140.000 -1.793 -1.775 -1.760 -1.747 + 16.50 140.000 -1.791 -1.815 -1.827 -1.824 + 17.00 140.000 -1.975 -2.021 -2.052 -2.066 + 17.50 140.000 -2.099 -2.210 -2.276 -2.297 + 14.00 140.500 -3.805 -3.834 -3.864 -3.894 + 14.50 140.500 -3.375 -3.414 -3.464 -3.519 + 15.00 140.500 -2.461 -2.468 -2.484 -2.507 + 15.50 140.500 -2.033 -2.029 -2.031 -2.040 + 16.00 140.500 -1.764 -1.749 -1.735 -1.721 + 16.50 140.500 -1.794 -1.813 -1.821 -1.820 + 17.00 140.500 -1.968 -2.015 -2.045 -2.059 + 17.50 140.500 -2.094 -2.206 -2.273 -2.294 + 14.00 141.000 -3.747 -3.775 -3.806 -3.835 + 14.50 141.000 -3.317 -3.356 -3.405 -3.460 + 15.00 141.000 -2.402 -2.409 -2.425 -2.448 + 15.50 141.000 -1.975 -1.963 -1.959 -1.963 + 16.00 141.000 -1.735 -1.724 -1.710 -1.695 + 16.50 141.000 -1.799 -1.810 -1.815 -1.815 + 17.00 141.000 -1.961 -2.008 -2.039 -2.052 + 17.50 141.000 -2.089 -2.202 -2.270 -2.291 + 14.00 141.500 -3.685 -3.713 -3.743 -3.773 + 14.50 141.500 -3.254 -3.294 -3.343 -3.398 + 15.00 141.500 -2.340 -2.347 -2.363 -2.386 + 15.50 141.500 -1.907 -1.900 -1.896 -1.896 + 16.00 141.500 -1.712 -1.701 -1.688 -1.673 + 16.50 141.500 -1.775 -1.797 -1.810 -1.813 + 17.00 141.500 -1.954 -2.002 -2.032 -2.045 + 17.50 141.500 -2.084 -2.199 -2.267 -2.288 + 14.00 142.000 -3.619 -3.647 -3.678 -3.707 + 14.50 142.000 -3.189 -3.228 -3.277 -3.332 + 15.00 142.000 -2.275 -2.281 -2.297 -2.320 + 15.50 142.000 -1.854 -1.842 -1.836 -1.836 + 16.00 142.000 -1.688 -1.678 -1.666 -1.652 + 16.50 142.000 -1.752 -1.785 -1.804 -1.810 + 17.00 142.000 -1.947 -1.996 -2.026 -2.039 + 17.50 142.000 -2.079 -2.195 -2.264 -2.285 + 14.00 142.500 -3.549 -3.577 -3.608 -3.637 + 14.50 142.500 -3.119 -3.158 -3.207 -3.263 + 15.00 142.500 -2.204 -2.211 -2.227 -2.250 + 15.50 142.500 -1.804 -1.791 -1.783 -1.780 + 16.00 142.500 -1.670 -1.660 -1.649 -1.638 + 16.50 142.500 -1.765 -1.784 -1.797 -1.806 + 17.00 142.500 -1.939 -1.988 -2.018 -2.030 + 17.50 142.500 -2.075 -2.192 -2.261 -2.282 + 14.00 143.000 -3.474 -3.502 -3.533 -3.562 + 14.50 143.000 -3.044 -3.083 -3.132 -3.188 + 15.00 143.000 -2.130 -2.136 -2.152 -2.175 + 15.50 143.000 -1.755 -1.745 -1.737 -1.733 + 16.00 143.000 -1.652 -1.642 -1.633 -1.623 + 16.50 143.000 -1.777 -1.783 -1.791 -1.801 + 17.00 143.000 -1.932 -1.981 -2.011 -2.022 + 17.50 143.000 -2.070 -2.189 -2.259 -2.279 + 14.00 143.400 -3.410 -3.438 -3.469 -3.498 + 14.50 143.400 -2.980 -3.019 -3.069 -3.124 + 15.00 143.400 -2.016 -2.011 -2.011 -2.014 + 15.50 143.400 -1.726 -1.713 -1.705 -1.701 + 16.00 143.400 -1.638 -1.631 -1.624 -1.617 + 16.50 143.400 -1.754 -1.770 -1.784 -1.796 + 17.00 143.400 -1.926 -1.975 -2.005 -2.015 + 17.50 143.400 -2.066 -2.186 -2.256 -2.277 + 14.00 143.500 -3.393 -3.422 -3.452 -3.481 + 14.50 143.500 -2.963 -3.003 -3.052 -3.107 + 15.00 143.500 -1.992 -1.984 -1.981 -1.980 + 15.50 143.500 -1.719 -1.706 -1.697 -1.692 + 16.00 143.500 -1.635 -1.628 -1.622 -1.615 + 16.50 143.500 -1.748 -1.767 -1.783 -1.795 + 17.00 143.500 -1.925 -1.974 -2.003 -2.013 + 17.50 143.500 -2.065 -2.186 -2.256 -2.276 + 14.00 143.800 -3.342 -3.371 -3.401 -3.430 + 14.50 143.800 -2.912 -2.951 -3.001 -3.056 + 15.00 143.800 -1.917 -1.903 -1.889 -1.879 + 15.50 143.800 -1.697 -1.684 -1.676 -1.671 + 16.00 143.800 -1.625 -1.620 -1.615 -1.610 + 16.50 143.800 -1.731 -1.758 -1.778 -1.791 + 17.00 143.800 -1.920 -1.969 -1.999 -2.008 + 17.50 143.800 -2.062 -2.184 -2.254 -2.274 + 14.00 144.000 -3.306 -3.335 -3.365 -3.395 + 14.50 144.000 -2.876 -2.916 -2.965 -3.020 + 15.00 144.000 -1.875 -1.858 -1.840 -1.824 + 15.50 144.000 -1.682 -1.670 -1.661 -1.658 + 16.00 144.000 -1.618 -1.614 -1.611 -1.607 + 16.50 144.000 -1.719 -1.752 -1.775 -1.788 + 17.00 144.000 -1.917 -1.967 -1.996 -2.005 + 17.50 144.000 -2.060 -2.182 -2.253 -2.273 + 14.00 144.200 -3.270 -3.298 -3.329 -3.358 + 14.50 144.200 -2.839 -2.879 -2.928 -2.983 + 15.00 144.200 -1.833 -1.813 -1.791 -1.770 + 15.50 144.200 -1.668 -1.658 -1.651 -1.647 + 16.00 144.200 -1.612 -1.609 -1.606 -1.604 + 16.50 144.200 -1.709 -1.745 -1.770 -1.783 + 17.00 144.200 -1.913 -1.964 -1.993 -2.001 + 17.50 144.200 -2.059 -2.181 -2.252 -2.272 + 14.00 144.500 -3.212 -3.240 -3.271 -3.300 + 14.50 144.500 -2.782 -2.821 -2.871 -2.926 + 15.00 144.500 -1.781 -1.756 -1.732 -1.707 + 15.50 144.500 -1.648 -1.640 -1.635 -1.631 + 16.00 144.500 -1.604 -1.600 -1.599 -1.599 + 16.50 144.500 -1.695 -1.735 -1.762 -1.776 + 17.00 144.500 -1.907 -1.959 -1.988 -1.996 + 17.50 144.500 -2.057 -2.180 -2.251 -2.271 + 14.00 144.600 -3.192 -3.220 -3.251 -3.280 + 14.50 144.600 -2.762 -2.801 -2.851 -2.906 + 15.00 144.600 -1.765 -1.737 -1.712 -1.686 + 15.50 144.600 -1.643 -1.635 -1.630 -1.626 + 16.00 144.600 -1.599 -1.597 -1.596 -1.597 + 16.50 144.600 -1.691 -1.732 -1.760 -1.774 + 17.00 144.600 -1.905 -1.957 -1.987 -1.995 + 17.50 144.600 -2.056 -2.179 -2.251 -2.270 + 14.00 145.000 -3.109 -3.137 -3.167 -3.197 + 14.50 145.000 -2.678 -2.718 -2.767 -2.822 + 15.00 145.000 -1.708 -1.682 -1.656 -1.627 + 15.50 145.000 -1.625 -1.616 -1.611 -1.609 + 16.00 145.000 -1.580 -1.583 -1.587 -1.590 + 16.50 145.000 -1.672 -1.719 -1.750 -1.765 + 17.00 145.000 -1.897 -1.951 -1.981 -1.988 + 17.50 145.000 -2.053 -2.177 -2.249 -2.268 + 14.00 145.400 -3.018 -3.046 -3.077 -3.106 + 14.50 145.400 -2.588 -2.627 -2.677 -2.732 + 15.00 145.400 -1.668 -1.644 -1.620 -1.595 + 15.50 145.400 -1.593 -1.585 -1.581 -1.582 + 16.00 145.400 -1.563 -1.568 -1.574 -1.581 + 16.50 145.400 -1.676 -1.711 -1.735 -1.750 + 17.00 145.400 -1.888 -1.945 -1.975 -1.981 + 17.50 145.400 -2.050 -2.175 -2.247 -2.266 + 14.00 145.500 -2.994 -3.023 -3.053 -3.082 + 14.50 145.500 -2.564 -2.603 -2.653 -2.708 + 15.00 145.500 -1.660 -1.637 -1.614 -1.592 + 15.50 145.500 -1.585 -1.577 -1.574 -1.575 + 16.00 145.500 -1.559 -1.564 -1.570 -1.578 + 16.50 145.500 -1.677 -1.709 -1.732 -1.746 + 17.00 145.500 -1.886 -1.943 -1.974 -1.979 + 17.50 145.500 -2.049 -2.174 -2.246 -2.266 + 14.00 145.600 -2.970 -2.998 -3.029 -3.058 + 14.50 145.600 -2.540 -2.579 -2.628 -2.683 + 15.00 145.600 -1.652 -1.631 -1.609 -1.588 + 15.50 145.600 -1.574 -1.567 -1.564 -1.566 + 16.00 145.600 -1.554 -1.559 -1.567 -1.576 + 16.50 145.600 -1.678 -1.707 -1.729 -1.743 + 17.00 145.600 -1.884 -1.942 -1.972 -1.977 + 17.50 145.600 -2.048 -2.174 -2.246 -2.266 + 14.00 145.800 -2.919 -2.948 -2.978 -3.007 + 14.50 145.800 -2.489 -2.528 -2.578 -2.633 + 15.00 145.800 -1.640 -1.622 -1.604 -1.588 + 15.50 145.800 -1.553 -1.547 -1.546 -1.549 + 16.00 145.800 -1.543 -1.551 -1.560 -1.571 + 16.50 145.800 -1.680 -1.703 -1.722 -1.735 + 17.00 145.800 -1.880 -1.939 -1.969 -1.974 + 17.50 145.800 -2.047 -2.172 -2.245 -2.265 + 14.00 146.000 -2.866 -2.895 -2.925 -2.954 + 14.50 146.000 -2.436 -2.475 -2.525 -2.580 + 15.00 146.000 -1.633 -1.618 -1.605 -1.595 + 15.50 146.000 -1.532 -1.527 -1.527 -1.532 + 16.00 146.000 -1.533 -1.542 -1.553 -1.565 + 16.50 146.000 -1.682 -1.699 -1.714 -1.728 + 17.00 146.000 -1.876 -1.936 -1.967 -1.971 + 17.50 146.000 -2.045 -2.171 -2.244 -2.264 + 14.00 146.200 -2.811 -2.839 -2.869 -2.899 + 14.50 146.200 -2.380 -2.420 -2.469 -2.524 + 15.00 146.200 -1.629 -1.618 -1.611 -1.607 + 15.50 146.200 -1.508 -1.504 -1.504 -1.508 + 16.00 146.200 -1.522 -1.532 -1.544 -1.559 + 16.50 146.200 -1.666 -1.688 -1.706 -1.718 + 17.00 146.200 -1.874 -1.933 -1.964 -1.967 + 17.50 146.200 -2.044 -2.170 -2.243 -2.263 + 14.00 146.400 -2.752 -2.780 -2.811 -2.840 + 14.50 146.400 -2.322 -2.361 -2.411 -2.466 + 15.00 146.400 -1.627 -1.622 -1.622 -1.625 + 15.50 146.400 -1.485 -1.480 -1.480 -1.485 + 16.00 146.400 -1.510 -1.522 -1.536 -1.552 + 16.50 146.400 -1.651 -1.678 -1.696 -1.707 + 17.00 146.400 -1.871 -1.931 -1.961 -1.964 + 17.50 146.400 -2.043 -2.170 -2.243 -2.262 + 14.00 146.500 -2.721 -2.750 -2.780 -2.809 + 14.50 146.500 -2.291 -2.330 -2.380 -2.435 + 15.00 146.500 -1.629 -1.626 -1.630 -1.638 + 15.50 146.500 -1.474 -1.469 -1.469 -1.474 + 16.00 146.500 -1.505 -1.517 -1.532 -1.548 + 16.50 146.500 -1.643 -1.672 -1.692 -1.702 + 17.00 146.500 -1.870 -1.929 -1.960 -1.963 + 17.50 146.500 -2.042 -2.169 -2.242 -2.262 + 14.00 146.600 -2.690 -2.718 -2.749 -2.778 + 14.50 146.600 -2.260 -2.299 -2.348 -2.404 + 15.00 146.600 -1.631 -1.631 -1.638 -1.652 + 15.50 146.600 -1.459 -1.454 -1.453 -1.458 + 16.00 146.600 -1.497 -1.511 -1.526 -1.543 + 16.50 146.600 -1.635 -1.667 -1.688 -1.697 + 17.00 146.600 -1.868 -1.928 -1.958 -1.961 + 17.50 146.600 -2.041 -2.169 -2.242 -2.261 + 14.00 146.800 -2.624 -2.652 -2.683 -2.712 + 14.50 146.800 -2.194 -2.233 -2.283 -2.338 + 15.00 146.800 -1.638 -1.644 -1.660 -1.680 + 15.50 146.800 -1.429 -1.424 -1.423 -1.427 + 16.00 146.800 -1.482 -1.498 -1.515 -1.534 + 16.50 146.800 -1.619 -1.656 -1.679 -1.686 + 17.00 146.800 -1.866 -1.925 -1.956 -1.958 + 17.50 146.800 -2.040 -2.168 -2.241 -2.261 + 14.00 147.000 -2.554 -2.582 -2.613 -2.642 + 14.50 147.000 -2.124 -2.163 -2.213 -2.268 + 15.00 147.000 -1.640 -1.648 -1.663 -1.684 + 15.50 147.000 -1.399 -1.394 -1.393 -1.396 + 16.00 147.000 -1.467 -1.485 -1.505 -1.524 + 16.50 147.000 -1.604 -1.646 -1.670 -1.676 + 17.00 147.000 -1.863 -1.923 -1.953 -1.955 + 17.50 147.000 -2.039 -2.167 -2.241 -2.260 + 14.00 147.200 -2.479 -2.507 -2.538 -2.567 + 14.50 147.200 -2.041 -2.077 -2.122 -2.170 + 15.00 147.200 -1.574 -1.580 -1.597 -1.618 + 15.50 147.200 -1.367 -1.364 -1.366 -1.370 + 16.00 147.200 -1.452 -1.470 -1.490 -1.510 + 16.50 147.200 -1.606 -1.640 -1.659 -1.663 + 17.00 147.200 -1.861 -1.920 -1.950 -1.952 + 17.50 147.200 -2.037 -2.166 -2.240 -2.259 + 14.00 147.400 -2.398 -2.427 -2.457 -2.487 + 14.50 147.400 -1.959 -1.991 -2.032 -2.073 + 15.00 147.400 -1.496 -1.496 -1.507 -1.523 + 15.50 147.400 -1.335 -1.334 -1.339 -1.344 + 16.00 147.400 -1.436 -1.455 -1.475 -1.495 + 16.50 147.400 -1.607 -1.635 -1.649 -1.651 + 17.00 147.400 -1.858 -1.918 -1.947 -1.949 + 17.50 147.400 -2.036 -2.165 -2.239 -2.259 + 14.00 147.500 -2.356 -2.384 -2.415 -2.444 + 14.50 147.500 -1.911 -1.941 -1.979 -2.016 + 15.00 147.500 -1.457 -1.454 -1.462 -1.474 + 15.50 147.500 -1.319 -1.320 -1.325 -1.331 + 16.00 147.500 -1.428 -1.447 -1.467 -1.488 + 16.50 147.500 -1.608 -1.632 -1.644 -1.644 + 17.00 147.500 -1.857 -1.916 -1.946 -1.947 + 17.50 147.500 -2.035 -2.165 -2.239 -2.258 + 14.00 147.600 -2.312 -2.340 -2.370 -2.400 + 14.50 147.600 -1.863 -1.890 -1.925 -1.959 + 15.00 147.600 -1.417 -1.412 -1.417 -1.426 + 15.50 147.600 -1.303 -1.305 -1.311 -1.318 + 16.00 147.600 -1.419 -1.437 -1.456 -1.476 + 16.50 147.600 -1.609 -1.629 -1.639 -1.638 + 17.00 147.600 -1.856 -1.915 -1.945 -1.946 + 17.50 147.600 -2.035 -2.164 -2.239 -2.258 + 14.00 147.800 -2.217 -2.246 -2.276 -2.305 + 14.50 147.800 -1.767 -1.788 -1.818 -1.845 + 15.00 147.800 -1.338 -1.330 -1.329 -1.332 + 15.50 147.800 -1.270 -1.276 -1.284 -1.292 + 16.00 147.800 -1.401 -1.416 -1.434 -1.453 + 16.50 147.800 -1.611 -1.624 -1.628 -1.625 + 17.00 147.800 -1.853 -1.913 -1.942 -1.942 + 17.50 147.800 -2.033 -2.163 -2.238 -2.257 + 14.00 148.000 -2.114 -2.142 -2.172 -2.202 + 14.50 148.000 -1.656 -1.674 -1.695 -1.714 + 15.00 148.000 -1.261 -1.250 -1.245 -1.243 + 15.50 148.000 -1.238 -1.247 -1.257 -1.266 + 16.00 148.000 -1.383 -1.396 -1.411 -1.429 + 16.50 148.000 -1.613 -1.618 -1.618 -1.613 + 17.00 148.000 -1.851 -1.910 -1.939 -1.939 + 17.50 148.000 -2.032 -2.162 -2.237 -2.257 + 14.00 148.200 -1.999 -2.028 -2.058 -2.087 + 14.50 148.200 -1.532 -1.542 -1.558 -1.570 + 15.00 148.200 -1.187 -1.175 -1.168 -1.166 + 15.50 148.200 -1.211 -1.226 -1.242 -1.259 + 16.00 148.200 -1.360 -1.370 -1.381 -1.393 + 16.50 148.200 -1.598 -1.608 -1.609 -1.602 + 17.00 148.200 -1.849 -1.909 -1.938 -1.938 + 17.50 148.200 -2.031 -2.162 -2.237 -2.256 + 14.00 148.250 -1.969 -1.997 -2.027 -2.057 + 14.50 148.250 -1.499 -1.507 -1.520 -1.532 + 15.00 148.250 -1.171 -1.160 -1.154 -1.152 + 15.50 148.250 -1.204 -1.220 -1.238 -1.257 + 16.00 148.250 -1.354 -1.363 -1.373 -1.384 + 16.50 148.250 -1.594 -1.606 -1.607 -1.599 + 17.00 148.250 -1.848 -1.908 -1.938 -1.937 + 17.50 148.250 -2.031 -2.162 -2.237 -2.256 + 14.00 148.300 -1.937 -1.966 -1.996 -2.025 + 14.50 148.300 -1.466 -1.472 -1.483 -1.493 + 15.00 148.300 -1.156 -1.145 -1.139 -1.138 + 15.50 148.300 -1.196 -1.213 -1.232 -1.253 + 16.00 148.300 -1.348 -1.357 -1.366 -1.375 + 16.50 148.300 -1.590 -1.603 -1.605 -1.596 + 17.00 148.300 -1.848 -1.908 -1.938 -1.937 + 17.50 148.300 -2.031 -2.162 -2.237 -2.256 + 14.00 148.400 -1.871 -1.900 -1.930 -1.959 + 14.50 148.400 -1.398 -1.400 -1.407 -1.412 + 15.00 148.400 -1.124 -1.115 -1.110 -1.111 + 15.50 148.400 -1.180 -1.199 -1.220 -1.244 + 16.00 148.400 -1.336 -1.344 -1.350 -1.356 + 16.50 148.400 -1.583 -1.598 -1.601 -1.591 + 17.00 148.400 -1.847 -1.907 -1.937 -1.936 + 17.50 148.400 -2.031 -2.161 -2.236 -2.256 + 14.00 148.500 -1.801 -1.830 -1.860 -1.889 + 14.50 148.500 -1.328 -1.325 -1.327 -1.329 + 15.00 148.500 -1.102 -1.097 -1.096 -1.101 + 15.50 148.500 -1.164 -1.184 -1.208 -1.235 + 16.00 148.500 -1.324 -1.331 -1.335 -1.338 + 16.50 148.500 -1.575 -1.593 -1.597 -1.585 + 17.00 148.500 -1.845 -1.907 -1.936 -1.936 + 17.50 148.500 -2.031 -2.161 -2.236 -2.256 + 14.00 148.600 -1.710 -1.734 -1.758 -1.781 + 14.50 148.600 -1.256 -1.250 -1.247 -1.248 + 15.00 148.600 -1.079 -1.078 -1.082 -1.091 + 15.50 148.600 -1.140 -1.160 -1.183 -1.210 + 16.00 148.600 -1.311 -1.317 -1.319 -1.317 + 16.50 148.600 -1.568 -1.588 -1.592 -1.580 + 17.00 148.600 -1.844 -1.906 -1.936 -1.935 + 17.50 148.600 -2.030 -2.161 -2.236 -2.255 + 14.00 148.700 -1.619 -1.638 -1.656 -1.672 + 14.50 148.700 -1.187 -1.177 -1.173 -1.176 + 15.00 148.700 -1.066 -1.072 -1.084 -1.099 + 15.50 148.700 -1.117 -1.135 -1.158 -1.185 + 16.00 148.700 -1.298 -1.303 -1.302 -1.296 + 16.50 148.700 -1.560 -1.583 -1.588 -1.574 + 17.00 148.700 -1.843 -1.905 -1.935 -1.934 + 17.50 148.700 -2.030 -2.161 -2.236 -2.255 + 14.00 148.750 -1.574 -1.590 -1.605 -1.618 + 14.50 148.750 -1.156 -1.146 -1.143 -1.151 + 15.00 148.750 -1.059 -1.069 -1.085 -1.102 + 15.50 148.750 -1.105 -1.123 -1.145 -1.173 + 16.00 148.750 -1.291 -1.296 -1.294 -1.286 + 16.50 148.750 -1.556 -1.581 -1.586 -1.571 + 17.00 148.750 -1.843 -1.905 -1.935 -1.934 + 17.50 148.750 -2.030 -2.161 -2.236 -2.255 + 14.00 148.800 -1.520 -1.532 -1.545 -1.561 + 14.50 148.800 -1.125 -1.115 -1.113 -1.125 + 15.00 148.800 -1.052 -1.066 -1.086 -1.106 + 15.50 148.800 -1.087 -1.103 -1.122 -1.146 + 16.00 148.800 -1.285 -1.289 -1.286 -1.275 + 16.50 148.800 -1.553 -1.579 -1.584 -1.569 + 17.00 148.800 -1.842 -1.905 -1.935 -1.933 + 17.50 148.800 -2.030 -2.160 -2.236 -2.255 + 14.00 148.850 -1.467 -1.475 -1.485 -1.503 + 14.50 148.850 -1.100 -1.092 -1.094 -1.111 + 15.00 148.850 -1.039 -1.055 -1.077 -1.098 + 15.50 148.850 -1.070 -1.083 -1.099 -1.120 + 16.00 148.850 -1.278 -1.282 -1.277 -1.264 + 16.50 148.850 -1.549 -1.576 -1.582 -1.566 + 17.00 148.850 -1.842 -1.904 -1.934 -1.933 + 17.50 148.850 -2.030 -2.160 -2.235 -2.255 + 14.00 148.900 -1.413 -1.417 -1.425 -1.446 + 14.50 148.900 -1.080 -1.076 -1.084 -1.105 + 15.00 148.900 -1.026 -1.045 -1.069 -1.090 + 15.50 148.900 -1.052 -1.063 -1.076 -1.093 + 16.00 148.900 -1.272 -1.275 -1.269 -1.254 + 16.50 148.900 -1.545 -1.574 -1.579 -1.563 + 17.00 148.900 -1.841 -1.904 -1.934 -1.933 + 17.50 148.900 -2.030 -2.160 -2.235 -2.255 + 14.00 148.950 -1.360 -1.363 -1.378 -1.408 + 14.50 148.950 -1.069 -1.071 -1.084 -1.107 + 15.00 148.950 -1.013 -1.034 -1.061 -1.082 + 15.50 148.950 -1.035 -1.043 -1.054 -1.067 + 16.00 148.950 -1.265 -1.268 -1.261 -1.243 + 16.50 148.950 -1.541 -1.571 -1.577 -1.560 + 17.00 148.950 -1.841 -1.903 -1.934 -1.932 + 17.50 148.950 -2.029 -2.160 -2.235 -2.255 + 14.00 149.000 -1.306 -1.310 -1.332 -1.370 + 14.50 149.000 -1.067 -1.076 -1.095 -1.115 + 15.00 149.000 -1.000 -1.024 -1.053 -1.074 + 15.50 149.000 -1.017 -1.023 -1.031 -1.041 + 16.00 149.000 -1.259 -1.261 -1.253 -1.233 + 16.50 149.000 -1.538 -1.569 -1.575 -1.558 + 17.00 149.000 -1.840 -1.903 -1.934 -1.932 + 17.50 149.000 -2.029 -2.160 -2.235 -2.254 + 14.00 149.025 -1.283 -1.291 -1.319 -1.355 + 14.50 149.025 -1.072 -1.084 -1.103 -1.116 + 15.00 149.025 -0.980 -1.002 -1.028 -1.046 + 15.50 149.025 -1.008 -1.011 -1.016 -1.023 + 16.00 149.025 -1.257 -1.259 -1.250 -1.229 + 16.50 149.025 -1.537 -1.568 -1.575 -1.557 + 17.00 149.025 -1.840 -1.903 -1.934 -1.932 + 17.50 149.025 -2.029 -2.160 -2.235 -2.254 + 14.00 149.050 -1.271 -1.282 -1.314 -1.345 + 14.50 149.050 -1.076 -1.092 -1.112 -1.118 + 15.00 149.050 -0.960 -0.980 -1.004 -1.017 + 15.50 149.050 -0.998 -0.999 -1.001 -1.005 + 16.00 149.050 -1.254 -1.256 -1.247 -1.225 + 16.50 149.050 -1.536 -1.567 -1.574 -1.556 + 17.00 149.050 -1.840 -1.903 -1.933 -1.931 + 17.50 149.050 -2.029 -2.160 -2.235 -2.254 + 14.00 149.075 -1.265 -1.282 -1.316 -1.330 + 14.50 149.075 -1.082 -1.100 -1.118 -1.111 + 15.00 149.075 -0.941 -0.959 -0.979 -0.988 + 15.50 149.075 -0.989 -0.987 -0.986 -0.987 + 16.00 149.075 -1.252 -1.254 -1.244 -1.222 + 16.50 149.075 -1.535 -1.567 -1.574 -1.556 + 17.00 149.075 -1.839 -1.903 -1.933 -1.931 + 17.50 149.075 -2.029 -2.160 -2.235 -2.254 + 14.00 149.100 -1.268 -1.289 -1.320 -1.316 + 14.50 149.100 -1.088 -1.109 -1.124 -1.104 + 15.00 149.100 -0.921 -0.937 -0.955 -0.959 + 15.50 149.100 -0.980 -0.975 -0.971 -0.970 + 16.00 149.100 -1.250 -1.251 -1.241 -1.218 + 16.50 149.100 -1.534 -1.566 -1.573 -1.555 + 17.00 149.100 -1.839 -1.903 -1.933 -1.931 + 17.50 149.100 -2.029 -2.160 -2.235 -2.254 + 14.00 149.125 -1.289 -1.309 -1.328 -1.288 + 14.50 149.125 -1.086 -1.107 -1.117 -1.080 + 15.00 149.125 -0.901 -0.916 -0.930 -0.931 + 15.50 149.125 -0.971 -0.963 -0.957 -0.952 + 16.00 149.125 -1.248 -1.249 -1.238 -1.214 + 16.50 149.125 -1.533 -1.566 -1.573 -1.555 + 17.00 149.125 -1.839 -1.902 -1.933 -1.931 + 17.50 149.125 -2.029 -2.160 -2.235 -2.254 + 14.00 149.150 -1.311 -1.328 -1.332 -1.260 + 14.50 149.150 -1.084 -1.105 -1.110 -1.056 + 15.00 149.150 -0.881 -0.894 -0.906 -0.902 + 15.50 149.150 -0.961 -0.951 -0.942 -0.934 + 16.00 149.150 -1.245 -1.246 -1.235 -1.210 + 16.50 149.150 -1.532 -1.565 -1.572 -1.554 + 17.00 149.150 -1.839 -1.902 -1.933 -1.931 + 17.50 149.150 -2.029 -2.159 -2.235 -2.254 + 14.00 149.175 -1.335 -1.346 -1.329 -1.224 + 14.50 149.175 -1.063 -1.083 -1.079 -1.011 + 15.00 149.175 -0.861 -0.872 -0.881 -0.873 + 15.50 149.175 -0.952 -0.939 -0.927 -0.916 + 16.00 149.175 -1.243 -1.244 -1.232 -1.207 + 16.50 149.175 -1.532 -1.564 -1.572 -1.554 + 17.00 149.175 -1.838 -1.902 -1.933 -1.931 + 17.50 149.175 -2.029 -2.159 -2.235 -2.254 + 14.00 149.200 -1.360 -1.360 -1.306 -1.162 + 14.50 149.200 -1.042 -1.060 -1.048 -0.967 + 15.00 149.200 -0.842 -0.851 -0.857 -0.845 + 15.50 149.200 -0.943 -0.927 -0.912 -0.899 + 16.00 149.200 -1.241 -1.242 -1.229 -1.203 + 16.50 149.200 -1.531 -1.564 -1.571 -1.553 + 17.00 149.200 -1.838 -1.902 -1.933 -1.930 + 17.50 149.200 -2.029 -2.159 -2.235 -2.254 + 14.00 149.250 -1.324 -1.301 -1.186 -1.026 + 14.50 149.250 -0.938 -0.942 -0.914 -0.838 + 15.00 149.250 -0.784 -0.784 -0.781 -0.767 + 15.50 149.250 -0.924 -0.903 -0.883 -0.863 + 16.00 149.250 -1.236 -1.237 -1.223 -1.195 + 16.50 149.250 -1.529 -1.563 -1.570 -1.552 + 17.00 149.250 -1.838 -1.901 -1.932 -1.930 + 17.50 149.250 -2.029 -2.159 -2.234 -2.254 + 14.00 149.300 -1.166 -1.106 -0.983 -0.879 + 14.50 149.300 -0.833 -0.824 -0.780 -0.710 + 15.00 149.300 -0.725 -0.716 -0.706 -0.690 + 15.50 149.300 -0.909 -0.884 -0.861 -0.837 + 16.00 149.300 -1.232 -1.232 -1.217 -1.188 + 16.50 149.300 -1.527 -1.562 -1.569 -1.551 + 17.00 149.300 -1.837 -1.901 -1.932 -1.930 + 17.50 149.300 -2.028 -2.159 -2.234 -2.254 + 14.00 149.350 -0.907 -0.839 -0.772 -0.750 + 14.50 149.350 -0.682 -0.664 -0.631 -0.600 + 15.00 149.350 -0.667 -0.649 -0.630 -0.612 + 15.50 149.350 -0.892 -0.866 -0.839 -0.811 + 16.00 149.350 -1.227 -1.227 -1.211 -1.181 + 16.50 149.350 -1.526 -1.560 -1.568 -1.550 + 17.00 149.350 -1.837 -1.901 -1.932 -1.929 + 17.50 149.350 -2.028 -2.159 -2.234 -2.254 + 14.00 149.400 -0.625 -0.600 -0.607 -0.652 + 14.50 149.400 -0.532 -0.503 -0.483 -0.489 + 15.00 149.400 -0.609 -0.582 -0.554 -0.535 + 15.50 149.400 -0.877 -0.847 -0.816 -0.785 + 16.00 149.400 -1.223 -1.222 -1.205 -1.173 + 16.50 149.400 -1.524 -1.559 -1.567 -1.549 + 17.00 149.400 -1.836 -1.900 -1.931 -1.929 + 17.50 149.400 -2.028 -2.159 -2.234 -2.254 + 14.00 149.450 -0.442 -0.462 -0.514 -0.595 + 14.50 149.450 -0.410 -0.386 -0.388 -0.424 + 15.00 149.450 -0.584 -0.555 -0.527 -0.509 + 15.50 149.450 -0.861 -0.828 -0.794 -0.759 + 16.00 149.450 -1.218 -1.217 -1.199 -1.166 + 16.50 149.450 -1.522 -1.558 -1.566 -1.548 + 17.00 149.450 -1.836 -1.900 -1.931 -1.929 + 17.50 149.450 -2.028 -2.159 -2.234 -2.254 + 14.00 149.475 -0.416 -0.441 -0.499 -0.584 + 14.50 149.475 -0.380 -0.359 -0.366 -0.407 + 15.00 149.475 -0.571 -0.542 -0.514 -0.496 + 15.50 149.475 -0.853 -0.819 -0.783 -0.746 + 16.00 149.475 -1.216 -1.214 -1.196 -1.162 + 16.50 149.475 -1.521 -1.558 -1.566 -1.547 + 17.00 149.475 -1.835 -1.900 -1.931 -1.928 + 17.50 149.475 -2.028 -2.159 -2.234 -2.254 + 14.00 149.500 -0.420 -0.442 -0.498 -0.578 + 14.50 149.500 -0.350 -0.332 -0.344 -0.390 + 15.00 149.500 -0.558 -0.528 -0.500 -0.484 + 15.50 149.500 -0.845 -0.810 -0.772 -0.733 + 16.00 149.500 -1.214 -1.212 -1.193 -1.158 + 16.50 149.500 -1.520 -1.557 -1.566 -1.547 + 17.00 149.500 -1.835 -1.900 -1.931 -1.928 + 17.50 149.500 -2.028 -2.159 -2.234 -2.254 + 14.00 149.525 -0.458 -0.470 -0.514 -0.582 + 14.50 149.525 -0.356 -0.338 -0.348 -0.390 + 15.00 149.525 -0.545 -0.515 -0.487 -0.471 + 15.50 149.525 -0.841 -0.808 -0.771 -0.732 + 16.00 149.525 -1.213 -1.211 -1.192 -1.158 + 16.50 149.525 -1.520 -1.556 -1.565 -1.546 + 17.00 149.525 -1.835 -1.900 -1.931 -1.928 + 17.50 149.525 -2.028 -2.159 -2.234 -2.253 + 14.00 149.550 -0.538 -0.532 -0.551 -0.597 + 14.50 149.550 -0.361 -0.345 -0.353 -0.390 + 15.00 149.550 -0.533 -0.502 -0.473 -0.458 + 15.50 149.550 -0.838 -0.805 -0.769 -0.730 + 16.00 149.550 -1.213 -1.210 -1.192 -1.157 + 16.50 149.550 -1.519 -1.556 -1.565 -1.546 + 17.00 149.550 -1.834 -1.899 -1.931 -1.928 + 17.50 149.550 -2.028 -2.158 -2.234 -2.253 + 14.00 149.600 -0.712 -0.684 -0.654 -0.635 + 14.50 149.600 -0.427 -0.411 -0.405 -0.418 + 15.00 149.600 -0.507 -0.475 -0.446 -0.433 + 15.50 149.600 -0.832 -0.801 -0.766 -0.728 + 16.00 149.600 -1.211 -1.209 -1.191 -1.156 + 16.50 149.600 -1.517 -1.554 -1.564 -1.545 + 17.00 149.600 -1.834 -1.899 -1.930 -1.927 + 17.50 149.600 -2.027 -2.158 -2.234 -2.253 + 14.00 149.650 -0.827 -0.815 -0.760 -0.652 + 14.50 149.650 -0.492 -0.489 -0.476 -0.458 + 15.00 149.650 -0.521 -0.498 -0.475 -0.461 + 15.50 149.650 -0.825 -0.797 -0.763 -0.726 + 16.00 149.650 -1.210 -1.208 -1.189 -1.155 + 16.50 149.650 -1.515 -1.553 -1.563 -1.544 + 17.00 149.650 -1.833 -1.899 -1.930 -1.927 + 17.50 149.650 -2.027 -2.158 -2.234 -2.253 + 14.00 149.675 -0.839 -0.840 -0.783 -0.641 + 14.50 149.675 -0.525 -0.528 -0.512 -0.478 + 15.00 149.675 -0.529 -0.509 -0.489 -0.475 + 15.50 149.675 -0.822 -0.794 -0.762 -0.725 + 16.00 149.675 -1.209 -1.207 -1.189 -1.155 + 16.50 149.675 -1.514 -1.553 -1.562 -1.543 + 17.00 149.675 -1.833 -1.898 -1.930 -1.927 + 17.50 149.675 -2.027 -2.158 -2.234 -2.253 + 14.00 149.700 -0.830 -0.845 -0.790 -0.604 + 14.50 149.700 -0.558 -0.567 -0.548 -0.498 + 15.00 149.700 -0.535 -0.520 -0.503 -0.488 + 15.50 149.700 -0.819 -0.792 -0.760 -0.724 + 16.00 149.700 -1.208 -1.206 -1.188 -1.155 + 16.50 149.700 -1.513 -1.552 -1.562 -1.543 + 17.00 149.700 -1.833 -1.898 -1.930 -1.927 + 17.50 149.700 -2.027 -2.158 -2.234 -2.253 + 14.00 149.725 -0.788 -0.807 -0.749 -0.536 + 14.50 149.725 -0.559 -0.574 -0.560 -0.501 + 15.00 149.725 -0.543 -0.531 -0.518 -0.502 + 15.50 149.725 -0.816 -0.790 -0.758 -0.722 + 16.00 149.725 -1.208 -1.206 -1.188 -1.154 + 16.50 149.725 -1.513 -1.552 -1.561 -1.542 + 17.00 149.725 -1.833 -1.898 -1.930 -1.926 + 17.50 149.725 -2.027 -2.158 -2.234 -2.253 + 14.00 149.750 -0.747 -0.765 -0.695 -0.472 + 14.50 149.750 -0.561 -0.582 -0.572 -0.504 + 15.00 149.750 -0.550 -0.543 -0.532 -0.516 + 15.50 149.750 -0.813 -0.788 -0.757 -0.721 + 16.00 149.750 -1.207 -1.205 -1.187 -1.154 + 16.50 149.750 -1.512 -1.551 -1.561 -1.541 + 17.00 149.750 -1.832 -1.898 -1.929 -1.926 + 17.50 149.750 -2.027 -2.158 -2.233 -2.253 + 14.00 149.800 -0.607 -0.600 -0.489 -0.293 + 14.50 149.800 -0.519 -0.541 -0.535 -0.467 + 15.00 149.800 -0.564 -0.565 -0.561 -0.544 + 15.50 149.800 -0.817 -0.795 -0.767 -0.736 + 16.00 149.800 -1.206 -1.204 -1.186 -1.153 + 16.50 149.800 -1.510 -1.550 -1.560 -1.540 + 17.00 149.800 -1.832 -1.898 -1.929 -1.926 + 17.50 149.800 -2.027 -2.158 -2.233 -2.253 + 14.00 149.850 -0.410 -0.363 -0.240 -0.110 + 14.50 149.850 -0.427 -0.442 -0.432 -0.379 + 15.00 149.850 -0.563 -0.568 -0.566 -0.553 + 15.50 149.850 -0.822 -0.802 -0.778 -0.750 + 16.00 149.850 -1.204 -1.202 -1.185 -1.152 + 16.50 149.850 -1.508 -1.549 -1.559 -1.539 + 17.00 149.850 -1.831 -1.897 -1.929 -1.926 + 17.50 149.850 -2.027 -2.158 -2.233 -2.253 + 14.00 149.900 -0.151 -0.085 -0.002 0.049 + 14.50 149.900 -0.335 -0.343 -0.329 -0.291 + 15.00 149.900 -0.562 -0.570 -0.572 -0.563 + 15.50 149.900 -0.826 -0.809 -0.789 -0.764 + 16.00 149.900 -1.203 -1.201 -1.184 -1.151 + 16.50 149.900 -1.507 -1.548 -1.558 -1.538 + 17.00 149.900 -1.831 -1.897 -1.929 -1.925 + 17.50 149.900 -2.027 -2.158 -2.233 -2.253 + 14.00 149.950 0.140 0.173 0.188 0.167 + 14.50 149.950 -0.224 -0.227 -0.218 -0.200 + 15.00 149.950 -0.562 -0.573 -0.578 -0.572 + 15.50 149.950 -0.831 -0.817 -0.799 -0.779 + 16.00 149.950 -1.201 -1.199 -1.182 -1.150 + 16.50 149.950 -1.505 -1.546 -1.557 -1.537 + 17.00 149.950 -1.830 -1.896 -1.928 -1.925 + 17.50 149.950 -2.026 -2.158 -2.233 -2.253 + 14.00 149.975 0.284 0.287 0.267 0.218 + 14.50 149.975 -0.168 -0.168 -0.162 -0.155 + 15.00 149.975 -0.561 -0.574 -0.581 -0.577 + 15.50 149.975 -0.833 -0.820 -0.804 -0.786 + 16.00 149.975 -1.201 -1.199 -1.182 -1.150 + 16.50 149.975 -1.504 -1.546 -1.556 -1.537 + 17.00 149.975 -1.830 -1.896 -1.928 -1.925 + 17.50 149.975 -2.026 -2.158 -2.233 -2.253 + 14.00 150.000 0.367 0.350 0.312 0.245 + 14.50 150.000 -0.112 -0.110 -0.106 -0.110 + 15.00 150.000 -0.561 -0.575 -0.583 -0.582 + 15.50 150.000 -0.836 -0.824 -0.810 -0.793 + 16.00 150.000 -1.200 -1.198 -1.181 -1.149 + 16.50 150.000 -1.503 -1.545 -1.556 -1.536 + 17.00 150.000 -1.830 -1.896 -1.928 -1.924 + 17.50 150.000 -2.026 -2.157 -2.233 -2.253 + 14.00 150.025 0.421 0.391 0.341 0.266 + 14.50 150.025 -0.070 -0.068 -0.068 -0.078 + 15.00 150.025 -0.553 -0.567 -0.574 -0.572 + 15.50 150.025 -0.837 -0.827 -0.815 -0.800 + 16.00 150.025 -1.201 -1.199 -1.183 -1.151 + 16.50 150.025 -1.504 -1.546 -1.556 -1.536 + 17.00 150.025 -1.830 -1.896 -1.928 -1.924 + 17.50 150.025 -2.026 -2.157 -2.233 -2.253 + 14.00 150.050 0.456 0.422 0.364 0.281 + 14.50 150.050 -0.028 -0.026 -0.029 -0.047 + 15.00 150.050 -0.545 -0.558 -0.564 -0.562 + 15.50 150.050 -0.839 -0.831 -0.820 -0.807 + 16.00 150.050 -1.201 -1.200 -1.184 -1.153 + 16.50 150.050 -1.505 -1.546 -1.556 -1.537 + 17.00 150.050 -1.830 -1.896 -1.928 -1.924 + 17.50 150.050 -2.026 -2.157 -2.233 -2.253 + 14.00 150.075 0.446 0.416 0.362 0.279 + 14.50 150.075 -0.003 -0.003 -0.006 -0.027 + 15.00 150.075 -0.537 -0.550 -0.554 -0.552 + 15.50 150.075 -0.840 -0.835 -0.826 -0.813 + 16.00 150.075 -1.202 -1.200 -1.185 -1.156 + 16.50 150.075 -1.506 -1.546 -1.556 -1.537 + 17.00 150.075 -1.830 -1.896 -1.928 -1.924 + 17.50 150.075 -2.026 -2.157 -2.233 -2.253 + 14.00 150.100 0.400 0.384 0.342 0.272 + 14.50 150.100 0.021 0.021 0.017 -0.007 + 15.00 150.100 -0.529 -0.541 -0.545 -0.542 + 15.50 150.100 -0.842 -0.838 -0.831 -0.820 + 16.00 150.100 -1.202 -1.201 -1.187 -1.158 + 16.50 150.100 -1.507 -1.547 -1.557 -1.538 + 17.00 150.100 -1.830 -1.896 -1.928 -1.924 + 17.50 150.100 -2.026 -2.157 -2.233 -2.253 + 14.00 150.150 0.245 0.260 0.260 0.223 + 14.50 150.150 0.033 0.033 0.029 0.009 + 15.00 150.150 -0.513 -0.524 -0.525 -0.522 + 15.50 150.150 -0.845 -0.846 -0.842 -0.833 + 16.00 150.150 -1.203 -1.203 -1.189 -1.162 + 16.50 150.150 -1.509 -1.548 -1.557 -1.538 + 17.00 150.150 -1.830 -1.896 -1.928 -1.924 + 17.50 150.150 -2.026 -2.157 -2.233 -2.253 + 14.00 150.200 0.057 0.090 0.127 0.137 + 14.50 150.200 0.009 0.017 0.017 0.000 + 15.00 150.200 -0.498 -0.507 -0.506 -0.502 + 15.50 150.200 -0.848 -0.853 -0.853 -0.847 + 16.00 150.200 -1.204 -1.205 -1.192 -1.166 + 16.50 150.200 -1.511 -1.548 -1.558 -1.539 + 17.00 150.200 -1.830 -1.896 -1.928 -1.924 + 17.50 150.200 -2.026 -2.157 -2.233 -2.252 + 14.00 150.250 -0.125 -0.096 -0.038 0.021 + 14.50 150.250 -0.042 -0.032 -0.027 -0.034 + 15.00 150.250 -0.491 -0.499 -0.496 -0.491 + 15.50 150.250 -0.851 -0.860 -0.863 -0.860 + 16.00 150.250 -1.205 -1.206 -1.195 -1.170 + 16.50 150.250 -1.513 -1.549 -1.558 -1.539 + 17.00 150.250 -1.830 -1.896 -1.928 -1.924 + 17.50 150.250 -2.026 -2.157 -2.233 -2.252 + 14.00 150.300 -0.287 -0.269 -0.213 -0.121 + 14.50 150.300 -0.092 -0.082 -0.071 -0.067 + 15.00 150.300 -0.485 -0.491 -0.486 -0.480 + 15.50 150.300 -0.854 -0.864 -0.868 -0.865 + 16.00 150.300 -1.206 -1.208 -1.197 -1.174 + 16.50 150.300 -1.514 -1.550 -1.558 -1.540 + 17.00 150.300 -1.830 -1.896 -1.928 -1.924 + 17.50 150.300 -2.026 -2.157 -2.233 -2.252 + 14.00 150.350 -0.431 -0.423 -0.379 -0.275 + 14.50 150.350 -0.160 -0.150 -0.138 -0.127 + 15.00 150.350 -0.479 -0.482 -0.477 -0.469 + 15.50 150.350 -0.857 -0.868 -0.872 -0.871 + 16.00 150.350 -1.207 -1.210 -1.200 -1.179 + 16.50 150.350 -1.516 -1.551 -1.559 -1.541 + 17.00 150.350 -1.830 -1.896 -1.928 -1.924 + 17.50 150.350 -2.026 -2.157 -2.233 -2.252 + 14.00 150.400 -0.558 -0.558 -0.530 -0.432 + 14.50 150.400 -0.228 -0.218 -0.205 -0.186 + 15.00 150.400 -0.472 -0.474 -0.467 -0.458 + 15.50 150.400 -0.860 -0.872 -0.877 -0.876 + 16.00 150.400 -1.208 -1.211 -1.203 -1.183 + 16.50 150.400 -1.518 -1.551 -1.559 -1.542 + 17.00 150.400 -1.830 -1.896 -1.928 -1.924 + 17.50 150.400 -2.026 -2.157 -2.233 -2.252 + 14.00 150.450 -0.670 -0.676 -0.661 -0.582 + 14.50 150.450 -0.298 -0.290 -0.278 -0.258 + 15.00 150.450 -0.480 -0.480 -0.473 -0.463 + 15.50 150.450 -0.863 -0.876 -0.882 -0.881 + 16.00 150.450 -1.209 -1.213 -1.206 -1.187 + 16.50 150.450 -1.520 -1.552 -1.559 -1.542 + 17.00 150.450 -1.830 -1.896 -1.928 -1.924 + 17.50 150.450 -2.026 -2.157 -2.233 -2.252 + 14.00 150.500 -0.770 -0.780 -0.777 -0.719 + 14.50 150.500 -0.368 -0.361 -0.351 -0.330 + 15.00 150.500 -0.488 -0.486 -0.478 -0.469 + 15.50 150.500 -0.867 -0.879 -0.886 -0.886 + 16.00 150.500 -1.210 -1.215 -1.208 -1.191 + 16.50 150.500 -1.522 -1.553 -1.560 -1.543 + 17.00 150.500 -1.830 -1.896 -1.928 -1.924 + 17.50 150.500 -2.026 -2.157 -2.233 -2.252 + 14.00 150.550 -0.860 -0.876 -0.879 -0.839 + 14.50 150.550 -0.433 -0.430 -0.421 -0.403 + 15.00 150.550 -0.495 -0.493 -0.484 -0.474 + 15.50 150.550 -0.869 -0.881 -0.887 -0.887 + 16.00 150.550 -1.213 -1.217 -1.212 -1.196 + 16.50 150.550 -1.524 -1.554 -1.560 -1.544 + 17.00 150.550 -1.830 -1.896 -1.928 -1.924 + 17.50 150.550 -2.026 -2.157 -2.232 -2.252 + 14.00 150.600 -0.943 -0.959 -0.967 -0.983 + 14.50 150.600 -0.499 -0.498 -0.492 -0.476 + 15.00 150.600 -0.503 -0.499 -0.489 -0.479 + 15.50 150.600 -0.872 -0.882 -0.887 -0.887 + 16.00 150.600 -1.215 -1.220 -1.216 -1.201 + 16.50 150.600 -1.526 -1.554 -1.561 -1.544 + 17.00 150.600 -1.830 -1.896 -1.928 -1.924 + 17.50 150.600 -2.026 -2.157 -2.232 -2.252 + 14.00 150.750 -1.143 -1.164 -1.181 -1.192 + 14.50 150.750 -0.676 -0.679 -0.682 -0.676 + 15.00 150.750 -0.553 -0.548 -0.537 -0.526 + 15.50 150.750 -0.879 -0.886 -0.889 -0.889 + 16.00 150.750 -1.222 -1.229 -1.227 -1.217 + 16.50 150.750 -1.531 -1.557 -1.562 -1.546 + 17.00 150.750 -1.830 -1.896 -1.928 -1.924 + 17.50 150.750 -2.025 -2.157 -2.232 -2.252 + 14.00 150.800 -1.210 -1.233 -1.253 -1.261 + 14.50 150.800 -0.735 -0.740 -0.745 -0.742 + 15.00 150.800 -0.570 -0.564 -0.553 -0.542 + 15.50 150.800 -0.881 -0.887 -0.890 -0.889 + 16.00 150.800 -1.224 -1.231 -1.231 -1.222 + 16.50 150.800 -1.533 -1.558 -1.562 -1.547 + 17.00 150.800 -1.830 -1.896 -1.928 -1.924 + 17.50 150.800 -2.025 -2.157 -2.232 -2.252 + 14.00 150.900 -1.321 -1.347 -1.374 -1.396 + 14.50 150.900 -0.837 -0.845 -0.854 -0.854 + 15.00 150.900 -0.613 -0.606 -0.596 -0.586 + 15.50 150.900 -0.885 -0.890 -0.891 -0.889 + 16.00 150.900 -1.228 -1.237 -1.238 -1.232 + 16.50 150.900 -1.537 -1.559 -1.563 -1.548 + 17.00 150.900 -1.830 -1.896 -1.928 -1.924 + 17.50 150.900 -2.025 -2.157 -2.232 -2.252 + 14.00 151.000 -1.428 -1.461 -1.499 -1.535 + 14.50 151.000 -0.939 -0.951 -0.963 -0.967 + 15.00 151.000 -0.656 -0.648 -0.638 -0.629 + 15.50 151.000 -0.889 -0.893 -0.893 -0.889 + 16.00 151.000 -1.233 -1.243 -1.246 -1.242 + 16.50 151.000 -1.541 -1.561 -1.564 -1.550 + 17.00 151.000 -1.830 -1.896 -1.928 -1.924 + 17.50 151.000 -2.025 -2.157 -2.232 -2.252 + 14.00 151.200 -1.626 -1.659 -1.697 -1.733 + 14.50 151.200 -1.114 -1.130 -1.148 -1.161 + 15.00 151.200 -0.750 -0.742 -0.735 -0.728 + 15.50 151.200 -0.892 -0.901 -0.901 -0.892 + 16.00 151.200 -1.241 -1.253 -1.258 -1.256 + 16.50 151.200 -1.538 -1.562 -1.568 -1.556 + 17.00 151.200 -1.830 -1.896 -1.928 -1.924 + 17.50 151.200 -2.025 -2.156 -2.232 -2.252 + 14.00 151.250 -1.671 -1.703 -1.741 -1.777 + 14.50 151.250 -1.152 -1.168 -1.188 -1.204 + 15.00 151.250 -0.773 -0.766 -0.760 -0.754 + 15.50 151.250 -0.893 -0.903 -0.903 -0.893 + 16.00 151.250 -1.243 -1.255 -1.261 -1.260 + 16.50 151.250 -1.537 -1.563 -1.570 -1.558 + 17.00 151.250 -1.830 -1.896 -1.928 -1.924 + 17.50 151.250 -2.025 -2.156 -2.232 -2.252 + 14.00 151.400 -1.794 -1.826 -1.864 -1.900 + 14.50 151.400 -1.264 -1.285 -1.308 -1.331 + 15.00 151.400 -0.845 -0.839 -0.836 -0.833 + 15.50 151.400 -0.910 -0.916 -0.914 -0.903 + 16.00 151.400 -1.249 -1.263 -1.270 -1.270 + 16.50 151.400 -1.535 -1.564 -1.573 -1.563 + 17.00 151.400 -1.830 -1.896 -1.928 -1.924 + 17.50 151.400 -2.024 -2.156 -2.232 -2.251 + 14.00 151.500 -1.868 -1.901 -1.939 -1.975 + 14.50 151.500 -1.329 -1.351 -1.377 -1.403 + 15.00 151.500 -0.892 -0.887 -0.886 -0.884 + 15.50 151.500 -0.921 -0.924 -0.921 -0.910 + 16.00 151.500 -1.253 -1.268 -1.276 -1.277 + 16.50 151.500 -1.534 -1.565 -1.575 -1.566 + 17.00 151.500 -1.830 -1.896 -1.928 -1.924 + 17.50 151.500 -2.024 -2.156 -2.232 -2.251 + 14.00 151.600 -1.939 -1.971 -2.009 -2.045 + 14.50 151.600 -1.394 -1.418 -1.446 -1.476 + 15.00 151.600 -0.939 -0.936 -0.936 -0.936 + 15.50 151.600 -0.936 -0.937 -0.931 -0.920 + 16.00 151.600 -1.256 -1.271 -1.280 -1.281 + 16.50 151.600 -1.533 -1.565 -1.578 -1.569 + 17.00 151.600 -1.830 -1.896 -1.928 -1.924 + 17.50 151.600 -2.024 -2.156 -2.232 -2.251 + 14.00 151.750 -2.036 -2.069 -2.106 -2.142 + 14.50 151.750 -1.478 -1.503 -1.536 -1.571 + 15.00 151.750 -1.007 -1.005 -1.007 -1.010 + 15.50 151.750 -0.959 -0.955 -0.947 -0.936 + 16.00 151.750 -1.261 -1.277 -1.285 -1.287 + 16.50 151.750 -1.531 -1.567 -1.581 -1.574 + 17.00 151.750 -1.830 -1.896 -1.928 -1.924 + 17.50 151.750 -2.024 -2.156 -2.231 -2.251 + 14.00 151.800 -2.066 -2.099 -2.137 -2.173 + 14.50 151.800 -1.506 -1.532 -1.565 -1.602 + 15.00 151.800 -1.030 -1.028 -1.031 -1.035 + 15.50 151.800 -0.966 -0.961 -0.953 -0.943 + 16.00 151.800 -1.262 -1.278 -1.287 -1.289 + 16.50 151.800 -1.530 -1.567 -1.582 -1.575 + 17.00 151.800 -1.830 -1.896 -1.928 -1.924 + 17.50 151.800 -2.024 -2.156 -2.231 -2.251 + 14.00 152.000 -2.181 -2.214 -2.251 -2.287 + 14.50 152.000 -1.602 -1.631 -1.668 -1.710 + 15.00 152.000 -1.116 -1.116 -1.122 -1.130 + 15.50 152.000 -0.996 -0.987 -0.979 -0.971 + 16.00 152.000 -1.268 -1.286 -1.295 -1.297 + 16.50 152.000 -1.527 -1.569 -1.587 -1.582 + 17.00 152.000 -1.830 -1.896 -1.928 -1.924 + 17.50 152.000 -2.024 -2.155 -2.231 -2.251 + 14.00 152.200 -2.284 -2.317 -2.355 -2.391 + 14.50 152.200 -1.688 -1.718 -1.757 -1.803 + 15.00 152.200 -1.196 -1.199 -1.208 -1.220 + 15.50 152.200 -1.031 -1.022 -1.013 -1.005 + 16.00 152.200 -1.274 -1.291 -1.300 -1.301 + 16.50 152.200 -1.541 -1.576 -1.592 -1.588 + 17.00 152.200 -1.831 -1.897 -1.929 -1.926 + 17.50 152.200 -2.024 -2.156 -2.231 -2.251 + 14.00 152.250 -2.309 -2.341 -2.379 -2.415 + 14.50 152.250 -1.710 -1.740 -1.780 -1.827 + 15.00 152.250 -1.215 -1.219 -1.229 -1.241 + 15.50 152.250 -1.039 -1.030 -1.022 -1.013 + 16.00 152.250 -1.276 -1.293 -1.301 -1.302 + 16.50 152.250 -1.544 -1.578 -1.593 -1.590 + 17.00 152.250 -1.831 -1.898 -1.929 -1.926 + 17.50 152.250 -2.024 -2.156 -2.231 -2.251 + 14.00 152.400 -2.379 -2.411 -2.450 -2.485 + 14.50 152.400 -1.766 -1.797 -1.838 -1.885 + 15.00 152.400 -1.273 -1.277 -1.290 -1.304 + 15.50 152.400 -1.066 -1.056 -1.047 -1.038 + 16.00 152.400 -1.280 -1.297 -1.305 -1.305 + 16.50 152.400 -1.554 -1.583 -1.597 -1.595 + 17.00 152.400 -1.832 -1.898 -1.930 -1.927 + 17.50 152.400 -2.024 -2.156 -2.232 -2.251 + 14.00 152.500 -2.423 -2.456 -2.494 -2.530 + 14.50 152.500 -1.804 -1.836 -1.876 -1.924 + 15.00 152.500 -1.309 -1.314 -1.328 -1.344 + 15.50 152.500 -1.083 -1.074 -1.064 -1.056 + 16.00 152.500 -1.283 -1.300 -1.308 -1.307 + 16.50 152.500 -1.560 -1.587 -1.600 -1.598 + 17.00 152.500 -1.833 -1.899 -1.931 -1.928 + 17.50 152.500 -2.024 -2.156 -2.232 -2.251 + 14.00 152.600 -2.466 -2.498 -2.536 -2.572 + 14.50 152.600 -1.841 -1.873 -1.914 -1.961 + 15.00 152.600 -1.345 -1.352 -1.367 -1.384 + 15.50 152.600 -1.102 -1.093 -1.084 -1.076 + 16.00 152.600 -1.287 -1.303 -1.310 -1.309 + 16.50 152.600 -1.567 -1.591 -1.602 -1.601 + 17.00 152.600 -1.833 -1.899 -1.931 -1.929 + 17.50 152.600 -2.024 -2.156 -2.232 -2.251 + 14.00 152.750 -2.527 -2.559 -2.597 -2.633 + 14.50 152.750 -1.896 -1.928 -1.971 -2.016 + 15.00 152.750 -1.394 -1.402 -1.419 -1.438 + 15.50 152.750 -1.131 -1.121 -1.113 -1.105 + 16.00 152.750 -1.292 -1.307 -1.314 -1.312 + 16.50 152.750 -1.577 -1.596 -1.606 -1.606 + 17.00 152.750 -1.834 -1.900 -1.932 -1.930 + 17.50 152.750 -2.024 -2.156 -2.232 -2.252 + 14.00 152.950 -2.603 -2.635 -2.674 -2.709 + 14.50 152.950 -1.975 -2.006 -2.044 -2.086 + 15.00 152.950 -1.460 -1.470 -1.488 -1.511 + 15.50 152.950 -1.169 -1.159 -1.151 -1.145 + 16.00 152.950 -1.298 -1.313 -1.319 -1.315 + 16.50 152.950 -1.590 -1.604 -1.611 -1.613 + 17.00 152.950 -1.835 -1.901 -1.933 -1.931 + 17.50 152.950 -2.024 -2.156 -2.232 -2.252 + 14.00 153.000 -2.621 -2.654 -2.692 -2.727 + 14.50 153.000 -1.993 -2.024 -2.062 -2.104 + 15.00 153.000 -1.476 -1.487 -1.506 -1.529 + 15.50 153.000 -1.179 -1.169 -1.161 -1.156 + 16.00 153.000 -1.300 -1.314 -1.320 -1.316 + 16.50 153.000 -1.594 -1.605 -1.613 -1.614 + 17.00 153.000 -1.836 -1.901 -1.934 -1.932 + 17.50 153.000 -2.024 -2.156 -2.232 -2.252 + 14.00 153.400 -2.757 -2.790 -2.828 -2.863 + 14.50 153.400 -2.129 -2.160 -2.198 -2.240 + 15.00 153.400 -1.595 -1.607 -1.631 -1.660 + 15.50 153.400 -1.256 -1.247 -1.241 -1.238 + 16.00 153.400 -1.317 -1.328 -1.331 -1.325 + 16.50 153.400 -1.587 -1.609 -1.621 -1.624 + 17.00 153.400 -1.838 -1.903 -1.936 -1.935 + 17.50 153.400 -2.024 -2.156 -2.232 -2.252 + 14.00 153.500 -2.789 -2.821 -2.859 -2.895 + 14.50 153.500 -2.160 -2.191 -2.229 -2.271 + 15.00 153.500 -1.622 -1.635 -1.659 -1.688 + 15.50 153.500 -1.276 -1.266 -1.260 -1.259 + 16.00 153.500 -1.321 -1.332 -1.334 -1.327 + 16.50 153.500 -1.586 -1.610 -1.624 -1.626 + 17.00 153.500 -1.839 -1.904 -1.936 -1.936 + 17.50 153.500 -2.024 -2.157 -2.233 -2.252 + 14.00 153.800 -2.878 -2.910 -2.948 -2.984 + 14.50 153.800 -2.250 -2.281 -2.319 -2.361 + 15.00 153.800 -1.701 -1.717 -1.742 -1.775 + 15.50 153.800 -1.331 -1.324 -1.321 -1.320 + 16.00 153.800 -1.338 -1.344 -1.344 -1.337 + 16.50 153.800 -1.581 -1.613 -1.630 -1.633 + 17.00 153.800 -1.840 -1.906 -1.938 -1.938 + 17.50 153.800 -2.024 -2.157 -2.233 -2.252 + 14.00 154.000 -2.933 -2.966 -3.004 -3.040 + 14.50 154.000 -2.305 -2.336 -2.374 -2.416 + 15.00 154.000 -1.750 -1.766 -1.793 -1.825 + 15.50 154.000 -1.367 -1.362 -1.360 -1.362 + 16.00 154.000 -1.349 -1.353 -1.351 -1.343 + 16.50 154.000 -1.578 -1.614 -1.635 -1.638 + 17.00 154.000 -1.842 -1.907 -1.939 -1.939 + 17.50 154.000 -2.025 -2.157 -2.233 -2.253 + 14.00 154.200 -2.986 -3.019 -3.057 -3.093 + 14.50 154.200 -2.358 -2.389 -2.427 -2.469 + 15.00 154.200 -1.799 -1.815 -1.845 -1.876 + 15.50 154.200 -1.403 -1.399 -1.398 -1.401 + 16.00 154.200 -1.361 -1.363 -1.360 -1.351 + 16.50 154.200 -1.579 -1.617 -1.638 -1.641 + 17.00 154.200 -1.845 -1.908 -1.941 -1.942 + 17.50 154.200 -2.025 -2.157 -2.233 -2.253 + 14.00 154.500 -3.061 -3.094 -3.132 -3.168 + 14.50 154.500 -2.433 -2.464 -2.502 -2.544 + 15.00 154.500 -1.864 -1.881 -1.913 -1.944 + 15.50 154.500 -1.456 -1.454 -1.455 -1.460 + 16.00 154.500 -1.379 -1.379 -1.374 -1.363 + 16.50 154.500 -1.579 -1.620 -1.642 -1.646 + 17.00 154.500 -1.849 -1.911 -1.943 -1.945 + 17.50 154.500 -2.026 -2.158 -2.234 -2.254 + 14.00 154.600 -3.085 -3.118 -3.156 -3.191 + 14.50 154.600 -2.457 -2.488 -2.526 -2.568 + 15.00 154.600 -1.886 -1.903 -1.936 -1.967 + 15.50 154.600 -1.474 -1.471 -1.472 -1.478 + 16.00 154.600 -1.385 -1.385 -1.379 -1.369 + 16.50 154.600 -1.579 -1.621 -1.644 -1.648 + 17.00 154.600 -1.851 -1.912 -1.944 -1.946 + 17.50 154.600 -2.027 -2.158 -2.234 -2.254 + 14.00 155.000 -3.176 -3.208 -3.246 -3.282 + 14.50 155.000 -2.548 -2.579 -2.617 -2.658 + 15.00 155.000 -1.967 -1.987 -2.016 -2.047 + 15.50 155.000 -1.544 -1.541 -1.544 -1.553 + 16.00 155.000 -1.410 -1.408 -1.401 -1.390 + 16.50 155.000 -1.580 -1.625 -1.650 -1.654 + 17.00 155.000 -1.857 -1.916 -1.947 -1.951 + 17.50 155.000 -2.029 -2.159 -2.234 -2.254 + 14.00 155.500 -3.279 -3.312 -3.350 -3.385 + 14.50 155.500 -2.651 -2.682 -2.720 -2.762 + 15.00 155.500 -2.070 -2.091 -2.119 -2.151 + 15.50 155.500 -1.620 -1.623 -1.631 -1.642 + 16.00 155.500 -1.445 -1.439 -1.431 -1.420 + 16.50 155.500 -1.608 -1.639 -1.657 -1.660 + 17.00 155.500 -1.865 -1.920 -1.951 -1.957 + 17.50 155.500 -2.030 -2.160 -2.235 -2.256 + 14.00 156.000 -3.374 -3.406 -3.444 -3.480 + 14.50 156.000 -2.746 -2.776 -2.815 -2.856 + 15.00 156.000 -2.164 -2.185 -2.213 -2.245 + 15.50 156.000 -1.699 -1.703 -1.712 -1.726 + 16.00 156.000 -1.480 -1.474 -1.465 -1.454 + 16.50 156.000 -1.636 -1.654 -1.663 -1.666 + 17.00 156.000 -1.873 -1.924 -1.955 -1.963 + 17.50 156.000 -2.033 -2.161 -2.236 -2.257 + 14.00 156.500 -3.461 -3.493 -3.531 -3.567 + 14.50 156.500 -2.832 -2.863 -2.902 -2.943 + 15.00 156.500 -2.251 -2.272 -2.300 -2.332 + 15.50 156.500 -1.775 -1.780 -1.791 -1.807 + 16.00 156.500 -1.520 -1.510 -1.500 -1.490 + 16.50 156.500 -1.632 -1.657 -1.670 -1.671 + 17.00 156.500 -1.874 -1.928 -1.960 -1.968 + 17.50 156.500 -2.035 -2.163 -2.237 -2.258 + 14.00 157.000 -3.541 -3.574 -3.612 -3.647 + 14.50 157.000 -2.913 -2.944 -2.982 -3.024 + 15.00 157.000 -2.332 -2.352 -2.381 -2.412 + 15.50 157.000 -1.848 -1.851 -1.863 -1.886 + 16.00 157.000 -1.559 -1.547 -1.536 -1.527 + 16.50 157.000 -1.627 -1.660 -1.676 -1.676 + 17.00 157.000 -1.875 -1.932 -1.965 -1.973 + 17.50 157.000 -2.037 -2.165 -2.239 -2.260 + 14.00 157.500 -3.616 -3.649 -3.687 -3.722 + 14.50 157.500 -2.988 -3.019 -3.057 -3.099 + 15.00 157.500 -2.407 -2.427 -2.456 -2.487 + 15.50 157.500 -1.903 -1.917 -1.936 -1.959 + 16.00 157.500 -1.599 -1.585 -1.574 -1.566 + 16.50 157.500 -1.658 -1.676 -1.684 -1.682 + 17.00 157.500 -1.875 -1.936 -1.970 -1.978 + 17.50 157.500 -2.039 -2.166 -2.240 -2.261 + 14.00 158.000 -3.686 -3.719 -3.757 -3.792 + 14.50 158.000 -3.058 -3.089 -3.127 -3.169 + 15.00 158.000 -2.477 -2.497 -2.526 -2.557 + 15.50 158.000 -1.975 -1.983 -2.000 -2.026 + 16.00 158.000 -1.638 -1.623 -1.613 -1.605 + 16.50 158.000 -1.688 -1.692 -1.692 -1.688 + 17.00 158.000 -1.876 -1.939 -1.975 -1.983 + 17.50 158.000 -2.041 -2.168 -2.242 -2.263 + 14.00 158.500 -3.752 -3.784 -3.822 -3.858 + 14.50 158.500 -3.124 -3.155 -3.193 -3.235 + 15.00 158.500 -2.543 -2.563 -2.592 -2.623 + 15.50 158.500 -2.029 -2.041 -2.062 -2.089 + 16.00 158.500 -1.676 -1.662 -1.653 -1.647 + 16.50 158.500 -1.686 -1.698 -1.701 -1.696 + 17.00 158.500 -1.883 -1.944 -1.979 -1.988 + 17.50 158.500 -2.045 -2.170 -2.244 -2.265 + 14.00 159.000 -3.814 -3.846 -3.885 -3.920 + 14.50 159.000 -3.186 -3.217 -3.255 -3.297 + 15.00 159.000 -2.605 -2.625 -2.654 -2.685 + 15.50 159.000 -2.083 -2.098 -2.119 -2.149 + 16.00 159.000 -1.714 -1.701 -1.692 -1.688 + 16.50 159.000 -1.684 -1.703 -1.710 -1.703 + 17.00 159.000 -1.890 -1.949 -1.983 -1.992 + 17.50 159.000 -2.048 -2.172 -2.245 -2.267 + 14.00 159.500 -3.873 -3.905 -3.943 -3.979 + 14.50 159.500 -3.244 -3.275 -3.314 -3.355 + 15.00 159.500 -2.664 -2.684 -2.712 -2.744 + 15.50 159.500 -2.134 -2.150 -2.173 -2.204 + 16.00 159.500 -1.755 -1.740 -1.732 -1.730 + 16.50 159.500 -1.689 -1.713 -1.721 -1.713 + 17.00 159.500 -1.896 -1.954 -1.987 -1.997 + 17.50 159.500 -2.051 -2.174 -2.247 -2.269 + 14.00 160.000 -3.928 -3.961 -3.999 -4.035 + 14.50 160.000 -3.300 -3.331 -3.369 -3.411 + 15.00 160.000 -2.719 -2.740 -2.768 -2.800 + 15.50 160.000 -2.182 -2.199 -2.223 -2.254 + 16.00 160.000 -1.796 -1.780 -1.772 -1.772 + 16.50 160.000 -1.695 -1.724 -1.733 -1.724 + 17.00 160.000 -1.903 -1.959 -1.991 -2.002 + 17.50 160.000 -2.054 -2.177 -2.249 -2.271 + 14.00 161.000 -4.032 -4.064 -4.102 -4.138 + 14.50 161.000 -3.404 -3.435 -3.473 -3.515 + 15.00 161.000 -2.823 -2.843 -2.872 -2.903 + 15.50 161.000 -2.286 -2.302 -2.326 -2.358 + 16.00 161.000 -1.870 -1.854 -1.848 -1.851 + 16.50 161.000 -1.765 -1.765 -1.760 -1.750 + 17.00 161.000 -1.916 -1.969 -2.000 -2.010 + 17.50 161.000 -2.061 -2.181 -2.253 -2.275 + 14.00 162.000 -4.126 -4.159 -4.197 -4.233 + 14.50 162.000 -3.498 -3.529 -3.567 -3.609 + 15.00 162.000 -2.917 -2.938 -2.966 -2.998 + 15.50 162.000 -2.380 -2.397 -2.421 -2.452 + 16.00 162.000 -1.936 -1.924 -1.921 -1.924 + 16.50 162.000 -1.770 -1.785 -1.788 -1.777 + 17.00 162.000 -1.928 -1.979 -2.009 -2.019 + 17.50 162.000 -2.068 -2.186 -2.257 -2.280 + 14.00 164.000 -4.294 -4.326 -4.364 -4.400 + 14.50 164.000 -3.665 -3.696 -3.735 -3.776 + 15.00 164.000 -3.085 -3.105 -3.133 -3.165 + 15.50 164.000 -2.548 -2.564 -2.588 -2.619 + 16.00 164.000 -2.068 -2.059 -2.059 -2.070 + 16.50 164.000 -1.857 -1.857 -1.851 -1.839 + 17.00 164.000 -1.955 -2.000 -2.026 -2.035 + 17.50 164.000 -2.082 -2.198 -2.267 -2.290 + 14.00 166.000 -4.439 -4.471 -4.509 -4.545 + 14.50 166.000 -3.810 -3.841 -3.880 -3.921 + 15.00 166.000 -3.230 -3.250 -3.278 -3.310 + 15.50 166.000 -2.693 -2.709 -2.733 -2.764 + 16.00 166.000 -2.186 -2.180 -2.184 -2.199 + 16.50 166.000 -1.959 -1.932 -1.914 -1.903 + 17.00 166.000 -1.979 -2.020 -2.043 -2.051 + 17.50 166.000 -2.097 -2.210 -2.277 -2.300 + 14.00 168.000 -4.567 -4.599 -4.637 -4.673 + 14.50 168.000 -3.938 -3.969 -4.008 -4.049 + 15.00 168.000 -3.357 -3.378 -3.406 -3.438 + 15.50 168.000 -2.821 -2.837 -2.861 -2.892 + 16.00 168.000 -2.295 -2.289 -2.295 -2.313 + 16.50 168.000 -2.047 -2.007 -1.983 -1.975 + 17.00 168.000 -2.007 -2.041 -2.061 -2.066 + 17.50 168.000 -2.112 -2.221 -2.287 -2.311 + 14.00 170.000 -4.681 -4.714 -4.752 -4.787 + 14.50 170.000 -4.053 -4.084 -4.122 -4.164 + 15.00 170.000 -3.472 -3.492 -3.521 -3.552 + 15.50 170.000 -2.935 -2.951 -2.975 -3.007 + 16.00 170.000 -2.391 -2.388 -2.397 -2.417 + 16.50 170.000 -2.061 -2.059 -2.053 -2.045 + 17.00 170.000 -2.037 -2.065 -2.079 -2.081 + 17.50 170.000 -2.127 -2.233 -2.297 -2.320 + 14.00 172.000 -4.784 -4.817 -4.855 -4.891 + 14.50 172.000 -4.156 -4.187 -4.225 -4.267 + 15.00 172.000 -3.575 -3.596 -3.624 -3.656 + 15.50 172.000 -3.039 -3.055 -3.079 -3.110 + 16.00 172.000 -2.481 -2.479 -2.490 -2.513 + 16.50 172.000 -2.140 -2.129 -2.120 -2.114 + 17.00 172.000 -2.070 -2.089 -2.099 -2.099 + 17.50 172.000 -2.143 -2.245 -2.307 -2.330 + 14.00 174.000 -4.879 -4.911 -4.950 -4.985 + 14.50 174.000 -4.251 -4.282 -4.320 -4.362 + 15.00 174.000 -3.670 -3.690 -3.719 -3.750 + 15.50 174.000 -3.133 -3.149 -3.173 -3.205 + 16.00 174.000 -2.564 -2.564 -2.577 -2.602 + 16.50 174.000 -2.225 -2.200 -2.186 -2.182 + 17.00 174.000 -2.101 -2.115 -2.120 -2.117 + 17.50 174.000 -2.159 -2.257 -2.317 -2.340 + 14.00 176.000 -4.966 -4.998 -5.036 -5.072 + 14.50 176.000 -4.338 -4.369 -4.407 -4.449 + 15.00 176.000 -3.757 -3.777 -3.806 -3.837 + 15.50 176.000 -3.220 -3.236 -3.260 -3.292 + 16.00 176.000 -2.651 -2.651 -2.664 -2.689 + 16.50 176.000 -2.305 -2.270 -2.251 -2.249 + 17.00 176.000 -2.135 -2.141 -2.142 -2.137 + 17.50 176.000 -2.175 -2.268 -2.326 -2.349 + 14.00 178.000 -5.046 -5.079 -5.117 -5.153 + 14.50 178.000 -4.418 -4.449 -4.487 -4.529 + 15.00 178.000 -3.837 -3.858 -3.886 -3.918 + 15.50 178.000 -3.300 -3.316 -3.341 -3.372 + 16.00 178.000 -2.731 -2.731 -2.744 -2.769 + 16.50 178.000 -2.380 -2.336 -2.314 -2.314 + 17.00 178.000 -2.170 -2.170 -2.166 -2.159 + 17.50 178.000 -2.192 -2.280 -2.335 -2.357 + 14.00 180.000 -5.121 -5.154 -5.192 -5.227 + 14.50 180.000 -4.493 -4.524 -4.562 -4.604 + 15.00 180.000 -3.912 -3.932 -3.961 -3.993 + 15.50 180.000 -3.375 -3.391 -3.415 -3.447 + 16.00 180.000 -2.806 -2.806 -2.819 -2.844 + 16.50 180.000 -2.384 -2.377 -2.375 -2.378 + 17.00 180.000 -2.206 -2.199 -2.190 -2.182 + 17.50 180.000 -2.208 -2.292 -2.344 -2.365 + 14.00 182.000 -5.191 -5.224 -5.262 -5.298 + 14.50 182.000 -4.563 -4.594 -4.632 -4.674 + 15.00 182.000 -3.982 -4.003 -4.031 -4.063 + 15.50 182.000 -3.445 -3.461 -3.485 -3.517 + 16.00 182.000 -2.876 -2.876 -2.889 -2.914 + 16.50 182.000 -2.450 -2.438 -2.434 -2.439 + 17.00 182.000 -2.242 -2.228 -2.217 -2.207 + 17.50 182.000 -2.227 -2.304 -2.353 -2.373 + 14.00 186.000 -5.319 -5.352 -5.390 -5.425 + 14.50 186.000 -4.691 -4.722 -4.760 -4.802 + 15.00 186.000 -4.110 -4.130 -4.159 -4.190 + 15.50 186.000 -3.573 -3.589 -3.613 -3.645 + 16.00 186.000 -3.004 -3.004 -3.017 -3.042 + 16.50 186.000 -2.595 -2.557 -2.544 -2.553 + 17.00 186.000 -2.313 -2.289 -2.272 -2.260 + 17.50 186.000 -2.263 -2.329 -2.371 -2.388 + 14.00 188.000 -5.378 -5.410 -5.448 -5.484 + 14.50 188.000 -4.750 -4.781 -4.819 -4.861 + 15.00 188.000 -4.169 -4.189 -4.218 -4.249 + 15.50 188.000 -3.632 -3.648 -3.672 -3.704 + 16.00 188.000 -3.063 -3.063 -3.076 -3.101 + 16.50 188.000 -2.619 -2.598 -2.593 -2.603 + 17.00 188.000 -2.349 -2.320 -2.299 -2.287 + 17.50 188.000 -2.282 -2.342 -2.380 -2.395 + 14.00 190.000 -5.433 -5.466 -5.504 -5.540 + 14.50 190.000 -4.805 -4.836 -4.874 -4.916 + 15.00 190.000 -4.224 -4.245 -4.273 -4.305 + 15.50 190.000 -3.688 -3.704 -3.728 -3.759 + 16.00 190.000 -3.118 -3.118 -3.131 -3.157 + 16.50 190.000 -2.642 -2.638 -2.642 -2.654 + 17.00 190.000 -2.383 -2.351 -2.328 -2.316 + 17.50 190.000 -2.300 -2.355 -2.389 -2.403 + 14.00 192.000 -5.486 -5.519 -5.557 -5.593 + 14.50 192.000 -4.858 -4.889 -4.927 -4.969 + 15.00 192.000 -4.277 -4.298 -4.326 -4.358 + 15.50 192.000 -3.741 -3.757 -3.781 -3.812 + 16.00 192.000 -3.171 -3.171 -3.184 -3.210 + 16.50 192.000 -2.695 -2.691 -2.695 -2.707 + 17.00 192.000 -2.418 -2.381 -2.357 -2.345 + 17.50 192.000 -2.319 -2.368 -2.398 -2.410 + 14.00 194.000 -5.537 -5.570 -5.608 -5.643 + 14.50 194.000 -4.909 -4.940 -4.978 -5.020 + 15.00 194.000 -4.328 -4.348 -4.377 -4.408 + 15.50 194.000 -3.791 -3.807 -3.831 -3.863 + 16.00 194.000 -3.222 -3.222 -3.235 -3.260 + 16.50 194.000 -2.746 -2.742 -2.746 -2.757 + 17.00 194.000 -2.452 -2.412 -2.386 -2.374 + 17.50 194.000 -2.341 -2.382 -2.408 -2.418 + 14.00 198.000 -5.631 -5.664 -5.702 -5.738 + 14.50 198.000 -5.003 -5.034 -5.072 -5.114 + 15.00 198.000 -4.422 -4.443 -4.471 -4.503 + 15.50 198.000 -3.885 -3.902 -3.926 -3.957 + 16.00 198.000 -3.316 -3.316 -3.329 -3.355 + 16.50 198.000 -2.840 -2.836 -2.840 -2.852 + 17.00 198.000 -2.517 -2.473 -2.444 -2.432 + 17.50 198.000 -2.384 -2.411 -2.428 -2.435 + 14.00 200.000 -5.676 -5.708 -5.746 -5.782 + 14.50 200.000 -5.048 -5.079 -5.117 -5.159 + 15.00 200.000 -4.467 -4.487 -4.516 -4.547 + 15.50 200.000 -3.930 -3.946 -3.970 -4.002 + 16.00 200.000 -3.361 -3.361 -3.374 -3.399 + 16.50 200.000 -2.884 -2.881 -2.884 -2.896 + 17.00 200.000 -2.550 -2.503 -2.474 -2.461 + 17.50 200.000 -2.406 -2.426 -2.439 -2.445 + 14.00 204.000 -5.759 -5.792 -5.830 -5.866 + 14.50 204.000 -5.131 -5.162 -5.200 -5.242 + 15.00 204.000 -4.550 -4.571 -4.599 -4.631 + 15.50 204.000 -4.013 -4.030 -4.054 -4.085 + 16.00 204.000 -3.444 -3.444 -3.457 -3.483 + 16.50 204.000 -2.968 -2.964 -2.968 -2.980 + 17.00 204.000 -2.615 -2.563 -2.532 -2.520 + 17.50 204.000 -2.448 -2.456 -2.461 -2.463 + 14.00 206.000 -5.799 -5.831 -5.869 -5.905 + 14.50 206.000 -5.171 -5.202 -5.240 -5.282 + 15.00 206.000 -4.590 -4.610 -4.639 -4.670 + 15.50 206.000 -4.053 -4.069 -4.093 -4.125 + 16.00 206.000 -3.484 -3.484 -3.497 -3.522 + 16.50 206.000 -3.007 -3.004 -3.007 -3.019 + 17.00 206.000 -2.648 -2.593 -2.561 -2.550 + 17.50 206.000 -2.471 -2.472 -2.473 -2.474 + 14.00 210.000 -5.874 -5.906 -5.944 -5.980 + 14.50 210.000 -5.246 -5.277 -5.315 -5.357 + 15.00 210.000 -4.665 -4.685 -4.713 -4.745 + 15.50 210.000 -4.128 -4.144 -4.168 -4.200 + 16.00 210.000 -3.559 -3.559 -3.572 -3.597 + 16.50 210.000 -3.082 -3.079 -3.082 -3.094 + 17.00 210.000 -2.708 -2.651 -2.618 -2.608 + 17.50 210.000 -2.516 -2.504 -2.498 -2.495 + 14.00 212.000 -5.909 -5.942 -5.980 -6.016 + 14.50 212.000 -5.281 -5.312 -5.350 -5.392 + 15.00 212.000 -4.700 -4.721 -4.749 -4.781 + 15.50 212.000 -4.163 -4.180 -4.204 -4.235 + 16.00 212.000 -3.594 -3.594 -3.607 -3.632 + 16.50 212.000 -3.118 -3.114 -3.118 -3.129 + 17.00 212.000 -2.737 -2.680 -2.646 -2.636 + 17.50 212.000 -2.537 -2.521 -2.510 -2.507 + 14.00 216.000 -5.977 -6.010 -6.048 -6.083 + 14.50 216.000 -5.349 -5.380 -5.418 -5.460 + 15.00 216.000 -4.768 -4.789 -4.817 -4.849 + 15.50 216.000 -4.231 -4.247 -4.271 -4.303 + 16.00 216.000 -3.662 -3.662 -3.675 -3.700 + 16.50 216.000 -3.186 -3.182 -3.186 -3.197 + 17.00 216.000 -2.789 -2.733 -2.701 -2.693 + 17.50 216.000 -2.580 -2.553 -2.536 -2.530 + 14.00 218.000 -6.010 -6.042 -6.080 -6.116 + 14.50 218.000 -5.381 -5.412 -5.451 -5.492 + 15.00 218.000 -4.800 -4.821 -4.849 -4.881 + 15.50 218.000 -4.264 -4.280 -4.304 -4.335 + 16.00 218.000 -3.695 -3.695 -3.707 -3.733 + 16.50 218.000 -3.218 -3.214 -3.218 -3.230 + 17.00 218.000 -2.815 -2.760 -2.728 -2.721 + 17.50 218.000 -2.603 -2.570 -2.550 -2.543 + 14.00 222.000 -6.072 -6.104 -6.142 -6.178 + 14.50 222.000 -5.444 -5.475 -5.513 -5.554 + 15.00 222.000 -4.863 -4.883 -4.911 -4.943 + 15.50 222.000 -4.326 -4.342 -4.366 -4.398 + 16.00 222.000 -3.757 -3.757 -3.770 -3.795 + 16.50 222.000 -3.280 -3.276 -3.280 -3.292 + 17.00 222.000 -2.867 -2.810 -2.779 -2.773 + 17.50 222.000 -2.648 -2.604 -2.577 -2.567 + 14.00 224.000 -6.101 -6.134 -6.172 -6.208 + 14.50 224.000 -5.473 -5.504 -5.542 -5.584 + 15.00 224.000 -4.892 -4.913 -4.941 -4.973 + 15.50 224.000 -4.356 -4.372 -4.396 -4.427 + 16.00 224.000 -3.786 -3.786 -3.799 -3.825 + 16.50 224.000 -3.310 -3.306 -3.310 -3.322 + 17.00 224.000 -2.893 -2.836 -2.804 -2.799 + 17.50 224.000 -2.669 -2.620 -2.591 -2.580 + 14.00 228.000 -6.159 -6.191 -6.229 -6.265 + 14.50 228.000 -5.530 -5.561 -5.600 -5.641 + 15.00 228.000 -4.949 -4.970 -4.998 -5.030 + 15.50 228.000 -4.413 -4.429 -4.453 -4.484 + 16.00 228.000 -3.843 -3.843 -3.856 -3.882 + 16.50 228.000 -3.367 -3.363 -3.367 -3.379 + 17.00 228.000 -2.945 -2.883 -2.850 -2.846 + 17.50 228.000 -2.712 -2.654 -2.618 -2.605 + 14.00 230.000 -6.186 -6.219 -6.257 -6.292 + 14.50 230.000 -5.558 -5.589 -5.627 -5.669 + 15.00 230.000 -4.977 -4.997 -5.026 -5.057 + 15.50 230.000 -4.440 -4.456 -4.480 -4.512 + 16.00 230.000 -3.871 -3.871 -3.884 -3.909 + 16.50 230.000 -3.395 -3.391 -3.395 -3.406 + 17.00 230.000 -2.971 -2.907 -2.873 -2.870 + 17.50 230.000 -2.732 -2.670 -2.632 -2.619 + 14.00 234.000 -6.239 -6.272 -6.310 -6.345 + 14.50 234.000 -5.611 -5.642 -5.680 -5.722 + 15.00 234.000 -5.030 -5.050 -5.079 -5.110 + 15.50 234.000 -4.493 -4.509 -4.533 -4.565 + 16.00 234.000 -3.924 -3.924 -3.937 -3.962 + 16.50 234.000 -3.448 -3.444 -3.448 -3.459 + 17.00 234.000 -3.024 -2.960 -2.926 -2.923 + 17.50 234.000 -2.772 -2.703 -2.661 -2.646 + 14.00 240.000 -6.314 -6.346 -6.385 -6.420 + 14.50 240.000 -5.686 -5.717 -5.755 -5.797 + 15.00 240.000 -5.105 -5.125 -5.154 -5.185 + 15.50 240.000 -4.568 -4.584 -4.608 -4.640 + 16.00 240.000 -3.999 -3.999 -4.012 -4.037 + 16.50 240.000 -3.523 -3.519 -3.523 -3.534 + 17.00 240.000 -3.099 -3.034 -3.001 -2.997 + 17.50 240.000 -2.839 -2.754 -2.703 -2.686 + 14.00 246.000 -6.384 -6.417 -6.455 -6.490 + 14.50 246.000 -5.756 -5.787 -5.825 -5.867 + 15.00 246.000 -5.175 -5.195 -5.224 -5.255 + 15.50 246.000 -4.638 -4.654 -4.678 -4.710 + 16.00 246.000 -4.069 -4.069 -4.082 -4.107 + 16.50 246.000 -3.593 -3.589 -3.593 -3.604 + 17.00 246.000 -3.169 -3.105 -3.071 -3.068 + 17.50 246.000 -2.889 -2.801 -2.747 -2.728 + 14.00 252.000 -6.450 -6.482 -6.520 -6.556 + 14.50 252.000 -5.822 -5.853 -5.891 -5.933 + 15.00 252.000 -5.241 -5.261 -5.290 -5.321 + 15.50 252.000 -4.704 -4.720 -4.744 -4.776 + 16.00 252.000 -4.135 -4.135 -4.148 -4.173 + 16.50 252.000 -3.658 -3.655 -3.658 -3.670 + 17.00 252.000 -3.234 -3.170 -3.137 -3.133 + 17.50 252.000 -2.951 -2.851 -2.790 -2.770 + 14.00 258.000 -6.512 -6.544 -6.582 -6.618 + 14.50 258.000 -5.884 -5.915 -5.953 -5.995 + 15.00 258.000 -5.303 -5.323 -5.352 -5.383 + 15.50 258.000 -4.766 -4.782 -4.806 -4.838 + 16.00 258.000 -4.197 -4.197 -4.210 -4.235 + 16.50 258.000 -3.720 -3.717 -3.720 -3.732 + 17.00 258.000 -3.296 -3.232 -3.199 -3.195 + 17.50 258.000 -3.003 -2.896 -2.833 -2.813 + 14.00 264.000 -6.571 -6.603 -6.641 -6.677 + 14.50 264.000 -5.942 -5.973 -6.011 -6.053 + 15.00 264.000 -5.361 -5.382 -5.410 -5.442 + 15.50 264.000 -4.825 -4.841 -4.865 -4.896 + 16.00 264.000 -4.256 -4.256 -4.268 -4.294 + 16.50 264.000 -3.779 -3.775 -3.779 -3.791 + 17.00 264.000 -3.355 -3.291 -3.257 -3.254 + 17.50 264.000 -3.050 -2.939 -2.873 -2.851 + 14.00 270.000 -6.626 -6.659 -6.697 -6.733 + 14.50 270.000 -5.998 -6.029 -6.067 -6.109 + 15.00 270.000 -5.417 -5.438 -5.466 -5.498 + 15.50 270.000 -4.880 -4.897 -4.920 -4.952 + 16.00 270.000 -4.311 -4.311 -4.324 -4.350 + 16.50 270.000 -3.835 -3.831 -3.835 -3.846 + 17.00 270.000 -3.411 -3.347 -3.313 -3.310 + 17.50 270.000 -3.101 -2.983 -2.914 -2.893 + 14.00 280.000 -6.713 -6.746 -6.784 -6.819 + 14.50 280.000 -6.085 -6.116 -6.154 -6.196 + 15.00 280.000 -5.504 -5.525 -5.553 -5.585 + 15.50 280.000 -4.967 -4.984 -5.007 -5.039 + 16.00 280.000 -4.398 -4.398 -4.411 -4.436 + 16.50 280.000 -3.922 -3.918 -3.922 -3.933 + 17.00 280.000 -3.498 -3.434 -3.400 -3.397 + 17.50 280.000 -3.188 -3.070 -3.000 -2.980 + 14.00 290.000 -6.794 -6.826 -6.864 -6.900 + 14.50 290.000 -6.166 -6.196 -6.235 -6.276 + 15.00 290.000 -5.584 -5.605 -5.633 -5.665 + 15.50 290.000 -5.048 -5.064 -5.088 -5.120 + 16.00 290.000 -4.479 -4.479 -4.491 -4.517 + 16.50 290.000 -4.002 -3.998 -4.002 -4.014 + 17.00 290.000 -3.578 -3.514 -3.480 -3.477 + 17.50 290.000 -3.268 -3.150 -3.081 -3.060 + 14.00 300.000 -6.869 -6.901 -6.939 -6.975 + 14.50 300.000 -6.240 -6.271 -6.310 -6.351 + 15.00 300.000 -5.659 -5.680 -5.708 -5.740 + 15.50 300.000 -5.123 -5.139 -5.163 -5.194 + 16.00 300.000 -4.554 -4.554 -4.567 -4.592 + 16.50 300.000 -4.077 -4.073 -4.077 -4.089 + 17.00 300.000 -3.653 -3.589 -3.555 -3.552 + 17.50 300.000 -3.343 -3.225 -3.156 -3.135 + 4922 H+ He+ + Ne dwl+150 5000 10000 20000 40000 5000 10000 20000 40000 + 13.0 0.00 -7.392 -7.441 -7.499 -7.560 -7.392 -7.441 -7.499 -7.560 + 13.5 0.00 -6.942 -6.992 -7.052 -7.116 -6.942 -6.992 -7.052 -7.116 + 14.0 0.00 -6.306 -6.324 -6.349 -6.377 -6.306 -6.324 -6.349 -6.377 + 14.5 0.00 -6.055 -6.058 -6.073 -6.095 -6.055 -6.058 -6.073 -6.095 + 15.0 0.00 -5.644 -5.637 -5.644 -5.662 -5.644 -5.637 -5.644 -5.662 + 15.5 0.00 -5.311 -5.292 -5.288 -5.295 -5.311 -5.292 -5.288 -5.295 + 16.0 0.00 -4.797 -4.779 -4.778 -4.785 -4.797 -4.779 -4.778 -4.785 + 13.0 30.00 -7.198 -7.247 -7.306 -7.366 -7.198 -7.247 -7.306 -7.366 + 13.5 30.00 -6.748 -6.799 -6.859 -6.923 -6.748 -6.799 -6.859 -6.923 + 14.0 30.00 -6.112 -6.130 -6.155 -6.183 -6.112 -6.130 -6.155 -6.183 + 14.5 30.00 -5.861 -5.864 -5.879 -5.901 -5.861 -5.864 -5.879 -5.901 + 15.0 30.00 -5.450 -5.444 -5.450 -5.469 -5.450 -5.444 -5.450 -5.469 + 15.5 30.00 -5.117 -5.098 -5.094 -5.102 -5.117 -5.098 -5.094 -5.102 + 16.0 30.00 -4.603 -4.585 -4.584 -4.591 -4.603 -4.585 -4.584 -4.591 + 13.0 50.00 -7.040 -7.089 -7.147 -7.208 -7.040 -7.089 -7.147 -7.208 + 13.5 50.00 -6.589 -6.640 -6.700 -6.764 -6.589 -6.640 -6.700 -6.764 + 14.0 50.00 -5.954 -5.971 -5.997 -6.025 -5.954 -5.971 -5.997 -6.025 + 14.5 50.00 -5.702 -5.706 -5.720 -5.743 -5.702 -5.706 -5.720 -5.743 + 15.0 50.00 -5.291 -5.285 -5.291 -5.310 -5.291 -5.285 -5.291 -5.310 + 15.5 50.00 -4.959 -4.939 -4.936 -4.943 -4.959 -4.939 -4.936 -4.943 + 16.0 50.00 -4.445 -4.427 -4.426 -4.433 -4.445 -4.427 -4.426 -4.433 + 13.0 70.00 -6.846 -6.895 -6.953 -7.014 -6.846 -6.895 -6.953 -7.014 + 13.5 70.00 -6.396 -6.446 -6.506 -6.570 -6.396 -6.446 -6.506 -6.570 + 14.0 70.00 -5.760 -5.778 -5.803 -5.831 -5.760 -5.778 -5.803 -5.831 + 14.5 70.00 -5.509 -5.512 -5.527 -5.549 -5.509 -5.512 -5.527 -5.549 + 15.0 70.00 -5.098 -5.091 -5.098 -5.116 -5.098 -5.091 -5.098 -5.116 + 15.5 70.00 -4.706 -4.693 -4.693 -4.706 -4.706 -4.693 -4.693 -4.706 + 16.0 70.00 -4.195 -4.181 -4.181 -4.194 -4.195 -4.181 -4.181 -4.194 + 13.0 80.00 -6.730 -6.779 -6.837 -6.898 -6.730 -6.779 -6.837 -6.898 + 13.5 80.00 -6.280 -6.330 -6.390 -6.455 -6.280 -6.330 -6.390 -6.455 + 14.0 80.00 -5.644 -5.662 -5.687 -5.715 -5.644 -5.662 -5.687 -5.715 + 14.5 80.00 -5.393 -5.396 -5.411 -5.433 -5.393 -5.396 -5.411 -5.433 + 15.0 80.00 -4.982 -4.976 -4.982 -5.000 -4.982 -4.976 -4.982 -5.000 + 15.5 80.00 -4.554 -4.544 -4.548 -4.564 -4.554 -4.544 -4.548 -4.564 + 16.0 80.00 -4.046 -4.034 -4.037 -4.051 -4.046 -4.034 -4.037 -4.051 + 13.0 90.00 -6.596 -6.645 -6.703 -6.764 -6.596 -6.645 -6.703 -6.764 + 13.5 90.00 -6.146 -6.196 -6.256 -6.321 -6.146 -6.196 -6.256 -6.321 + 14.0 90.00 -5.510 -5.528 -5.553 -5.581 -5.510 -5.528 -5.553 -5.581 + 14.5 90.00 -5.259 -5.262 -5.277 -5.299 -5.259 -5.262 -5.277 -5.299 + 15.0 90.00 -4.848 -4.842 -4.848 -4.866 -4.848 -4.842 -4.848 -4.866 + 15.5 90.00 -4.380 -4.373 -4.380 -4.398 -4.380 -4.373 -4.380 -4.398 + 16.0 90.00 -3.873 -3.863 -3.870 -3.886 -3.873 -3.863 -3.870 -3.886 + 13.0 95.00 -6.521 -6.570 -6.628 -6.688 -6.521 -6.570 -6.628 -6.688 + 13.5 95.00 -6.070 -6.121 -6.181 -6.245 -6.070 -6.121 -6.181 -6.245 + 14.0 95.00 -5.435 -5.452 -5.477 -5.506 -5.435 -5.452 -5.477 -5.506 + 14.5 95.00 -5.183 -5.187 -5.201 -5.223 -5.183 -5.187 -5.201 -5.223 + 15.0 95.00 -4.750 -4.745 -4.752 -4.772 -4.750 -4.745 -4.752 -4.772 + 15.5 95.00 -4.276 -4.271 -4.280 -4.299 -4.276 -4.271 -4.280 -4.299 + 16.0 95.00 -3.769 -3.763 -3.768 -3.784 -3.769 -3.763 -3.768 -3.784 + 13.0 100.00 -6.438 -6.487 -6.545 -6.606 -6.438 -6.487 -6.545 -6.606 + 13.5 100.00 -5.987 -6.038 -6.098 -6.162 -5.987 -6.038 -6.098 -6.162 + 14.0 100.00 -5.352 -5.369 -5.394 -5.423 -5.352 -5.369 -5.394 -5.423 + 14.5 100.00 -5.100 -5.104 -5.118 -5.141 -5.100 -5.104 -5.118 -5.141 + 15.0 100.00 -4.640 -4.638 -4.648 -4.670 -4.640 -4.638 -4.648 -4.670 + 15.5 100.00 -4.172 -4.170 -4.181 -4.201 -4.172 -4.170 -4.181 -4.201 + 16.0 100.00 -3.665 -3.664 -3.665 -3.682 -3.665 -3.664 -3.665 -3.682 + 13.0 105.00 -6.346 -6.395 -6.454 -6.514 -6.346 -6.395 -6.454 -6.514 + 13.5 105.00 -5.896 -5.947 -6.007 -6.071 -5.896 -5.947 -6.007 -6.071 + 14.0 105.00 -5.260 -5.278 -5.303 -5.332 -5.260 -5.278 -5.303 -5.332 + 14.5 105.00 -5.009 -5.012 -5.027 -5.049 -5.009 -5.012 -5.027 -5.049 + 15.0 105.00 -4.520 -4.520 -4.533 -4.554 -4.520 -4.520 -4.533 -4.554 + 15.5 105.00 -4.052 -4.052 -4.065 -4.086 -4.052 -4.052 -4.065 -4.086 + 16.0 105.00 -3.542 -3.538 -3.545 -3.564 -3.542 -3.538 -3.545 -3.564 + 13.0 110.00 -6.244 -6.293 -6.351 -6.412 -6.244 -6.293 -6.351 -6.412 + 13.5 110.00 -5.793 -5.844 -5.904 -5.968 -5.793 -5.844 -5.904 -5.968 + 14.0 110.00 -5.158 -5.175 -5.201 -5.229 -5.158 -5.175 -5.201 -5.229 + 14.5 110.00 -4.907 -4.910 -4.924 -4.947 -4.907 -4.910 -4.924 -4.947 + 15.0 110.00 -4.385 -4.387 -4.402 -4.426 -4.385 -4.387 -4.402 -4.426 + 15.5 110.00 -3.917 -3.917 -3.959 -3.955 -3.917 -3.917 -3.959 -3.955 + 16.0 110.00 -3.411 -3.409 -3.419 -3.438 -3.411 -3.409 -3.419 -3.438 + 13.0 115.00 -6.128 -6.177 -6.235 -6.296 -6.128 -6.177 -6.235 -6.296 + 13.5 115.00 -5.677 -5.728 -5.788 -5.852 -5.677 -5.728 -5.788 -5.852 + 14.0 115.00 -5.042 -5.060 -5.085 -5.113 -5.042 -5.060 -5.085 -5.113 + 14.5 115.00 -4.752 -4.760 -4.775 -4.801 -4.752 -4.760 -4.775 -4.801 + 15.0 115.00 -4.230 -4.237 -4.253 -4.278 -4.230 -4.237 -4.253 -4.278 + 15.5 115.00 -3.762 -3.770 -3.785 -3.810 -3.762 -3.770 -3.785 -3.810 + 16.0 115.00 -3.268 -3.266 -3.276 -3.298 -3.268 -3.266 -3.276 -3.298 + 13.0 120.00 -5.994 -6.043 -6.102 -6.162 -5.994 -6.043 -6.102 -6.162 + 13.5 120.00 -5.544 -5.595 -5.654 -5.719 -5.544 -5.595 -5.654 -5.719 + 14.0 120.00 -4.908 -4.926 -4.951 -4.979 -4.908 -4.926 -4.951 -4.979 + 14.5 120.00 -4.574 -4.583 -4.602 -4.629 -4.574 -4.583 -4.602 -4.629 + 15.0 120.00 -4.050 -4.060 -4.079 -4.105 -4.050 -4.060 -4.079 -4.105 + 15.5 120.00 -3.599 -3.602 -3.631 -3.656 -3.582 -3.585 -3.613 -3.636 + 16.0 120.00 -3.100 -3.098 -3.109 -3.130 -3.100 -3.098 -3.109 -3.130 + 13.0 125.00 -5.836 -5.885 -5.943 -6.003 -5.836 -5.885 -5.943 -6.003 + 13.5 125.00 -5.385 -5.436 -5.496 -5.560 -5.385 -5.436 -5.496 -5.560 + 14.0 125.00 -4.750 -4.767 -4.792 -4.821 -4.750 -4.767 -4.792 -4.821 + 14.5 125.00 -4.355 -4.369 -4.390 -4.418 -4.355 -4.369 -4.390 -4.418 + 15.0 125.00 -3.833 -3.845 -3.866 -3.896 -3.833 -3.845 -3.866 -3.896 + 15.5 125.00 -3.351 -3.368 -3.399 -3.446 -3.337 -3.362 -3.379 -3.417 + 16.0 125.00 -2.889 -2.886 -2.893 -2.914 -2.889 -2.886 -2.893 -2.914 + 13.0 130.00 -5.642 -5.691 -5.749 -5.810 -5.642 -5.691 -5.749 -5.810 + 13.5 130.00 -5.192 -5.242 -5.302 -5.366 -5.192 -5.242 -5.302 -5.366 + 14.0 130.00 -4.556 -4.574 -4.599 -4.627 -4.556 -4.574 -4.599 -4.627 + 14.5 130.00 -4.081 -4.106 -4.143 -4.190 -4.079 -4.100 -4.130 -4.168 + 15.0 130.00 -3.553 -3.575 -3.609 -3.642 -3.553 -3.572 -3.599 -3.633 + 15.5 130.00 -3.073 -3.092 -3.125 -3.171 -3.056 -3.074 -3.103 -3.141 + 16.0 130.00 -2.613 -2.600 -2.604 -2.611 -2.613 -2.600 -2.604 -2.611 + 13.0 132.00 -5.550 -5.599 -5.658 -5.718 -5.550 -5.599 -5.658 -5.718 + 13.5 132.00 -5.100 -5.151 -5.211 -5.275 -5.100 -5.151 -5.211 -5.275 + 14.0 132.00 -4.420 -4.440 -4.466 -4.494 -4.420 -4.440 -4.466 -4.494 + 14.5 132.00 -3.939 -3.967 -4.005 -4.054 -3.813 -3.963 -3.991 -4.031 + 15.0 132.00 -3.413 -3.439 -3.476 -3.526 -3.410 -3.443 -3.461 -3.500 + 15.5 132.00 -2.935 -2.955 -2.987 -3.033 -2.917 -2.943 -2.963 -3.000 + 16.0 132.00 -2.478 -2.465 -2.462 -2.466 -2.478 -2.465 -2.462 -2.466 + 13.0 134.00 -5.448 -5.497 -5.556 -5.616 -5.448 -5.497 -5.556 -5.616 + 13.5 134.00 -4.998 -5.049 -5.108 -5.173 -4.998 -5.049 -5.108 -5.173 + 14.0 134.00 -4.256 -4.278 -4.305 -4.332 -4.256 -4.278 -4.305 -4.332 + 14.5 134.00 -3.777 -3.804 -3.848 -3.896 -3.775 -3.799 -3.833 -3.870 + 15.0 134.00 -3.257 -3.282 -3.318 -3.366 -3.254 -3.274 -3.303 -3.341 + 15.5 134.00 -2.767 -2.783 -2.815 -2.860 -2.750 -2.762 -2.790 -2.827 + 16.0 134.00 -2.323 -2.303 -2.295 -2.292 -2.323 -2.303 -2.295 -2.292 + 13.0 135.00 -5.392 -5.441 -5.499 -5.560 -5.392 -5.441 -5.499 -5.560 + 13.5 135.00 -4.942 -4.992 -5.052 -5.116 -4.942 -4.992 -5.052 -5.116 + 14.0 135.00 -4.159 -4.190 -4.230 -4.275 -4.152 -4.171 -4.208 -4.245 + 14.5 135.00 -3.671 -3.697 -3.737 -3.785 -3.667 -3.691 -3.722 -3.758 + 15.0 135.00 -3.147 -3.170 -3.204 -3.251 -3.144 -3.162 -3.190 -3.225 + 15.5 135.00 -2.654 -2.665 -2.694 -2.734 -2.635 -2.645 -2.669 -2.700 + 16.0 135.00 -2.219 -2.203 -2.178 -2.169 -2.219 -2.203 -2.178 -2.169 + 13.0 136.00 -5.332 -5.381 -5.439 -5.500 -5.332 -5.381 -5.439 -5.500 + 13.5 136.00 -4.882 -4.932 -4.992 -5.056 -4.882 -4.932 -4.992 -5.056 + 14.0 136.00 -4.061 -4.102 -4.155 -4.218 -4.048 -4.063 -4.112 -4.157 + 14.5 136.00 -3.564 -3.590 -3.627 -3.674 -3.559 -3.583 -3.611 -3.646 + 15.0 136.00 -3.037 -3.058 -3.091 -3.135 -3.033 -3.050 -3.076 -3.109 + 15.5 136.00 -2.541 -2.548 -2.572 -2.607 -2.521 -2.529 -2.547 -2.573 + 16.0 136.00 -2.131 -2.109 -2.081 -2.068 -2.131 -2.109 -2.081 -2.068 + 13.0 138.00 -5.198 -5.247 -5.306 -5.366 -5.198 -5.247 -5.306 -5.366 + 13.5 138.00 -4.748 -4.799 -4.859 -4.923 -4.748 -4.799 -4.859 -4.923 + 14.0 138.00 -3.640 -3.668 -3.703 -3.750 -3.635 -3.654 -3.676 -3.708 + 14.5 138.00 -3.161 -3.180 -3.208 -3.249 -3.158 -3.170 -3.186 -3.211 + 15.0 138.00 -2.602 -2.620 -2.652 -2.699 -2.599 -2.602 -2.622 -2.652 + 15.5 138.00 -2.225 -2.223 -2.237 -2.268 -2.179 -2.173 -2.177 -2.194 + 16.0 138.00 -2.104 -2.084 -2.065 -2.044 -2.104 -2.084 -2.065 -2.044 + 13.0 140.00 -5.040 -5.089 -5.147 -5.208 -5.040 -5.089 -5.147 -5.208 + 13.5 140.00 -4.589 -4.640 -4.700 -4.764 -4.589 -4.640 -4.700 -4.764 + 14.0 140.00 -4.040 -4.097 -4.159 -4.218 -4.047 -4.107 -4.173 -4.236 + 14.5 140.00 -3.513 -3.500 -3.472 -3.448 -3.575 -3.575 -3.564 -3.527 + 15.0 140.00 -3.007 -3.002 -2.987 -2.979 -3.039 -3.056 -3.057 -3.040 + 15.5 140.00 -2.577 -2.582 -2.590 -2.602 -2.588 -2.604 -2.618 -2.629 + 16.0 140.00 -2.182 -2.182 -2.199 -2.228 -2.182 -2.182 -2.199 -2.228 + 13.0 141.00 -4.948 -4.997 -5.056 -5.116 -4.948 -4.997 -5.056 -5.116 + 13.5 141.00 -4.498 -4.549 -4.609 -4.673 -4.498 -4.549 -4.609 -4.673 + 14.0 141.00 -3.809 -3.861 -3.918 -3.973 -3.971 -4.028 -4.096 -4.168 + 14.5 141.00 -3.458 -3.481 -3.500 -3.523 -3.489 -3.519 -3.547 -3.565 + 15.0 141.00 -2.920 -2.939 -2.956 -2.979 -2.936 -2.966 -2.993 -3.007 + 15.5 141.00 -2.511 -2.528 -2.554 -2.585 -2.517 -2.539 -2.568 -2.600 + 16.0 141.00 -2.112 -2.113 -2.131 -2.162 -2.112 -2.113 -2.131 -2.162 + 13.0 142.00 -4.846 -4.895 -4.953 -5.014 -4.846 -4.895 -4.953 -5.014 + 13.5 142.00 -4.396 -4.446 -4.506 -4.570 -4.396 -4.446 -4.506 -4.570 + 14.0 142.00 -3.578 -3.625 -3.677 -3.727 -3.876 -3.932 -3.996 -4.065 + 14.5 142.00 -3.402 -3.461 -3.527 -3.597 -3.402 -3.462 -3.530 -3.602 + 15.0 142.00 -2.833 -2.876 -2.924 -2.979 -2.833 -2.876 -2.928 -2.975 + 15.5 142.00 -2.445 -2.474 -2.517 -2.569 -2.445 -2.475 -2.517 -2.570 + 16.0 142.00 -2.041 -2.044 -2.063 -2.096 -2.041 -2.044 -2.063 -2.096 + 13.0 143.00 -4.730 -4.779 -4.837 -4.898 -4.730 -4.779 -4.837 -4.898 + 13.5 143.00 -4.280 -4.330 -4.390 -4.455 -4.280 -4.330 -4.390 -4.455 + 14.0 143.00 -3.347 -3.389 -3.435 -3.481 -3.760 -3.813 -3.876 -3.943 + 14.5 143.00 -3.271 -3.326 -3.389 -3.456 -3.271 -3.326 -3.391 -3.459 + 15.0 143.00 -2.664 -2.702 -2.744 -2.791 -2.664 -2.702 -2.746 -2.789 + 15.5 143.00 -2.322 -2.352 -2.398 -2.455 -2.314 -2.345 -2.390 -2.446 + 16.0 143.00 -1.907 -1.905 -1.919 -1.946 -1.907 -1.905 -1.919 -1.946 + 13.0 144.00 -4.596 -4.645 -4.703 -4.764 -4.596 -4.645 -4.703 -4.764 + 13.5 144.00 -4.146 -4.196 -4.256 -4.321 -4.146 -4.196 -4.256 -4.321 + 14.0 144.00 -3.117 -3.153 -3.194 -3.235 -3.618 -3.670 -3.728 -3.793 + 14.5 144.00 -3.140 -3.190 -3.251 -3.315 -3.140 -3.190 -3.251 -3.315 + 15.0 144.00 -2.495 -2.527 -2.564 -2.604 -2.495 -2.527 -2.564 -2.604 + 15.5 144.00 -2.200 -2.231 -2.278 -2.342 -2.183 -2.215 -2.262 -2.322 + 16.0 144.00 -1.772 -1.767 -1.775 -1.796 -1.772 -1.767 -1.775 -1.796 + 13.0 145.00 -4.438 -4.487 -4.545 -4.606 -4.438 -4.487 -4.545 -4.606 + 13.5 145.00 -3.935 -3.983 -4.038 -4.094 -3.935 -3.983 -4.038 -4.094 + 14.0 145.00 -2.886 -2.917 -2.953 -2.990 -3.414 -3.461 -3.514 -3.572 + 14.5 145.00 -2.943 -2.987 -3.041 -3.096 -2.943 -2.987 -3.041 -3.095 + 15.0 145.00 -2.268 -2.296 -2.329 -2.365 -2.268 -2.295 -2.328 -2.364 + 15.5 145.00 -1.971 -1.991 -2.025 -2.072 -1.963 -1.979 -2.014 -2.057 + 16.0 145.00 -1.583 -1.567 -1.562 -1.565 -1.583 -1.567 -1.562 -1.565 + 13.0 145.50 -4.271 -4.318 -4.370 -4.423 -4.271 -4.318 -4.370 -4.423 + 13.5 145.50 -3.784 -3.829 -3.879 -3.930 -3.784 -3.829 -3.879 -3.930 + 14.0 145.50 -2.770 -2.799 -2.832 -2.867 -3.263 -3.304 -3.350 -3.397 + 14.5 145.50 -2.802 -2.840 -2.885 -2.925 -2.802 -2.841 -2.886 -2.927 + 15.0 145.50 -2.205 -2.230 -2.260 -2.291 -2.205 -2.231 -2.258 -2.291 + 15.5 145.50 -1.826 -1.838 -1.863 -1.900 -1.814 -1.827 -1.853 -1.885 + 16.0 145.50 -1.485 -1.463 -1.448 -1.440 -1.485 -1.463 -1.448 -1.440 + 13.0 146.00 -4.105 -4.148 -4.194 -4.241 -4.105 -4.148 -4.194 -4.241 + 13.5 146.00 -3.633 -3.676 -3.721 -3.767 -3.633 -3.676 -3.721 -3.767 + 14.0 146.00 -2.655 -2.681 -2.711 -2.744 -3.117 -3.154 -3.196 -3.238 + 14.5 146.00 -2.661 -2.693 -2.728 -2.754 -2.661 -2.695 -2.730 -2.760 + 15.0 146.00 -2.143 -2.164 -2.191 -2.218 -2.143 -2.166 -2.188 -2.218 + 15.5 146.00 -1.682 -1.684 -1.701 -1.728 -1.666 -1.676 -1.692 -1.712 + 16.0 146.00 -1.386 -1.359 -1.334 -1.314 -1.386 -1.359 -1.334 -1.314 + 13.0 146.50 -3.935 -3.979 -4.020 -4.062 -3.935 -3.979 -4.020 -4.062 + 13.5 146.50 -3.462 -3.502 -3.544 -3.585 -3.462 -3.502 -3.544 -3.585 + 14.0 146.50 -2.539 -2.563 -2.590 -2.621 -2.959 -2.996 -3.034 -3.073 + 14.5 146.50 -2.467 -2.486 -2.508 -2.526 -2.475 -2.499 -2.520 -2.539 + 15.0 146.50 -1.963 -1.971 -1.983 -1.996 -1.967 -1.991 -1.991 -2.005 + 15.5 146.50 -1.519 -1.511 -1.521 -1.550 -1.502 -1.500 -1.509 -1.517 + 16.0 146.50 -1.296 -1.266 -1.236 -1.207 -1.296 -1.266 -1.236 -1.207 + 13.0 147.00 -3.747 -3.785 -3.821 -3.860 -3.747 -3.785 -3.821 -3.860 + 13.5 147.00 -3.273 -3.310 -3.347 -3.384 -3.273 -3.310 -3.347 -3.384 + 14.0 147.00 -2.424 -2.445 -2.470 -2.498 -2.760 -2.790 -2.824 -2.857 + 14.5 147.00 -2.273 -2.280 -2.288 -2.298 -2.289 -2.303 -2.310 -2.318 + 15.0 147.00 -1.762 -1.767 -1.772 -1.785 -1.770 -1.775 -1.780 -1.785 + 15.5 147.00 -1.344 -1.332 -1.338 -1.344 -1.324 -1.314 -1.314 -1.323 + 16.0 147.00 -1.223 -1.196 -1.167 -1.136 -1.223 -1.196 -1.167 -1.136 + 13.0 147.20 -3.655 -3.691 -3.725 -3.761 -3.655 -3.691 -3.725 -3.761 + 13.5 147.20 -3.178 -3.213 -3.247 -3.282 -3.178 -3.213 -3.247 -3.282 + 14.0 147.20 -2.378 -2.398 -2.421 -2.449 -2.667 -2.696 -2.728 -2.759 + 14.5 147.20 -2.175 -2.181 -2.189 -2.201 -2.188 -2.198 -2.204 -2.210 + 15.0 147.20 -1.665 -1.668 -1.675 -1.691 -1.672 -1.673 -1.677 -1.684 + 15.5 147.20 -1.275 -1.261 -1.266 -1.241 -1.251 -1.237 -1.234 -1.244 + 16.0 147.20 -1.208 -1.186 -1.161 -1.134 -1.208 -1.186 -1.161 -1.134 + 13.0 147.40 -3.563 -3.597 -3.630 -3.662 -3.563 -3.597 -3.630 -3.662 + 13.5 147.40 -3.082 -3.115 -3.148 -3.181 -3.082 -3.115 -3.148 -3.181 + 14.0 147.40 -2.332 -2.351 -2.373 -2.400 -2.574 -2.602 -2.632 -2.660 + 14.5 147.40 -2.077 -2.082 -2.090 -2.103 -2.087 -2.094 -2.098 -2.102 + 15.0 147.40 -1.567 -1.569 -1.577 -1.597 -1.574 -1.572 -1.574 -1.582 + 15.5 147.40 -1.206 -1.192 -1.197 -1.169 -1.178 -1.159 -1.156 -1.166 + 16.0 147.40 -1.192 -1.175 -1.155 -1.131 -1.192 -1.175 -1.155 -1.131 + 13.0 147.50 -3.517 -3.550 -3.582 -3.613 -3.517 -3.550 -3.582 -3.613 + 13.5 147.50 -3.035 -3.066 -3.099 -3.130 -3.035 -3.066 -3.099 -3.130 + 14.0 147.50 -2.309 -2.327 -2.349 -2.375 -2.527 -2.554 -2.583 -2.611 + 14.5 147.50 -2.028 -2.033 -2.041 -2.055 -2.036 -2.042 -2.045 -2.048 + 15.0 147.50 -1.519 -1.520 -1.529 -1.550 -1.526 -1.521 -1.523 -1.532 + 15.5 147.50 -1.174 -1.162 -1.166 -1.144 -1.142 -1.123 -1.120 -1.130 + 16.0 147.50 -1.184 -1.170 -1.152 -1.130 -1.184 -1.170 -1.152 -1.130 + 13.0 147.60 -3.455 -3.484 -3.513 -3.542 -3.456 -3.485 -3.514 -3.541 + 13.5 147.60 -2.968 -2.992 -3.022 -3.050 -2.969 -2.996 -3.022 -3.047 + 14.0 147.60 -2.286 -2.303 -2.325 -2.351 -2.462 -2.486 -2.511 -2.535 + 14.5 147.60 -1.964 -1.970 -1.979 -1.995 -1.971 -1.975 -1.979 -1.982 + 15.0 147.60 -1.461 -1.462 -1.471 -1.496 -1.467 -1.461 -1.462 -1.472 + 15.5 147.60 -1.143 -1.131 -1.135 -1.120 -1.107 -1.086 -1.083 -1.095 + 16.0 147.60 -1.188 -1.179 -1.165 -1.149 -1.188 -1.179 -1.165 -1.149 + 13.0 147.80 -3.330 -3.353 -3.376 -3.400 -3.333 -3.356 -3.378 -3.398 + 13.5 147.80 -2.833 -2.842 -2.868 -2.890 -2.839 -2.854 -2.869 -2.883 + 14.0 147.80 -2.239 -2.256 -2.277 -2.302 -2.332 -2.349 -2.367 -2.384 + 14.5 147.80 -1.836 -1.843 -1.855 -1.875 -1.840 -1.843 -1.845 -1.850 + 15.0 147.80 -1.345 -1.345 -1.357 -1.387 -1.349 -1.339 -1.340 -1.353 + 15.5 147.80 -1.089 -1.079 -1.086 -1.091 -1.043 -1.025 -1.022 -1.036 + 16.0 147.80 -1.195 -1.196 -1.192 -1.186 -1.195 -1.196 -1.192 -1.186 + 13.0 148.00 -3.205 -3.223 -3.240 -3.259 -3.210 -3.228 -3.243 -3.254 + 13.5 148.00 -2.699 -2.693 -2.714 -2.730 -2.708 -2.712 -2.717 -2.719 + 14.0 148.00 -2.193 -2.209 -2.228 -2.253 -2.202 -2.212 -2.223 -2.232 + 14.5 148.00 -1.708 -1.717 -1.730 -1.755 -1.710 -1.710 -1.712 -1.719 + 15.0 148.00 -1.220 -1.222 -1.235 -1.275 -1.213 -1.201 -1.204 -1.222 + 15.5 148.00 -1.052 -1.046 -1.055 -1.088 -0.996 -0.983 -0.983 -1.000 + 16.0 148.00 -1.202 -1.213 -1.220 -1.223 -1.202 -1.213 -1.220 -1.223 + 13.0 148.10 -3.110 -3.129 -3.149 -3.171 -3.115 -3.131 -3.144 -3.155 + 13.5 148.10 -2.608 -2.611 -2.628 -2.645 -2.618 -2.620 -2.625 -2.622 + 14.0 148.10 -2.105 -2.119 -2.138 -2.161 -2.110 -2.117 -2.128 -2.132 + 14.5 148.10 -1.617 -1.629 -1.647 -1.677 -1.616 -1.616 -1.621 -1.630 + 15.0 148.10 -1.163 -1.165 -1.181 -1.225 -1.145 -1.133 -1.138 -1.161 + 15.5 148.10 -1.045 -1.042 -1.052 -1.101 -0.985 -0.979 -0.981 -0.998 + 16.0 148.10 -1.217 -1.235 -1.250 -1.262 -1.217 -1.235 -1.250 -1.262 + 13.0 148.20 -3.015 -3.035 -3.059 -3.083 -3.020 -3.033 -3.046 -3.056 + 13.5 148.20 -2.517 -2.530 -2.542 -2.559 -2.527 -2.527 -2.533 -2.524 + 14.0 148.20 -2.016 -2.030 -2.047 -2.069 -2.017 -2.023 -2.033 -2.033 + 14.5 148.20 -1.527 -1.541 -1.564 -1.600 -1.523 -1.523 -1.530 -1.542 + 15.0 148.20 -1.106 -1.109 -1.126 -1.176 -1.076 -1.064 -1.072 -1.101 + 15.5 148.20 -1.039 -1.039 -1.049 -1.113 -0.975 -0.975 -0.979 -0.996 + 16.0 148.20 -1.232 -1.257 -1.279 -1.301 -1.232 -1.257 -1.279 -1.301 + 13.0 148.30 -2.898 -2.922 -2.947 -2.980 -2.896 -2.908 -2.918 -2.933 + 13.5 148.30 -2.412 -2.427 -2.441 -2.460 -2.411 -2.413 -2.417 -2.407 + 14.0 148.30 -1.890 -1.907 -1.931 -1.964 -1.885 -1.890 -1.901 -1.911 + 14.5 148.30 -1.421 -1.440 -1.472 -1.521 -1.409 -1.411 -1.425 -1.449 + 15.0 148.30 -1.071 -1.075 -1.096 -1.147 -1.030 -1.019 -1.031 -1.067 + 15.5 148.30 -1.048 -1.051 -1.061 -1.137 -0.990 -0.993 -0.998 -1.016 + 16.0 148.30 -1.246 -1.278 -1.309 -1.340 -1.246 -1.278 -1.309 -1.340 + 13.0 148.40 -2.783 -2.810 -2.836 -2.876 -2.772 -2.783 -2.790 -2.810 + 13.5 148.40 -2.283 -2.300 -2.317 -2.348 -2.268 -2.273 -2.270 -2.275 + 14.0 148.40 -1.765 -1.785 -1.815 -1.860 -1.752 -1.757 -1.770 -1.791 + 14.5 148.40 -1.313 -1.338 -1.384 -1.452 -1.277 -1.286 -1.315 -1.365 + 15.0 148.40 -1.035 -1.042 -1.066 -1.119 -0.983 -0.975 -0.991 -1.034 + 15.5 148.40 -1.059 -1.064 -1.074 -1.161 -1.006 -1.011 -1.018 -1.036 + 16.0 148.40 -1.261 -1.300 -1.339 -1.379 -1.261 -1.300 -1.339 -1.379 + 13.0 148.45 -2.697 -2.726 -2.763 -2.823 -2.680 -2.687 -2.705 -2.749 + 13.5 148.45 -2.192 -2.213 -2.243 -2.294 -2.168 -2.171 -2.181 -2.213 + 14.0 148.45 -1.677 -1.708 -1.753 -1.814 -1.652 -1.663 -1.692 -1.737 + 14.5 148.45 -1.267 -1.299 -1.352 -1.428 -1.216 -1.233 -1.276 -1.336 + 15.0 148.45 -1.036 -1.043 -1.066 -1.117 -0.983 -0.977 -0.993 -1.036 + 15.5 148.45 -1.071 -1.077 -1.086 -1.174 -1.026 -1.033 -1.041 -1.056 + 16.0 148.45 -1.268 -1.311 -1.354 -1.398 -1.268 -1.311 -1.354 -1.398 + 13.0 148.50 -2.611 -2.642 -2.690 -2.770 -2.588 -2.592 -2.620 -2.688 + 13.5 148.50 -2.101 -2.125 -2.169 -2.240 -2.068 -2.069 -2.093 -2.151 + 14.0 148.50 -1.590 -1.631 -1.690 -1.767 -1.551 -1.569 -1.614 -1.684 + 14.5 148.50 -1.222 -1.260 -1.320 -1.405 -1.154 -1.181 -1.236 -1.308 + 15.0 148.50 -1.037 -1.044 -1.066 -1.115 -0.983 -0.979 -0.996 -1.038 + 15.5 148.50 -1.084 -1.090 -1.099 -1.187 -1.046 -1.054 -1.063 -1.075 + 16.0 148.50 -1.276 -1.321 -1.369 -1.418 -1.276 -1.321 -1.369 -1.418 + 13.0 148.52 -2.563 -2.603 -2.664 -2.753 -2.529 -2.549 -2.593 -2.672 + 13.5 148.52 -2.051 -2.085 -2.142 -2.223 -2.009 -2.020 -2.060 -2.132 + 14.0 148.52 -1.556 -1.603 -1.671 -1.753 -1.505 -1.533 -1.590 -1.669 + 14.5 148.52 -1.219 -1.258 -1.316 -1.401 -1.151 -1.178 -1.234 -1.306 + 15.0 148.52 -1.044 -1.050 -1.071 -1.117 -0.995 -0.990 -1.005 -1.044 + 15.5 148.52 -1.089 -1.096 -1.104 -1.192 -1.054 -1.063 -1.072 -1.083 + 16.0 148.52 -1.277 -1.324 -1.372 -1.422 -1.277 -1.324 -1.372 -1.422 + 13.0 148.53 -2.540 -2.584 -2.650 -2.745 -2.499 -2.528 -2.580 -2.664 + 13.5 148.53 -2.025 -2.065 -2.128 -2.214 -1.980 -1.996 -2.044 -2.122 + 14.0 148.53 -1.539 -1.590 -1.661 -1.747 -1.482 -1.516 -1.577 -1.661 + 14.5 148.53 -1.217 -1.256 -1.315 -1.400 -1.149 -1.177 -1.233 -1.305 + 15.0 148.53 -1.048 -1.053 -1.074 -1.118 -1.001 -0.996 -1.010 -1.047 + 15.5 148.53 -1.092 -1.099 -1.106 -1.195 -1.058 -1.068 -1.076 -1.087 + 16.0 148.53 -1.278 -1.325 -1.373 -1.424 -1.278 -1.325 -1.373 -1.424 + 13.0 148.54 -2.516 -2.565 -2.637 -2.736 -2.470 -2.507 -2.567 -2.656 + 13.5 148.54 -2.000 -2.045 -2.114 -2.206 -1.950 -1.971 -2.028 -2.112 + 14.0 148.54 -1.522 -1.576 -1.652 -1.740 -1.459 -1.498 -1.565 -1.653 + 14.5 148.54 -1.216 -1.255 -1.313 -1.398 -1.148 -1.175 -1.232 -1.304 + 15.0 148.54 -1.051 -1.057 -1.076 -1.120 -1.007 -1.002 -1.015 -1.051 + 15.5 148.54 -1.094 -1.101 -1.109 -1.197 -1.062 -1.072 -1.081 -1.091 + 16.0 148.54 -1.279 -1.326 -1.375 -1.426 -1.279 -1.326 -1.375 -1.426 + 13.0 148.55 -2.492 -2.545 -2.623 -2.728 -2.440 -2.485 -2.553 -2.648 + 13.5 148.55 -1.975 -2.025 -2.101 -2.197 -1.921 -1.947 -2.012 -2.103 + 14.0 148.55 -1.505 -1.562 -1.642 -1.733 -1.435 -1.480 -1.553 -1.646 + 14.5 148.55 -1.214 -1.253 -1.312 -1.397 -1.146 -1.174 -1.231 -1.303 + 15.0 148.55 -1.055 -1.060 -1.079 -1.121 -1.013 -1.008 -1.020 -1.054 + 15.5 148.55 -1.097 -1.104 -1.111 -1.200 -1.066 -1.077 -1.085 -1.095 + 16.0 148.55 -1.279 -1.327 -1.376 -1.428 -1.279 -1.327 -1.376 -1.428 + 13.0 148.56 -2.467 -2.529 -2.614 -2.722 -2.410 -2.464 -2.540 -2.640 + 13.5 148.56 -1.951 -2.009 -2.091 -2.191 -1.890 -1.928 -2.001 -2.096 + 14.0 148.56 -1.492 -1.553 -1.635 -1.729 -1.419 -1.469 -1.545 -1.641 + 14.5 148.56 -1.213 -1.252 -1.310 -1.395 -1.144 -1.173 -1.230 -1.302 + 15.0 148.56 -1.059 -1.063 -1.081 -1.122 -1.020 -1.013 -1.025 -1.057 + 15.5 148.56 -1.099 -1.107 -1.114 -1.203 -1.070 -1.081 -1.089 -1.099 + 16.0 148.56 -1.280 -1.328 -1.378 -1.430 -1.280 -1.328 -1.378 -1.430 + 13.0 148.57 -2.443 -2.513 -2.604 -2.716 -2.381 -2.443 -2.527 -2.632 + 13.5 148.57 -1.926 -1.992 -2.080 -2.185 -1.859 -1.908 -1.989 -2.090 + 14.0 148.57 -1.480 -1.544 -1.629 -1.725 -1.403 -1.457 -1.538 -1.636 + 14.5 148.57 -1.211 -1.250 -1.308 -1.394 -1.142 -1.171 -1.229 -1.301 + 15.0 148.57 -1.062 -1.066 -1.084 -1.123 -1.026 -1.019 -1.030 -1.060 + 15.5 148.57 -1.102 -1.109 -1.116 -1.205 -1.074 -1.085 -1.094 -1.103 + 16.0 148.57 -1.281 -1.329 -1.379 -1.432 -1.281 -1.329 -1.379 -1.432 + 13.0 148.58 -2.418 -2.496 -2.594 -2.709 -2.351 -2.421 -2.513 -2.624 + 13.5 148.58 -1.902 -1.976 -2.070 -2.179 -1.829 -1.889 -1.978 -2.083 + 14.0 148.58 -1.467 -1.534 -1.622 -1.720 -1.386 -1.446 -1.531 -1.631 + 14.5 148.58 -1.210 -1.249 -1.307 -1.392 -1.141 -1.170 -1.228 -1.300 + 15.0 148.58 -1.066 -1.069 -1.086 -1.125 -1.032 -1.025 -1.035 -1.064 + 15.5 148.58 -1.105 -1.112 -1.119 -1.208 -1.078 -1.090 -1.098 -1.107 + 16.0 148.58 -1.282 -1.330 -1.381 -1.434 -1.282 -1.330 -1.381 -1.434 + 13.0 148.60 -2.369 -2.463 -2.575 -2.697 -2.292 -2.379 -2.487 -2.607 + 13.5 148.60 -1.854 -1.943 -2.050 -2.166 -1.767 -1.851 -1.955 -2.070 + 14.0 148.60 -1.442 -1.516 -1.609 -1.712 -1.354 -1.423 -1.516 -1.622 + 14.5 148.60 -1.207 -1.246 -1.304 -1.389 -1.137 -1.167 -1.225 -1.298 + 15.0 148.60 -1.073 -1.076 -1.091 -1.127 -1.044 -1.036 -1.045 -1.070 + 15.5 148.60 -1.110 -1.117 -1.124 -1.213 -1.086 -1.099 -1.107 -1.115 + 16.0 148.60 -1.283 -1.332 -1.384 -1.438 -1.283 -1.332 -1.384 -1.438 + 13.0 148.70 -2.355 -2.448 -2.559 -2.678 -2.294 -2.375 -2.479 -2.595 + 13.5 148.70 -1.842 -1.928 -2.031 -2.146 -1.765 -1.845 -1.947 -2.057 + 14.0 148.70 -1.485 -1.536 -1.611 -1.703 -1.432 -1.465 -1.535 -1.625 + 14.5 148.70 -1.298 -1.312 -1.343 -1.407 -1.291 -1.280 -1.299 -1.336 + 15.0 148.70 -1.139 -1.134 -1.136 -1.155 -1.152 -1.137 -1.129 -1.129 + 15.5 148.70 -1.138 -1.146 -1.149 -1.228 -1.135 -1.151 -1.158 -1.159 + 16.0 148.70 -1.290 -1.343 -1.399 -1.458 -1.290 -1.343 -1.399 -1.458 + 13.0 148.80 -2.627 -2.613 -2.642 -2.708 -2.682 -2.613 -2.602 -2.650 + 13.5 148.80 -2.100 -2.086 -2.113 -2.178 -2.149 -2.080 -2.072 -2.114 + 14.0 148.80 -1.686 -1.670 -1.686 -1.737 -1.742 -1.678 -1.660 -1.688 + 14.5 148.80 -1.435 -1.418 -1.416 -1.444 -1.505 -1.455 -1.423 -1.411 + 15.0 148.80 -1.205 -1.192 -1.181 -1.182 -1.260 -1.237 -1.212 -1.188 + 15.5 148.80 -1.167 -1.175 -1.175 -1.243 -1.185 -1.203 -1.210 -1.203 + 16.0 148.80 -1.298 -1.354 -1.414 -1.478 -1.298 -1.354 -1.414 -1.478 + 13.0 148.90 -2.796 -2.760 -2.750 -2.760 -2.900 -2.830 -2.764 -2.740 + 13.5 148.90 -2.286 -2.246 -2.224 -2.235 -2.399 -2.313 -2.242 -2.210 + 14.0 148.90 -1.802 -1.780 -1.778 -1.800 -1.876 -1.826 -1.796 -1.787 + 14.5 148.90 -1.542 -1.509 -1.484 -1.482 -1.642 -1.592 -1.538 -1.493 + 15.0 148.90 -1.235 -1.223 -1.207 -1.196 -1.297 -1.286 -1.263 -1.230 + 15.5 148.90 -1.176 -1.184 -1.184 -1.239 -1.206 -1.228 -1.235 -1.225 + 16.0 148.90 -1.305 -1.365 -1.429 -1.498 -1.305 -1.365 -1.429 -1.498 + 13.0 149.00 -2.860 -2.830 -2.813 -2.799 -2.955 -2.917 -2.863 -2.818 + 13.5 149.00 -2.366 -2.328 -2.299 -2.282 -2.475 -2.422 -2.358 -2.300 + 14.0 149.00 -1.917 -1.889 -1.870 -1.863 -2.010 -1.975 -1.932 -1.886 + 14.5 149.00 -1.587 -1.558 -1.520 -1.500 -1.674 -1.648 -1.607 -1.556 + 15.0 149.00 -1.266 -1.254 -1.234 -1.210 -1.334 -1.334 -1.313 -1.273 + 15.5 149.00 -1.186 -1.194 -1.193 -1.235 -1.226 -1.253 -1.260 -1.247 + 16.0 149.00 -1.313 -1.376 -1.444 -1.519 -1.313 -1.376 -1.444 -1.519 + 13.0 149.10 -2.835 -2.820 -2.803 -2.780 -2.906 -2.895 -2.860 -2.822 + 13.5 149.10 -2.289 -2.259 -2.228 -2.150 -2.383 -2.345 -2.289 -2.173 + 14.0 149.10 -1.919 -1.914 -1.899 -1.873 -1.978 -1.979 -1.962 -1.918 + 14.5 149.10 -1.554 -1.541 -1.503 -1.475 -1.620 -1.617 -1.598 -1.554 + 15.0 149.10 -1.233 -1.227 -1.210 -1.183 -1.288 -1.300 -1.289 -1.253 + 15.5 149.10 -1.162 -1.176 -1.177 -1.212 -1.197 -1.232 -1.243 -1.233 + 16.0 149.10 -1.299 -1.361 -1.426 -1.497 -1.299 -1.361 -1.426 -1.497 + 13.0 149.20 -2.810 -2.810 -2.793 -2.762 -2.857 -2.873 -2.857 -2.827 + 13.5 149.20 -2.211 -2.190 -2.157 -2.017 -2.291 -2.269 -2.221 -2.046 + 14.0 149.20 -1.921 -1.939 -1.928 -1.883 -1.947 -1.983 -1.991 -1.951 + 14.5 149.20 -1.521 -1.524 -1.487 -1.450 -1.567 -1.587 -1.588 -1.551 + 15.0 149.20 -1.200 -1.201 -1.186 -1.156 -1.243 -1.266 -1.265 -1.234 + 15.5 149.20 -1.139 -1.157 -1.161 -1.189 -1.168 -1.210 -1.226 -1.220 + 16.0 149.20 -1.285 -1.346 -1.408 -1.476 -1.285 -1.346 -1.408 -1.476 + 13.0 149.30 -2.702 -2.711 -2.692 -2.580 -2.740 -2.764 -2.755 -2.641 + 13.5 149.30 -2.134 -2.121 -2.086 -1.885 -2.199 -2.192 -2.153 -1.918 + 14.0 149.30 -1.801 -1.820 -1.810 -1.748 -1.827 -1.863 -1.872 -1.819 + 14.5 149.30 -1.420 -1.427 -1.401 -1.349 -1.458 -1.481 -1.486 -1.444 + 15.0 149.30 -1.119 -1.124 -1.113 -1.085 -1.153 -1.179 -1.182 -1.155 + 15.5 149.30 -1.092 -1.115 -1.123 -1.151 -1.112 -1.157 -1.179 -1.178 + 16.0 149.30 -1.272 -1.331 -1.391 -1.455 -1.272 -1.331 -1.391 -1.455 + 13.0 149.40 -2.595 -2.613 -2.590 -2.399 -2.623 -2.656 -2.654 -2.456 + 13.5 149.40 -2.056 -2.052 -2.014 -1.752 -2.107 -2.115 -2.084 -1.791 + 14.0 149.40 -1.682 -1.701 -1.692 -1.613 -1.708 -1.742 -1.752 -1.688 + 14.5 149.40 -1.318 -1.330 -1.314 -1.249 -1.350 -1.376 -1.383 -1.337 + 15.0 149.40 -1.037 -1.047 -1.040 -1.014 -1.064 -1.091 -1.099 -1.075 + 15.5 149.40 -1.046 -1.073 -1.086 -1.113 -1.056 -1.105 -1.131 -1.136 + 16.0 149.40 -1.258 -1.316 -1.373 -1.434 -1.258 -1.316 -1.373 -1.434 + 13.0 149.50 -2.412 -2.418 -2.284 -1.730 -2.441 -2.462 -2.337 -1.761 + 13.5 149.50 -1.979 -1.983 -1.943 -1.620 -2.015 -2.038 -2.016 -1.663 + 14.0 149.50 -1.500 -1.507 -1.466 -1.280 -1.529 -1.550 -1.524 -1.329 + 14.5 149.50 -1.176 -1.183 -1.161 -1.078 -1.206 -1.226 -1.222 -1.146 + 15.0 149.50 -0.928 -0.939 -0.936 -0.914 -0.947 -0.971 -0.979 -0.959 + 15.5 149.50 -0.989 -1.018 -1.037 -1.063 -0.988 -1.040 -1.067 -1.077 + 16.0 149.50 -1.245 -1.301 -1.356 -1.412 -1.245 -1.301 -1.356 -1.412 + 13.0 149.60 -2.228 -2.223 -1.979 -1.062 -2.260 -2.268 -2.020 -1.066 + 13.5 149.60 -1.737 -1.704 -1.459 -1.029 -1.773 -1.754 -1.504 -1.051 + 14.0 149.60 -1.319 -1.313 -1.240 -0.947 -1.350 -1.359 -1.297 -0.971 + 14.5 149.60 -1.000 -0.996 -0.959 -0.848 -1.031 -1.039 -1.012 -0.886 + 15.0 149.60 -0.801 -0.815 -0.815 -0.801 -0.815 -0.836 -0.842 -0.824 + 15.5 149.60 -0.932 -0.963 -0.987 -1.013 -0.921 -0.975 -1.003 -1.019 + 16.0 149.60 -1.221 -1.274 -1.324 -1.374 -1.221 -1.274 -1.324 -1.374 + 13.0 149.70 -1.947 -1.827 -1.053 -0.423 -1.979 -1.867 -1.061 -0.423 + 13.5 149.70 -1.496 -1.425 -0.975 -0.438 -1.532 -1.471 -0.991 -0.438 + 14.0 149.70 -1.056 -1.012 -0.821 -0.480 -1.090 -1.057 -0.851 -0.519 + 14.5 149.70 -0.777 -0.760 -0.697 -0.562 -0.807 -0.796 -0.728 -0.569 + 15.0 149.70 -0.658 -0.672 -0.680 -0.676 -0.665 -0.682 -0.686 -0.674 + 15.5 149.70 -0.867 -0.902 -0.930 -0.958 -0.853 -0.905 -0.933 -0.952 + 16.0 149.70 -1.197 -1.247 -1.292 -1.335 -1.197 -1.247 -1.292 -1.335 + 13.0 149.80 -1.390 -0.692 -0.168 0.045 -1.421 -0.701 -0.168 0.045 + 13.5 149.80 -1.019 -0.627 -0.192 0.017 -1.054 -0.640 -0.190 0.021 + 14.0 149.80 -0.658 -0.503 -0.250 -0.070 -0.690 -0.523 -0.249 -0.060 + 14.5 149.80 -0.483 -0.444 -0.366 -0.262 -0.506 -0.462 -0.364 -0.246 + 15.0 149.80 -0.503 -0.521 -0.536 -0.544 -0.500 -0.516 -0.521 -0.520 + 15.5 149.80 -0.801 -0.842 -0.873 -0.903 -0.785 -0.836 -0.863 -0.886 + 16.0 149.80 -1.173 -1.220 -1.260 -1.297 -1.173 -1.220 -1.260 -1.297 + 13.0 149.85 -0.644 -0.091 0.155 0.209 -0.652 -0.093 0.155 0.212 + 13.5 149.85 -0.516 -0.112 0.117 0.182 -0.532 -0.112 0.117 0.185 + 14.0 149.85 -0.300 -0.162 -0.009 0.073 -0.315 -0.166 -0.002 0.083 + 14.5 149.85 -0.300 -0.257 -0.190 -0.124 -0.313 -0.258 -0.175 -0.102 + 15.0 149.85 -0.428 -0.447 -0.465 -0.478 -0.420 -0.435 -0.444 -0.447 + 15.5 149.85 -0.773 -0.813 -0.845 -0.876 -0.756 -0.804 -0.831 -0.855 + 16.0 149.85 -1.161 -1.207 -1.244 -1.278 -1.161 -1.207 -1.244 -1.278 + 13.0 149.90 0.161 0.358 0.386 0.326 0.164 0.358 0.387 0.328 + 13.5 149.90 0.130 0.308 0.348 0.301 0.133 0.312 0.352 0.305 + 14.0 149.90 0.057 0.179 0.233 0.215 0.061 0.190 0.245 0.225 + 14.5 149.90 -0.096 -0.060 -0.024 -0.004 -0.094 -0.048 0.000 0.021 + 15.0 149.90 -0.353 -0.374 -0.394 -0.412 -0.339 -0.354 -0.366 -0.375 + 15.5 149.90 -0.745 -0.785 -0.816 -0.848 -0.727 -0.773 -0.799 -0.824 + 16.0 149.90 -1.149 -1.193 -1.228 -1.258 -1.149 -1.193 -1.228 -1.258 + 13.0 149.94 0.609 0.589 0.504 0.387 0.614 0.589 0.504 0.387 + 13.5 149.94 0.544 0.538 0.470 0.364 0.549 0.543 0.473 0.367 + 14.0 149.94 0.367 0.389 0.360 0.286 0.380 0.403 0.371 0.297 + 14.5 149.94 0.069 0.084 0.089 0.074 0.080 0.105 0.117 0.098 + 15.0 149.94 -0.302 -0.322 -0.343 -0.364 -0.287 -0.300 -0.313 -0.325 + 15.5 149.94 -0.722 -0.762 -0.794 -0.826 -0.704 -0.748 -0.774 -0.799 + 16.0 149.94 -1.140 -1.182 -1.215 -1.243 -1.140 -1.182 -1.215 -1.243 + 13.0 149.95 0.678 0.624 0.522 0.396 0.683 0.625 0.522 0.397 + 13.5 149.95 0.614 0.575 0.489 0.374 0.618 0.580 0.492 0.377 + 14.0 149.95 0.429 0.429 0.382 0.299 0.443 0.442 0.394 0.308 + 14.5 149.95 0.111 0.121 0.117 0.093 0.124 0.143 0.146 0.117 + 15.0 149.95 -0.289 -0.310 -0.330 -0.352 -0.273 -0.287 -0.299 -0.313 + 15.5 149.95 -0.716 -0.757 -0.788 -0.821 -0.698 -0.741 -0.767 -0.793 + 16.0 149.95 -1.138 -1.180 -1.212 -1.239 -1.138 -1.180 -1.212 -1.239 + 13.0 149.96 0.748 0.660 0.540 0.405 0.753 0.661 0.540 0.407 + 13.5 149.96 0.683 0.613 0.508 0.384 0.688 0.617 0.512 0.387 + 14.0 149.96 0.491 0.468 0.405 0.312 0.505 0.481 0.417 0.320 + 14.5 149.96 0.144 0.149 0.138 0.108 0.159 0.171 0.167 0.131 + 15.0 149.96 -0.277 -0.297 -0.317 -0.340 -0.260 -0.273 -0.286 -0.301 + 15.5 149.96 -0.711 -0.751 -0.782 -0.815 -0.693 -0.735 -0.761 -0.787 + 16.0 149.96 -1.135 -1.177 -1.209 -1.235 -1.135 -1.177 -1.209 -1.235 + 13.0 149.98 0.829 0.702 0.561 0.417 0.834 0.702 0.561 0.417 + 13.5 149.98 0.772 0.660 0.533 0.398 0.776 0.664 0.537 0.400 + 14.0 149.98 0.586 0.526 0.439 0.330 0.599 0.538 0.450 0.340 + 14.5 149.98 0.212 0.206 0.181 0.136 0.230 0.228 0.207 0.159 + 15.0 149.98 -0.252 -0.271 -0.292 -0.316 -0.234 -0.247 -0.259 -0.276 + 15.5 149.98 -0.700 -0.739 -0.771 -0.804 -0.681 -0.723 -0.748 -0.774 + 16.0 149.98 -1.130 -1.172 -1.202 -1.227 -1.130 -1.172 -1.202 -1.227 + 13.0 149.99 0.841 0.707 0.564 0.417 0.845 0.707 0.564 0.418 + 13.5 149.99 0.790 0.670 0.538 0.400 0.793 0.673 0.542 0.402 + 14.0 149.99 0.616 0.545 0.451 0.337 0.628 0.556 0.460 0.346 + 14.5 149.99 0.245 0.234 0.202 0.150 0.266 0.257 0.228 0.174 + 15.0 149.99 -0.239 -0.259 -0.280 -0.304 -0.221 -0.233 -0.246 -0.263 + 15.5 149.99 -0.694 -0.734 -0.765 -0.799 -0.675 -0.716 -0.742 -0.768 + 16.0 149.99 -1.128 -1.169 -1.199 -1.224 -1.128 -1.169 -1.199 -1.224 + 13.0 150.00 0.852 0.714 0.567 0.418 0.856 0.714 0.567 0.420 + 13.5 150.00 0.808 0.679 0.544 0.403 0.811 0.682 0.547 0.405 + 14.0 150.00 0.646 0.565 0.462 0.344 0.657 0.574 0.470 0.352 + 14.5 150.00 0.279 0.262 0.223 0.164 0.301 0.286 0.248 0.188 + 15.0 150.00 -0.226 -0.246 -0.267 -0.292 -0.208 -0.220 -0.233 -0.251 + 15.5 150.00 -0.688 -0.728 -0.760 -0.793 -0.670 -0.710 -0.735 -0.762 + 16.0 150.00 -1.125 -1.166 -1.196 -1.220 -1.125 -1.166 -1.196 -1.220 + 13.0 150.01 0.834 0.705 0.562 0.417 0.837 0.704 0.562 0.417 + 13.5 150.01 0.800 0.675 0.542 0.402 0.802 0.678 0.544 0.404 + 14.0 150.01 0.658 0.572 0.468 0.347 0.668 0.580 0.474 0.354 + 14.5 150.01 0.298 0.278 0.235 0.173 0.319 0.300 0.259 0.195 + 15.0 150.01 -0.218 -0.236 -0.257 -0.283 -0.199 -0.211 -0.223 -0.242 + 15.5 150.01 -0.685 -0.724 -0.755 -0.789 -0.666 -0.706 -0.730 -0.757 + 16.0 150.01 -1.123 -1.164 -1.193 -1.216 -1.123 -1.164 -1.193 -1.216 + 13.0 150.02 0.816 0.696 0.558 0.415 0.819 0.695 0.558 0.415 + 13.5 150.02 0.792 0.671 0.540 0.401 0.793 0.673 0.542 0.403 + 14.0 150.02 0.670 0.580 0.473 0.350 0.678 0.587 0.479 0.356 + 14.5 150.02 0.318 0.294 0.247 0.182 0.337 0.315 0.271 0.203 + 15.0 150.02 -0.209 -0.227 -0.247 -0.274 -0.191 -0.201 -0.214 -0.233 + 15.5 150.02 -0.681 -0.720 -0.751 -0.784 -0.662 -0.701 -0.726 -0.752 + 16.0 150.02 -1.121 -1.161 -1.190 -1.213 -1.121 -1.161 -1.190 -1.213 + 13.0 150.03 0.769 0.671 0.546 0.409 0.771 0.670 0.545 0.409 + 13.5 150.03 0.758 0.653 0.531 0.397 0.758 0.654 0.532 0.398 + 14.0 150.03 0.664 0.577 0.471 0.350 0.670 0.583 0.476 0.355 + 14.5 150.03 0.337 0.310 0.259 0.191 0.355 0.330 0.282 0.210 + 15.0 150.03 -0.200 -0.217 -0.237 -0.264 -0.183 -0.192 -0.204 -0.224 + 15.5 150.03 -0.677 -0.715 -0.746 -0.779 -0.658 -0.697 -0.721 -0.747 + 16.0 150.03 -1.119 -1.159 -1.187 -1.209 -1.119 -1.159 -1.187 -1.209 + 13.0 150.04 0.722 0.647 0.534 0.403 0.724 0.645 0.533 0.403 + 13.5 150.04 0.724 0.636 0.521 0.393 0.723 0.636 0.522 0.393 + 14.0 150.04 0.658 0.574 0.470 0.350 0.661 0.579 0.474 0.354 + 14.5 150.04 0.357 0.326 0.271 0.200 0.373 0.345 0.294 0.218 + 15.0 150.04 -0.191 -0.208 -0.227 -0.255 -0.174 -0.183 -0.195 -0.215 + 15.5 150.04 -0.674 -0.711 -0.742 -0.775 -0.654 -0.693 -0.716 -0.742 + 16.0 150.04 -1.117 -1.156 -1.184 -1.206 -1.117 -1.156 -1.184 -1.206 + 13.0 150.05 0.646 0.608 0.514 0.393 0.647 0.606 0.513 0.393 + 13.5 150.05 0.664 0.604 0.505 0.385 0.662 0.603 0.506 0.385 + 14.0 150.05 0.634 0.560 0.463 0.346 0.634 0.563 0.466 0.350 + 14.5 150.05 0.377 0.342 0.283 0.209 0.391 0.360 0.305 0.225 + 15.0 150.05 -0.183 -0.198 -0.218 -0.245 -0.166 -0.174 -0.185 -0.206 + 15.5 150.05 -0.670 -0.707 -0.737 -0.770 -0.651 -0.688 -0.711 -0.737 + 16.0 150.05 -1.115 -1.154 -1.181 -1.202 -1.115 -1.154 -1.181 -1.202 + 13.0 150.06 0.571 0.569 0.494 0.382 0.571 0.567 0.494 0.382 + 13.5 150.06 0.605 0.573 0.489 0.377 0.601 0.571 0.489 0.377 + 14.0 150.06 0.610 0.547 0.456 0.342 0.608 0.548 0.458 0.346 + 14.5 150.06 0.377 0.344 0.286 0.212 0.389 0.359 0.306 0.227 + 15.0 150.06 -0.174 -0.189 -0.208 -0.236 -0.157 -0.165 -0.176 -0.197 + 15.5 150.06 -0.666 -0.703 -0.733 -0.766 -0.647 -0.684 -0.707 -0.732 + 16.0 150.06 -1.113 -1.151 -1.178 -1.199 -1.113 -1.151 -1.178 -1.199 + 13.0 150.08 0.337 0.448 0.433 0.351 0.337 0.445 0.432 0.351 + 13.5 150.08 0.419 0.470 0.435 0.348 0.413 0.466 0.434 0.348 + 14.0 150.08 0.526 0.498 0.430 0.330 0.521 0.495 0.430 0.332 + 14.5 150.08 0.378 0.348 0.293 0.217 0.386 0.359 0.308 0.230 + 15.0 150.08 -0.156 -0.170 -0.188 -0.217 -0.140 -0.146 -0.156 -0.179 + 15.5 150.08 -0.659 -0.695 -0.724 -0.756 -0.639 -0.675 -0.697 -0.722 + 16.0 150.08 -1.108 -1.146 -1.172 -1.192 -1.108 -1.146 -1.172 -1.192 + 13.0 150.10 0.104 0.326 0.371 0.320 0.104 0.322 0.369 0.320 + 13.5 150.10 0.233 0.367 0.382 0.320 0.225 0.362 0.380 0.320 + 14.0 150.10 0.417 0.430 0.391 0.310 0.405 0.423 0.389 0.312 + 14.5 150.10 0.378 0.352 0.299 0.223 0.382 0.358 0.310 0.233 + 15.0 150.10 -0.139 -0.151 -0.168 -0.199 -0.124 -0.128 -0.137 -0.161 + 15.5 150.10 -0.651 -0.686 -0.715 -0.747 -0.632 -0.667 -0.688 -0.712 + 16.0 150.10 -1.104 -1.141 -1.166 -1.185 -1.104 -1.141 -1.166 -1.185 + 13.0 150.12 -0.212 0.142 0.275 0.272 -0.215 0.138 0.274 0.272 + 13.5 150.12 -0.008 0.211 0.297 0.277 -0.018 0.204 0.294 0.276 + 14.0 150.12 0.283 0.342 0.340 0.283 0.269 0.332 0.336 0.283 + 14.5 150.12 0.344 0.328 0.285 0.216 0.343 0.330 0.292 0.224 + 15.0 150.12 -0.132 -0.141 -0.157 -0.187 -0.118 -0.120 -0.128 -0.151 + 15.5 150.12 -0.644 -0.678 -0.706 -0.738 -0.624 -0.658 -0.678 -0.702 + 16.0 150.12 -1.100 -1.137 -1.161 -1.178 -1.100 -1.137 -1.161 -1.178 + 13.0 150.14 -0.528 -0.043 0.178 0.223 -0.533 -0.047 0.178 0.223 + 13.5 150.14 -0.250 0.054 0.213 0.234 -0.261 0.046 0.207 0.232 + 14.0 150.14 0.140 0.241 0.281 0.250 0.121 0.228 0.274 0.248 + 14.5 150.14 0.310 0.304 0.272 0.210 0.303 0.302 0.274 0.214 + 15.0 150.14 -0.125 -0.132 -0.146 -0.175 -0.113 -0.113 -0.119 -0.141 + 15.5 150.14 -0.637 -0.669 -0.697 -0.729 -0.616 -0.649 -0.669 -0.692 + 16.0 150.14 -1.096 -1.132 -1.155 -1.171 -1.096 -1.132 -1.155 -1.171 + 13.0 150.15 -0.686 -0.135 0.130 0.199 -0.692 -0.140 0.130 0.199 + 13.5 150.15 -0.371 -0.024 0.170 0.212 -0.382 -0.033 0.164 0.209 + 14.0 150.15 0.066 0.182 0.245 0.231 0.047 0.168 0.238 0.227 + 14.5 150.15 0.292 0.292 0.265 0.207 0.283 0.288 0.265 0.209 + 15.0 150.15 -0.122 -0.127 -0.140 -0.169 -0.110 -0.109 -0.114 -0.136 + 15.5 150.15 -0.633 -0.665 -0.692 -0.724 -0.613 -0.645 -0.664 -0.687 + 16.0 150.15 -1.094 -1.129 -1.152 -1.167 -1.094 -1.129 -1.152 -1.167 + 13.0 150.16 -0.814 -0.255 0.065 0.166 -0.821 -0.260 0.064 0.165 + 13.5 150.16 -0.467 -0.121 0.112 0.181 -0.477 -0.130 0.105 0.178 + 14.0 150.16 -0.009 0.124 0.209 0.212 -0.026 0.107 0.201 0.207 + 14.5 150.16 0.263 0.269 0.249 0.198 0.253 0.262 0.247 0.199 + 15.0 150.16 -0.118 -0.122 -0.134 -0.164 -0.107 -0.105 -0.110 -0.131 + 15.5 150.16 -0.629 -0.661 -0.688 -0.720 -0.609 -0.641 -0.659 -0.682 + 16.0 150.16 -1.091 -1.127 -1.149 -1.164 -1.091 -1.127 -1.149 -1.164 + 13.0 150.18 -1.070 -0.494 -0.066 0.100 -1.077 -0.500 -0.068 0.097 + 13.5 150.18 -0.659 -0.314 -0.006 0.119 -0.667 -0.325 -0.013 0.116 + 14.0 150.18 -0.144 -0.002 0.123 0.163 -0.160 -0.020 0.113 0.157 + 14.5 150.18 0.205 0.223 0.217 0.180 0.191 0.210 0.212 0.177 + 15.0 150.18 -0.111 -0.112 -0.123 -0.152 -0.102 -0.097 -0.101 -0.121 + 15.5 150.18 -0.622 -0.652 -0.679 -0.710 -0.601 -0.632 -0.650 -0.672 + 16.0 150.18 -1.087 -1.122 -1.143 -1.157 -1.087 -1.122 -1.143 -1.157 + 13.0 150.20 -1.326 -0.733 -0.197 0.033 -1.334 -0.740 -0.200 0.029 + 13.5 150.20 -0.851 -0.507 -0.123 0.057 -0.857 -0.520 -0.131 0.053 + 14.0 150.20 -0.278 -0.128 0.037 0.114 -0.293 -0.147 0.025 0.107 + 14.5 150.20 0.146 0.176 0.185 0.161 0.130 0.158 0.176 0.155 + 15.0 150.20 -0.104 -0.103 -0.112 -0.140 -0.096 -0.090 -0.091 -0.111 + 15.5 150.20 -0.614 -0.644 -0.670 -0.701 -0.594 -0.623 -0.640 -0.661 + 16.0 150.20 -1.083 -1.117 -1.137 -1.150 -1.083 -1.117 -1.137 -1.150 + 13.0 150.25 -1.618 -1.339 -0.607 -0.182 -1.622 -1.345 -0.611 -0.184 + 13.5 150.25 -1.122 -0.955 -0.480 -0.141 -1.125 -0.967 -0.491 -0.146 + 14.0 150.25 -0.504 -0.406 -0.223 -0.054 -0.514 -0.422 -0.239 -0.065 + 14.5 150.25 -0.022 0.021 0.068 0.086 -0.040 0.000 0.053 0.079 + 15.0 150.25 -0.114 -0.107 -0.109 -0.131 -0.111 -0.099 -0.095 -0.108 + 15.5 150.25 -0.605 -0.631 -0.655 -0.684 -0.586 -0.612 -0.626 -0.645 + 16.0 150.25 -1.072 -1.104 -1.122 -1.133 -1.072 -1.104 -1.122 -1.133 + 13.0 150.30 -1.801 -1.733 -1.077 -0.441 -1.801 -1.737 -1.082 -0.441 + 13.5 150.30 -1.305 -1.257 -0.867 -0.378 -1.307 -1.264 -0.879 -0.385 + 14.0 150.30 -0.730 -0.684 -0.483 -0.222 -0.735 -0.697 -0.503 -0.237 + 14.5 150.30 -0.184 -0.143 -0.072 -0.009 -0.201 -0.167 -0.096 -0.028 + 15.0 150.30 -0.124 -0.111 -0.106 -0.123 -0.125 -0.108 -0.098 -0.106 + 15.5 150.30 -0.596 -0.619 -0.639 -0.666 -0.579 -0.601 -0.613 -0.628 + 16.0 150.30 -1.061 -1.092 -1.108 -1.115 -1.061 -1.092 -1.108 -1.115 + 13.0 150.40 -2.065 -2.072 -1.914 -1.080 -2.063 -2.073 -1.921 -1.084 + 13.5 150.40 -1.574 -1.580 -1.487 -0.943 -1.572 -1.583 -1.496 -0.955 + 14.0 150.40 -1.014 -1.015 -0.939 -0.648 -1.015 -1.022 -0.955 -0.670 + 14.5 150.40 -0.460 -0.442 -0.378 -0.257 -0.471 -0.462 -0.407 -0.287 + 15.0 150.40 -0.187 -0.164 -0.146 -0.146 -0.193 -0.171 -0.151 -0.144 + 15.5 150.40 -0.578 -0.594 -0.609 -0.631 -0.564 -0.578 -0.585 -0.595 + 16.0 150.40 -1.040 -1.067 -1.079 -1.080 -1.040 -1.067 -1.079 -1.080 + 13.0 150.50 -2.265 -2.284 -2.273 -1.796 -2.261 -2.282 -2.276 -1.801 + 13.5 150.50 -1.756 -1.771 -1.731 -1.423 -1.754 -1.773 -1.735 -1.432 + 14.0 150.50 -1.224 -1.240 -1.226 -1.061 -1.223 -1.243 -1.236 -1.080 + 14.5 150.50 -0.678 -0.678 -0.646 -0.533 -0.684 -0.692 -0.670 -0.565 + 15.0 150.50 -0.275 -0.249 -0.223 -0.205 -0.283 -0.261 -0.237 -0.217 + 15.5 150.50 -0.576 -0.584 -0.593 -0.609 -0.565 -0.572 -0.573 -0.578 + 16.0 150.50 -1.019 -1.042 -1.049 -1.045 -1.019 -1.042 -1.049 -1.045 + 13.0 150.60 -2.427 -2.452 -2.462 -2.335 -2.422 -2.450 -2.463 -2.336 + 13.5 150.60 -1.939 -1.963 -1.975 -1.903 -1.936 -1.963 -1.975 -1.910 + 14.0 150.60 -1.393 -1.416 -1.423 -1.360 -1.391 -1.417 -1.428 -1.376 + 14.5 150.60 -0.854 -0.863 -0.854 -0.783 -0.857 -0.873 -0.873 -0.813 + 15.0 150.60 -0.374 -0.351 -0.322 -0.292 -0.383 -0.366 -0.343 -0.315 + 15.5 150.60 -0.573 -0.575 -0.577 -0.587 -0.565 -0.565 -0.561 -0.561 + 16.0 150.60 -1.207 -1.228 -1.232 -1.226 -1.207 -1.228 -1.232 -1.226 + 13.0 150.70 -2.557 -2.585 -2.600 -2.535 -2.552 -2.581 -2.601 -2.535 + 13.5 150.70 -2.069 -2.095 -2.114 -2.077 -2.064 -2.093 -2.113 -2.082 + 14.0 150.70 -1.510 -1.537 -1.550 -1.509 -1.509 -1.537 -1.553 -1.520 + 14.5 150.70 -0.990 -1.005 -1.006 -0.961 -0.991 -1.011 -1.020 -0.985 + 15.0 150.70 -0.475 -0.458 -0.433 -0.401 -0.483 -0.472 -0.456 -0.429 + 15.5 150.70 -0.584 -0.579 -0.576 -0.579 -0.579 -0.573 -0.564 -0.559 + 16.0 150.70 -1.395 -1.414 -1.414 -1.406 -1.395 -1.414 -1.414 -1.406 + 13.0 150.80 -2.686 -2.717 -2.737 -2.735 -2.682 -2.712 -2.737 -2.733 + 13.5 150.80 -2.199 -2.228 -2.253 -2.251 -2.193 -2.223 -2.252 -2.254 + 14.0 150.80 -1.628 -1.658 -1.677 -1.658 -1.626 -1.656 -1.678 -1.665 + 14.5 150.80 -1.126 -1.148 -1.159 -1.140 -1.125 -1.150 -1.168 -1.158 + 15.0 150.80 -0.577 -0.565 -0.545 -0.510 -0.583 -0.578 -0.569 -0.544 + 15.5 150.80 -0.595 -0.583 -0.575 -0.572 -0.592 -0.580 -0.567 -0.558 + 16.0 150.80 -1.583 -1.599 -1.597 -1.586 -1.583 -1.599 -1.597 -1.586 + 13.0 150.90 -2.786 -2.819 -2.842 -2.853 -2.781 -2.813 -2.838 -2.844 + 13.5 150.90 -2.300 -2.333 -2.361 -2.368 -2.295 -2.325 -2.355 -2.363 + 14.0 150.90 -1.746 -1.779 -1.804 -1.806 -1.743 -1.776 -1.803 -1.810 + 14.5 150.90 -1.233 -1.256 -1.271 -1.261 -1.231 -1.257 -1.277 -1.275 + 15.0 150.90 -0.671 -0.664 -0.651 -0.623 -0.675 -0.675 -0.673 -0.655 + 15.5 150.90 -0.623 -0.605 -0.592 -0.582 -0.621 -0.604 -0.589 -0.573 + 16.0 150.90 -1.771 -1.785 -1.780 -1.767 -1.771 -1.785 -1.780 -1.767 + 13.0 151.00 -2.886 -2.921 -2.947 -2.971 -2.879 -2.914 -2.939 -2.955 + 13.5 151.00 -2.402 -2.439 -2.470 -2.484 -2.396 -2.427 -2.457 -2.471 + 14.0 151.00 -1.863 -1.900 -1.932 -1.955 -1.860 -1.896 -1.928 -1.955 + 14.5 151.00 -1.339 -1.365 -1.383 -1.381 -1.337 -1.365 -1.387 -1.393 + 15.0 151.00 -0.765 -0.762 -0.757 -0.735 -0.767 -0.772 -0.777 -0.767 + 15.5 151.00 -0.650 -0.627 -0.609 -0.592 -0.650 -0.629 -0.611 -0.588 + 16.0 151.00 -1.959 -1.971 -1.963 -1.947 -1.959 -1.971 -1.963 -1.947 + 13.0 151.20 -3.038 -3.068 -3.097 -3.123 -3.038 -3.068 -3.097 -3.123 + 13.5 151.20 -2.548 -2.583 -2.613 -2.631 -2.544 -2.576 -2.605 -2.623 + 14.0 151.20 -2.011 -2.045 -2.077 -2.105 -2.009 -2.043 -2.075 -2.105 + 14.5 151.20 -1.489 -1.514 -1.536 -1.544 -1.488 -1.514 -1.538 -1.551 + 15.0 151.20 -0.928 -0.936 -0.947 -0.936 -0.928 -0.943 -0.959 -0.963 + 15.5 151.20 -0.714 -0.686 -0.664 -0.638 -0.714 -0.690 -0.672 -0.642 + 16.0 151.20 -1.557 -1.564 -1.555 -1.536 -1.557 -1.564 -1.555 -1.536 + 13.0 151.40 -3.174 -3.203 -3.233 -3.260 -3.174 -3.203 -3.233 -3.260 + 13.5 151.40 -2.694 -2.727 -2.755 -2.777 -2.693 -2.724 -2.753 -2.775 + 14.0 151.40 -2.158 -2.190 -2.223 -2.255 -2.158 -2.189 -2.222 -2.255 + 14.5 151.40 -1.639 -1.663 -1.688 -1.706 -1.639 -1.663 -1.689 -1.709 + 15.0 151.40 -1.073 -1.086 -1.105 -1.108 -1.073 -1.090 -1.114 -1.130 + 15.5 151.40 -0.780 -0.752 -0.730 -0.699 -0.780 -0.757 -0.740 -0.710 + 16.0 151.40 -1.156 -1.158 -1.147 -1.126 -1.156 -1.158 -1.147 -1.126 + 13.0 151.50 -3.243 -3.271 -3.301 -3.329 -3.243 -3.271 -3.301 -3.329 + 13.5 151.50 -2.767 -2.799 -2.827 -2.851 -2.767 -2.799 -2.827 -2.851 + 14.0 151.50 -2.232 -2.262 -2.296 -2.330 -2.232 -2.262 -2.296 -2.330 + 14.5 151.50 -1.714 -1.737 -1.765 -1.788 -1.714 -1.737 -1.765 -1.788 + 15.0 151.50 -1.145 -1.162 -1.184 -1.194 -1.145 -1.164 -1.192 -1.214 + 15.5 151.50 -0.814 -0.786 -0.766 -0.733 -0.814 -0.792 -0.775 -0.748 + 16.0 151.50 -0.955 -0.955 -0.943 -0.921 -0.955 -0.955 -0.943 -0.921 + 13.0 151.60 -3.296 -3.324 -3.355 -3.383 -3.296 -3.324 -3.355 -3.383 + 13.5 151.60 -2.821 -2.852 -2.881 -2.906 -2.821 -2.852 -2.881 -2.906 + 14.0 151.60 -2.285 -2.315 -2.349 -2.382 -2.285 -2.315 -2.349 -2.382 + 14.5 151.60 -1.770 -1.796 -1.828 -1.857 -1.770 -1.796 -1.828 -1.857 + 15.0 151.60 -1.202 -1.222 -1.247 -1.260 -1.202 -1.224 -1.254 -1.279 + 15.5 151.60 -0.848 -0.821 -0.801 -0.767 -0.848 -0.827 -0.810 -0.785 + 16.0 151.60 -0.961 -0.960 -0.948 -0.926 -0.961 -0.960 -0.948 -0.926 + 13.0 151.80 -3.403 -3.431 -3.463 -3.492 -3.403 -3.431 -3.463 -3.492 + 13.5 151.80 -2.928 -2.958 -2.989 -3.017 -2.928 -2.958 -2.989 -3.017 + 14.0 151.80 -2.391 -2.420 -2.454 -2.487 -2.391 -2.420 -2.454 -2.487 + 14.5 151.80 -1.881 -1.914 -1.954 -1.994 -1.881 -1.914 -1.954 -1.994 + 15.0 151.80 -1.316 -1.344 -1.374 -1.394 -1.316 -1.344 -1.378 -1.409 + 15.5 151.80 -0.914 -0.889 -0.873 -0.842 -0.914 -0.896 -0.886 -0.863 + 16.0 151.80 -0.974 -0.969 -0.957 -0.937 -0.974 -0.969 -0.957 -0.937 + 13.0 152.00 -3.510 -3.538 -3.570 -3.600 -3.510 -3.538 -3.570 -3.600 + 13.5 152.00 -3.036 -3.065 -3.096 -3.127 -3.036 -3.065 -3.096 -3.127 + 14.0 152.00 -2.498 -2.526 -2.559 -2.592 -2.498 -2.526 -2.559 -2.592 + 14.5 152.00 -1.991 -2.031 -2.080 -2.132 -1.991 -2.031 -2.080 -2.132 + 15.0 152.00 -1.431 -1.465 -1.500 -1.527 -1.429 -1.463 -1.502 -1.539 + 15.5 152.00 -0.979 -0.959 -0.947 -0.921 -0.979 -0.963 -0.959 -0.939 + 16.0 152.00 -0.987 -0.979 -0.967 -0.947 -0.987 -0.979 -0.967 -0.947 + 13.0 152.50 -3.717 -3.745 -3.775 -3.810 -3.717 -3.745 -3.775 -3.810 + 13.5 152.50 -3.243 -3.270 -3.302 -3.336 -3.243 -3.270 -3.302 -3.336 + 14.0 152.50 -2.710 -2.737 -2.770 -2.804 -2.710 -2.737 -2.770 -2.804 + 14.5 152.50 -2.194 -2.227 -2.265 -2.302 -2.194 -2.227 -2.265 -2.302 + 15.0 152.50 -1.650 -1.686 -1.724 -1.755 -1.650 -1.682 -1.721 -1.757 + 15.5 152.50 -1.135 -1.131 -1.125 -1.110 -1.135 -1.133 -1.134 -1.128 + 16.0 152.50 -1.046 -1.034 -1.018 -1.000 -1.046 -1.034 -1.018 -1.000 + 13.0 153.00 -3.886 -3.914 -3.947 -3.979 -3.886 -3.914 -3.947 -3.979 + 13.5 153.00 -3.412 -3.439 -3.470 -3.504 -3.412 -3.439 -3.470 -3.504 + 14.0 153.00 -2.883 -2.907 -2.939 -2.975 -2.883 -2.907 -2.939 -2.975 + 14.5 153.00 -2.397 -2.422 -2.451 -2.472 -2.397 -2.422 -2.451 -2.472 + 15.0 153.00 -1.836 -1.876 -1.921 -1.967 -1.836 -1.870 -1.917 -1.963 + 15.5 153.00 -1.280 -1.278 -1.290 -1.289 -1.279 -1.279 -1.295 -1.304 + 16.0 153.00 -1.117 -1.102 -1.086 -1.071 -1.117 -1.102 -1.086 -1.071 + 13.0 153.50 -4.024 -4.050 -4.082 -4.114 -4.024 -4.050 -4.082 -4.114 + 13.5 153.50 -3.557 -3.583 -3.614 -3.648 -3.557 -3.583 -3.614 -3.648 + 14.0 153.50 -3.026 -3.053 -3.083 -3.117 -3.026 -3.053 -3.083 -3.117 + 14.5 153.50 -2.529 -2.551 -2.582 -2.588 -2.529 -2.551 -2.582 -2.588 + 15.0 153.50 -1.979 -2.015 -2.058 -2.104 -1.975 -2.012 -2.053 -2.099 + 15.5 153.50 -1.405 -1.410 -1.429 -1.439 -1.404 -1.411 -1.433 -1.449 + 16.0 153.50 -1.195 -1.178 -1.164 -1.152 -1.195 -1.178 -1.164 -1.152 + 13.0 154.00 -4.161 -4.186 -4.216 -4.249 -4.161 -4.186 -4.216 -4.249 + 13.5 154.00 -3.686 -3.710 -3.740 -3.775 -3.686 -3.710 -3.740 -3.775 + 14.0 154.00 -3.154 -3.179 -3.210 -3.243 -3.154 -3.179 -3.210 -3.243 + 14.5 154.00 -2.661 -2.680 -2.712 -2.703 -2.661 -2.680 -2.712 -2.703 + 15.0 154.00 -2.102 -2.126 -2.168 -2.215 -2.102 -2.125 -2.164 -2.208 + 15.5 154.00 -1.530 -1.542 -1.569 -1.588 -1.529 -1.542 -1.570 -1.595 + 16.0 154.00 -1.273 -1.255 -1.243 -1.234 -1.273 -1.255 -1.243 -1.234 + 13.0 154.50 -4.267 -4.291 -4.321 -4.355 -4.267 -4.291 -4.321 -4.355 + 13.5 154.50 -3.793 -3.817 -3.845 -3.879 -3.793 -3.817 -3.845 -3.879 + 14.0 154.50 -3.268 -3.293 -3.323 -3.356 -3.268 -3.293 -3.323 -3.356 + 14.5 154.50 -2.776 -2.795 -2.826 -2.837 -2.776 -2.795 -2.826 -2.837 + 15.0 154.50 -2.214 -2.234 -2.267 -2.305 -2.214 -2.234 -2.265 -2.301 + 15.5 154.50 -1.634 -1.645 -1.681 -1.708 -1.632 -1.650 -1.682 -1.711 + 16.0 154.50 -1.349 -1.332 -1.322 -1.316 -1.349 -1.332 -1.322 -1.316 + 13.0 155.00 -4.373 -4.397 -4.426 -4.460 -4.373 -4.397 -4.426 -4.460 + 13.5 155.00 -3.900 -3.924 -3.951 -3.983 -3.900 -3.924 -3.951 -3.983 + 14.0 155.00 -3.371 -3.394 -3.424 -3.457 -3.371 -3.394 -3.424 -3.457 + 14.5 155.00 -2.889 -2.910 -2.939 -2.971 -2.889 -2.910 -2.939 -2.971 + 15.0 155.00 -2.326 -2.343 -2.366 -2.394 -2.326 -2.343 -2.366 -2.394 + 15.5 155.00 -1.737 -1.747 -1.793 -1.827 -1.735 -1.757 -1.793 -1.827 + 16.0 155.00 -1.426 -1.410 -1.402 -1.398 -1.426 -1.410 -1.402 -1.398 + 13.0 156.00 -4.531 -4.555 -4.584 -4.618 -4.531 -4.555 -4.584 -4.618 + 13.5 156.00 -4.077 -4.098 -4.127 -4.159 -4.077 -4.098 -4.127 -4.159 + 14.0 156.00 -3.545 -3.567 -3.597 -3.629 -3.545 -3.567 -3.597 -3.629 + 14.5 156.00 -3.067 -3.089 -3.118 -3.149 -3.067 -3.089 -3.118 -3.149 + 15.0 156.00 -2.519 -2.536 -2.561 -2.590 -2.519 -2.536 -2.561 -2.590 + 15.5 156.00 -1.914 -1.943 -1.987 -2.036 -1.914 -1.943 -1.987 -2.036 + 16.0 156.00 -1.567 -1.554 -1.551 -1.553 -1.567 -1.554 -1.551 -1.553 + 13.0 157.00 -4.665 -4.689 -4.718 -4.752 -4.665 -4.689 -4.718 -4.752 + 13.5 157.00 -4.211 -4.232 -4.261 -4.293 -4.211 -4.232 -4.261 -4.293 + 14.0 157.00 -3.697 -3.717 -3.745 -3.777 -3.697 -3.717 -3.745 -3.777 + 14.5 157.00 -3.209 -3.230 -3.258 -3.289 -3.209 -3.230 -3.258 -3.289 + 15.0 157.00 -2.674 -2.690 -2.717 -2.747 -2.674 -2.690 -2.717 -2.747 + 15.5 157.00 -2.063 -2.092 -2.134 -2.175 -2.063 -2.092 -2.134 -2.175 + 16.0 157.00 -1.691 -1.681 -1.682 -1.688 -1.691 -1.681 -1.682 -1.688 + 13.0 158.00 -4.781 -4.805 -4.834 -4.868 -4.781 -4.805 -4.834 -4.868 + 13.5 158.00 -4.327 -4.348 -4.377 -4.409 -4.327 -4.348 -4.377 -4.409 + 14.0 158.00 -3.830 -3.848 -3.876 -3.907 -3.830 -3.848 -3.876 -3.907 + 14.5 158.00 -3.351 -3.371 -3.398 -3.430 -3.351 -3.371 -3.398 -3.430 + 15.0 158.00 -2.830 -2.845 -2.873 -2.903 -2.830 -2.845 -2.873 -2.903 + 15.5 158.00 -2.213 -2.240 -2.281 -2.313 -2.213 -2.240 -2.281 -2.313 + 16.0 158.00 -1.815 -1.807 -1.813 -1.824 -1.815 -1.807 -1.813 -1.824 + 13.0 160.00 -4.975 -4.999 -5.028 -5.062 -4.975 -4.999 -5.028 -5.062 + 13.5 160.00 -4.521 -4.542 -4.571 -4.603 -4.521 -4.542 -4.571 -4.603 + 14.0 160.00 -4.050 -4.067 -4.093 -4.124 -4.050 -4.067 -4.093 -4.124 + 14.5 160.00 -3.573 -3.590 -3.616 -3.648 -3.573 -3.590 -3.616 -3.648 + 15.0 160.00 -3.046 -3.063 -3.089 -3.120 -3.046 -3.063 -3.089 -3.120 + 15.5 160.00 -2.526 -2.535 -2.553 -2.577 -2.526 -2.535 -2.553 -2.577 + 16.0 160.00 -2.019 -2.016 -2.026 -2.043 -2.019 -2.016 -2.026 -2.043 + 13.0 162.00 -5.133 -5.157 -5.186 -5.220 -5.133 -5.157 -5.186 -5.220 + 13.5 162.00 -4.679 -4.701 -4.729 -4.761 -4.679 -4.701 -4.729 -4.761 + 14.0 162.00 -4.232 -4.247 -4.272 -4.302 -4.232 -4.247 -4.272 -4.302 + 14.5 162.00 -3.757 -3.772 -3.796 -3.827 -3.757 -3.772 -3.796 -3.827 + 15.0 162.00 -3.229 -3.244 -3.268 -3.298 -3.229 -3.244 -3.268 -3.298 + 15.5 162.00 -2.721 -2.730 -2.750 -2.777 -2.721 -2.730 -2.750 -2.777 + 16.0 162.00 -2.189 -2.190 -2.205 -2.228 -2.189 -2.190 -2.205 -2.228 + 13.0 164.00 -5.267 -5.291 -5.320 -5.354 -5.267 -5.291 -5.320 -5.354 + 13.5 164.00 -4.813 -4.834 -4.863 -4.895 -4.813 -4.834 -4.863 -4.895 + 14.0 164.00 -4.388 -4.401 -4.425 -4.453 -4.388 -4.401 -4.425 -4.453 + 14.5 164.00 -3.910 -3.924 -3.947 -3.975 -3.910 -3.924 -3.947 -3.975 + 15.0 164.00 -3.385 -3.399 -3.421 -3.451 -3.385 -3.399 -3.421 -3.451 + 15.5 164.00 -2.889 -2.900 -2.917 -2.943 -2.889 -2.900 -2.917 -2.943 + 16.0 164.00 -2.330 -2.334 -2.352 -2.379 -2.330 -2.334 -2.352 -2.379 + 13.0 165.00 -5.327 -5.351 -5.380 -5.414 -5.327 -5.351 -5.380 -5.414 + 13.5 165.00 -4.873 -4.894 -4.923 -4.955 -4.873 -4.894 -4.923 -4.955 + 14.0 165.00 -4.456 -4.468 -4.490 -4.519 -4.456 -4.468 -4.490 -4.519 + 14.5 165.00 -3.978 -3.991 -4.013 -4.041 -3.978 -3.991 -4.013 -4.041 + 15.0 165.00 -3.454 -3.467 -3.489 -3.518 -3.454 -3.467 -3.489 -3.518 + 15.5 165.00 -2.962 -2.972 -2.990 -3.016 -2.962 -2.972 -2.990 -3.016 + 16.0 165.00 -2.400 -2.406 -2.426 -2.455 -2.400 -2.406 -2.426 -2.455 + 13.0 166.00 -5.383 -5.407 -5.436 -5.470 -5.383 -5.407 -5.436 -5.470 + 13.5 166.00 -4.929 -4.951 -4.979 -5.011 -4.929 -4.951 -4.979 -5.011 + 14.0 166.00 -4.523 -4.535 -4.556 -4.585 -4.523 -4.535 -4.556 -4.585 + 14.5 166.00 -4.046 -4.057 -4.079 -4.107 -4.046 -4.057 -4.079 -4.107 + 15.0 166.00 -3.523 -3.535 -3.556 -3.585 -3.523 -3.535 -3.556 -3.585 + 15.5 166.00 -3.035 -3.044 -3.063 -3.090 -3.035 -3.044 -3.063 -3.090 + 16.0 166.00 -2.459 -2.463 -2.481 -2.507 -2.459 -2.463 -2.481 -2.507 + 13.0 168.00 -5.485 -5.510 -5.539 -5.572 -5.485 -5.510 -5.539 -5.572 + 13.5 168.00 -5.031 -5.053 -5.082 -5.114 -5.031 -5.053 -5.082 -5.114 + 14.0 168.00 -4.644 -4.654 -4.674 -4.701 -4.644 -4.654 -4.674 -4.701 + 14.5 168.00 -4.168 -4.177 -4.197 -4.225 -4.168 -4.177 -4.197 -4.225 + 15.0 168.00 -3.644 -3.654 -3.676 -3.703 -3.644 -3.654 -3.676 -3.703 + 15.5 168.00 -3.168 -3.175 -3.195 -3.221 -3.168 -3.175 -3.195 -3.221 + 16.0 168.00 -2.577 -2.578 -2.592 -2.613 -2.577 -2.578 -2.592 -2.613 + 13.0 170.00 -5.577 -5.601 -5.630 -5.664 -5.577 -5.601 -5.630 -5.664 + 13.5 170.00 -5.122 -5.144 -5.173 -5.205 -5.122 -5.144 -5.173 -5.205 + 14.0 170.00 -4.752 -4.760 -4.780 -4.807 -4.752 -4.760 -4.780 -4.807 + 14.5 170.00 -4.276 -4.284 -4.303 -4.330 -4.276 -4.284 -4.303 -4.330 + 15.0 170.00 -3.752 -3.760 -3.780 -3.807 -3.752 -3.760 -3.780 -3.807 + 15.5 170.00 -3.274 -3.279 -3.297 -3.322 -3.274 -3.279 -3.297 -3.322 + 16.0 170.00 -2.695 -2.693 -2.703 -2.719 -2.695 -2.693 -2.703 -2.719 + 13.0 175.00 -5.771 -5.795 -5.824 -5.858 -5.771 -5.795 -5.824 -5.858 + 13.5 175.00 -5.316 -5.338 -5.367 -5.399 -5.316 -5.338 -5.367 -5.399 + 14.0 175.00 -4.946 -4.953 -4.974 -5.001 -4.946 -4.953 -4.974 -5.001 + 14.5 175.00 -4.506 -4.510 -4.527 -4.551 -4.506 -4.510 -4.527 -4.551 + 15.0 175.00 -3.983 -3.987 -4.005 -4.031 -3.983 -3.987 -4.005 -4.031 + 15.5 175.00 -3.500 -3.504 -3.523 -3.547 -3.500 -3.504 -3.523 -3.547 + 16.0 175.00 -2.939 -2.939 -2.947 -2.971 -2.939 -2.939 -2.947 -2.971 + 13.0 180.00 -5.929 -5.953 -5.982 -6.016 -5.929 -5.953 -5.982 -6.016 + 13.5 180.00 -5.475 -5.497 -5.525 -5.557 -5.475 -5.497 -5.525 -5.557 + 14.0 180.00 -5.104 -5.112 -5.132 -5.159 -5.104 -5.112 -5.132 -5.159 + 14.5 180.00 -4.695 -4.697 -4.712 -4.735 -4.695 -4.697 -4.712 -4.735 + 15.0 180.00 -4.174 -4.175 -4.190 -4.213 -4.174 -4.175 -4.190 -4.213 + 15.5 180.00 -3.688 -3.690 -3.708 -3.730 -3.688 -3.690 -3.708 -3.730 + 16.0 180.00 -3.160 -3.155 -3.166 -3.185 -3.160 -3.155 -3.166 -3.185 + 13.0 185.00 -6.063 -6.087 -6.116 -6.150 -6.063 -6.087 -6.116 -6.150 + 13.5 185.00 -5.609 -5.630 -5.659 -5.691 -5.609 -5.630 -5.659 -5.691 + 14.0 185.00 -5.238 -5.246 -5.266 -5.293 -5.238 -5.246 -5.266 -5.293 + 14.5 185.00 -4.857 -4.854 -4.866 -4.889 -4.857 -4.854 -4.866 -4.889 + 15.0 185.00 -4.335 -4.334 -4.347 -4.369 -4.335 -4.334 -4.347 -4.369 + 15.5 185.00 -3.848 -3.848 -3.870 -3.893 -3.848 -3.848 -3.870 -3.893 + 16.0 185.00 -3.325 -3.322 -3.332 -3.351 -3.325 -3.322 -3.332 -3.351 + 13.0 190.00 -6.179 -6.203 -6.232 -6.266 -6.179 -6.203 -6.232 -6.266 + 13.5 190.00 -5.725 -5.746 -5.775 -5.807 -5.725 -5.746 -5.775 -5.807 + 14.0 190.00 -5.354 -5.361 -5.382 -5.409 -5.354 -5.361 -5.382 -5.409 + 14.5 190.00 -4.996 -4.991 -5.003 -5.024 -4.996 -4.991 -5.003 -5.024 + 15.0 190.00 -4.476 -4.472 -4.483 -4.503 -4.476 -4.472 -4.483 -4.503 + 15.5 190.00 -3.983 -3.979 -3.991 -4.010 -3.983 -3.979 -3.991 -4.010 + 16.0 190.00 -3.468 -3.462 -3.470 -3.488 -3.468 -3.462 -3.470 -3.488 + 13.0 192.00 -6.221 -6.245 -6.274 -6.308 -6.221 -6.245 -6.274 -6.308 + 13.5 192.00 -5.767 -5.789 -5.818 -5.850 -5.767 -5.789 -5.818 -5.850 + 14.0 192.00 -5.397 -5.404 -5.424 -5.451 -5.397 -5.404 -5.424 -5.451 + 14.5 192.00 -5.038 -5.034 -5.045 -5.066 -5.038 -5.034 -5.045 -5.066 + 15.0 192.00 -4.526 -4.521 -4.530 -4.550 -4.526 -4.521 -4.530 -4.550 + 15.5 192.00 -4.030 -4.025 -4.036 -4.054 -4.030 -4.025 -4.036 -4.054 + 16.0 192.00 -3.516 -3.507 -3.515 -3.532 -3.516 -3.507 -3.515 -3.532 + 13.0 193.00 -6.242 -6.266 -6.295 -6.329 -6.242 -6.266 -6.295 -6.329 + 13.5 193.00 -5.787 -5.809 -5.838 -5.870 -5.787 -5.809 -5.838 -5.870 + 14.0 193.00 -5.417 -5.424 -5.445 -5.472 -5.417 -5.424 -5.445 -5.472 + 14.5 193.00 -5.058 -5.054 -5.066 -5.087 -5.058 -5.054 -5.066 -5.087 + 15.0 193.00 -4.551 -4.545 -4.554 -4.574 -4.551 -4.545 -4.554 -4.574 + 15.5 193.00 -4.054 -4.048 -4.058 -4.077 -4.054 -4.048 -4.058 -4.077 + 16.0 193.00 -3.539 -3.530 -3.538 -3.554 -3.539 -3.530 -3.538 -3.554 + 13.0 194.00 -6.262 -6.286 -6.315 -6.349 -6.262 -6.286 -6.315 -6.349 + 13.5 194.00 -5.807 -5.829 -5.858 -5.890 -5.807 -5.829 -5.858 -5.890 + 14.0 194.00 -5.437 -5.444 -5.465 -5.492 -5.437 -5.444 -5.465 -5.492 + 14.5 194.00 -5.078 -5.074 -5.086 -5.106 -5.078 -5.074 -5.086 -5.106 + 15.0 194.00 -4.576 -4.569 -4.578 -4.598 -4.576 -4.569 -4.578 -4.598 + 15.5 194.00 -4.078 -4.071 -4.080 -4.099 -4.078 -4.071 -4.080 -4.099 + 16.0 194.00 -3.563 -3.553 -3.561 -3.576 -3.563 -3.553 -3.561 -3.576 + 13.0 194.80 -6.277 -6.301 -6.331 -6.364 -6.277 -6.301 -6.331 -6.364 + 13.5 194.80 -5.823 -5.845 -5.873 -5.905 -5.823 -5.845 -5.873 -5.905 + 14.0 194.80 -5.452 -5.460 -5.480 -5.507 -5.452 -5.460 -5.480 -5.507 + 14.5 194.80 -5.094 -5.090 -5.102 -5.122 -5.094 -5.090 -5.102 -5.122 + 15.0 194.80 -4.595 -4.589 -4.597 -4.617 -4.595 -4.589 -4.597 -4.617 + 15.5 194.80 -4.096 -4.089 -4.097 -4.116 -4.096 -4.089 -4.097 -4.116 + 16.0 194.80 -3.582 -3.571 -3.579 -3.594 -3.582 -3.571 -3.579 -3.594 + 13.0 195.00 -6.281 -6.305 -6.334 -6.368 -6.281 -6.305 -6.334 -6.368 + 13.5 195.00 -5.827 -5.849 -5.877 -5.909 -5.827 -5.849 -5.877 -5.909 + 14.0 195.00 -5.456 -5.464 -5.484 -5.511 -5.456 -5.464 -5.484 -5.511 + 14.5 195.00 -5.098 -5.094 -5.105 -5.126 -5.098 -5.094 -5.105 -5.126 + 15.0 195.00 -4.600 -4.594 -4.602 -4.622 -4.600 -4.594 -4.602 -4.622 + 15.5 195.00 -4.101 -4.094 -4.102 -4.121 -4.101 -4.094 -4.102 -4.121 + 16.0 195.00 -3.587 -3.575 -3.583 -3.599 -3.587 -3.575 -3.583 -3.599 + 13.0 195.20 -6.285 -6.309 -6.338 -6.372 -6.285 -6.309 -6.338 -6.372 + 13.5 195.20 -5.831 -5.852 -5.881 -5.913 -5.831 -5.852 -5.881 -5.913 + 14.0 195.20 -5.460 -5.468 -5.488 -5.515 -5.460 -5.468 -5.488 -5.515 + 14.5 195.20 -5.102 -5.098 -5.109 -5.130 -5.102 -5.098 -5.109 -5.130 + 15.0 195.20 -4.605 -4.598 -4.606 -4.626 -4.605 -4.598 -4.606 -4.626 + 15.5 195.20 -4.106 -4.098 -4.106 -4.125 -4.106 -4.098 -4.106 -4.125 + 16.0 195.20 -3.591 -3.579 -3.587 -3.603 -3.591 -3.579 -3.587 -3.603 + 13.0 195.40 -6.289 -6.313 -6.342 -6.376 -6.289 -6.313 -6.342 -6.376 + 13.5 195.40 -5.835 -5.856 -5.885 -5.917 -5.835 -5.856 -5.885 -5.917 + 14.0 195.40 -5.464 -5.471 -5.492 -5.519 -5.464 -5.471 -5.492 -5.519 + 14.5 195.40 -5.106 -5.101 -5.113 -5.134 -5.106 -5.101 -5.113 -5.134 + 15.0 195.40 -4.609 -4.602 -4.611 -4.630 -4.609 -4.602 -4.611 -4.630 + 15.5 195.40 -4.110 -4.102 -4.110 -4.129 -4.110 -4.102 -4.110 -4.129 + 16.0 195.40 -3.595 -3.583 -3.591 -3.607 -3.595 -3.583 -3.591 -3.607 + 13.0 195.60 -6.293 -6.317 -6.346 -6.380 -6.293 -6.317 -6.346 -6.380 + 13.5 195.60 -5.838 -5.860 -5.889 -5.921 -5.838 -5.860 -5.889 -5.921 + 14.0 195.60 -5.468 -5.475 -5.496 -5.523 -5.468 -5.475 -5.496 -5.523 + 14.5 195.60 -5.109 -5.105 -5.117 -5.137 -5.109 -5.105 -5.117 -5.137 + 15.0 195.60 -4.614 -4.607 -4.615 -4.634 -4.614 -4.607 -4.615 -4.634 + 15.5 195.60 -4.114 -4.107 -4.114 -4.133 -4.114 -4.107 -4.114 -4.133 + 16.0 195.60 -3.599 -3.587 -3.595 -3.611 -3.599 -3.587 -3.595 -3.611 + 13.0 195.80 -6.296 -6.321 -6.350 -6.384 -6.296 -6.321 -6.350 -6.384 + 13.5 195.80 -5.842 -5.864 -5.893 -5.925 -5.842 -5.864 -5.893 -5.925 + 14.0 195.80 -5.472 -5.479 -5.500 -5.527 -5.472 -5.479 -5.500 -5.527 + 14.5 195.80 -5.113 -5.109 -5.121 -5.141 -5.113 -5.109 -5.121 -5.141 + 15.0 195.80 -4.618 -4.611 -4.619 -4.639 -4.618 -4.611 -4.619 -4.639 + 15.5 195.80 -4.118 -4.111 -4.117 -4.136 -4.118 -4.111 -4.117 -4.136 + 16.0 195.80 -3.603 -3.591 -3.599 -3.615 -3.603 -3.591 -3.599 -3.615 + 13.0 196.00 -6.300 -6.324 -6.353 -6.387 -6.300 -6.324 -6.353 -6.387 + 13.5 196.00 -5.846 -5.868 -5.897 -5.929 -5.846 -5.868 -5.897 -5.929 + 14.0 196.00 -5.476 -5.483 -5.503 -5.530 -5.476 -5.483 -5.503 -5.530 + 14.5 196.00 -5.117 -5.113 -5.124 -5.145 -5.117 -5.113 -5.124 -5.145 + 15.0 196.00 -4.623 -4.615 -4.624 -4.643 -4.623 -4.615 -4.624 -4.643 + 15.5 196.00 -4.122 -4.115 -4.121 -4.140 -4.122 -4.115 -4.121 -4.140 + 16.0 196.00 -3.607 -3.595 -3.603 -3.619 -3.607 -3.595 -3.603 -3.619 + 13.0 196.40 -6.308 -6.332 -6.361 -6.395 -6.308 -6.332 -6.361 -6.395 + 13.5 196.40 -5.853 -5.875 -5.904 -5.936 -5.853 -5.875 -5.904 -5.936 + 14.0 196.40 -5.483 -5.490 -5.511 -5.538 -5.483 -5.490 -5.511 -5.538 + 14.5 196.40 -5.125 -5.120 -5.132 -5.153 -5.125 -5.120 -5.132 -5.153 + 15.0 196.40 -4.632 -4.624 -4.632 -4.651 -4.632 -4.624 -4.632 -4.651 + 15.5 196.40 -4.131 -4.124 -4.129 -4.148 -4.131 -4.124 -4.129 -4.148 + 16.0 196.40 -3.615 -3.603 -3.611 -3.627 -3.615 -3.603 -3.611 -3.627 + 13.0 196.50 -6.310 -6.334 -6.363 -6.397 -6.310 -6.334 -6.363 -6.397 + 13.5 196.50 -5.855 -5.877 -5.906 -5.938 -5.855 -5.877 -5.906 -5.938 + 14.0 196.50 -5.485 -5.492 -5.513 -5.540 -5.485 -5.492 -5.513 -5.540 + 14.5 196.50 -5.127 -5.122 -5.134 -5.154 -5.127 -5.122 -5.134 -5.154 + 15.0 196.50 -4.634 -4.626 -4.634 -4.654 -4.634 -4.626 -4.634 -4.654 + 15.5 196.50 -4.133 -4.126 -4.131 -4.150 -4.133 -4.126 -4.131 -4.150 + 16.0 196.50 -3.617 -3.605 -3.613 -3.629 -3.617 -3.605 -3.613 -3.629 + 13.0 197.00 -6.319 -6.343 -6.372 -6.406 -6.319 -6.343 -6.372 -6.406 + 13.5 197.00 -5.865 -5.886 -5.915 -5.947 -5.865 -5.886 -5.915 -5.947 + 14.0 197.00 -5.494 -5.502 -5.522 -5.549 -5.494 -5.502 -5.522 -5.549 + 14.5 197.00 -5.136 -5.131 -5.143 -5.164 -5.136 -5.131 -5.143 -5.164 + 15.0 197.00 -4.645 -4.637 -4.645 -4.664 -4.645 -4.637 -4.645 -4.664 + 15.5 197.00 -4.143 -4.136 -4.141 -4.160 -4.143 -4.136 -4.141 -4.160 + 16.0 197.00 -3.627 -3.615 -3.623 -3.639 -3.627 -3.615 -3.623 -3.639 + 13.0 198.00 -6.337 -6.361 -6.391 -6.424 -6.337 -6.361 -6.391 -6.424 + 13.5 198.00 -5.883 -5.905 -5.933 -5.965 -5.883 -5.905 -5.933 -5.965 + 14.0 198.00 -5.512 -5.520 -5.540 -5.567 -5.512 -5.520 -5.540 -5.567 + 14.5 198.00 -5.154 -5.150 -5.161 -5.182 -5.154 -5.150 -5.161 -5.182 + 15.0 198.00 -4.667 -4.659 -4.667 -4.686 -4.667 -4.659 -4.667 -4.686 + 15.5 198.00 -4.164 -4.158 -4.160 -4.179 -4.164 -4.158 -4.160 -4.179 + 16.0 198.00 -3.648 -3.635 -3.642 -3.659 -3.648 -3.635 -3.642 -3.659 + 13.0 199.00 -6.355 -6.379 -6.408 -6.442 -6.355 -6.379 -6.408 -6.442 + 13.5 199.00 -5.901 -5.923 -5.951 -5.983 -5.901 -5.923 -5.951 -5.983 + 14.0 199.00 -5.530 -5.538 -5.558 -5.585 -5.530 -5.538 -5.558 -5.585 + 14.5 199.00 -5.172 -5.168 -5.179 -5.200 -5.172 -5.168 -5.179 -5.200 + 15.0 199.00 -4.690 -4.681 -4.688 -4.707 -4.690 -4.681 -4.688 -4.707 + 15.5 199.00 -4.185 -4.179 -4.180 -4.198 -4.185 -4.179 -4.180 -4.198 + 16.0 199.00 -3.668 -3.656 -3.662 -3.679 -3.668 -3.656 -3.662 -3.679 + 13.0 200.00 -6.373 -6.397 -6.426 -6.460 -6.373 -6.397 -6.426 -6.460 + 13.5 200.00 -5.918 -5.940 -5.969 -6.001 -5.918 -5.940 -5.969 -6.001 + 14.0 200.00 -5.548 -5.555 -5.576 -5.603 -5.548 -5.555 -5.576 -5.603 + 14.5 200.00 -5.189 -5.185 -5.197 -5.218 -5.189 -5.185 -5.197 -5.218 + 15.0 200.00 -4.712 -4.703 -4.710 -4.728 -4.712 -4.703 -4.710 -4.728 + 15.5 200.00 -4.206 -4.201 -4.199 -4.218 -4.206 -4.201 -4.199 -4.218 + 16.0 200.00 -3.688 -3.676 -3.682 -3.699 -3.688 -3.676 -3.682 -3.699 + 13.0 202.00 -6.407 -6.431 -6.460 -6.494 -6.407 -6.431 -6.460 -6.494 + 13.5 202.00 -5.952 -5.974 -6.003 -6.035 -5.952 -5.974 -6.003 -6.035 + 14.0 202.00 -5.582 -5.589 -5.610 -5.637 -5.582 -5.589 -5.610 -5.637 + 14.5 202.00 -5.224 -5.219 -5.231 -5.252 -5.224 -5.219 -5.231 -5.252 + 15.0 202.00 -4.753 -4.744 -4.749 -4.766 -4.753 -4.744 -4.749 -4.766 + 15.5 202.00 -4.240 -4.231 -4.230 -4.248 -4.240 -4.231 -4.230 -4.248 + 16.0 202.00 -3.722 -3.707 -3.713 -3.731 -3.722 -3.707 -3.713 -3.731 + 13.0 205.00 -6.455 -6.480 -6.509 -6.543 -6.455 -6.480 -6.509 -6.543 + 13.5 205.00 -6.001 -6.023 -6.052 -6.084 -6.001 -6.023 -6.052 -6.084 + 14.0 205.00 -5.631 -5.638 -5.659 -5.686 -5.631 -5.638 -5.659 -5.686 + 14.5 205.00 -5.272 -5.268 -5.280 -5.300 -5.272 -5.268 -5.280 -5.300 + 15.0 205.00 -4.815 -4.804 -4.807 -4.824 -4.815 -4.804 -4.807 -4.824 + 15.5 205.00 -4.291 -4.276 -4.276 -4.293 -4.291 -4.276 -4.276 -4.293 + 16.0 205.00 -3.773 -3.754 -3.760 -3.778 -3.773 -3.754 -3.760 -3.778 + 13.0 210.00 -6.531 -6.555 -6.584 -6.618 -6.531 -6.555 -6.584 -6.618 + 13.5 210.00 -6.077 -6.098 -6.127 -6.159 -6.077 -6.098 -6.127 -6.159 + 14.0 210.00 -5.706 -5.714 -5.734 -5.761 -5.706 -5.714 -5.734 -5.761 + 14.5 210.00 -5.348 -5.344 -5.355 -5.376 -5.348 -5.344 -5.355 -5.376 + 15.0 210.00 -4.907 -4.893 -4.896 -4.910 -4.907 -4.893 -4.896 -4.910 + 15.5 210.00 -4.376 -4.352 -4.354 -4.369 -4.376 -4.352 -4.354 -4.369 + 16.0 210.00 -3.857 -3.833 -3.839 -3.857 -3.857 -3.833 -3.839 -3.857 + 13.0 220.00 -6.665 -6.689 -6.718 -6.752 -6.665 -6.689 -6.718 -6.752 + 13.5 220.00 -6.211 -6.232 -6.261 -6.293 -6.211 -6.232 -6.261 -6.293 + 14.0 220.00 -5.840 -5.848 -5.868 -5.895 -5.840 -5.848 -5.868 -5.895 + 14.5 220.00 -5.482 -5.477 -5.489 -5.510 -5.482 -5.477 -5.489 -5.510 + 15.0 220.00 -5.041 -5.027 -5.030 -5.044 -5.041 -5.027 -5.030 -5.044 + 15.5 220.00 -4.495 -4.458 -4.455 -4.467 -4.495 -4.458 -4.455 -4.467 + 16.0 220.00 -3.971 -3.947 -3.943 -3.959 -3.971 -3.947 -3.943 -3.959 + 13.0 230.00 -6.781 -6.805 -6.834 -6.868 -6.781 -6.805 -6.834 -6.868 + 13.5 230.00 -6.327 -6.348 -6.377 -6.409 -6.327 -6.348 -6.377 -6.409 + 14.0 230.00 -5.956 -5.964 -5.984 -6.011 -5.956 -5.964 -5.984 -6.011 + 14.5 230.00 -5.598 -5.594 -5.605 -5.626 -5.598 -5.594 -5.605 -5.626 + 15.0 230.00 -5.156 -5.143 -5.146 -5.160 -5.156 -5.143 -5.146 -5.160 + 15.5 230.00 -4.553 -4.504 -4.495 -4.504 -4.553 -4.504 -4.495 -4.504 + 16.0 230.00 -4.024 -3.991 -3.983 -3.991 -4.024 -3.991 -3.983 -3.991 + 13.0 250.00 -6.975 -6.999 -7.028 -7.062 -6.975 -6.999 -7.028 -7.062 + 13.5 250.00 -6.521 -6.542 -6.571 -6.603 -6.521 -6.542 -6.571 -6.603 + 14.0 250.00 -6.150 -6.157 -6.178 -6.205 -6.150 -6.157 -6.178 -6.205 + 14.5 250.00 -5.792 -5.787 -5.799 -5.819 -5.792 -5.787 -5.799 -5.819 + 15.0 250.00 -5.350 -5.337 -5.340 -5.354 -5.350 -5.337 -5.340 -5.354 + 15.5 250.00 -4.365 -4.298 -4.271 -4.274 -4.365 -4.298 -4.271 -4.274 + 16.0 250.00 -3.848 -3.790 -3.764 -3.764 -3.848 -3.790 -3.764 -3.764 + 13.0 270.00 -7.133 -7.157 -7.186 -7.220 -7.133 -7.157 -7.186 -7.220 + 13.5 270.00 -6.679 -6.701 -6.729 -6.761 -6.679 -6.701 -6.729 -6.761 + 14.0 270.00 -6.308 -6.316 -6.336 -6.363 -6.308 -6.316 -6.336 -6.363 + 14.5 270.00 -5.950 -5.946 -5.957 -5.978 -5.950 -5.946 -5.957 -5.978 + 15.0 270.00 -5.509 -5.495 -5.498 -5.512 -5.509 -5.495 -5.498 -5.512 + 15.5 270.00 -4.523 -4.456 -4.429 -4.432 -4.523 -4.456 -4.429 -4.432 + 16.0 270.00 -4.006 -3.949 -3.923 -3.923 -4.006 -3.949 -3.923 -3.923 + 13.0 300.00 -7.327 -7.351 -7.380 -7.414 -7.327 -7.351 -7.380 -7.414 + 13.5 300.00 -6.873 -6.894 -6.923 -6.955 -6.873 -6.894 -6.923 -6.955 + 14.0 300.00 -6.502 -6.510 -6.530 -6.557 -6.502 -6.510 -6.530 -6.557 + 14.5 300.00 -6.144 -6.140 -6.151 -6.172 -6.144 -6.140 -6.151 -6.172 + 15.0 300.00 -5.702 -5.689 -5.692 -5.706 -5.702 -5.689 -5.692 -5.706 + 15.5 300.00 -4.717 -4.650 -4.623 -4.626 -4.717 -4.650 -4.623 -4.626 + 16.0 300.00 -4.200 -4.143 -4.117 -4.117 -4.200 -4.143 -4.117 -4.117 diff --git a/synthe/mergeplotcol.for b/synthe/mergeplotcol.for new file mode 100644 index 0000000..f9a7f48 --- /dev/null +++ b/synthe/mergeplotcol.for @@ -0,0 +1,95 @@ + PROGRAM MERGEPLOT +C MERGES TWO PLOT FILES INTO ONE +C READS FROM UNITS 1 AND 2 AND WRITES TO UNIT 70 + COMMON /BUFF1/BUFFER1(512),NBUFF1 + COMMON /BUFF2/BUFFER2(512),NBUFF2 + COMMON /BUFF/BUFFER(512),NBUFF + REAL*8 BUFFER1,BUFFER2,BUFFER + REAL*8 PLOTOUT,USERID(2),FILENAME(2) + READ(2)BUFFER2 + PLOTOUT=BUFFER2(1) + IF(PLOTOUT.NE.8HPLOTFILE)STOP 'FOR002 NOT A VAXPLOT FILE' + READ(1)BUFFER1 + PLOTOUT=BUFFER1(1) + IF(PLOTOUT.NE.8HPLOTFILE)STOP 'FOR001 NOT A VAXPLOT FILE' + OPEN(UNIT=70,NAME='PLOT',STATUS='NEW',FORM='UNFORMATTED') + USERID(1)=BUFFER1(2) + USERID(2)=BUFFER1(3) + FILENAME(1)=BUFFER1(4) + FILENAME(2)=BUFFER1(5) + BUFFER(1)=PLOTOUT + BUFFER(2)=USERID(1) + BUFFER(3)=USERID(2) + BUFFER(4)=FILENAME(1) + BUFFER(5)=FILENAME(2) + NBUFF=5 + NBUFF1=5 + NBUFF2=5 + IX1=0 + IX2=0 + DO 5 IFRAME=1,10000 + DO 1 IVECT=1,10000000 + CALL READBUF1(IX,IY,IDX,IY2) + IF(IX.LT.0)TYPE*,IFRAME,IVEC,IX,IY,IDX,IY2 + IF(IX.EQ.-1)GO TO 2 + IF(IX.EQ.-2)GO TO 2 +C IF(IX.EQ.-3)GO TO 2 + 1 CALL BUFPLT(IX,IY,IDX,IY2) + 2 IX1=IX + DO 3 IVECT=1,10000000 + CALL READBUF2(IX,IY,IDX,IY2) + IF(IX.EQ.-1)GO TO 4 + IF(IX.EQ.-2)GO TO 4 +C IF(IX.EQ.-3)GO TO 4 + IF(IFRAME.EQ.1)GO TO 3 + CALL BUFPLT(IX,IY,IDX,IY2) + 3 CONTINUE + 4 IX2=IX + IF(IX2.EQ.-2.AND.IX1.EQ.-2)GO TO 9 + CALL BUFPLT(-1,0,0,0) + 5 CONTINUE + 9 CALL BUFPLT(-2,0,0,0) + IF(NBUFF.GT.0)WRITE(70)BUFFER + CALL EXIT + END + SUBROUTINE READBUF1(I,J,K,L) + COMMON /BUFF1/BUFFER1(4,512),NBUFF1 + INTEGER*2 BUFFER1 + NBUFF1=NBUFF1+1 + I=BUFFER1(1,NBUFF1) + J=BUFFER1(2,NBUFF1) + K=BUFFER1(3,NBUFF1) + L=BUFFER1(4,NBUFF1) + IF(I.EQ.-2)NBUFF1=NBUFF1-1 + IF(NBUFF1.LT.512)RETURN + READ(1)BUFFER1 + NBUFF1=0 + RETURN + END + SUBROUTINE READBUF2(I,J,K,L) + COMMON /BUFF2/BUFFER2(4,512),NBUFF2 + INTEGER*2 BUFFER2 + NBUFF2=NBUFF2+1 + I=BUFFER2(1,NBUFF2) + J=BUFFER2(2,NBUFF2) + K=BUFFER2(3,NBUFF2) + L=BUFFER2(4,NBUFF2) + IF(I.EQ.-2)NBUFF2=NBUFF2-1 + IF(NBUFF2.LT.512)RETURN + READ(2)BUFFER2 + NBUFF2=0 + RETURN + END + SUBROUTINE BUFPLT(I,J,K,L) + COMMON /BUFF/BUFFER(4,512),NBUFF + INTEGER*2 BUFFER + NBUFF=NBUFF+1 + BUFFER(1,NBUFF)=I + BUFFER(2,NBUFF)=J + BUFFER(3,NBUFF)=K + BUFFER(4,NBUFF)=L + IF(NBUFF.LT.512)RETURN + WRITE(70)BUFFER + NBUFF=0 + RETURN + END diff --git a/synthe/nltelinesasctobin.for b/synthe/nltelinesasctobin.for new file mode 100644 index 0000000..e8ba98b --- /dev/null +++ b/synthe/nltelinesasctobin.for @@ -0,0 +1,335 @@ + PROGRAM RNLTE +C THIS PROGRAM MUST BE RUN IMMEDIATELY AFTER SYNBEG IF IT IS USED +C READS NLTE LINES FROM UNIT 11 AS CARD IMAGES AND WRITES THEM ON +C UNIT 19. IF IFNLTE=0 UNIT 19 IS READ BY SYNTHE AND THE LINES ARE +C TREATED IN LTE. IF IFNLTE=1 UNIT 19 IS READ BY SPECTR AND THE +C LINES ARE TREATED IN NLTE IF THE MODEL IS NLTE. +C THESE LINES ARE TREATED WITH EXACT VOIGT OR FANO PROFILES +C WL IS THE AIR WAVELENGTH IF WL .GT. 200 NM +C IF THE SWITCH IFVAC=1 THE WAVELENGTH USED BY THE PROGRAM WILL +C BE THE VACUUM WAVELENGTH OBTAINED FROM THE DIFFERENCE OF +C THE ENERGY LEVELS +C A SUFFIX P STANDS FOR PRIME INDICATING THE SECOND CONFIGURATION +C J IS ANGULAR MOMENTUM +C E IS ENERGY IN WAVENUMBERS +C LABEL IS A LABEL FOR THE CONFIGURATION +C THE GF TAPE DOES NOT KEEP LABEL AND LABELP DISTINCT +C CODE FOR ATOM OR MOLECULE +C NELION IS THE STORAGE LOCATION OF ELEM IN ARRAYS XNFPEL AND DOPPLE +C GAMMAR IS THE RADIATIVE DAMPING CONSTANT +C GAMMAW IS THE DAMPING CONSTANT PER HYDROGEN ATOM FOR VAN DER WAALS +C BROADENING BY HYDROGEN AT T=10000K. +C FOR HELIUM MULTIPLY BY .42 +C FOR H2 MULTIPLY BY .85 +C GAMMAS IS THE STARK DAMPING CONSTANT PER ELECTRON ASSUMED TO BE +C TEMPERATURE INDEPENDENT +C TO CONVERT GRIEM"S HALF WIDTH TO GAMMAS FOR DLAM AND LAM IN A +C GAMMAS=3767.*DLAM/LAM**2 +C LOG(GAMMA) IS READ IN +C IF NOT READ IN GAMMAR IS CLASSICAL, GAMMAW IS FROM ALLER, AND +C GAMMAS IS FROM PEYTREMANN +C REF ARE A REFERENCE OR REFERENCES FOR GF AND DAMPING CONSTANTS +C NBLO AND NBUP REFER TO DEPARTURE COEFFICIENT ARRAYS FOR THE LOWER +C AND UPPER LEVELS (NOT FIRST AND SECOND) +C ISO1 AND ISO2 ARE ISOTOPE NUMBERS FOR UP TO 2 COMPONENTS +C X1 AND X2 ARE LOG FRACTIONAL ISOTOPIC ABUNDANCES THAT ARE ADDED TO +C LOG GF TO OBTAIN AN ISOTOPIC ABUNDANCE +C OTHER1 AND 2 ARE ADDITIONAL LABEL FIELDS OR QUANTUM NUMBERS OR +C WHATEVER +C OTHER1 IS NOW USED TO STORE LANDE G VALUES AS 2 I5 INTEGERS IN UNITS +C OF .001 . EXAMPLE GLANDE=-.007 GLANDEP=2.499 OTHER1= -7 2499 +C DWL CORRECTION TO WL +C DLOGGF CORRECTION TO LOGGF +C DGAMMAR LOG CORRECTION TO GAMMAR +C DGAMMAS LOG CORRECTION TO GAMMAS +C DGAMMAW LOG CORRECTION TO GAMMAW +C DWLISO IS ISOTOPE SHIFT +CC SAMPLE CARDS +C 396.8470 -0.162 0.5 0.000 1.5 25191.541 20.01 4S 4P +C 396.8470 116 8.24 -4.44 -7.80 REF + COMMON /LINDAT/WL,E,EP,LABEL(2),LABELP(2),OTHER1(2),OTHER2(2), + 1 WLVAC,CENTER,CONCEN, NELION,GAMMAR,GAMMAS,GAMMAW,REF, + 2 NBLO,NBUP,ISO1,X1,ISO2,X2,GFLOG,XJ,XJP,CODE,ELO,GF,GS,GR,GW, + 3 DWL,DGFLOG,DGAMMAR,DGAMMAS,DGAMMAW,DWLISO,EXTRA2,EXTRA3 + REAL*8 LINDAT8(14) + REAL*4 LINDAT(28) + EQUIVALENCE (LINDAT8(1),WL),(LINDAT(1),NELION) + REAL*8 RESOLU,RATIO,RATIOLG,SIGMA2,WLBEG,WLEND + REAL*8 WL,E,EP,WLVAC,CENTER,CONCEN + REAL*8 LABEL,LABELP,OTHER1,OTHER2 + INTEGER TYPE + EQUIVALENCE (GAMMAS,ASHORE),(GAMMAW,BSHORE) + EQUIVALENCE (GF,G,CGF),(TYPE,NLAST),(GAMMAR,XSECT,GAUNT) + COMMON /POTION/POTION(594) + DIMENSION CODEX(17),NEWNELION(17) + DIMENSION DELLIM(7) + DATA NEWNELION/1,3,4,21,22,78,79,91,92,105,106,210,211, + 1 36,66,15,190/ + DATA CODEX/1.,2.,2.01,6.,6.01,12.,12.01,13.,13.01,14.,14.01, + 1 20.,20.01,8.,11.,5.,19./ + DATA DELLIM/100.,30.,10.,3.,1.,.3,.1/ + RATIOLG=LOG(1.D0+1.D0/2000000.D0) + OPEN(UNIT=11,STATUS='OLD',READONLY,SHARED) + WLVACOLD=0. + DO 900 ILINE=1,1000000 + READ(11,140,END=145) + 1WL,GFLOG,XJ,E,XJP,EP,CODE,LABEL,LABELP,DWLISO,WL,NELION, + 2GAMMAR,GAMMAS,GAMMAW,REF,NBLO,NBUP,ISO1,X1,ISO2,X2,OTHER1, + 3OTHER2,DWL,DGFLOG,DGAMMAR,DGAMMAS,DGAMMAW,NOTES + 140 FORMAT(F10.4,F7.3,F5.1,F12.3,F5.1,F12.3,F9.2,A8,A2,A8,A2,F7.4/ + 1F10.4,I4,F6.2,F6.2,F6.2,A4,I2,I2,I3,F7.3,I3,F7.3,A8,A2,A8,A2, + 2F7.4,F7.3,3F6.2,A20) + WLVAC=1.E7/DABS(DABS(EP)-DABS(E)) + IF(WLVAC.LT.WLVACOLD)THEN + PRINT *,WL,WLVAC,WLVACOLD + CALL EXIT + ENDIF + NBUFF=DLOG(WLVAC)/RATIOLG + DECODE(10,143,OTHER2)O2,AUTO,NKP + 143 FORMAT(A1,A3,I6) + LIM=7 +C IF(O2.EQ.1H )LIM=7 +C IF(O2.EQ.1H0)LIM=7 +C IF(O2.EQ.1H1)LIM=7 + IF(O2.EQ.1H2)LIM=6 + IF(O2.EQ.1H3)LIM=5 + IF(O2.EQ.1H4)LIM=4 + IF(O2.EQ.1H5)LIM=3 + IF(O2.EQ.1H6)LIM=2 + IF(O2.EQ.1H7)LIM=1 + IF(CODE.NE.1.00)GO TO 1201 +C LIM=6 +C IF(NBUP.LT.30)LIM=5 + LIM=5 + IF(NBUP.LT.22)LIM=4 + IF(NBUP.LT.12)LIM=3 + IF(NBUP.LT.7)LIM=2 + IF(LABELP(1).EQ.8HCONT )LIM=2 + 1201 CONTINUE + IF(AUTO.EQ.3HCOR)GO TO 900 +C WRITE(6,144)WL,GFLOG,XJ,E,XJP,EP,CODE,LABEL,LABELP,WL,NELION, +C 1GAMMAR,GAMMAS,GAMMAW,REF,NBLO,NBUP,ISO1,X1,ISO2,X2,OTHER1,OTHER2 +C 144 FORMAT(F11.4,F7.3,F5.1,F12.3,F5.1,F12.3,F9.2,A8,A2,A8,A2/ +C 1F11.4,I4,F6.2,F6.2,F6.2,A4,I2,I2,I3,F7.3,I3,F7.3,A8,A2,A8,A2) +C IF(NKP.GT.0)NDELET(NKP/10+1)=NDELET(NKP/10+1)+NTENS(MOD(NKP,10)+1) + GR=GAMMAR + GS=GAMMAS + GW=GAMMAW + GF=EXP((GFLOG+DGFLOG+X1+X2)*2.30258509299405E0) + ELO=DMIN1(DABS(E),DABS(EP)) + GAMMAR=EXP((GAMMAR+DGAMMAR)*2.30258509299405E0) + GAMMAS=EXP((GAMMAS+DGAMMAS)*2.30258509299405E0) + GAMMAW=EXP((GAMMAW+DGAMMAW)*2.30258509299405E0) + IF(GAMMAR.EQ.1)THEN + GAMMAR=2.223E13/WLVAC**2 + GR=ALOG10(GAMMAR) + ENDIF + IF(GAMMAS.NE.1..AND.GAMMAW.NE.1.)GO TO 141 + IF(GAMMAS.NE.1.)GO TO 138 + IF(CODE.GE.100.)GO TO 137 + EUP=DMAX1(DABS(E),DABS(EP)) + ZEFF=(CODE-FLOAT(IFIX(CODE)))*100.+1. + EFFNSQ=25. + DELEUP=POTION(NELION)-EUP + IF(DELEUP.GT.0.)EFFNSQ=109737.31*ZEFF**2/DELEUP + GAMMAS=1.0E-8*EFFNSQ**2*SQRT(EFFNSQ) + GS=ALOG10(GAMMAS) + GO TO 138 + 137 GAMMAS=1.0E-5 + GS=-5. + 138 IF(GAMMAW.NE.1.)GO TO 141 + IF(CODE.GE.100.)GO TO 139 + EUP=DMAX1(DABS(E),DABS(EP)) + ZEFF=(CODE-FLOAT(IFIX(CODE)))*100.+1. + EFFNSQ=25. + DELEUP=POTION(NELION)-EUP + IF(DELEUP.GT.0.)EFFNSQ=109737.31*ZEFF**2/DELEUP +C EFFNSQ=AMIN1(EFFNSQ,100.) + EFFNSQ=AMIN1(EFFNSQ,1000.) + RSQ=2.5*(EFFNSQ/ZEFF)**2 + NSEQ=CODE-ZEFF+1. + IF(NSEQ.GT.20.AND.NSEQ.LT.29)RSQ=(45.-FLOAT(NSEQ))/ZEFF + GAMMAW=4.5E-9*RSQ**.4 + GW=ALOG10(GAMMAW) + GO TO 141 + 139 GAMMAW=1.E-7/ZEFF + GW=ALOG10(GAMMAW) + 141 CONTINUE + IF(LABELP(1).EQ.8HCONT ) + AWRITE(6,144)WL,GFLOG,XJ,E,XJP,EP,CODE,LABEL,LABELP,DWLISO, + 1WL,NELION,GR,GS,GW,REF,NBLO,NBUP,ISO1,X1,ISO2,X2,OTHER1,OTHER2, + 2DWL,DGFLOG,DGAMMAR,DGAMMAS,DGAMMAW,NOTES + 144 FORMAT(F11.4,F7.3,F5.1,F12.3,F5.1,F12.3,F9.2,A8,A2,A8,A2,F7.4/ + 1F11.4,I4,F6.2,F6.2,F6.2,A4,I2,I2,I3,F7.3,I3,F7.3,A8,A2,A8,A2, + 2F7.4,F7.3,3F6.2,A20) +C TYPE=-1 HYDROGEN LINE +C TYPE=0 NORMAL LINE +C TYPE=1 AUTOIONIZING LINE +C TYPE=2 CORONAL APPROXIMATION LINE +C TYPE=3 PRD LINE +C TYPE.GT.3 = NLAST CONTINUUM + TYPE=0 + IF(CODE.EQ.1.00)TYPE=-1 + IF(AUTO.EQ.3HCOR)TYPE=2 + IF(AUTO.EQ.3HAUT)TYPE=1 + IF(AUTO.EQ.3HPRD)TYPE=3 + IF(LABELP(1).EQ.8HCONT )NLAST=XJP + IF(LABELP(1).EQ.8HCONT )GF=GF*(XJ+XJ+1.) + NCON=0 + IF(ISO1.EQ.0.AND.ISO2.GT.0)NCON=ISO2 + IF(TYPE.EQ.1)GO TO 17 + IF(TYPE.GT.3)GO TO 17 + FRELIN=2.99792458E17/WLVAC + CGF=.026538/1.77245*GF/FRELIN +C GR IS GAUNT FACTOR FOR CORONAL LINES + IF(TYPE.EQ.2)GAMMAR=GR + IF(TYPE.EQ.2)GO TO 1253 + GAMMAR=GAMMAR/12.5664/FRELIN + GAMMAS=GAMMAS/12.5664/FRELIN + GAMMAW=GAMMAW/12.5664/FRELIN + 17 NBUP=IABS(NBUP) + NBLO=IABS(NBLO) + DO 1250 I=1,17 + IF(CODE.EQ.CODEX(I))GO TO 1252 + 1250 CONTINUE + WRITE(6,1251)CODE + 1251 FORMAT(9H BAD CODE,F10.2) + CALL EXIT + 1252 NELIONX=I + NELION=NEWNELION(NELIONX) + 1253 WRITE(19)WLVAC,ELO,GF,NBLO,NBUP,NELION,TYPE,NCON,NELIONX, + 1GAMMAR,GAMMAS,GAMMAW,NBUFF,LIM + IF(LABELP(1).EQ.8HCONT )PRINT 1118,TYPE + N19=N19+1 +C WRITE(6,5555)WLVAC,ILINE +C 5555 FORMAT(112X,F10.4,I10) + 900 CONTINUE + 145 WRITE(6,1118)N19 + 1118 FORMAT(I10,25H LINES WRITTEN ON TAPE 19) + CALL EXIT + END + SUBROUTINE IONPOTS +C +C Moore, C.E., NSRDS-NBS 34,1970,22pp. +C AEL, rare-earth elements, 1978,NSRDS-NBS 60,411pp. +C Kelley,R.L. and Harrison, D.E, Atomic Data 3,177-193,1971. Ga V,VI,Ge VI +C Martin,W.C. et al. ,JPCRDa,3,771-780,1974. Ac I-Es I +C Guess 55.02 56.02 73.01 73.02 74.01 74.02 75.01 75.02 76.01 76.01 +C Guess 77.01 77.02 78.02 79.02 84.01 84.02 85.00 85.01 85.02 86.01 86.02 +C Guess 87.00 87.01 87.02 88.02 89.02 91.01 91.02 92.01 92.02 93.01 93.02 +C Guess 94.01 94.02 95.01 95.02 96.01 96.02 97.01 97.02 98.01 98.02 +C Guess 99.01 99.02 +C + COMMON /POTION/POTION(594) + DIMENSION POTA(114),POTB(114),POTC(114),POTD(114),POTE(114) + DIMENSION POTF(24) + EQUIVALENCE (POTION(1),POTA(1)),(POTION(115),POTB(1)) + EQUIVALENCE (POTION(229),POTC(1)),(POTION(343),POTD(1)) + EQUIVALENCE (POTION(457),POTE(1)),(POTION(571),POTF(1)) + DATA POTA/ + 1 109678.764, 0. , 0. , 0. , 0. , 0. , 1 + 2 198310.76 , 438908.85 , 0. , 0. , 0. , 0. , 2 + 3 43487.150, 610079.0 , 987660.1 , 0. , 0. , 0. , 3 + 4 75192.07 , 146882.86 ,1241259.4 ,1756018.7, 0. , 0. , 4 + 5 66928.10 , 202887.4 , 305931.1 ,2092001.4,2744105.1, 0. , 5 + 6 90820.42 , 196664.7 , 386241.0 , 520178.4,3162395. ,3952061.4, 6 + 7 117225.4 , 238750.5 , 382704. , 624866. , 789537.2,4452758. , 7 + 8 109837.02 , 283240. , 443086. , 624383.8, 918657. ,1114008. , 8 + 9 140524.5 , 282058.6 , 505777. , 702830. , 921430. ,1267622. , 9 + T 173929.70 , 330391.0 , 511800. , 783300. ,1018000. ,1273800. , 10 + 1 41449.44 , 381395. , 577800. , 797800. ,1116200. ,1388500. , 11 + 2 61671.02 , 121267.61 , 646410. , 881100. ,1139400. ,1504300. , 12 + 3 48278.37 , 151860.4 , 229445.71, 967800. ,1239800. ,1536300. , 13 + 4 65747.5 , 131838.4 , 270139.3 , 364093.1,1345100. ,1653900. , 14 + 5 84580. , 159100. , 243400. , 414312.4, 524460. ,1777900. , 15 + 6 83558.0 , 188200. , 280900. , 381541.4, 586200. , 710184. , 16 + 7 104591.0 , 192070. , 319500. , 431226. , 547000. , 782600. , 17 + 8 127109.9 , 222848.2 , 328600. , 482400. , 605100. , 734040. , 18 + 9 35009.77 , 255076. , 368800. , 491300. , 666700. , 806600. / 19 + DATA POTB/ + 1 49305.72 , 95751.87 , 410614.1 , 541200. , 680800. , 877400. , 20 + 2 52750. , 103240. , 199700. , 592600. , 739300. , 896000. , 21 + 3 55010. , 109506. , 221735. , 348973. , 800300. , 962700. , 22 + 4 54400. , 118200. , 236400. , 376730. , 526100. ,1033400. , 23 + 5 54570. , 133060. , 249700. , 396000. , 559000. , 730400. , 24 + 6 59970. , 126145. , 271550. , 413000. , 584000. , 766000. , 25 + 7 63480. , 130524. , 247221. , 442000. , 604900. , 798500. , 26 + 8 63430. , 137572. , 270200. , 413800. , 641200. , 823000. , 27 + 9 61579. , 146541.56 , 283700. , 442800. , 609000. , 871000. , 28 + T 62317.2 , 163669.2 , 297100. , 445124. , 644500. , 831000. , 29 + 1 75768.10 , 144892.6 , 320390. , 479100. , 666000. , 871000. , 30 + 2 48387.63 , 165458. , 247700. , 517600. , 726000. , 944000. , 31 + 3 63715. , 128521.3 , 276036. , 368701. , 753800. , 968000. , 32 + 4 79165. , 150290. , 228670. , 404369. , 505136. ,1028800. , 33 + 5 78658.22 , 170900. , 248583. , 346375. , 551000. , 658994. , 34 + 6 95284.8 , 175870. , 289529. , 381600. , 481600. , 714800. , 35 + 7 112914.5 , 196474.8 , 298020. , 423600. , 522000. , 633300. , 36 + 8 33690.81 , 220048. , 320000. , 424400. , 572800. , 680900. , 37 + 9 45932.0 , 88964.0 , 351800. , 460000. , 577700. , 732600. / 38 + DATA POTC/ + 1 51447. , 98690. , 165500. , 498600. , 621200. , 750300. , 39 + 2 55145. , 105900. , 185400. , 276970. , 657600. , 0. , 40 + 3 55511. , 115500. , 202000. , 308600. , 407700. , 827300. , 41 + 4 57260. , 130300. , 219100. , 374180. , 493360. , 549000. , 42 + 5 58700. , 123100. , 238300. , 0. , 0. , 0. , 43 + 6 59410. , 135200. , 229600. , 0. , 0. , 0. , 44 + 7 60197. , 145800. , 250500. , 0. , 0. , 0. , 45 + 8 67236. , 156700. , 265600. , 0. , 0. , 0. , 46 + 9 61106.50 , 173300. , 280900. , 0. , 0. , 0. , 47 + T 72538.8 , 136374.74 , 302300. , 0. , 0. , 0. , 48 + 1 46670.11 , 152195. , 226100. , 439000. , 0. , 0. , 49 + 2 59231.8 , 118017.0 , 246020.0 , 328550. , 583000. , 0. , 50 + 3 69700. , 133327.5 , 204248. , 356156. , 449300. , 868000. , 51 + 4 72667. , 150000. , 225500. , 301776. , 473900. , 570000. , 52 + 5 84295.1 , 154304. , 266000. , 0. , 0. , 0. , 53 + 6 97834.0 , 171068.4 , 259089. , 0. , 0. , 0. , 54 + 7 31406.432, 202263. , 280000. , 0. , 0. , 0. , 55 + 8 42035.14 , 80686.87 , 300000. , 0. , 0. , 0. , 56 + 9 44981. , 89200. , 154675. , 402900. , 497000. , 0. / 57 + DATA POTD/ + 1 44672. , 87500. , 162903. , 296470. , 528700. , 626000. , 58 + 2 44070. , 85100. , 174407. , 314400. , 464000. , 0. , 59 + 3 44562. , 86500. , 178600. , 326000. , 0. , 0. , 60 + 4 44800. , 87900. , 180000. , 331000. , 0. , 0. , 61 + 5 45519. , 89300. , 189000. , 334000. , 0. , 0. , 62 + 6 45734.9 , 90665. , 201000. , 344000. , 0. , 0. , 63 + 7 49603. , 97500. , 166400. , 355000. , 0. , 0. , 64 + 8 47295. , 92900. , 176700. , 317500. , 0. , 0. , 65 + 9 47900. , 94100. , 183800. , 334000. , 0. , 0. , 66 + T 48567. , 95200. , 184200. , 343000. , 0. , 0. , 67 + 1 49262. , 96200. , 183400. , 344000. , 0. , 0. , 68 + 2 49879.8 , 97200. , 191000. , 344000. , 0. , 0. , 69 + 3 50441.0 , 98269. , 202070. , 351300. , 0. , 0. , 70 + 4 43762.39 , 112000. , 169049. , 364960. , 538700. , 0. , 71 + 5 56600. , 120000. , 187800. , 268500. , 0. , 0. , 72 + 6 63600. , 131000. , 194000. , 0. , 0. , 0. , 73 + 7 64400. , 143000. , 202000. , 0. , 0. , 0. , 74 + 8 63530. , 134000. , 210000. , 0. , 0. , 0. , 75 + 9 70450. , 137000. , 218000. , 0. , 0. , 0. / 76 + DATA POTE/ + 1 73000. , 161000. , 226000. , 0. , 0. , 0. , 77 + 2 72300. , 149723. , 234000. , 0. , 0. , 0. , 78 + 3 74410. , 165000. , 242000. , 0. , 0. , 0. , 79 + 4 84184.1 , 151280. , 276000. , 0. , 0. , 0. , 80 + 5 49266.7 , 164765. , 240600. , 0. , 0. , 0. , 81 + 6 59819.4 , 121243. , 257592. , 341350. , 555000. , 0. , 82 + 7 58790. , 134600. , 206180. , 365500. , 451700. , 712000. , 83 + 8 67885.3 , 153000. , 218000. , 0. , 0. , 0. , 84 + 9 75000. , 161000. , 242000. , 0. , 0. , 0. , 85 + T 86692.5 , 161000. , 242000. , 0. , 0. , 0. , 86 + 1 32000. , 177000. , 266000. , 0. , 0. , 0. , 87 + 2 42577.35 , 81842.31 , 274000. , 0. , 0. , 0. , 88 + 3 41700. , 97300. , 161000. , 0. , 0. , 0. , 89 + 4 49000. , 93000. , 161000. , 231900. , 0. , 0. , 90 + 5 47500. , 95000. , 161000. , 0. , 0. , 0. , 91 + 6 48800. , 95000. , 161000. , 0. , 0. , 0. , 92 + 7 49900. , 95000. , 161000. , 0. , 0. , 0. , 93 + 8 48900. , 95000. , 161000. , 0. , 0. , 0. , 94 + 9 48300. , 95000. , 161000. , 0. , 0. , 0. / 95 + DATA POTF/ + 1 48600. , 95000. , 161000. , 0. , 0. , 0. , 96 + 2 50200. , 95000. , 161000. , 0. , 0. , 0. , 97 + 3 50800. , 95000. , 161000. , 0. , 0. , 0. , 98 + 4 51800. , 95000. , 161000. , 0. , 0. , 0. / 99 + RETURN + END diff --git a/synthe/p7110-7116.com b/synthe/p7110-7116.com new file mode 100644 index 0000000..8210e82 --- /dev/null +++ b/synthe/p7110-7116.com @@ -0,0 +1,67 @@ +ln -s /home/castelli/diskbl/sun/synspect/f7000-7210vr2br325br523000.bin fort.7 +/home/castelli/diskal/synthe/plotsynimcol.exe<<EOF + 1 0 0 0 0 0 0 0 0 + IFLABL IFABSO IFCONT IFGRID IFDLIN IFLOG JUST1 NOWAVE NOCALC + 0 0 2 0 0 0 0 0 0 + IFNOAX IFMU NOPRNT IFKPNO IFKPK IFSACP IFHAWA IFNRL IFPROC + 0 0 0 0 0 0 0 0 0 + IFSIR IFARC IFSUNF IFSOIR IFHALL IFENGV IFOPAC IFFTS IFDUM5 +1.26 1.5732 .01 90. 0. 1. 0.8 0. +YSCALE XSCALE WEAK PANEL CYCLES OFFSET RMIN RMAX + 0. 711.0 711.6 0. 0. 0. 0. 0. +TOP WNEW1 WNEW2 TICKTOP TICKBOT SMOOTH DOPOBS DOPCALC +0. 0.000 0.000 0. 0. 0.5 0. RED +DOPTERR SCALOBS ZEROOBS RMIN2 RMAX2 XOFFSET SCALOB2 COLORCALC +01010101010101010101010101010101010101010101010101010101010101010101010101 +12345678901234567890123456789012345678901234567890123456789012345678901234 +1 +2 +3 +4 +5 +6 +7 +8 +9 +EOF +mv plot.vec plot1.vec +ln -s /home/castelli/diskbl/sun/atlaskur/sn7000-7210.bin fort.55 +/home/castelli/diskal/synthe/plotobsimcol.exe<<EOF + 0 0 0 0 1 0 0 0 1 + IFLABL IFABSO IFCONT IFGRID IFDLIN IFLOG JUST1 NOWAVE NOCALC + 1 0 2 0 0 0 0 0 0 + IFNOAX IFMU NOPRNT IFKPNO IFKPK IFSACP IFHAWA IFNRL IFPROC + 0 0 0 0 0 0 0 0 0 + IFSIR IFARC IFSUNF IFSOIR IFHALL IFENGV IFOPAC IFFTS IFDUM5 +1.26 1.5732 .9 90. 0. 1. 0.8 0. +YSCALE XSCALE WEAK PANEL CYCLES OFFSET RMIN RMAX + 0. 711.0 711.6 0. 0. 0. 0. 0. +TOP WNEW1 WNEW2 TICKTOP TICKBOT SMOOTH DOPOBS DOPCALC +0. 0.000 0.000 0. 0. 0.5 0. BLACK +DOPTERR SCALOBS ZEROOBS RMIN2 RMAX2 XOFFSET SCALOB2 COLORCALC +01010101010101010101010101010101010101010101010101010101010101010101010101 +12345678901234567890123456789012345678901234567890123456789012345678901234 +1 +2 +3 +4 +5 +6 +7 +8 +9 +EOF +mv plot.vec plot2.vec +ln -s /home/castelli/diskbl/sun/synspect/plot1.vec fort.1 +ln -s /home/castelli/diskbl/sun/synspect/plot2.vec fort.2 +/home/castelli/diskal/synthe/mergeplotcol.exe +mv PLOT plot.vec +rm fort.* +ln -s plot.vec fort.1 +/home/castelli/diskal/synthe/psplotcol.exe +mv fort.2 plot.ps +rm *.vec +#lpr plot.ps +ggv plot.ps +rm plot.ps +rm fort.* diff --git a/synthe/plotobsimcol.for b/synthe/plotobsimcol.for new file mode 100644 index 0000000..461d787 --- /dev/null +++ b/synthe/plotobsimcol.for @@ -0,0 +1,1129 @@ + PROGRAM PLOTobsim +c revised 23jan93 +C TAPE7 IS CALCULATED SPECTRUM +C TAPE55 READ BY OBSERV +C TAPE56 READ BY OBSERV1 +C TAPE57 READ BY OBSERV2 +C TAPE58 READ BY OBSENGV +C TAPE59 READ BY OBSHALL +C TAPE60 READ BY OBSKPNO +C TAPE61 READ BY OBSKPK +C TAPE62 READ BY OBSSACP +C TAPE63 READ BY OBSHAWA +C TAPE64 READ BY OBSNRL +C TAPE65 READ BY OBSPROC +C TAPE66 READ BY OBSSIR +C TAPE67 READ BY OBSARC +C TAPE68 READ BY OBSSUNF +C TAPE69 READ BY OBSSOIR +C TAPE71 READ BY OBSFTS2 +C TAPE72 READ BY OBSFTS2 +C TAPE73 READ BY OBSFTS +C TAPE74 READ BY OBSJUNG +C TAPE76 READ BY LABEL5 AFCRL LINE LIST +C TAPE77 READ BY LABEL9 PIERCE AND BRECKENRIDGE +C TAPE93 IS TEMPORARY STORAGE FOR LABEL DATA +C +C IFLABL=N LINES ARE LABELLED. A NUMBER N ENDING IN THE DIGIT I +C PRODUCES A CALL TO SUBROUTINE LABELI +C =1 NORMAL LABELS FOR CALCULATED SPECTRUM, 25/INCH, TWO ROWS +C =11 NORMAL LABELS FOR CALCULATED SPECTRUM, 12.5/INCH, ONE ROW +C =21 +C =31 NORMAL LABELS FOR CALCULATED SPECTRUM, 12.5/INCH, +C LOWER ROW ATOMS, UPPER ROW MOLECULES +C =2 +C =3 +C =4 +C =5 LABEL AFCRL TERRESTRIAL LINES 25/INCH, TWO ROWS +C =15 LABEL AFCRL TERRESTRIAL LINES 12.5/INCH, ONE ROW +C =6 +C =7 NORMAL LABELS FOR CALCULATED OPACITY SPECTRUM, 25/INCH +C =8 +C =9 LABEL PIERCE AND BRECKENRIDGE LINES +C IFLABL=0 NO LABELS +C IFABSO=0 THE PLOT IS IN RESIDUAL INTENSITY OR FLUX +C IFABSO=1 THE PLOT IS IN ABSOLUTE UNITS +C IFCONT=1 AND IFABSO=1 THE CONTINUUM IS PLOTTED +C IFCONT=0 NO CONTINUUM +C IFCONT=2 CONTINUUM USED FOR MAXIMUM BUT NOT PLOTTED +C IFCONT=3 ONLY CONTINUUM IS PLOTTED +C IFGRID=1 A BACKGROUND GRID IS PLOTTED IF XSCALE= 2. +C IFDLINE=1 SPECTRUM LINES ARE DOUBLE WEIGHT +C IFLOG=1 PLOT IS LOG WITH CYCLES CYCLES +C IFLOG=0 PLOT IS LINEAR +C JUST1=0 ALL PANELS ARE PLOTTED +C JUST1 GREATER THAN 0 A TABLE OF SWITCHES FOR EACH PANEL IS READ +C NOWAVE=1 DO NOT PUT WAVELENGTH IN BANNER AT ENDS OF PANELS +C NOWAVE=0 PUT WAVELENGTH IN BANNER AT ENDS OF PANELS +C IFNEWW CHANGE TO NEW STARTING AND STOPPING WAVELENGTHS AS READ IN +C NOCALC=0 CALCULATIONS ARE TO BE READ +C NOCALC=1 NO CALCULATIONS ARE TO BE READ REQUIRES IFNEWW=1 +C IFDUM1 +C IFNOAX=1 AXES ARE NOT LABELLED +C IFNOAX=-1 AXES ARE LABELLED. Y TWICE 0 TO 1 AND .9 TO 1 +C IFMU=0 PLOT FIRST ANGLE OR FLUX +C IFMU=1 TO 20 PLOT ANGLE IFMU +C NOPRNT=0 PRINT ALL LINE DATA +C NOPRNT=1 NO PRINTING OF LINE DATA +C NOPRNT=2 PRINT LINE DATA ONLY FOR LINES THAT ARE LABELLED +C IFKPNO.GT.0 PLOT KITT PEAK PRELIMINARY SOLAR ATLAS +C IFKPK.GT.0 PLOT KOHL, PARKINSON, AND KURUCZ SOLAR ATLAS +C IFSACP.GT.0 PLOT SAC PEAK SOLAR FLUX ATLAS +C IFHAWA.GT.0 PLOT HAWAII SOLAR ATLAS +C IFNRL.GT.0 PLOT NRL SOLAR ATLAS +C IFPROC.GT.0 PLOT GRIFFIN PROCYON ATLAS +C IFDUM2 +C IFSIR.GT.0 PLOT FURENLID SIRIUS ATLAS +C IFARC.GT.0 PLOT GRIFFIN ARCTURUS ATLAS +C IFSUNF.GT.0 PLOT FURENLID AND KURUCZ SOLAR FLUX ATLAS +C IFSOIR.GT.0 PLOT INFRARED FTS SOLAR ATLAS +C IFHALL.GT.0 PLOT HALL INFRARED SUNSPOT ATLAS +C IFENGV.GT.0 PLOT ENGVOLD SUNSPOT ATLAS +C IFOPAC=N INPUT CALCULATED SPECTRUM IS MASS ABSORPTION COEFFICIENT +C OUTPUT FROM SYNTHE. USE ASYNTH(N). PLOT MUST USUALLY BE LOG. +C IFFTS.GT.0 PLOT AN FTS SPECTRUM FROM KITT PEAK +C IFFTS2.GT.0 PLOT THE RATIO OF TWO FTS SPECTRA FROM KITT PEAK +C IFJUNG.GT.0 PLOT JUNGFRAUJOCH SOLAR ATLAS +C YSCALE IS THE HEIGHT OF THE PLOT IN MULTIPLES OF 3.125 +C DEFAULT=1. FOR XSCALE.GT.0 AND XSCALE.LT.1 +C DEFAULT=2. FOR XSCALE.GT.1 +C OTHERWISE YTOP=6.25 +C XSCALE=1. 10 IN/NM +C XSCALE=2. 20 IN/NM +C XSCALE=4. 40 IN/NM +C XSCALE=8. 80 IN/NM +C WEAK IS 1.-RESIDUAL INTENSITY OF THE WEAKEST LINES TO BE LABELED +C IF WEAK = 0 ALL LINES ARE LABELED +C PANEL IS MAXIMUM LENGTH OF EACH PLOT PANEL +C AN ADDITIONAL .1NM IS ADDED FOR OVERLAP BETWEEN PANELS +C CYCLES IS NUMBER OF CYCLES IF PLOT IS LOG +C OFFSET IS THE NUMBER OF INCHES BY WHICH THE PLOT IS DISPLACED +C VERTICALLY +C RMIN IS THE RESIDUAL INTENSITY AT THE BOTTOM OF THE PLOT +C RMAX IS THE RESIDUAL INTENSITY AT THE TOP OF THE PLOT. DEFAULT 1. +C TOP FIXES THE VALUE OF THE TOP OF THE PLOT IF IFABSO = 1 +C IF TOP=0. THE TOP IS SET TO THE MAXIMUM VAUE IN EACH PANEL +C WNEW1 IS A NEW STARTING WAVELENGTH +C WNEW2 IS A NEW STOPPING WAVELENGTH +C TICKTOP IS THE SIZE AND DIRECTION OF TICK MARKS AT THE TOP OF THE PLOT +C TICKBOT IS THE SIZE AND DIRECTION OF TICK MARKS AT THE BOTTOM OF THE PLOT +C DEFAULT IS -0.15 AND +0.15 +C SMOOTH IS A SMOOTHING PARAMETER TO BE TRANSMITTED TO OBS SUBROUTINES +C IT WOULD GENERALLY BE THE FWHM IN POINT NUMBERS OF A GAUSSIAN +C IF NEGATIVE IT IS THE CENTRAL WEIGHT FOR THREE POINT SMOOTHING +C DOPOBS IS A DOPPLER SHIFT IN KM/S FOR THE OBSERVED SPECTRA +C DOPCALC IS A DOPPLER SHIFT IN KM/S FOR THE CALCULATED SPECTRUM +C DOPTERR IS A DOPPLER SHIFT IN KM/S FOR TERRESTRIAL SPECTRUM OR LABELS +C SCALOBS IS A FACTOR BY WHICH AN OBSERVED SPECTRUM IS TO BE SCALED +C ZEROOBS IS A ZERO LEVEL CORRECTION TO AN OBSERVED SPECTRUM +C RMIN2 THE COMPUTED SPECTRUM IS PLOTTED TWICE, SECOND WITH RMIN2 +C RMAX2 THE COMPUTED SPECTRUM IS PLOTTED TWICE, SECOND WITH RMAX2 +C XOFFSET IS THE NUMBER OF INCHES THE PLOT IS DISPLACED IN X +C SCALOB2 IF 0 = SCALOBS +C IF NOT 0 SCALOBS IS THE SCALING FACTOR FOR THE BEGINNING AND +C SCALOB2 IS THE SCALING FACTOR FOR THE END AND +C INTERMEDIATE VALUES ARE LINEARLY INTERPOLATED +C DUMMY7 + COMMON /PARAMS/XSCALE, + 1 RMIN,WEAK,TOP,PANEL,CYCLES,WBEGIN,WEND,W1,W2,YTOP, + 2 HMAX,HMIN,YSCALE,OFFSET,RMAX, + 3 WNEW1,WNEW2,SMOOTH,DOPOBS,DOPCALC,DOPTERR, + 4 SCALOBS,ZEROOBS,RMIN2,RMAX2,XOFFSET,SCALOB2,IUERM, + 5 IFLABL,IFABSO,IFCONT,IFGRID,IFDLIN,IFLOG,IFMU,NOCALC + 6 IFVAC,NOPRNT + REAL*8 WBEGIN,WEND,W1,W2,RESOLU,RATIO,WNEW1,WNEW2,WAVEL + REAL*8 WAVE,WBEGDOP + REAL*8 TITLE(74),XMU(20),WLEDGE(200),TEFF,GLOG + COMMON /CELL/MAXCEL,IFCELL(40000) + REAL*8 Q2(40) +C REAL*4 MESSAGE(20,9),ASYNTH(64),TURBV,ALINEC(64) + REAL*4 ASYNTH(64),TURBV,ALINEC(64) + CHARACTER*79 MESSAGE(9) + INTEGER VLO,VUP +CCRAY REAL*8 WORDS(3) + REAL*4 WORDS(6) + COMMON /LINDAT/WL,E,EP,LABEL(2),LABELP(2),OTHER1(2),OTHER2(2), + 1 WLVAC,CENTER,CONCEN, NELION,GAMMAR,GAMMAS,GAMMAW,REF, + 2 NBLO,NBUP,ISO1,X1,ISO2,X2,GFLOG,XJ,XJP,CODE,ELO,GF,GS,GR,GW, + 3 DWL,DGFLOG,DGAMMAR,DGAMMAS,DGAMMAW,EXTRA1,EXTRA2,EXTRA3 + REAL*8 LINDAT8(14) + REAL*4 LINDAT(28) + EQUIVALENCE (LINDAT8(1),WL),(LINDAT(1),NELION) + REAL*8 RATIOLG,SIGMA2,WLBEG,WLEND + REAL*8 WL,E,EP,WLVAC,CENTER,CONCEN + REAL*8 LABEL,LABELP,OTHER1,OTHER2 + COMMON/COLOR/COLOROBS + CHARACTER*10 COLOROBS + DIMENSION IFPANL(80) + COMMON /HEADERDATA/USERID(2),FILENAME(2), + 1 IDATE(3),ITIME(2),JOBID(2) + REAL*8 USERID,FILENAME + CHARACTER*9 HEADERDATA(5) + CHARACTER*6 WW6,STRING6 + CHARACTER*9 STRING9 + DATA IFPANL/80*1/ +C CALL FILEREP +C CALL BEGTIME +C CALL RDYOUTF(6,0) + IUERM=0 + READ(5,1001)IFLABL,IFABSO,IFCONT,IFGRID,IFDLIN,IFLOG,JUST1,NOWAVE, + 1NOCALC,IFDUM1 + 1001 FORMAT(10I8) + WRITE(6,1002)IFLABL,IFABSO,IFCONT,IFGRID,IFDLIN,IFLOG,JUST1, + 1NOWAVE,NOCALC,IFDUM1 + 1002 FORMAT(1X,10I8/' IFLABL IFABSO IFCONT IFGRID IFDLIN', + 1' IFLOG JUST1 NOWAVE NOCALC IFDUM1') + READ(5,1001) + READ(5,1001)IFNOAX,IFMU,NOPRNT,IFKPNO,IFKPK,IFSACP,IFHAWA,IFNRL, + 1IFPROC,IFSIR + WRITE(6,1003)IFNOAX,IFMU,NOPRNT,IFKPNO,IFKPK,IFSACP,IFHAWA,IFNRL, + 1IFPROC,IFDUM2 + 1003 FORMAT(1X,10I8/' IFNOAX IFMU NOPRNT IFKPNO IFKPK' + 1' IFSACP IFHAWA IFNRL IFPROC IFDUM2') + READ(5,1001) + READ(5,1001)IFSIR,IFARC,IFSUNF,IFSOIR,IFHALL,IFENGV,IFOPAC,IFFTS, + 1IFFTS2,IFJUNG + WRITE(6,1004)IFSIR,IFARC,IFSUNF,IFSOIR,IFHALL,IFENGV,IFOPAC, + 1IFFTS,IFFTS2,IFJUNG + 1004 FORMAT(1X,10I8/' IFSIR IFARC IFSUNF IFSOIR IFHALL', + 1' IFENGV IFOPAC IFFTS IFFTS2 IFJUNG') + READ(5,1001) + READ(5,1005)YSCALE,XSCALE,WEAK,PANEL,CYCLES,OFFSET,RMIN,RMAX + 1005 FORMAT(8F10.3) + WRITE(6,1006)YSCALE,XSCALE,WEAK,PANEL,CYCLES,OFFSET,RMIN,RMAX + 1006 FORMAT(1X,8F10.3/75H YSCALE XSCALE WEAK PANEL CYCLE + 1S OFFSET RMIN RMAX) + READ(5,1001) + READ(5,1007)TOP,WNEW1,WNEW2,TICKTOP,TICKBOT,SMOOTH,DOPOBS,DOPCALC + 1007 FORMAT(E10.3,7F10.3) + WRITE(6,1008)TOP,WNEW1,WNEW2,TICKTOP,TICKBOT,SMOOTH,DOPOBS,DOPCALC + 1008 FORMAT(1PE10.3,0P7F10.3/79H TOP WNEW1 WNEW2 TICKTOP + 1 TICKBOT SMOOTH DOPOBS DOPCALC ) + READ(5,1001) + READ(5,1027)DOPTERR,SCALOBS,ZEROOBS,RMIN2,RMAX2,XOFFSET,SCALOB2, + 1COLOROBS + 1027 FORMAT(7F10.3,A10) + WRITE(6,1028)DOPTERR,SCALOBS,ZEROOBS,RMIN2,RMAX2,XOFFSET,SCALOB2, + 1COLOROBS + 1028 FORMAT(7F10.3,A10 + 1 /' DOPTERR SCALOBS ZEROOBS RMIN2 RMAX2 + 1 XOFFSET SCALOB2 COLOROBS' ) + READ(5,1001) + READ(5,1009)IFPANL + 1009 FORMAT(80I1) + WRITE(6,1010)IFPANL + 1010 FORMAT(1X,80I1/81H 12345678901234567890123456789012345678901234567 + 1890123456789012345678901234567890) + READ(5,1001) + MU=IFMU + IF(IFMU.EQ.0)MU=1 + IF(JUST1.GT.0)GO TO 1020 + DO 1019 IPANEL=1,80 + 1019 IFPANL(IPANEL)=1 + 1020 CONTINUE + READ(5,2)MESSAGE + 2 FORMAT(1X,A79) + WRITE(6,2)MESSAGE + 5 CONTINUE + IF(RMAX.EQ.0.)RMAX=1. + IFRMAX2=0 + IF(RMIN2.NE.0.)IFRMAX2=1 + IF(RMAX2.NE.0.)IFRMAX2=1 + IF(RMAX2.EQ.0.)RMAX2=1. + Y=YSCALE + IF(XSCALE.EQ.0.)XSCALE=2. + YSCALE=2. + IF(XSCALE.LT.1.)YSCALE=1. + IF(Y.GT.0.)YSCALE=Y + IF(PANEL.EQ.0.)PANEL=5. + IF(SCALOBS.EQ.0.)SCALOBS=1. + IF(SCALOB2.EQ.0.)SCALOB2=SCALOBS +C OPEN(UNIT=55,READONLY,SHARED,TYPE='OLD',FORM='UNFORMATTED') + IF(NOCALC.EQ.1)GO TO 207 +C OPEN(UNIT=7,READONLY,SHARED,TYPE='OLD',FORM='UNFORMATTED') + REWIND 7 + IF(IFOPAC.NE.0)GO TO 205 + READ(7)TEFF,GLOG,TITLE,WBEGIN,RESOLU,NWL,IFSURF,NMU,XMU,NEDGE, + 1WLEDGE + NMU2=NMU+NMU + MUNMU=MU+NMU + WRITE(6,4)TEFF,GLOG,TITLE,WBEGIN,RESOLU,NWL,IFSURF + 4 FORMAT(F10.1,F10.3,3X,74A1/F12.4,F10.1,2I10) + IFVAC=1 + IF(TITLE(74).EQ.1HA)IFVAC=0 +C WBEGIN IS THE FIRST CALCULATED WAVELENGTH +C WSTART IS THE FIRST PLOTTED WAVELENGTH + WSTART=WBEGIN + RATIO=1.+1./RESOLU + WEND=WBEGIN*RATIO**(NWL-1) + IWEND=WEND*10.+.5 + WEND=FLOAT(IWEND)/10. + IWSTART=WBEGIN*10.+.5 + WSTART=FLOAT(IWSTART)/10. + IF(WNEW1.EQ.0.)WNEW1=WSTART + IF(WNEW2.EQ.0.)WNEW2=WEND + GO TO 207 + 205 CONTINUE + READ(7)WBEGIN,RESOLU,WLEND,NWL,NRHOX,LINOUT,TURBV,IFVAC + READ(7) + WRITE(6,214)WBEGIN,RESOLU,NWL,NRHOX,IFVAC + 214 FORMAT(F10.3,F10.1,3I10) + IWSTART=WBEGIN*10.+.5 + WSTART=FLOAT(IWSTART)/10. + RATIO=1.+1./RESOLU + WEND=WBEGIN*RATIO**(NWL-1) + IWEND=WEND*10.+.5 + WEND=FLOAT(IWEND)/10. + IF(WNEW1.EQ.0.)WNEW1=WBEGIN + IF(WNEW2.EQ.0.)WNEW2=WEND + 207 CONTINUE + IF(IFLABL.GT.0.AND.NOCALC.EQ.0)THEN + DO 2207 I=1,NWL + 2207 READ(7) + READ(7)NLINES + WRITE(93)NLINES + DO 2208 I=1,NLINES + READ(7)LINDAT8,LINDAT + 2208 WRITE(93)LINDAT8,LINDAT + ENDIF + CALL MAXLENGTH(500) + CALL INITPLT(70) +C CALL START AT (1.,.5) +C CALL START AT (0.,OFFSET) + if(ifdlin.eq.0)call weight(1) + if(ifdlin.eq.1)call weight(2) + END=0. + NPANEL=(WNEW2-WNEW1+PANEL-.001)/PANEL + IPAN1=0 + DO 100 IPANEL=1,NPANEL + W1=WNEW1+FLOAT(IPANEL-1)*PANEL + W2= MIN (W1+PANEL+.1,WNEW2) +C W2=AMIN1(W1+PANEL+.1,WNEW2) + WRITE(6,2990)IPANEL,W1,W2 + 2990 FORMAT(6H PANEL,I3,2F10.3) + IF(IFPANL(IPANEL).EQ.0)GO TO 100 + IF(IPAN1.GT.0)CALL PAGE +C IF(IPAN1.GT.0)CALL START AT (10.,0.) +C CALL START AT (4.85,.5+OFFSET) +c CALL START AT (1.0+XOFFSET,.5+OFFSET) + CALL START AT (1.0+XOFFSET,.5+OFFSET) + IPAN1=1 + WW=W1 + ENCODE(6,2993,WW6)WW + 2993 FORMAT(F6.1) + ENCODE(9,2991,HEADERDATA(1))USERID + ENCODE(9,3992,HEADERDATA(2))JOBID + 3992 FORMAT(A4,A4) + ENCODE(9,3992,HEADERDATA(3))ITIME + ENCODE(9,3993,HEADERDATA(4))IDATE + 3993 FORMAT(A4,A4,A1) + ENCODE(9,2991,HEADERDATA(5))FILENAME + 2991 FORMAT(A8,A1) +c canon is 0.5 higher than xerox THESE ARE CANON + CANON=0. + CANON=.5 +c IF(NOWAVE.EQ.0)THEN +c CALL STRINGX10(WW6,0.,14.20-OFFSET+CANON) +c CALL STRINGX10(WW6,19.5,14.20-OFFSET+CANON) +c CALL STRINGX(HEADERDATA(1),4.0,14.85-OFFSET+CANON) +c CALL STRINGX(HEADERDATA(2),4.0,14.70-OFFSET+CANON) +c CALL STRINGX(HEADERDATA(3),4.0,14.55-OFFSET+CANON) +c CALL STRINGX(HEADERDATA(4),4.0,14.40-OFFSET+CANON) +c CALL STRINGX(HEADERDATA(5),4.0,14.25-OFFSET+CANON) +c ENDIF +c CALL STRINGX(MESSAGE(1),6.,14.85-OFFSET+CANON) +c CALL STRINGX(MESSAGE(2),6.,14.70-OFFSET+CANON) +c CALL STRINGX(MESSAGE(3),6.,14.55-OFFSET+CANON) +c CALL STRINGX(MESSAGE(4),6.,14.40-OFFSET+CANON) +c CALL STRINGX(MESSAGE(5),6.,14.25-OFFSET+CANON) +c CALL STRINGX(MESSAGE(6),12.,14.70-OFFSET+CANON) +c CALL STRINGX(MESSAGE(7),12.,14.55-OFFSET+CANON) +c CALL STRINGX(MESSAGE(8),12.,14.40-OFFSET+CANON) +c CALL STRINGX(MESSAGE(9),12.,14.25-OFFSET+CANON) + CALL STRINGX(MESSAGE(1),3.,10.20) + CALL STRINGX(MESSAGE(2),3.,9.95) + CALL STRINGX(MESSAGE(3),3.,9.70) + CALL STRINGX(MESSAGE(4),3.,9.45) + CALL STRINGX(MESSAGE(5),3.,9.20) + CALL STRINGX(MESSAGE(6),9.,9.95) + CALL STRINGX(MESSAGE(7),9.,9.70) + CALL STRINGX(MESSAGE(8),9.,9.45) + CALL STRINGX(MESSAGE(9),9.,9.20) + CALL COLOR BLACK +C +C DRAW BOX + END=(W2-W1)*10.*XSCALE + CALL JUMP TO (0.,0.) + CALL LINE TO (END,0.) + YTOP=3.125*YSCALE + CALL LINE TO (END,YTOP) + CALL LINE TO (0.,YTOP) + CALL LINE TO (0.,0.) +C +C X AXIS + N=(W2-W1)*10.+1.5 + IF(TICKTOP.EQ.0.)TICKTOP=-.15 + IF(TICKBOT.EQ.0.)TICKBOT=.15 + DO 11 I=1,N + HALF=1. + IF(XSCALE.LT.1..AND.MOD(I,5).NE.1)HALF=.5 + IF(XSCALE.LT..05.AND.MOD(I,100).NE.1)HALF=.5 + IF(XSCALE.LT..01.AND.MOD(I,500).NE.1)HALF=.5 + IF(XSCALE.LT..05.AND.MOD(I,10).NE.1)GO TO 11 + IF(XSCALE.LT..01.AND.MOD(I,100).NE.1)GO TO 11 + X=FLOAT(I-1)*XSCALE + CALL JUMP TO (X,0.) + CALL LINE TO (X,TICKBOT*HALF) + CALL JUMP TO (X,YTOP+TICKTOP*HALF) + CALL LINE TO (X,YTOP) + WAVE=W1+FLOAT(I-1)/10. + IF(XSCALE.LT.1..AND.MOD(I,5).NE.1)GO TO 11 + IF(XSCALE.LT..2.AND.MOD(I,10).NE.1)GO TO 11 + IF(XSCALE.LT..05.AND.MOD(I,100).NE.1)GO TO 11 + IF(XSCALE.LT..01.AND.MOD(I,500).NE.1)GO TO 11 + IF(IFNOAX.NE.1.AND.XSCALE.GE..2)THEN + WRITE(WW6,'(F6.1)')WAVE + CALL STRINGX2(WW6,X-.4,-.3) + ENDIF + IF(IFNOAX.NE.1.AND.XSCALE.LT..2)THEN + IWAVE=WAVE + WRITE(WW6,'(I6)')IWAVE + CALL STRINGX2(WW6,X-.6,-.3) + ENDIF + IF(IFGRID.EQ.0)GO TO 11 + CALL JUMP TO (X,0.) + CALL WEIGHT(12) + CALL LINE TO (X,YTOP) + CALL WEIGHT(1) + 11 CONTINUE +C + IF(XSCALE.GT.10..AND.IFNOAX.NE.1)THEN + N=END*.1+.05 + DO 1611 I=1,N + WAVE=W1+FLOAT(I)/XSCALE + X=I*10 + WRITE(STRING9,'(F9.4)')WAVE + 1611 CALL STRINGX2(STRING9,X-.4,-.3) + ENDIF +C +C Y AXIS + if(rmin.eq.0.)then + DO 12 I=1,11 + Y=FLOAT(I-1)*YTOP/10. + CALL JUMP TO (0.,Y) + CALL LINE TO (.15,Y) + CALL JUMP TO (END-.15,Y) + CALL LINE TO (END,Y) + 12 CONTINUE + endif + IF(IFLOG.EQ.1)GO TO 14 + ITWO=1 + IF(YTOP.LT.1.99)ITWO=2 + IF(IFNOAX.EQ.-1)THEN +C DO 613 I=1,10,ITWO +C Y=FLOAT(I-1)*YTOP/10. +C R=(RMAX-RMIN)/10.*FLOAT(I-1)+RMIN +C CALL WEIGHT(12) +C ENCODE(6,2994,STRING6)R +C 2994 FORMAT(F2.1) +C CALL STRINGX2(STRING6,-.23,Y) +CC CALL BCDX(1,R,2,6H(F2.1),.15,-.23,Y) +C CALL WEIGHT(1) +C ENCODE(6,2995,STRING6)R +C 2995 FORMAT(F3.2) +C 613 CALL STRINGX2(STRING6,-.6,Y) +CC 613 CALL BCDX(1,R/10.+.9,3,6H(F3.2),.15,-.6,Y) +C CALL WEIGHT(12) +C ENCODE(6,1313,STRING6)RMAX +C CALL STRINGX2(STRING6,-.9,Y-.05) +C CALL WEIGHT(1) + CALL WEIGHT(12) + CALL STRINGX2(' 1@ @ .@ @ @ @ 00',-.88,YTOP*1.) + CALL STRINGX2(' .@ @ @ @ 9',-.88,YTOP*.9) + CALL STRINGX2(' .@ @ @ @ 8',-.88,YTOP*.8) + CALL STRINGX2(' .@ @ @ @ 7',-.88,YTOP*.7) + CALL STRINGX2(' .@ @ @ @ 6',-.88,YTOP*.6) + CALL STRINGX2(' .@ @ @ @ 5',-.88,YTOP*.5) + CALL STRINGX2(' .@ @ @ @ 4',-.88,YTOP*.4) + CALL STRINGX2(' .@ @ @ @ 3',-.88,YTOP*.3) + CALL STRINGX2(' .@ @ @ @ 2',-.88,YTOP*.2) + CALL STRINGX2(' .@ @ @ @ 1',-.88,YTOP*.1) + CALL STRINGX2(' .@ @ @ @ 0',-.88,YTOP*.0) + CALL WEIGHT(1) + CALL STRINGX2(' .@ @ @ @ 99 ',-.88,YTOP*.9) + CALL STRINGX2(' .@ @ @ @ 98 ',-.88,YTOP*.8) + CALL STRINGX2(' .@ @ @ @ 97 ',-.88,YTOP*.7) + CALL STRINGX2(' .@ @ @ @ 96 ',-.88,YTOP*.6) + CALL STRINGX2(' .@ @ @ @ 95 ',-.88,YTOP*.5) + CALL STRINGX2(' .@ @ @ @ 94 ',-.88,YTOP*.4) + CALL STRINGX2(' .@ @ @ @ 93 ',-.88,YTOP*.3) + CALL STRINGX2(' .@ @ @ @ 92 ',-.88,YTOP*.2) + CALL STRINGX2(' .@ @ @ @ 91 ',-.88,YTOP*.1) + CALL STRINGX2(' .@ @ @ @ 90 ',-.88,YTOP*.0) + GO TO 17 + ENDIF + DO 13 I=1,10,ITWO + Y=FLOAT(I-1)*YTOP/10. + R=(RMAX-RMIN)/10.*FLOAT(I-1)+RMIN + CALL WEIGHT(1) + IF(IFNOAX.EQ.1)GO TO 13 +C IF(RMAX-RMIN.GE..5)ENCODE(6,1313,STRING6)R +C IF(RMAX-RMIN.LT..5)ENCODE(6,1314,STRING6)R + ENCODE(6,1313,STRING6)R + IF(RMAX-RMIN.LT.1.)ENCODE(6,1314,STRING6)R + IF(I.GT.1)Y=Y-.03 + IF(YSCALE.LE..5)CALL STRINGX(STRING6,-.5,Y) + IF(YSCALE.GT..5)CALL STRINGX2(STRING6,-.9,Y) +c IF(YSCALE.GT..5)CALL STRINGX(STRING6,-.9,Y) + 13 CONTINUE + IF(IFNOAX.EQ.1)GO TO 17 + ENCODE(6,1313,STRING6)RMAX +C IF(RMAX-RMIN.GE..5)ENCODE(6,1313,STRING6)RMAX + 1313 FORMAT(F6.1) +C IF(RMAX-RMIN.LT..5)ENCODE(6,1314,STRING6)RMAX + IF(RMAX-RMIN.LT.1.)ENCODE(6,1314,STRING6)RMAX + 1314 FORMAT(F6.2) + IF(YSCALE.LE..5)CALL STRINGX(STRING6,-.5,YTOP-.08) + IF(YSCALE.GT..5)CALL STRINGX2(STRING6,-.9,YTOP-.16) +c IF(YSCALE.GT..5)CALL STRINGX(STRING6,-.9,YTOP-.16) + GO TO 17 + 14 IF(IFABSO.EQ.1)GO TO 17 + DO 15 I=1,11 + Y=FLOAT(I-1)*YTOP/10. + R=ALOG10(RMAX)-CYCLES+FLOAT(I-1)*CYCLES/10. + IF(IFNOAX.EQ.1)GO TO 15 + ENCODE(6,1314,STRING6)R + CALL STRINGX2(STRING6,-0.9,Y) + 15 CONTINUE + 17 IF(IFGRID.EQ.0)GO TO 20 +C + IF(IFGRID.EQ.1)THEN + IF(XSCALE.LT.1.)GO TO 20 +C PLOT GRID + XGRID=.1 + IF(XSCALE.EQ.4.)XGRID=.08 + IF(XSCALE.EQ.8.)XGRID=.08 + NGRID=END/XGRID + DO 18 I=1,NGRID + X=FLOAT(I)*XGRID + CALL JUMP TO (X,0.) + CALL WEIGHT(1) +C IF(MOD(I,10).EQ.0)CALL WEIGHT(12) +C CALL LINE TO (X,YTOP) + IF(MOD(I,10).EQ.0)CALL LINE TO (X,YTOP) + IF(MOD(I,10).NE.0)CALL DOTLINE(X,0.,X,YTOP,'E0E0'X) + 18 CONTINUE +C DO 1118 I=1,NGRID*2.5 +C X=NGRID/10. +C X=FLOAT(I)/10./2.5 +C CALL JUMP TO (X,0.) +C CALL WEIGHT(1) +C CALL LINE TO (X,-.07) +C 1118 CONTINUE + DO 19 I=1,49 + Y=FLOAT(I)*YTOP/50. + CALL JUMP TO (0.,Y) + CALL WEIGHT(1) +C IF(MOD(I,5).EQ.0)CALL WEIGHT(12) +C CALL LINE TO (END,Y) + IF(MOD(I,5).EQ.0)CALL LINE TO (END,Y) + IF(MOD(I,5).NE.0)CALL DOTLINE(0.,Y,END,Y,'E0E0'X) + 19 CONTINUE + CALL WEIGHT(1) + ENDIF +C + IF(IFGRID.EQ.2)THEN + N=(W2-W1)*10.*10.+.5 + DO 4019 I=1,N + X=FLOAT(I)*XSCALE*.1 + CALL JUMP TO (X,0.15) + CALL LINE TO (X,YTOP-.15) + 4019 CONTINUE + DO 4020 I=1,10 + Y=FLOAT(I)*YTOP*.1 + CALL JUMP TO (0.,Y) + CALL LINE TO (END,Y) + 4020 CONTINUE + ENDIF +C + IF(IFGRID.EQ.3)THEN + DO 4030 I=1,50 + Y=FLOAT(I)*YTOP*.02 + CALL JUMP TO (0.,Y) + CALL LINE TO (END,Y) + 4030 CONTINUE + ENDIF +C + 20 IF(NOCALC.EQ.0)THEN +C IF(IFLOG.EQ.0)CALL STRINGY2('LIN',END+.4,.2) +C IF(IFLOG.EQ.1)CALL STRINGY2('LOG',END+.4,.2) + IF(IFABSO.EQ.0)CALL STRINGY2('RESIDUAL',END+.4,0.2) + IF(IFABSO.EQ.1)CALL STRINGY2('ABSOLUTE',END+.4,0.2) + ENDIF + IF(IFABSO.EQ.0)GO TO 27 +C FIND MAX AND MIN + HMAX=0. + HMIN=1.E30 + IF(NOCALC.EQ.1)GO TO 270 + REWIND 7 + READ(7) + NSKIP= LOG(W1/WBEGIN)/ LOG(RATIO)-2. +C NSKIP=ALOG(W1/WBEGIN)/ALOG(RATIO)-2. + NSKIP=MAX0(NSKIP,0) + IF(NSKIP.EQ.0)GO TO 221 + DO 220 I=1,NSKIP + 220 READ(7) + 221 N1=NSKIP+1 + WBEGDOP=WBEGIN*(1.D0+DOPCALC/299792.458D0) + IF(IFOPAC.GT.0)THEN + READ(7) + DO 223 IWL=N1,NWL + READ(7)(ASYNTH(J),J=1,IFOPAC) + WAVE=WBEGDOP*RATIO**(IWL-1) + IF(WAVE.LT.W1)GO TO 223 + IF(WAVE.GT.W2+.0001)GO TO 24 + HMAX=AMAX1(HMAX,ASYNTH(IFOPAC)) + HMIN=AMIN1(HMIN,ASYNTH(IFOPAC)) + 223 CONTINUE + GO TO 24 + ENDIF +C + DO 23 IWL=N1,NWL + READ(7)(Q2(I),I=1,NMU2) + WAVE=WBEGDOP*RATIO**(IWL-1) + IF(WAVE.LT.W1)GO TO 23 + IF(WAVE.GT.W2+.0001)GO TO 24 + FREQ=2.997925E17/WAVE + HLAM=Q2(MU)*FREQ/WAVE + IF(Q2(MU).GT.Q2(MUNMU))HLAM=Q2(MUNMU)*FREQ/WAVE + HMAX=AMAX1(HMAX,HLAM) + HMIN=AMIN1(HMIN,HLAM) + IF(IFCONT.EQ.0)GO TO 23 + CONT=Q2(MUNMU)*FREQ/WAVE + HMAX=AMAX1(HMAX,CONT) + HMIN=AMIN1(HMIN,CONT) + 23 CONTINUE +C + 24 WRITE(6,25)HMIN,HMAX + 25 FORMAT(1P2E12.3) + ENCODE(9,3535,STRING9)HMAX + CALL STRINGY2(STRING9,END+.6,YTOP-1.2) + ENCODE(9,3535,STRING9)HMIN + CALL STRINGY2(STRING9,END+.6,YTOP-2.8) + 270 CONTINUE + IF(TOP.GT.0.)HMAX=TOP + IF(IFLOG.EQ.0)GO TO 30 + IF(HMAX.EQ.0.)GO TO 30 + HMAXL=ALOG10(HMAX) + N=(HMAXL+CYCLES/10.-.001)/(CYCLES/10.) + HMAXL=FLOAT(N)*CYCLES/10. + IF(TOP.GT.0.)HMAXL=ALOG10(TOP) + HMINL=HMAXL-CYCLES + HMAX=10.**HMAXL + DO 26 I=1,11 + Y=FLOAT(I-1)*YTOP/10. + H=HMINL+FLOAT(I-1)*CYCLES/10. + ENCODE(6,1314,STRING6)H + CALL STRINGX2(STRING6,-0.9,Y) + 26 CONTINUE + GO TO 30 + 27 IF(IFLOG.EQ.0)GO TO 30 + RMAXL=ALOG10(RMAX) + RMINL=RMAXL-CYCLES +C PLOT OBSERVED SPECTRUM +C READS FROM 55 + 30 CALL OBSERV +C READS FROM 56 + CALL OBSERV1 +C READS FROM 57 + CALL OBSERV2 +C READS FROM 60 + IF(IFKPNO.GT.0)CALL OBSKPNO(IFKPNO) +C READS FROM 61 + IF(IFKPK.GT.0)CALL OBSKPK(IFKPK) +C READS FROM 62 + IF(IFSACP.GT.0)CALL OBSSACP(IFSACP) +C READS FROM 63 + IF(IFHAWA.GT.0)CALL OBSHAWA(IFHAWA) +C READS FROM 64 + IF(IFNRL.GT.0)CALL OBSNRL(IFNRL) +C READS FROM 65 + IF(IFPROC.GT.0)CALL OBSPROC(IFPROC) +C READS FROM 66 + IF(IFSIR.GT.0)CALL OBSSIR(IFSIR) +C READS FROM 67 + IF(IFARC.GT.0)CALL OBSARC(IFARC) +C READS FROM 68 + IF(IFSUNF.GT.0)CALL OBSSUNF(IFSUNF) +C READS FROM 69 + IF(IFSOIR.GT.0)CALL OBSSOIR(IFSOIR) +C READS FROM 59 + IF(IFHALL.GT.0)CALL OBSHALL(IFHALL) +C READS FROM 58 + IF(IFENGV.GT.0)CALL OBSENGV(IFENGV) +C READS FROM 73 + IF(IFFTS.GT.0)CALL OBSFTS(IFFTS) +C READS FROM 71 AND 72 +C IF(IFFTS2.GT.0)CALL OBSENGV(IFFTS2) + IF(IFFTS2.GT.0)CALL OBSFTS2(IFFTS2) +C READS FROM 74 + IF(IFJUNG.GT.0)CALL OBSJUNG(IFJUNG) + IF(NOCALC.EQ.1)GO TO 50 + IF(IFCONT.EQ.3)GO TO 735 +C PLOT SPECTRUM + REWIND 7 + READ(7) + NSKIP= LOG(W1/WBEGIN)/ LOG(RATIO)-2. +C NSKIP=ALOG(W1/WBEGIN)/ALOG(RATIO)-2. + NSKIP=MAX0(NSKIP,0) + IF(NSKIP.EQ.0)GO TO 231 + DO 230 I=1,NSKIP + 230 READ(7) + 231 N1=NSKIP+1 + ISTART=0 + CALL WEIGHT(1) + IF(IFDLIN.EQ.1)CALL WEIGHT(2) + WBEGDOP=WBEGIN*(1.D0+DOPCALC/299792.458D0) +C + IF(IFOPAC.GT.0)THEN + READ(7) + DO 233 IWL=N1,NWL + READ(7)(ASYNTH(J),J=1,IFOPAC) + WAVE=WBEGDOP*RATIO**(IWL-1) + IF(WAVE.LT.W1)GO TO 233 + IF(WAVE.GT.W2+.0001)GO TO 734 + FREQ=2.99792458E17/WAVE + HLAM=MAX(ASYNTH(IFOPAC),1.E-30) + CONT=HMAX + IF(IFABSO.EQ.0.AND.IFLOG.EQ.0)Y=(HLAM/CONT-RMIN)/(RMAX-RMIN)*YTOP + IF(IFABSO.EQ.1.AND.IFLOG.EQ.0)Y=HLAM/HMAX*YTOP + IF(IFABSO.EQ.0.AND.IFLOG.EQ.1)Y=(ALOG10(HLAM/CONT)-RMINL)/CYCLES* + 1YTOP + IF(IFABSO.EQ.1.AND.IFLOG.EQ.1)Y=(ALOG10(HLAM)-HMINL)/CYCLES*YTOP + IF(Y.LT.0.)Y=0. + IF(Y.GT.YTOP)Y=YTOP + X=(WAVE-W1)*10.*XSCALE + IF(ISTART.EQ.0)CALL JUMP TO (X,Y) + ISTART=1 + CALL LINE TO (X,Y) + 233 CONTINUE + CALL WEIGHT(1) + NSKIP=0 + GO TO 735 + ENDIF +C + XOLD=0. + YOLD=0. + DO 33 IWL=N1,NWL + READ(7)(Q2(I),I=1,NMU2) + WAVE=WBEGDOP*RATIO**(IWL-1) + IF(WAVE.LT.W1)GO TO 33 + IF(WAVE.GT.W2+.0001)GO TO 34 + FREQ=2.997925E17/WAVE + HLAM=Q2(MU)*FREQ/WAVE + CONT=Q2(MUNMU)*FREQ/WAVE +C KEEPS EMISSION BELOW CONTINUUM +C IF(IFABSO.EQ.0.AND.HLAM.GT.CONT)HLAM=CONT + IF(IFABSO.EQ.0.AND.IFLOG.EQ.0)Y=(HLAM/CONT-RMIN)/(RMAX-RMIN)*YTOP + IF(IFABSO.EQ.1.AND.IFLOG.EQ.0)Y=HLAM/HMAX*YTOP + IF(IFABSO.EQ.0.AND.IFLOG.EQ.1)Y=(ALOG10(HLAM/CONT)-RMINL)/CYCLES* + 1YTOP + IF(IFABSO.EQ.1.AND.IFLOG.EQ.1)Y=(ALOG10(HLAM)-HMINL)/CYCLES*YTOP + X=(WAVE-W1)*10.*XSCALE + XNEW=X + YNEW=Y + IF(Y.LT.0.)YNEW=0. + IF(Y.GT.YTOP)YNEW=YTOP + IF(Y*YOLD.LT.0.)XNEW=XOLD+(X-XOLD)/(Y-YOLD)*(0.-YOLD) + IF((Y-YTOP)*(YOLD-YTOP).LT.0.)XNEW=XOLD+(X-XOLD)/(Y-YOLD)* + 1(YTOP-YOLD) + IF(ISTART.EQ.0)CALL JUMP TO (XNEW,YNEW) + ISTART=1 + CALL LINE TO (XNEW,YNEW) + XOLD=X + YOLD=Y + 33 CONTINUE + CALL WEIGHT(1) + IF(IFRMAX2.EQ.0)GO TO 732 + 34 IF(IFRMAX2.EQ.0)GO TO 735 +C + XOLD=0. + YOLD=0. + REWIND 7 + READ(7) + IF(NSKIP.EQ.0)GO TO 731 + DO 730 I=1,NSKIP + 730 READ(7) + 731 N1=NSKIP+1 + ISTART=0 + DO 733 IWL=N1,NWL + READ(7)(Q2(I),I=1,NMU2) + WAVE=WBEGDOP*RATIO**(IWL-1) + IF(WAVE.LT.W1)GO TO 733 + IF(WAVE.GT.W2+.0001)GO TO 734 + FREQ=2.997925E17/WAVE + HLAM=Q2(MU)*FREQ/WAVE + CONT=Q2(MUNMU)*FREQ/WAVE + IF(IFABSO.EQ.0.AND.HLAM.GT.CONT)HLAM=CONT + IF(IFABSO.EQ.0.AND.IFLOG.EQ.0)Y=(HLAM/CONT-RMIN2)/(RMAX2-RMIN2)* + 1YTOP + IF(IFABSO.EQ.1.AND.IFLOG.EQ.0)Y=HLAM/HMAX*YTOP + IF(IFABSO.EQ.0.AND.IFLOG.EQ.1)Y=(ALOG10(HLAM/CONT)-RMINL)/CYCLES* + 1YTOP + IF(IFABSO.EQ.1.AND.IFLOG.EQ.1)Y=(ALOG10(HLAM)-HMINL)/CYCLES*YTOP + X=(WAVE-W1)*10.*XSCALE + XNEW=X + YNEW=Y + IF(Y.LT.0.)YNEW=0. + IF(Y.GT.YTOP)YNEW=YTOP + IF(Y*YOLD.LT.0.)XNEW=XOLD+(X-XOLD)/(Y-YOLD)*(0.-YOLD) + IF((Y-YTOP)*(YOLD-YTOP).LT.0.)XNEW=XOLD+(X-XOLD)/(Y-YOLD)* + 1(YTOP-YOLD) + IF(ISTART.EQ.0)CALL JUMP TO (XNEW,YNEW) + ISTART=1 + CALL LINE TO (XNEW,YNEW) + XOLD=X + YOLD=Y + 733 CONTINUE + 732 CALL WEIGHT(1) + NSKIP=0 + GO TO 735 + 734 NSKIP=NWL-IWL + CALL WEIGHT(1) + 735 CONTINUE +C 35 IF(IFABSO.EQ.0)CALL BCDX(1,CONT,9,8H(1PE9.3),.15,END+.5,YTOP-.05) +C IF(IFABSO.EQ.0)CALL BCDY(1,CONT,9,8H(1PE9.3),.15,-.05,YTOP+.25) +C IF(IFABSO.EQ.1)CALL BCDX(1,HMAX,9,8H(1PE9.3),.15,END+.5,YTOP-.05) +C IF(IFABSO.EQ.1)CALL BCDY(1,HMAX,9,8H(1PE9.3),.15,-.05,YTOP+.25) + IF(IFABSO.EQ.0)ENCODE(9,3535,STRING9)CONT + IF(IFABSO.EQ.1)ENCODE(9,3535,STRING9)HMAX + 3535 FORMAT(1PE9.3) + CALL STRINGY2(STRING9,END+.4,YTOP-1.2) + CALL STRINGY2(STRING9,-.15,YTOP+.25) + IF(IFABSO.EQ.0)GO TO 50 + IF(IFCONT.EQ.0)GO TO 50 + IF(IFOPAC.GT.0)GO TO 50 +C PLOT CONTINUUM + REWIND 7 + READ(7) + NSKIP= LOG(W1/WBEGIN)/ LOG(RATIO)-2. +C NSKIP=ALOG(W1/WBEGIN)/ALOG(RATIO)-2. + NSKIP=MAX0(NSKIP,0) + IF(NSKIP.EQ.0)GO TO 37 + DO 36 I=1,NSKIP + 36 READ(7) + 37 N1=NSKIP+1 + ISTART=0 + CALL WEIGHT(1) + IF(IFDLIN.EQ.1)CALL WEIGHT(2) + WBEGDOP=WBEGIN*(1.D0+DOPCALC/299792.458D0) + XOLD=X + YOLD=Y + DO 43 IWL=N1,NWL + READ(7)(Q2(I),I=1,NMU2) + WAVE=WBEGDOP*RATIO**(IWL-1) + IF(WAVE.LT.W1)GO TO 43 + IF(WAVE.GT.W2+.0001)GO TO 44 + FREQ=2.997925E17/WAVE + CONT=Q2(MUNMU)*FREQ/WAVE + IF(IFLOG.EQ.0)Y=CONT/HMAX*YTOP + IF(IFLOG.EQ.1)Y=(ALOG10(CONT)-HMINL)/CYCLES*YTOP + X=(WAVE-W1)*10.*XSCALE + XNEW=X + YNEW=Y + IF(Y.LT.0.)YNEW=0. + IF(Y.GT.YTOP)YNEW=YTOP + IF(Y*YOLD.LT.0.)XNEW=XOLD+(X-XOLD)/(Y-YOLD)*(0.-YOLD) + IF((Y-YTOP)*(YOLD-YTOP).LT.0.)XNEW=XOLD+(X-XOLD)/(Y-YOLD)* + 1(YTOP-YOLD) + IF(ISTART.EQ.0)CALL JUMP TO (XNEW,YNEW) + ISTART=1 + CALL LINE TO (XNEW,YNEW) + XOLD=X + YOLD=Y + 43 CONTINUE + CALL WEIGHT(1) + NSKIP=0 + GO TO 50 + 44 NSKIP=NWL-IWL + CALL WEIGHT(1) + 50 IF(IFLABL.EQ.0)GO TO 100 + IF(NOCALC.EQ.1)GO TO 336 + PRINT 1111,NWL,NSKIP + 1111 FORMAT(2I10) +C IF(NSKIP.EQ.0)GO TO 336 +C DO 335 I=1,NSKIP +C 335 READ(7) + 336 CONTINUE + REWIND 93 + ILABL=MOD(IFLABL,10) + IF(ILABL.EQ.1)CALL LABEL1 + IF(ILABL.EQ.2)CALL LABEL2 + IF(ILABL.EQ.3)CALL LABEL3 + IF(ILABL.EQ.4)CALL LABEL4 + IF(ILABL.EQ.5)CALL LABEL5 + IF(ILABL.EQ.6)CALL LABEL6 + IF(ILABL.EQ.7)CALL LABEL7(IFOPAC) + IF(ILABL.EQ.8)CALL LABEL8 + IF(ILABL.EQ.9)CALL LABEL9 + 100 CONTINUE + CALL FIN(70) +C CALL ENDTIME + CALL EXIT + END + SUBROUTINE OBSERV +C PLOTS OBSERVED DATA IN X,Y FORM +C IFSUNF=1 WEIGHT=2 +C IFSUNF=2 WEIGHT=1 +C IFSUNF=3 PLOT TWICE NORMAL WITH WEIGHT=2 AND 10 TIMES YSCALE WITH WEIGHT=1 +C IFSUNF=4 PLOT TWICE NORMAL WITH WEIGHT=1 AND 10 TIMES YSCALE WITH WEIGHT=1 + COMMON /PARAMS/XSCALE, + 1 RMIN,WEAK,TOP,PANEL,CYCLES,WBEGIN,WEND,W1,W2,YTOP, + 2 HMAX,HMIN,YSCALE,OFFSET,RMAX, + 3 WNEW1,WNEW2,SMOOTH,DOPOBS,DOPCALC,DOPTERR, + 4 SCALOBS,ZEROOBS,RMIN2,RMAX2,XOFFSET,SCALOB2,IUERM, + 5 IFLABL,IFABSO,IFCONT,IFGRID,IFDLIN,IFLOG,IFMU,NOCALC + 6 IFVAC,NOPRNT + COMMON/COLOR/COLOROBS + CHARACTER*10 COLOROBS + REAL*8 WBEGIN,WEND,W1,W2,RESOLU,RATIO,WNEW1,WNEW2,WAVEL + REAL*8 WI,W,WCUT,WRM,DOPOBS8 + REAL*4 WRM4(100) + DIMENSION WCUT(7) + dimension ss(460000) + equivalence (si(1),ss(10001)) + dimension wtsmoo(10000) + DIMENSION WRM(100) +CCRAY COMMON /WISI/WI(100000),SI(100000) + COMMON /WISI/WI(450000),SI(450000) +C COMMON MUST BE REMOVED TO PLOT TWO SPECTRA AT THE SAME TIME + DATA WCUT/329.897,378.2914,401.965,473.8,576.5,753.9,999.7/ + DATA IREAD/0/ + DOPOBS8=DOPOBS + IFSUNF=0 + IF(IREAD.EQ.1)GO TO 9 + IREAD=1 + OPEN(UNIT=55,SHARED,READONLY,TYPE='OLD',FORM='UNFORMATTED') + NIN=0 + DO 4 I=1,1137795 +C W IS THE SOLAR AIR WAVELENGTH INCLUDING THE GRAVITATIONAL REDSHIFT +C S IS THE PSEUDO-RESIDUAL FLUX + READ(55,END=5)W,S +C REMOVE GRAVITATIONAL RED SHIFT +c W=W*(1.D0-0.636D0/299792.458D0) + W=W*(1.D0+DOPOBS8/299792.458D0) +c w=w+dopobs + IF(W.LT.WNEW1)GO TO 4 + IF(W.GT.WNEW2)GO TO 5 + NIN=NIN+1 +CCRAY IF(NIN.GT.100000)CALL ABORT + IF(NIN.GT.450000)CALL ABORT + WI(NIN)=W + SI(NIN)=S + 4 CONTINUE + 5 CONTINUE + IF(IUERM.EQ.0)GO TO 9 + OPEN(UNIT=56,SHARED,TYPE='OLD') + READ(56,6)NORD +6 FORMAT(I5) +C TYPE*,NORD + DO 44 I=1,100 + READ(56,66,END=97)XRM,YRM,ZRM +66 FORMAT(1X,F10.4,1X,F15.4,1X,F10.4) +C TYPE*,XRM,YRM,ZRM + WRM(I)=(XRM*0.1)*(1.D0+DOPOBS8/299792.458D0) + WRM(I)=(WRM(I)-W1)*XSCALE*10. +C TYPE*, I,WRM(I) +44 CONTINUE +97 NPTI=I-1 + 9 IF(NIN.EQ.0)RETURN + if (smooth.gt.0) then + nwt=3.*smooth + nwt2=nwt*2+1 + sumwt=1. + do 333 i=1,nwt + wtsmoo(i)=exp(-(2.*float(i)/smooth*sqrt(alog(2.)))**2) +333 sumwt=sumwt+wtsmoo(i)*2. + wtsmoo(nwt+1)=1./sumwt + do 334 i=1,nwt +334 wtsmoo(nwt+1+i)=wtsmoo(i)/sumwt + do 335 i=1,nwt +335 wtsmoo(i)=wtsmoo(nwt2+1-i) + do 3330 i=1,nwt2 +3330 print 3333, i,wtsmoo(i) +3333 format(i10,f10.7) + do 337 i=1,nin + i1=max0(i-nwt,1) + i2=min0(i+nwt,nin) + ss(i)=0. + inwt1=i-nwt-1 + do 336 ii=i1,i2 +336 ss(i)=ss(i)+wtsmoo(ii-inwt1)*si(ii) +337 continue + do 338 i=1,nin + nini=nin+1-i +338 si(nini)=ss(nini) + endif + CALL WEIGHT(2) + if (ifsunf.eq.0.and.ifdlin.eq.0) call weight(1) + IF(IFSUNF.EQ.2.OR.IFSUNF.EQ.12)CALL WEIGHT(1) + ISTART=0 + CALL COLOR BLACK + IF(COLOROBS.EQ.'RED ')CALL COLOR RED + IF(COLOROBS.EQ.'BLUE ')CALL COLOR BLUE + IF(IFABSO.EQ.0)GO TO 144 +C FIND MAX AND MIN + HMAX=0. + HMIN=1.E30 + DO 145 I=1,NIN + HMAX=AMAX1(HMAX,SI(I)) + HMIN=AMIN1(HMIN,SI(I)) +145 CONTINUE + IF(TOP.GT.0.)HMAX=TOP +144 DO 14 I=1,NIN + W=WI(I) + IF(W.LT.W1)GO TO 14 + IF(W.GT.W2)GO TO 15 + X=(W-W1)*XSCALE*10. + IF(IFABSO.EQ.1)SI(I)=SI(I)/HMAX + Y=(SI(I)-RMIN)/(RMAX-RMIN)*3.125*YSCALE + Y=AMAX1(Y,0.) + IF(ISTART.EQ.0)CALL JUMP TO (X,Y) + ISTART=1 + CALL LINE TO (X,Y) +C TYPE*, IUERM + IF(IUERM.EQ.0)GO TO 14 + DO 339 IRM=1,NPTI + WRM4(IRM)=WRM(IRM) +C TYPE*,WRM4(IRM),X + IF(ABS(WRM4(IRM)-X).LE.0.001)CALL X AT(WRM4(IRM),Y) +339 CONTINUE + 14 CONTINUE + 15 CONTINUE + if(ifdlin.eq.0)CALL WEIGHT(1) + if(ifdlin.eq.1)call weight(2) + IF(IFSUNF.LT.3)RETURN + ISTART=0 + DO 24 I=1,NIN + W=WI(I) + IF(W.LT.W1)GO TO 24 + IF(W.GT.W2)GO TO 25 + X=(W-W1)*XSCALE*10. + XNEW=X + S=SI(I) + Y=(S-.9)/(1.0-.9)*3.125*YSCALE + YNEW=Y + IF(ISTART.EQ.0)THEN + IF(Y.LT.0.)Y=0. + GO TO 240 + ENDIF + IF(YNEW.GE.0..AND.YOLD.GE.0.)GO TO 240 + Y=0. + IF(YNEW.LT.0..AND.YOLD.LT.0.)GO TO 240 + IF(YOLD.LE.0.)GO TO 239 + X=XOLD+(XNEW-XOLD)/(YNEW-YOLD)*(0.-YOLD) + GO TO 240 + 239 X=XOLD+(XNEW-XOLD)/(YNEW-YOLD)*YNEW + 240 IF(ISTART.EQ.0)CALL JUMP TO (X,Y) + ISTART=1 + XOLD=XNEW + YOLD=YNEW + CALL LINE TO (X,Y) + 24 CONTINUE + 25 CONTINUE + RETURN + END + SUBROUTINE OBSERV1 + RETURN + END + SUBROUTINE OBSERV2 + RETURN + END + SUBROUTINE OBSKPNO(IFKPNO) + RETURN + END + SUBROUTINE OBSJUNG(IFJUNG) + RETURN + END + SUBROUTINE OBSKPK(IFKPK) +C HARVARD ROCKET SPECTRA KOHL,PARKINSON,KURUCZ + RETURN + END + SUBROUTINE OBSSACP(IFSACP) +C SAC PEAK SOLAR ATLAS BY BECKERS, BRIDGES, AND GILLIAM + RETURN + END + SUBROUTINE OBSHAWA(IFHAWA) +C HAWAII ROCKET SPECTRA ALLEN, MCALLISTER, AND JEFFRIES + RETURN + END + SUBROUTINE OBSNRL(IFNRL) + RETURN + END + SUBROUTINE OBSPROC(IFPROC) + RETURN + END + SUBROUTINE OBSARC(IFARC) + RETURN + END + SUBROUTINE OBSSUNF(IFSUNF) +C PLOTS KURUCZ, FURENLID, BRAULT, AND TESTERMAN SOLAR FLUX ATLAS + RETURN + END + SUBROUTINE OBSSOIR(IFSOIR) +C PLOTS DELBOUILLE, ROLAND, BRAULT, AND TESTERMAN INFRARED SOLAR ATLAS + RETURN + END + SUBROUTINE OBSHALL(IFHALL) +C PLOTS HALL INFRARED SUNSPOT ATLAS + RETURN + END + SUBROUTINE OBSENGV(IFENGV) +C PLOTS ENGVOLD SUNSPOT ATLAS + RETURN + END + SUBROUTINE OBSFTS(IFFTS) +C PLOTS A SPECTRUM FROM THE FTS AT KITT PEAK + RETURN + END + SUBROUTINE OBSFTS2(IFFTS2) +C PLOTS THE RATIO OF TWO SPECTRA FROM THE FTS AT KITT PEAK + RETURN + END + SUBROUTINE OBSSIR(IFSIR) + RETURN + END + SUBROUTINE LABEL1 +C LABELS COMPUTED SPECTRUM + RETURN + END + SUBROUTINE LABEL2 + RETURN + END + SUBROUTINE LABEL3 + RETURN + END + SUBROUTINE LABEL4 + RETURN + END + SUBROUTINE LABEL5 +C LABELS ATMOSPHERIC LINES FROM AFCRL LINE LIST + RETURN + END + SUBROUTINE NAMEMOL(MOLNAME,MOLCODE) +C IDENTIFIES ISOTOPE CODES FOR AFCRL LINE LIST + RETURN + END + SUBROUTINE LABEL6 + RETURN + END + SUBROUTINE LABEL7(IFOPAC) + RETURN + END + SUBROUTINE LABEL8 + RETURN + END + SUBROUTINE LABEL9 +C PIERCE AND BRECKENRIDGE LINE LIST FOR SOLAR CENTRAL INTENSITY + RETURN + END diff --git a/synthe/plotpackcol.for b/synthe/plotpackcol.for new file mode 100644 index 0000000..1dd6339 --- /dev/null +++ b/synthe/plotpackcol.for @@ -0,0 +1,5017 @@ + SUBROUTINE INITPLT(ITAPE) +c revised 4sep00 +C THIS IS A QUICK CONVERSION FROM THE 6400 +C USE AT YOUR OWN RISK +C IF YOU HAVE PROBLEMS WITH BCDX THE SYSTEM MAY NOT BE PASSING +C THE ARGUMENTS CORRECTLY THROUGH SEVERAL NESTED SUBROUTINES +C USE ENCODE AND SYMBOL DIRECTLY +C TO COMPILE USE FOR/LIS/CONT=99 PLOTPACK +C +C THE OUTPUT FILE IS PLOT.VEC +C + COMMON /PLTBUF/BUFFER(512),NBUFF,NVECT,PLTTAP + + INTEGER PLTTAP + REAL*8 BUFFER + COMMON /MAXLEN/MAXLEN + COMMON /PLTDAT/XORG,YORG,XMIN,YMIN,XLIM,YLIM,XMAX,XOLD,YOLD, + 1 SCALE,LINEWT,RESOLU,DXMAX,DXDYMX + COMMON /HEADERDATA/USERID(2),FILENAME(2),IDATE(3),ITIME(2), + 1 JOBID(2) + DIMENSION INHEAD(2) + REAL*8 USERID,PLOTOUT,FILENAME + CHARACTER WHOLEFILENAME*40,EQUIVALENCE_NAME*63 + DATA PLOTOUT/8HPLOTFILE/ + DATA JOBID/4H ,4H / + DATA SCALE,LINEWT/1.,1/ +C DATA RESOLU,DXMAX/200.,20./ +C RESOLUTION 200 PTS/INCH +C MAXIMUM DELTA X IS 3 INCHES FOR RASTERIZATION PROGRAM + DATA RESOLU,DXMAX/200.,3./ + DATA DXDYMX/.4/ +C DATA DXDYMX/1.5/ +C DATA XORG,YORG,XMIN,YMIN,XLIM,YLIM/0.,0.,0.,0.,1200.,10.555/ + +C +C IN THIS IMPLEMENTATION WE STILL PRETEND THERE ARE 200 DOTS/IN AND THAT +C THE PLOTTING AREA IS 16.5 INCHES HIGH. THE PLOTS CAN STILL BE RUN ON +C ON A 200 DOTS/IN VERSATEC OR ON A 300 DOTS/IN LASER PRINTER +C THE RANGE IN Y IS O TO 3300. THIS MAY NOT BE THE ACTUAL NUMBER BITS +C AVAILABLE ON THE PHYSICAL DEVICE. X IS LIMITED ONLY BY MAXLENGTH. +C DATA XORG,YORG,XMIN,YMIN,XLIM,YLIM/0.,0.,0.,0.,1200.,16.5/ +C +C YLIM IS NOW LIMITED ONLY TO THE NUMBER OF BITS THAT WILL FIT IN INTEGER*2 +C SO THAT IT IS POSSIBLE TO MAKE WALLPAPER. THERE MAY NOT BE A LIMIT ON X. + DATA XORG,YORG,XMIN,YMIN,XLIM,YLIM/0.,0.,0.,0.,1200.,163.5/ + DATA XMAX,XOLD,YOLD/0.,0.,0./ +C DATA MAXLEN/430/ + DATA MAXLEN/10/ + PLTTAP=ITAPE +c CALL TRANSLATE_LOGICAL('PLOT',EQUIVALENCE_NAME, +c 1L_EQUIVALENCE_NAME) +c LOC_BRACKET=INDEX(EQUIVALENCE_NAME(1:L_EQUIVALENCE_NAME),']') +c LOC_PERIOD=INDEX(EQUIVALENCE_NAME(LOC_BRACKET:L_EQUIVALENCE_NAME), +c +'.') +c IF(LOC_PERIOD.EQ.0)THEN +c NEW_LEN=L_EQUIVALENCE_NAME+4 +c EQUIVALENCE_NAME(1:NEW_LEN)= +c +EQUIVALENCE_NAME(1:L_EQUIVALENCE_NAME)//'.VEC' +c ELSE +c NEW_LEN=L_EQUIVALENCE_NAME +c ENDIF +C OPEN(UNIT=PLTTAP,FILE=EQUIVALENCE_NAME(1:NEW_LEN),TYPE='NEW', +C +FORM='UNFORMATTED') + OPEN(UNIT=PLTTAP,FILE='plot.vec',TYPE='NEW', + +FORM='UNFORMATTED') +c INQUIRE(UNIT=PLTTAP,NAME=WHOLEFILENAME) +c PRINT 6666,WHOLEFILENAME + 6666 FORMAT(16H0VECTOR FILE IS ,A40) + IPAGE=0 + NBUFF=0 + NVECT=0 +c CALL DATE(IDATE) + CALL TIME(ITIME) +c CALL USERNAME(USERID) +c CALL NAMEFILE(FILENAME) +C THE FIRST RECORD IDENTIFIES THE FILE AS A PLOT FILE +C CALL BUFPLT(PLOTOUT) +C CALL BUFPLT(USERID) +C CALL BUFPLT(USERID(2)) +C CALL BUFPLT(FILENAME) +C CALL BUFPLT(FILENAME(2)) + userid(1)=1. + userid(2)=0. + filename(1)=1. + filename(2)=0. + BUFFER(1)=PLOTOUT + BUFFER(2)=USERID(1) + BUFFER(3)=USERID(2) + BUFFER(4)=FILENAME(1) + BUFFER(5)=FILENAME(2) + NVECT=5 + NBUFF=5 +C CREATE HEADER + CALL JUMP TO (1.,0.) + CALL LINE TO (2.5,0.) + CALL LINE TO (2.5,10.555) + + CALL LINE TO (1.,10.555) + + CALL LINE TO (1.,0.) + CALL JUMP TO (5.5,0.) + CALL LINE TO (7.0,0.) + CALL LINE TO (7.,10.555) + + CALL LINE TO (5.5,10.555) + + CALL LINE TO (5.5,0.) + CALL SYMBOL(2.,.5,.5,USERID,90.,9) + CALL SYMBOL(6.5,.5,.5,USERID,90.,9) + CALL SYMBOL(2.,4.9,.5,JOBID,90.,8) + CALL SYMBOL(6.5,4.9,.5,JOBID,90.,8) + CALL SYMBOL(1.6,8.58,.2,ITIME,90.,8) + CALL SYMBOL(6.1,8.58,.2,ITIME,90.,8) + CALL SYMBOL(1.875,8.5,.2,IDATE,90.,9) + CALL SYMBOL(6.375,8.5,.2,IDATE,90.,9) + CALL SYMBOL(2.15,8.5,.2,FILENAME,90.,9) + CALL SYMBOL(6.65,8.5,.2,FILENAME,90.,9) + PRINT 1,MAXLEN,USERID,JOBID,ITIME,IDATE,FILENAME + 1 FORMAT(42H0BEGINNING PLOT MAXIMUM PAGE LENGTH = ,I3,5H FEET/ + 1 1H0,A8,A1,5X,A4,A4,5X,A4,A4,5X,A4,A4,A1,5X,A8,A1) +C + ENTRY PAGE + CALL BUFPLT(-1,0,0,0) + NVECT=NVECT-1 + FEET=XMAX/12. + PRINT 2,IPAGE,NVECT,FEET + 2 FORMAT(12H0PAGE NUMBER,I4,I12,8H VECTORS, + 1 10H LENGTH,F8.3,5H FEET) + IPAGE=IPAGE+1 + XORG=0. + YORG=0. + XMIN=0. + YMIN=0. + XMAX=0. + XOLD=0. + YOLD=0. + NVECT=0 + RETURN +C + ENTRY HEADER(INHEAD) +C CALL HEADER(8HTESTPLOT) + JOBID(1)=INHEAD(1) + JOBID(2)=INHEAD(2) + RETURN +C + ENTRY MAXLENGTH(IFEET) + MAXLEN=IFEET + RETURN +C + ENTRY FIN(ITAPE) + + CALL BUFPLT(-1,0,0,0) + CALL BUFPLT(-2,0,0,0) + NVECT=NVECT-2 + FEET=XMAX/12. + PRINT 2,IPAGE,NVECT,FEET + XORG=0. + YORG=0. + XMIN=0. + YMIN=0. + XMAX=0. + XOLD=0. + YOLD=0. + CALL FACTOR(1.) + CALL WEIGHT(1) + IF(NBUFF.NE.0)WRITE(PLTTAP)BUFFER + CLOSE(UNIT=PLTTAP) + RETURN + END + SUBROUTINE BUFPLT(I,J,K,L) + IMPLICIT INTEGER*4 (A-Z) + COMMON /PLTBUF/BUFFER(4,512),NBUFF,NVECT,PLTTAP + INTEGER*4 PLTTAP + INTEGER*2 BUFFER + NVECT=NVECT+1 + NBUFF=NBUFF+1 + I30000=I/30000 + BUFFER(1,NBUFF)=I-I30000*30000 + BUFFER(2,NBUFF)=J + BUFFER(3,NBUFF)=K+I30000*1000 + BUFFER(4,NBUFF)=L + IF(NBUFF.LT.512)RETURN + WRITE(PLTTAP)BUFFER + NBUFF=0 + RETURN + END + SUBROUTINE RGBCOLORS(R,G,B) + IMPLICIT INTEGER*4 (A-Z) +C RGB RANGE FROM 0 TO 100% + CALL BUFPLT(-3,R,G,B) + RETURN + END + SUBROUTINE COLOR BY NAME + IMPLICIT INTEGER*4 (A-Z) +C ARGUMENT IS CMY CYAN, MAGENTA, YELLOW + ENTRY COLOR RED + CALL BUFPLT(-3,100,0,0) + RETURN + ENTRY COLOR GREEN + CALL BUFPLT(-3,0,100,0) + RETURN + ENTRY COLOR ROYAL BLUE + CALL BUFPLT(-3,0,0,100) + RETURN + ENTRY COLOR YELLOW + CALL BUFPLT(-3,100,100,0) + RETURN + ENTRY COLOR CYAN + CALL BUFPLT(-3,0,100,100) + RETURN + ENTRY COLOR MAGENTA + CALL BUFPLT(-3,100,0,100) + RETURN + ENTRY COLOR BLACK + CALL BUFPLT(-3,0,0,0) + RETURN + ENTRY COLOR WHITE + CALL BUFPLT(-3,100,100,100) + RETURN + ENTRY COLOR GRAY + CALL BUFPLT(-3,50,50,50) + RETURN + ENTRY COLOR LIGHT GRAY + CALL BUFPLT(-3,75,75,75) + RETURN + ENTRY COLOR DARK GRAY + CALL BUFPLT(-3,25,25,25) + RETURN + ENTRY COLOR ORANGE + CALL BUFPLT(-3,100,50,0) + RETURN + ENTRY COLOR BROWN + CALL BUFPLT(-3,25,25,0) + RETURN + ENTRY COLOR CRIMSON + CALL BUFPLT(-3,50,0,0) + RETURN + ENTRY COLOR AQUAMARINE + CALL BUFPLT(-3,0,100,50) + RETURN + ENTRY COLOR LIME + CALL BUFPLT(-3,50,100,0) + RETURN + ENTRY COLOR FIRE + CALL BUFPLT(-3,100,25,0) + RETURN + ENTRY COLOR BLUE + CALL BUFPLT(-3,0,50,100) + RETURN + ENTRY COLOR YELLOW GREEN + CALL BUFPLT(-3,75,100,0) + RETURN + ENTRY COLOR FOREST GREEN + CALL BUFPLT(-3,25,50,0) + RETURN + ENTRY COLOR EVERGREEN + CALL BUFPLT(-3,0,50,0) + RETURN + ENTRY COLOR BRITISH RACING GREEN + CALL BUFPLT(-3,0,25,0) + RETURN + ENTRY COLOR MAROON + CALL BUFPLT(-3,25,0,0) + RETURN + ENTRY COLOR LACQUER RED + CALL BUFPLT(-3,75,0,0) + RETURN + ENTRY COLOR PURPLE + CALL BUFPLT(-3,25,0,100) + RETURN + ENTRY COLOR PUMPKIN + CALL BUFPLT(-3,100,75,0) + RETURN + ENTRY COLOR PLUM + CALL BUFPLT(-3,50,0,100) + RETURN + ENTRY COLOR MULBERRY + CALL BUFPLT(-3,75,0,100) + RETURN + ENTRY COLOR OLIVE + CALL BUFPLT(-3,25,50,0) + RETURN + ENTRY COLOR LIGHT GREEN + CALL BUFPLT(-3,25,100,0) + RETURN + ENTRY COLOR BURNT ORANGE + CALL BUFPLT(-3,75,25,0) + RETURN + ENTRY COLOR KHAKI + CALL BUFPLT(-3,50,50,0) + RETURN + ENTRY COLOR LIGHT OLIVE + CALL BUFPLT(-3,50,75,0) + RETURN + ENTRY COLOR CAMEL + CALL BUFPLT(-3,75,75,0) + RETURN + ENTRY COLOR TEAL + CALL BUFPLT(-3,0,100,25) + RETURN + ENTRY COLOR COCOA + CALL BUFPLT(-3,50,25,0) + RETURN + ENTRY COLOR MUSTARD + CALL BUFPLT(-3,75,75,0) + RETURN + ENTRY COLOR LIGHT RED + CALL BUFPLT(-3,100,75,75) + RETURN + ENTRY COLOR LIGHT CYAN + CALL BUFPLT(-3,75,100,100) + RETURN + ENTRY COLOR LIGHT MAGENTA + CALL BUFPLT(-3,100,75,100) + RETURN + ENTRY COLOR LIGHT YELLOW + CALL BUFPLT(-3,100,100,75) + RETURN + ENTRY COLOR LIGHT BLUE + CALL BUFPLT(-3,25,25,100) + RETURN + END + SUBROUTINE PLOT(X,Y,MODE) + COMMON /PLTDAT/XORG,YORG,XMIN,YMIN,XLIM,YLIM,XMAX,XOLD,YOLD, + 1 SCALE,LINEWT,RESOLU,DXMAX,DXDYMX + MMMM=MODE + IMODE=IABS(MODE) + IF(IMODE.EQ.2)GO TO 10 + IF(IMODE.EQ.3)GO TO 5 +C + ENTRY START AT (X,Y) + +C CALL START AT (X,Y) +C REDEFINE ORIGIN AND JUMP TO IT + XNEW=AMAX1(X*SCALE+XORG,XMIN) + YNEW=Y*SCALE+YORG + XOLD=XNEW + YOLD=YNEW + 1 XORG=XNEW + YORG=YNEW + RETURN +C + ENTRY JUMP TO (X,Y) + +C CALL JUMP TO (X,Y) + MMMM=3 + 5 XNEW=AMAX1(X*SCALE+XORG,XMIN) + YNEW=Y*SCALE+YORG + XOLD=XNEW + YOLD=YNEW + IF(MMMM.LT.0)GO TO 1 + RETURN +C + ENTRY LINE TO (X,Y) + +C CALL LINE TO (X,Y) + MMMM=2 + 10 XNEW=AMAX1(X*SCALE+XORG,XMIN) + YNEW=Y*SCALE+YORG + XI=XOLD + YI=YOLD + XN=XNEW + YN=YNEW + XOLD=XNEW + YOLD=YNEW +C ORIENT SEGMENT TOWARD INCREASING X + IF(XI.LT.XN)GO TO 50 + IF(XI.EQ.XN.AND.YI.LE.YN)GO TO 50 + T=XI + XI=XN + XN=T + T=YI + YI=YN + YN=T +C TRUNCATE LINES RUNNING OFF PLOT + 50 IF(YI.LE.YLIM)GO TO 70 + IF(YN.GT.YLIM)RETURN + XI=XN+(XI-XN)*(YLIM-YN)/(YI-YN) + YI=YLIM + GO TO 80 + 70 IF(YN.LE.YLIM)GO TO 80 + XN=XI+(XN-XI)*(YLIM-YI)/(YN-YI) + YN=YLIM + 80 IF(YI.GE.YMIN)GO TO 90 + IF(YN.LT.YMIN)RETURN + XI=XN+(XI-XN)*(YMIN-YN)/(YI-YN) + YI=YMIN + GO TO 100 + 90 IF(YN.GE.YMIN)GO TO 100 + XN=XI+(XN-XI)*(YMIN-YI)/(YN-YI) + YN=YMIN +C BREAK LINES INTO SEGMENTS SHORTER THAN DXMAX + 100 DX=XN-XI + MORE=0 + IF(DX.LT.DXMAX)GO TO 500 + DY=YN-YI + MORE=1 + YSAVE=YN + XSAVE=XN + XN=XI+DXMAX + YN=YI+DY/DX*DXMAX + 500 IX1=XI*RESOLU+.5 + IY1=YI*RESOLU+.5 + IX2=XN*RESOLU+.5 + IY2=YN*RESOLU+.5 + XMAX=AMAX1(XMAX,XN) + IDX=IX2-IX1 +C EMERGENCY PATCH FOR NEGATIVE NUMBERS + IF(IDX.LT.0)IDX=0 + IF(IDX.GT.0)GO TO 501 + IF(IY1.LE.IY2)GO TO 501 + IT=IY1 + IY1=IY2 + IY2=IT + 501 IF(LINEWT.NE.1.AND.LINEWT.NE.12)GO TO 600 + +C PLOT SINGLE WEIGHT LINE + CALL BUFPLT(IX1,IY1,IDX,IY2) + IF(LINEWT.EQ.1)GO TO 1000 +C PLOT DOUBLE WEIGHT LINE + 600 IDY=IY2-IY1 + IF(LINEWT.EQ.3)GO TO 700 + IF(IDX.LT.IDY)GO TO 610 + IF(IDX.LT.-IDY)GO TO 620 + CALL BUFPLT(IX1,MAX0(IY1-1,0),IDX,MAX0(IY2-1,0)) + CALL BUFPLT(IX1,IY1+1,IDX,IY2+1) + IF(LINEWT.EQ.23)GO TO 700 + GO TO 1000 + 610 CALL BUFPLT(MAX0(IX1-1,0),IY1,IDX,IY2) + + CALL BUFPLT(IX1+1,IY1,IDX,IY2) + IF(LINEWT.EQ.23)GO TO 700 + GO TO 1000 + 620 CALL BUFPLT(MAX0(IX1-1,0),IY1,IDX,IY2) + + CALL BUFPLT(IX1+1,IY1,IDX,IY2) + IF(LINEWT.EQ.23)GO TO 700 + GO TO 1000 +C PLOT TRIPLE WEIGHT LINE + 700 IF(IDY.GT.IDX+IDX)GO TO 710 + IF(-IDY.GT.IDX+IDX)GO TO 720 + IF(IDY+IDY.GT.IDX)GO TO 730 + IF(-IDY-IDY.GT.IDX)GO TO 740 + CALL BUFPLT(IX1,MAX0(IY1-2,0),IDX,MAX0(IY2-2,0)) + CALL BUFPLT(IX1,IY1,IDX,IY2) + CALL BUFPLT(IX1,IY1+2,IDX,IY2+2) + GO TO 1000 + 710 CALL BUFPLT(MAX0(IX1-2,0),IY1,IDX,IY2) + + CALL BUFPLT(IX1,IY1,IDX,IY2) + CALL BUFPLT(IX1+2,IY1,IDX,IY2) + GO TO 1000 + 720 CALL BUFPLT(MAX0(IX1-2,0),IY1,IDX,IY2) + + CALL BUFPLT(IX1,IY1,IDX,IY2) + CALL BUFPLT(IX1+2,IY1,IDX,IY2) + GO TO 1000 + 730 CALL BUFPLT(MAX0(IX1-1,0),IY1+1,IDX,IY2+1) + + CALL BUFPLT(IX1,IY1,IDX,IY2) + CALL BUFPLT(IX1+1,MAX0(IY1-1,0),IDX,MAX0(IY2-1,0)) + GO TO 1000 + 740 CALL BUFPLT(MAX0(IX1-1,0),MAX0(IY1-1,0),IDX,MAX0(IY2-1,0)) + + CALL BUFPLT(IX1,IY1,IDX,IY2) + CALL BUFPLT(IX1+1,IY1+1,IDX,IY2+1) + 1000 IF(MORE.GT.0)GO TO 1001 + IF(MMMM.LT.0)GO TO 1 + RETURN + 1001 XI=XN + YI=YN + XN=XSAVE + YN=YSAVE + GO TO 100 +C + ENTRY WHERE(X,Y,XSCALE) +C CALL WHERE(X,Y,SCALE) +C RETURNS CURRENT POSITION AND SCALE FACTOR + X=XOLD-XMIN + Y=YOLD-YMIN + XSCALE=SCALE + RETURN +C + ENTRY FACTOR(X) +C CALL FACTOR(SCALE) +C CHANGES SCALE FACTOR + SCALE=X + RETURN +C + ENTRY WEIGHT(ILINEWT) +C CALL WEIGHT(LINEWT) +C LINEWT=1 SINGLE LINES +C LINEWT=2 DOUBLE LINES +C LINEWT=3 TRIPLE LINES +C LINEWT=12 SOLID DOUBLE LINES +C LINEWT=23 SOLID TRIPLE LINES + LINEWT=ILINEWT + RETURN + END + SUBROUTINE BCDX(NWORDS,WORDS,NCHARS,FORM,HEIGHT,X,Y) +C HEIGHT IS THE ROW TO ROW SPACING +C CHARACTER HEIGHT IS 6./7.*HEIGHT + DIMENSION WORDS(9),FORM(9),CHARS(34) + ENCODE(NCHARS,FORM,CHARS)(WORDS(I),I=1,NWORDS) + CALL SYMBOL(X,Y,6./7.*HEIGHT,CHARS, 0.,NCHARS) + RETURN + END + SUBROUTINE BCDY(NWORDS,WORDS,NCHARS,FORM,HEIGHT,X,Y) +C HEIGHT IS THE ROW TO ROW SPACING +C CHARACTER HEIGHT IS 6./7.*HEIGHT + DIMENSION WORDS(9),FORM(9),CHARS(34) + ENCODE(NCHARS,FORM,CHARS)(WORDS(I),I=1,NWORDS) + CALL SYMBOL(X,Y,6./7.*HEIGHT,CHARS, 90.,NCHARS) + RETURN + END + SUBROUTINE BCDMX(NWORDS,WORDS,NCHARS,FORM,HEIGHT,X,Y) +C HEIGHT IS THE ROW TO ROW SPACING +C CHARACTER HEIGHT IS 6./7.*HEIGHT + DIMENSION WORDS(9),FORM(9),CHARS(34) + ENCODE(NCHARS,FORM,CHARS)(WORDS(I),I=1,NWORDS) + CALL SYMBOL(X,Y,6./7.*HEIGHT,CHARS,180.,NCHARS) + RETURN + END + SUBROUTINE BCDMY(NWORDS,WORDS,NCHARS,FORM,HEIGHT,X,Y) +C HEIGHT IS THE ROW TO ROW SPACING +C CHARACTER HEIGHT IS 6./7.*HEIGHT + DIMENSION WORDS(9),FORM(9),CHARS(34) + ENCODE(NCHARS,FORM,CHARS)(WORDS(I),I=1,NWORDS) + CALL SYMBOL(X,Y,6./7.*HEIGHT,CHARS,270.,NCHARS) + RETURN + END + SUBROUTINE IBCDX(NWORDS,WORDS,NCHARS,FORM,HEIGHT,X,Y) +C HEIGHT IS THE ROW TO ROW SPACING +C CHARACTER HEIGHT IS 6./7.*HEIGHT + DIMENSION WORDS(9),FORM(9),CHARS(34) + INTEGER*4 WORDS + ENCODE(NCHARS,FORM,CHARS)(WORDS(I),I=1,NWORDS) + CALL SYMBOL(X,Y,6./7.*HEIGHT,CHARS, 0.,NCHARS) + RETURN + END + SUBROUTINE IBCDY(NWORDS,WORDS,NCHARS,FORM,HEIGHT,X,Y) +C HEIGHT IS THE ROW TO ROW SPACING +C CHARACTER HEIGHT IS 6./7.*HEIGHT + DIMENSION WORDS(9),FORM(9),CHARS(34) + INTEGER*4 WORDS + ENCODE(NCHARS,FORM,CHARS)(WORDS(I),I=1,NWORDS) + CALL SYMBOL(X,Y,6./7.*HEIGHT,CHARS, 90.,NCHARS) + RETURN + END + SUBROUTINE IBCDMX(NWORDS,WORDS,NCHARS,FORM,HEIGHT,X,Y) +C HEIGHT IS THE ROW TO ROW SPACING +C CHARACTER HEIGHT IS 6./7.*HEIGHT + DIMENSION WORDS(9),FORM(9),CHARS(34) + INTEGER*4 WORDS + ENCODE(NCHARS,FORM,CHARS)(WORDS(I),I=1,NWORDS) + CALL SYMBOL(X,Y,6./7.*HEIGHT,CHARS,180.,NCHARS) + RETURN + END + SUBROUTINE IBCDMY(NWORDS,WORDS,NCHARS,FORM,HEIGHT,X,Y) +C HEIGHT IS THE ROW TO ROW SPACING +C CHARACTER HEIGHT IS 6./7.*HEIGHT + DIMENSION WORDS(9),FORM(9),CHARS(34) + INTEGER*4 WORDS + ENCODE(NCHARS,FORM,CHARS)(WORDS(I),I=1,NWORDS) + CALL SYMBOL(X,Y,6./7.*HEIGHT,CHARS,270.,NCHARS) + RETURN + END + SUBROUTINE ASCIIX(NWORDS,WORDS,NCHARS,FORM,HEIGHT,X,Y) + +C HEIGHT IS THE ROW TO ROW SPACING +C CHARACTER HEIGHT IS 6./7.*HEIGHT + DIMENSION WORDS(9),FORM(9),CHARS(34) + ENCODE(NCHARS,FORM,CHARS)(WORDS(I),I=1,NWORDS) + CALL VERSYMBOL(X,Y,6./7.*HEIGHT,CHARS, 0.,NCHARS) + + RETURN + END + SUBROUTINE ASCIIY(NWORDS,WORDS,NCHARS,FORM,HEIGHT,X,Y) + +C HEIGHT IS THE ROW TO ROW SPACING +C CHARACTER HEIGHT IS 6./7.*HEIGHT + DIMENSION WORDS(9),FORM(9),CHARS(34) + ENCODE(NCHARS,FORM,CHARS)(WORDS(I),I=1,NWORDS) + CALL VERSYMBOL(X,Y,6./7.*HEIGHT,CHARS, 90.,NCHARS) + + RETURN + END + SUBROUTINE ASCIIMX(NWORDS,WORDS,NCHARS,FORM,HEIGHT,X,Y) +C HEIGHT IS THE ROW TO ROW SPACING +C CHARACTER HEIGHT IS 6./7.*HEIGHT + DIMENSION WORDS(9),FORM(9),CHARS(34) + ENCODE(NCHARS,FORM,CHARS)(WORDS(I),I=1,NWORDS) + CALL VERSYMBOL(X,Y,6./7.*HEIGHT,CHARS,180.,NCHARS) + + RETURN + END + SUBROUTINE ASCIIMY(NWORDS,WORDS,NCHARS,FORM,HEIGHT,X,Y) +C HEIGHT IS THE ROW TO ROW SPACING +C CHARACTER HEIGHT IS 6./7.*HEIGHT + DIMENSION WORDS(9),FORM(9),CHARS(34) + ENCODE(NCHARS,FORM,CHARS)(WORDS(I),I=1,NWORDS) + CALL VERSYMBOL(X,Y,6./7.*HEIGHT,CHARS,270.,NCHARS) + + RETURN + END + SUBROUTINE IASCIIX(NWORDS,WORDS,NCHARS,FORM,HEIGHT,X,Y) +C HEIGHT IS THE ROW TO ROW SPACING +C CHARACTER HEIGHT IS 6./7.*HEIGHT + DIMENSION WORDS(9),FORM(9),CHARS(34) + INTEGER*4 WORDS + ENCODE(NCHARS,FORM,CHARS)(WORDS(I),I=1,NWORDS) + CALL VERSYMBOL(X,Y,6./7.*HEIGHT,CHARS, 0.,NCHARS) + + RETURN + END + SUBROUTINE IASCIIY(NWORDS,WORDS,NCHARS,FORM,HEIGHT,X,Y) +C HEIGHT IS THE ROW TO ROW SPACING +C CHARACTER HEIGHT IS 6./7.*HEIGHT + DIMENSION WORDS(9),FORM(9),CHARS(34) + INTEGER*4 WORDS + ENCODE(NCHARS,FORM,CHARS)(WORDS(I),I=1,NWORDS) + CALL VERSYMBOL(X,Y,6./7.*HEIGHT,CHARS, 90.,NCHARS) + + RETURN + END + SUBROUTINE IASCIIMX(NWORDS,WORDS,NCHARS,FORM,HEIGHT,X,Y) +C HEIGHT IS THE ROW TO ROW SPACING +C CHARACTER HEIGHT IS 6./7.*HEIGHT + DIMENSION WORDS(9),FORM(9),CHARS(34) + INTEGER*4 WORDS + ENCODE(NCHARS,FORM,CHARS)(WORDS(I),I=1,NWORDS) + CALL VERSYMBOL(X,Y,6./7.*HEIGHT,CHARS,180.,NCHARS) + + RETURN + END + SUBROUTINE IASCIIMY(NWORDS,WORDS,NCHARS,FORM,HEIGHT,X,Y) +C HEIGHT IS THE ROW TO ROW SPACING +C CHARACTER HEIGHT IS 6./7.*HEIGHT + DIMENSION WORDS(9),FORM(9),CHARS(34) + INTEGER*4 WORDS + ENCODE(NCHARS,FORM,CHARS)(WORDS(I),I=1,NWORDS) + CALL VERSYMBOL(X,Y,6./7.*HEIGHT,CHARS,270.,NCHARS) + + RETURN + END + SUBROUTINE SYMB AT (X,Y) + DATA SCALE/.05/ +C + ENTRY SIZE OF (X) + +C CALL SIZE OF (X) + SCALE=X + RETURN +C + ENTRY X AT (X,Y) + + CALL JUMP TO (X+SCALE,Y-SCALE) + CALL LINE TO (X-SCALE,Y+SCALE) + CALL JUMP TO (X-SCALE,Y-SCALE) + CALL LINE TO (X+SCALE,Y+SCALE) + CALL JUMP TO (X,Y) + RETURN +C + ENTRY BOX AT (X,Y) + + CALL JUMP TO (X+SCALE,Y+SCALE) + CALL LINE TO (X+SCALE,Y-SCALE) + CALL LINE TO (X-SCALE,Y-SCALE) + CALL LINE TO (X-SCALE,Y+SCALE) + CALL LINE TO (X+SCALE,Y+SCALE) + CALL JUMP TO (X,Y) + RETURN +C + ENTRY CIRC AT (X,Y) + +C ACTUALLY A NONAGON + CALL JUMP TO (X+SCALE,Y) + CALL LINE TO (X+.766*SCALE,Y+.643*SCALE) + CALL LINE TO (X+.174*SCALE,Y+.985*SCALE) + CALL LINE TO (X-.5*SCALE,Y+.866*SCALE) + CALL LINE TO (X-.940*SCALE,Y+.342*SCALE) + CALL LINE TO (X-.940*SCALE,Y-.342*SCALE) + CALL LINE TO (X-.5*SCALE,Y-.866*SCALE) + CALL LINE TO (X+.174*SCALE,Y-.985*SCALE) + CALL LINE TO (X+.766*SCALE,Y-.643*SCALE) + CALL LINE TO (X+SCALE,Y) + CALL JUMP TO (X,Y) + RETURN +C + ENTRY POINT AT (X,Y) + +C ACTUALLY A HALF SIZE PENTAGON + CALL JUMP TO (X+.5*SCALE,Y) + CALL LINE TO (X+.154*SCALE,Y+.476*SCALE) + CALL LINE TO (X-.404*SCALE,Y+.294*SCALE) + CALL LINE TO (X-.404*SCALE,Y-.294*SCALE) + CALL LINE TO (X+.154*SCALE,Y-.476*SCALE) + CALL LINE TO (X+.5*SCALE,Y) + CALL JUMP TO (X,Y) + RETURN +C + ENTRY TRI AT (X,Y) + + CALL JUMP TO (X,Y+SCALE) + CALL LINE TO (X-.866*SCALE,Y-.5*SCALE) + CALL LINE TO (X+.866*SCALE,Y-.5*SCALE) + CALL LINE TO (X,Y+SCALE) + CALL JUMP TO (X,Y) + RETURN +C + ENTRY PLUS AT (X,Y) + + CALL JUMP TO (X-SCALE,Y) + CALL LINE TO (X+SCALE,Y) + CALL JUMP TO (X,Y+SCALE) + CALL LINE TO (X,Y-SCALE) + CALL JUMP TO (X,Y) + RETURN +C + ENTRY DIME AT (X,Y) + + CALL JUMP TO (X+SCALE,Y) + CALL LINE TO (X,Y-SCALE) + CALL LINE TO( X-SCALE,Y) + CALL LINE TO (X,Y+SCALE) + CALL LINE TO (X+SCALE,Y) + CALL JUMP TO (X,Y) + RETURN +C + ENTRY DEL AT (X,Y) + + CALL JUMP TO (X,Y-SCALE) + CALL LINE TO (X+.866*SCALE,Y+.5*SCALE) + CALL LINE TO (X-.866*SCALE,Y+.5*SCALE) + CALL LINE TO (X,Y-SCALE) + CALL JUMP TO (X,Y) + RETURN +C + ENTRY DOT AT (X,Y) + CALL JUMP TO (X,Y) + CALL LINE TO (X,Y) + RETURN + END + SUBROUTINE SYMBOL (X1,Y1,HEIGHT,BCD,THETA,NCHAR) PLTPK461 + DIMENSION KCT(90),KOC(90) + DIMENSION IXY(16),ASCDPC(128) + INTEGER ASCDPC,BCD + DIMENSION BCD(1),FPC(8),INCHAR(4),IX(8),IY(8),ITAB2(123) PLTPK467 + CHARACTER*16 ITAB2,ITEMP + CHARACTER IXY + CHARACTER*132 STRING + DATA KCT/ + 1 9,13,7,10,8,8,10,7,10,7,17,18,6,5,12, + 2 2,2,5,5,8,5,14,6,3,8,8,11,9,13,8,7,8,7,13,8, + 3 8,6,8,3,5,4,10,7,12,10,13,5,7,3,5, + 4 5,6,7,9,6,9,14,4,9,12,5,16,12,5,2, + 5 11,2,4,4,13,5,0,6,5,8,4,4,14,8,6, + 6 3,3,5,5,3,3,6,6,3,12/ + DATA KOC/ + 1 1,3,5,6,8,9,10,12,13,15,16,19,22,23,24, + 2 26,27,28,29,30,31,32,34,35,36,37,97,40,42,44,115,116,117,118,120, + 3 45,46,47,48,49,50,51,53,54,56,58,60,61,62,63, + 4 64,65,66,67,69,70,72,74,81,75,77,78,82,84,85, + 5 86,88,89,90,91,93,94,94,95,30,103,108,32,36,31, + 6 121,35,29,28,104,99,122,34,123,109/ + DATA ITAB2/ + +'2224040040442470','2200000000000000','2224140301103041', + +'4334247022000000','2224014124702200','7020247022700242', + +'7022000000000000','7000447004407022','2224022042247022', + +'2202244222702420','7022000000000000','7000440440702200', + +'7004440040701232','7022000000000000','7004224470202200', + +'7040311100701113','0470133344703133','2200000000000000', + +'7020247022700242','7022700044700440','7022000000000000', + +'2204440040220000','7020247022000000','2224014124702003', + +'4320702200000000','0040000000000000','0004000000000000', + +'2031112027000000','2027163627000000','0040700343700646', + +'4332344303000000','4030314140704700','7006071716060000', + +'4101700244060000','1123310000000000','1035700444700141', + +'0141700444702226','0343701214702224','7032340000000000', + +'0006173746407043','0300000000000000','4130000737464534', + +'0470344341000000','4130100106173746','3010702027701737', + +'0201103041470000','0700700347702540','4000070000000000', + +'4047240700000000','0007404700000000','3546413010010617', + +'3746000000000000','0007374645340400','4641301001061737', + +'4670224000000000','0007374645340470','2440000000000000', + +'0201103041433414','0506173746000000','2027700747000000', + +'0702011030414700','0720470000000000','4740240007000000', + +'0047700740000000','0724477024200000','0747004070143400', + +'4641301001061737','4600000000000000','3010702027160000', + +'0506173746450100','4000000000000000','0617374645341470', + +'3443413010010000','3037024200000000','0434434130100102', + +'0617374600000000','0607474620000000','1405061737464534', + +'4341301001031434','0000000000000000','4707043443413010', + +'0110304146371706','0413334400000000','2125700343000000', + +'0343000000000000','2125700343700145','7005410000000000', + +'0047000000000000','2011162700000000','2031362700000000', + +'2027704536160504','4342311102000000','0444700141000000', + +'3121223231200000','3121223231000000','2527000000000000', + +'2524343525703121','2232310000000000','0244067001310000', + +'4727201201000000','0506173746453424','2270103021100000', + +'3010173700000000','4604420000000000','2027701131701535', + +'7013330000000000','1030211070222700','1737301000000000', + +'2524343525703121','2232312000000000','0141250100000000', + +'2027701131701535','0617263746702620','0740000000000000', + +'4641300007374600','4707043470040040','4707043470040000', + +'5333704341301001','0617374645000000','0007700444704740', + +'1321330000000000','4604427001410000','0242400000000000'/ + DATA ASCDPC/ + 1 45,45,45,45,45,45,45,45,45,45,45,45,45,45,45,45, + 2 45,45,45,45,45,45,45,45,45,45,45,45,45,45,45,45, + 3 45,50,52,48,43,51,55,49,41,42,39,37,46,38,47,40, + 4 27,28,29,30,31,32,33,34,35,36,00,63,60,44,59,57, + 5 56,01,02,03,04,05,06,07,08,09,10,11,12,13,14,15, + 6 16,17,18,19,20,21,22,23,24,25,26,58,61,54,62,53, + 7 45,01,02,03,04,05,06,07,08,09,10,11,12,13,14,15, + 8 16,17,18,19,20,21,22,23,24,25,26,45,45,45,45,45/ + H=HEIGHT PLTPK528 + NC=NCHAR PLTPK529 + IF(NC.EQ.0)RETURN + SI=0. + CO=1. + IF(THETA.EQ.0.)GO TO 21 + SI=1. + CO=0. + IF(THETA.EQ.90.)GO TO 21 + SI=0. + CO=-1. + IF(THETA.EQ.180.)GO TO 21 + SI=-1. + CO=0. + IF(THETA.EQ.270.)GO TO 21 + TH=THETA*0.017453 + SI=SIN(TH) +PLOT341 + CO=COS(TH) +PLOT342 + 21 CONTINUE + X=X1 PLTPK536 + Y=Y1 PLTPK537 + IC=3 PLTPK538 + IF(NC.GE.1)GO TO 50 + FACT=H/4.0 PLTPK540 + IF(NCHAR.EQ.-2)CALLPLOT(X,Y,2) PLTPK541 +C IF (NCHAR.LT.-1) 40,60 PLTPK542 +C 40 IC=2 PLTPK543 + X=X-2.0*FACT*(CO-SI) PLTPK544 + Y=Y-2.0*FACT*(CO+SI) PLTPK545 + NC=1 PLTPK546 + ITSUB=BCD(1)+1 + GO TO 70 PLTPK549 +50 FACT=H/7.0 PLTPK550 + IS=1 PLTPK551 + ICON=26 PLTPK552 + N=(NCHAR+3)/4 + N4=N*4 + ENCODE(N4,51,STRING)(BCD(I),I=1,N) + 51 FORMAT(33A4) +C 60 IC=3 PLTPK553 +70 XA=FACT*CO PLTPK554 + YA=FACT*SI PLTPK555 + XT=XA*6.0 PLTPK556 + YT=YA*6.0 PLTPK557 + ISFIRST=1 PLTPK558 + IDEL=1 PLTPK559 + J=1 PLTPK560 + DO 230 K=1,NC + IF(NCHAR.LT.1)GO TO 121 + ITEMP=STRING(K:K) + IASCII=ICHAR(ITEMP) +C PATCH TO GET RID OF CROSSED Os. NOW O AND ZERO ARE SAME. + IF(IASCII.EQ.79)IASCII=48 +C + ITSUB=ASCDPC(IASCII+1)+27 + 121 CONTINUE + ICT=KCT(ITSUB) PLTPK567 + LOC=KOC(ITSUB) PLTPK568 +130 CONTINUE PLTPK569 + ITEMP=ITAB2(LOC) PLTPK570 + DO 131 ILOOP=1,16 PLTPK571 + IXY(ILOOP)=ITEMP(ILOOP:ILOOP) +131 CONTINUE PLTPK574 + DO103LOOP=1,8 PLTPK576 + IX(LOOP)=ICHAR(IXY(LOOP+LOOP-1))-48 + IY(LOOP)=ICHAR(IXY(LOOP+LOOP))-48 + 103 CONTINUE PLTPK580 + I=1 PLTPK581 + 140 IF(IX(I).NE.7)GO TO 160 + IC=3 PLTPK583 + GO TO 170 PLTPK584 + 160 XN=X+XA*FLOAT(IX(I))-YA*FLOAT(IY(I)) + YN=Y+YA*FLOAT(IX(I))+XA*FLOAT(IY(I)) + CALL PLOT (XN,YN,IC) PLTPK589 + IC=2 PLTPK590 +170 ICT=ICT-1 PLTPK591 + IF(ICT.LE.0)GO TO 200 + I=I+1 PLTPK593 + IF(I.LE.8)GO TO 140 + LOC=LOC+1 PLTPK595 + GO TO 130 PLTPK596 +C END OF SINGLE CHARACTER *** PLTPK597 +200 X=X+XT PLTPK598 + Y=Y+YT PLTPK599 + IC=3 PLTPK603 + 230 CONTINUE + RETURN + END PLTPK611 + SUBROUTINE NUMBER (X,Y,HGHT,FPN,THETA,N) PLTPK231 + DIMENSION HOLL(10) + INTEGER HOLL + DATA HOLL/1H0,1H1,1H2,1H3,1H4,1H5,1H6,1H7,1H8,1H9/ +C DIMENSIONL(2) PLTPK232 +C TFPN =ABSF(FPN)+.0001 PLTPK233 + TFPN=ABS(FPN)+10.**(-IABS(N)-1) PLTPK234 + TH = THETA * 0.017455 PLTPK235 + CTH = HGHT * 6.0 / 7.0 PLTPK236 + STH=CTH*SIN(TH) PLTPK237 + CTH=CTH*COS(TH) PLTPK238 + XT = X PLTPK239 + YT = Y PLTPK240 + IF (FPN) 10,90,20 PLTPK241 + 10 CALL SYMBOL (XT,YT,HGHT,1H-,THETA,1) PLTPK242 + XT = XT + CTH PLTPK243 + YT = YT + STH PLTPK244 + 20 I=0.4343*ALOG(TFPN)+1.0 +PLOT269 + IF (I) 50,50,30 PLTPK246 + 30 DO 40 J = 1,I PLTPK247 + JK = 0 PLTPK248 + K=TFPN*10.0**(J-I) PLTPK249 +C L=K+27 PLTPK250 +C L=ILSHFT(L,54) PLTPK251 + L=HOLL(K+1) + CALL SYMBOL (XT,YT,HGHT,L,THETA,1) PLTPK252 + TFPN=TFPN-FLOAT(K*10**(I-J)) +PLOT270 + XT = XT + CTH PLTPK254 + 40 YT = YT + STH PLTPK255 + IF (N+1) 80,80,50 PLTPK256 + 50 CALL SYMBOL (XT,YT,HGHT,1H.,THETA,1) PLTPK257 + IF(N)60,80,60 PLTPK258 + 60 DO 70 I = 1,N PLTPK259 + XT = XT + CTH PLTPK260 + YT = YT + STH PLTPK261 + JK = 0 PLTPK262 + K = TFPN * 10.0 PLTPK263 +C L=K+27 PLTPK264 +C L=ILSHFT(L,54) PLTPK265 + L=HOLL(K+1) +62 CALL SYMBOL (XT,YT,HGHT,L,THETA,1) PLTPK266 + 70 TFPN=TFPN*10.0-FLOAT(K) +PLOT271 + 80 RETURN PLTPK268 + 90 CALL SYMBOL (XT,YT,HGHT,13H0.0000000000 ,THETA,2+N) PLTPK269 + RETURN PLTPK270 + END PLTPK271 + SUBROUTINE AXIS(X,Y,BCD,N,SIZE,THETA,XMIN,DX) PLTPK272 +C SIZE IS THE LENGTH OF THE AXIS TO BE DRAWN. SIZE IS PLTPK273 +C FLOATING POINT AND SHOULD BE MULTIPLY OF (10.0/DIV). PLTPK274 +C THETA IS THE ANGLE OF THE AXIS MEASURED COUNTER-CLOCKWISE PLTPK275 +C VARIABLE ALONG AXIS. DX IS FLOATING POINT. (SEE NOTE) PLTPK276 +C BCD IS THE LOCATION OF ALPHA INFORMATION FOR AXIS TITLE. PLTPK277 +C USUALLY VARIABLE NAME. (NORMALLY SET UP WITH LITERAL) PLTPK278 +C N IS THE NUMBER OF CHARACTERS IN BCD TITLE. A NEGATIVE PLTPK279 +C N PLACES THE ANNOTATION ON THE CLOCKWISE SIDE OF AXIS PLTPK280 +C LINE AND VICE-VERSA. PLTPK281 +C PLTPK282 +C NOTE- THE SECOND VERSION OF SCALE PLACES XMIN IN VARIABLE(J*K+1)AND PLTPK283 +C DX IN VARIABLE(J*K+K+1). WHERE J IS NUMBER OF ELEMENTS IN PLTPK284 +C ARRAY AND K IS THE REPEAT CYCLE OF MIXED ARRAY. PLTPK285 +C PLTPK286 + L=IABS(N) +PLOT272 + TH = THETA * 0.0174533 PLTPK288 + CTH=COS(TH) PLTPK289 + STH=SIN(TH) PLTPK290 + RN = N /PLOT108 + + + + + + + + + + DYB = -.05 + .5*SIGN(.3,RN) /PLOT109 + DXB=-.1 PLTPK292 + DYC = -.075 + .5*SIGN(.65,RN) /PLOT110 + DXC = SIZE / 2.0 - .12*FLOAT((L+7)/2) PLTPK294 + NOTE=SIZE +1.0 PLTPK295 + XN = X + DXB * CTH - DYB * STH PLTPK296 + YN = Y + DYB * CTH + DXB * STH PLTPK297 + ADY=ABS(DX) PLTPK298 + EX = 0.0 PLTPK299 + IF (ADY) 3,7,3 PLTPK300 + 3 IF (ADY - 100.0) 6,4,4 PLTPK301 + 4 ADY = ADY / 10.0 PLTPK302 + EX = EX + 1.0 PLTPK303 + GO TO 3 PLTPK304 + 5 ADY = ADY * 10.0 PLTPK305 + EX = EX - 1.0 PLTPK306 + 6 IF (ADY - 0.01) 5,7,7 PLTPK307 + 7 IEX = EX PLTPK308 + ABSV = XMIN/10.0**IEX PLTPK309 + ADY=SIGN(ADY,DX) PLTPK310 + NT=SQRT(DXC**2+DYC**2) +PLOT273 + DO 10 I = 1,NOTE PLTPK312 + CALL NUMBER(XN,YN,.1,ABSV,THETA,2) PLTPK313 + ABSV = ABSV + ADY PLTPK314 + XN = XN + CTH PLTPK315 + YN = YN + STH PLTPK316 + IF (NT) 10,8,10 PLTPK317 + 8 XT = X + DXC * CTH - DYC * STH PLTPK318 + YT = Y + DYC * CTH + DXC * STH PLTPK319 + CALL SYMBOL(XT,YT,.14,BCD,THETA,L) PLTPK320 + IF (EX ) 9,10,9 PLTPK321 + 9 XT=XT+FLOAT(L)*CTH*.12 +PLOT274 + YT=YT+FLOAT(L)*STH*.12 +PLOT275 + CALL SYMBOL(XT,YT,.14,7H(X10 ),THETA,7) PLTPK324 +C XT=XT+.96*STH-.12*CTH PLTPK325 + XT=XT+.48*CTH-.12*STH PLTPK326 + YT=YT+.12*CTH+.48*STH PLTPK327 +C YT=YT+.12*CTH+.96*STH PLTPK328 + CALL NUMBER(XT,YT,.1,EX,THETA,-1) PLTPK329 + 10 NT = NT - 1 PLTPK330 + NTIC=SIZE +1.0 PLTPK331 + XN = X + CTH * SIZE PLTPK332 + YN = Y + STH * SIZE PLTPK333 + CALL PLOT (XN,YN,3) PLTPK334 + XN = FLOAT(NTIC-1) * CTH + X PLTPK335 + YN = FLOAT(NTIC-1) * STH + Y PLTPK336 + DO 11 I = 1,NTIC PLTPK337 + CALL SYMBOL(XN,YN,.1,13,THETA,-2) PLTPK338 + XN = XN - CTH PLTPK339 + 11 YN = YN - STH PLTPK340 + RETURN PLTPK341 + END PLTPK342 + SUBROUTINE SCALE(X,S,N,K) PLTPK343 +C PLTPK344 +C AND MINIMUM VALUES. AN ADJUSTED MINIMUM VALUE WILL BE PLTPK345 +C STORED IN X(N*K+1). AN ADJUSTED DX(MAX.-MIN.) WILL BE PLTPK346 +C STORED IN X(N*K+K+1). PLTPK347 +C S IS THE LENGTH OVER WHICH THIS DATA IS TO BE PLOTTED. PLTPK348 +C N IS THE NUMBER OF DATA POINTS IN THE ARRAY X. PLTPK349 +C K IS THE REPEAT CYCLE OF A MIXED ARRAY.(NORMALLY 1) PLTPK350 +C PLTPK351 + DIMENSION X(2) PLTPK352 + NP = N * K PLTPK353 + L = NP + 1 PLTPK354 + J = NP +K + 1 PLTPK355 + XMAX = X(1) PLTPK356 + X(L) = X(1) PLTPK357 + DO 10 I = 1,NP,K PLTPK358 + IF (XMAX-X(I)) 5,6,6 PLTPK359 + 5 XMAX = X(I) PLTPK360 + 6 IF (X(L)-X(I))10,10,7 PLTPK361 + 7 X(L) = X(I) PLTPK362 + 10 CONTINUE PLTPK363 + DX=(XMAX-X(L))/S PLTPK364 + IF (DX) 31,31,30 PLTPK365 + 31 X(J) = 1.0 PLTPK366 + X(L) = X(L) - 0.5 PLTPK367 + RETURN PLTPK368 + 30 IDX=ALOG10(DX) PLTPK369 + IXMN = X(L) * 10.0 ** (-IDX) PLTPK370 + IF (X(L))32,33,34 PLTPK371 + 32 IXMN = X(L) * 10.0 ** (-IDX) - 0.99 PLTPK372 + 34 X(L) = IXMN PLTPK373 + X(L) = X(L) * 10.0 ** IDX PLTPK374 + 33 DX=ALOG10((XMAX-X(L))/S) PLTPK375 + IDX = DX PLTPK376 + XMAX = IDX PLTPK377 + DX=10.0**(DX-XMAX) PLTPK378 + XMAX = 1.0 PLTPK379 + 41 IF (DX-1.0) 40,20,11 PLTPK380 + 40 DX = DX * 10.0 PLTPK381 + IDX = IDX - 1 PLTPK382 + GO TO 41 PLTPK383 + 11 XMAX=2.0 PLTPK384 + IF(DX-2.0) 20,20,12 PLTPK385 + 12 XMAX = 4.0 PLTPK386 + IF (DX-4.0) 20,20,13 PLTPK387 + 13 XMAX=5.0 PLTPK388 + IF(DX-5.0) 20,20,14 PLTPK389 + 14 XMAX=8.0 PLTPK390 + IF (DX-8.0) 20,20,15 PLTPK391 + 15 XMAX=10.0 PLTPK392 + 20 X(J)=XMAX*10.0**IDX PLTPK393 + RETURN PLTPK394 + END PLTPK395 + SUBROUTINE LINE (X,Y,N,K,J,L) PLTPK396 + DIMENSION X(1), Y(1) PLTPK397 +C X IS THE NAME OF THE ARRAY OF UNSCALED ORDINATE VALUES. PLTPK398 +C Y IS THE NAME OF THE ARRAY OF UNSCALED ABCISSA VALUES. PLTPK399 +C N IS THE NUMBER OF POINTS IN THE ARRAY PLTPK400 +C K IS THE REPEAT CYCLE OF A MIXED ARRAY (NORMALLY=1) PLTPK401 +C J IS THE ALTERNATE NUMBER OF DATA POINT TO PLOT A SYMBOL. PLTPK402 +C J =1 FOR POINT FOR EVERY DATA POINT,2 FOR EVERY OTHER PLTPK403 +C J WILL = 0 FOR LINE PLOT,NEGATIVE FOR POINT PLOT, PLTPK404 +C L IS AN INTEGER DESCRIBING SYMBOL TO BE USED, SEE SYMBOL PLTPK405 +C ROUTINE FOR LIST PLTPK406 +C NOTE THIS ROUTINE EXPECTS XMIN,DX,YMIN AND DY TO BE STORED IN PLTPK407 +C X(N*K+1),X(N*K+1+K),Y(N*K+1,AND Y(N*K+1+K) RESPECTIVELY. PLTPK408 +C MODIFIED 11/13/69 SL GARREN SAO (PLT1 1 +C IF L.LT.0 USE CORNER REFERENCED CHARACTER SET,CENTER REFERENCED (PLT1 2 +C ENTRY POINT SIZE(SZ) SETS SIZE OF CHARACTERS TO SZ INCHES (PLT1 3 +C PLTPK409 + DIMENSION DPCASC(64) + INTEGER DPCASC + DATA DPCASC/ + 1 1H:,1HA,1HB,1HC,1HD,1HE,1HF,1HG, + 2 1HH,1HI,1HJ,1HK,1HL,1HM,1HN,1HO, + 3 1HP,1HQ,1HR,1HS,1HT,1HU,1HV,1HW, + 4 1HX,1HY,1HZ,1H0,1H1,1H2,1H3,1H4, + 5 1H5,1H6,1H7,1H8,1H9,1H+,1H-,1H*, + 6 1H/,1H(,1H),1H$,1H=,1H ,1H,,1H., + 7 1H#,1H',1H!,1H%,1H",1H_,1H],1H&, + 8 1H@,1H?,1H[,1H>,1H<,1H\,1H^,1H;/ + DATA SIZ,XI,YI/.08,.022857,.044571428 / (PLT1 4 + L1=L (PLT1 5 + LL = L /PLT2 1 + IF(LL.LT.0)LL=DPCASC(-LL+1) +C IF(LL .LT. 0) LL = ILSHFT(-LL,54) /PLT2 2 + NP=N*K+1 PLTPK410 + NQ=NP+K PLTPK411 + NO = N*K-K+1 /PLT3 1 + XMIN=X(NP) PLTPK413 + DX=X(NQ) PLTPK414 + YMIN=Y(NP) PLTPK415 + DY=Y(NQ) PLTPK416 + I3=3 PLTPK417 + CALL WHERE (XN,YN,IC) PLTPK418 + I2=-1 PLTPK419 + XN=XN*DX+XMIN PLTPK420 + YN=YN*DY+YMIN PLTPK421 + DX1=ABS(X(1)-XN) +PLOT276 + DY1=ABS(Y(1)-YN) +PLOT277 + DX2=ABS(X(NO)-XN) +PLOT278 + DY2=ABS(Y(NO)-YN) +PLOT279 + DX1=MAX1(DX1,DY1) +PLOT280 + DX2=MAX1(DX2,DY2) +PLOT281 + KK=K PLTPK428 + NA=0 PLTPK429 + NT=J PLTPK430 + IF (NT) 10,30,20 PLTPK431 +10 NT=-NT PLTPK432 +20 NA=(N-1)/NT PLTPK433 +30 NA=NA*NT+NT+1-N PLTPK434 + IF (DX1-DX2) 40,40,50 PLTPK435 +40 NO=1 PLTPK436 + KK=-KK PLTPK437 + NA=NT PLTPK438 +50 NV=2 PLTPK439 + NW=-2 PLTPK440 + KL=2 PLTPK441 + IF (J) 60,70,80 PLTPK442 +60 NV=3 PLTPK443 + NW=-1 PLTPK444 + KL=1 PLTPK445 + GO TO 80 PLTPK446 +70 NA=NP PLTPK447 +80 DO 140 I=1,N PLTPK448 + IF (NA-NT) 100,90,110 PLTPK449 +90 DX1=(X(NO)-XMIN)/DX (PLT1 7 + DY1=(Y(NO)-YMIN)/DY (PLT1 8 + IF(L1.GT.0) GO TO 91 (PLT1 9 + IF(I2.NE.-2) GO TO 92 (PLT1 10 + CALL PLOT(DX1,DY1,2) (PLT1 11 +92 I2=1 (PLT1 12 + DX1=DX1-XI (PLT1 13 + DY1=DY1-YI (PLT1 14 +91 CALL SYMBOL(DX1, DY1, SIZ, LL, 0., I2) /PLT2 3 + CALL PLOT(DX1,DY1,3) + IF(L1.LT.1) CALL PLOT(DX1+XI,DY1+YI,3) (PLT1 16 + NA=1 PLTPK451 + GO TO 130 PLTPK452 +100 GO TO (120,110), KL PLTPK453 +110 CALL PLOT ((X(NO)-XMIN)/DX,(Y(NO)-YMIN)/DY,I3) PLTPK454 +120 NA=NA+1 PLTPK455 +130 I3=NV PLTPK456 + I2=NW PLTPK457 +140 NO=NO-KK PLTPK458 + RETURN PLTPK459 + ENTRY SIZE(X) + SIZ=X(1) (PLT1 18 + XI=.2857142*SIZ (PLT1 19 + YI=.571428*SIZ (PLT1 20 + RETURN (PLT1 21 + END PLTPK460 + SUBROUTINE VERSYMBOL(XZ,YZ,HGT,ITEXT,ANGLE,NZ) +C SUBROUTINE SYMBOL(XZ,YZ,HGT,ITEXT,ANGLE,NZ) +C +C CALL SYMBOL(X,Y,HGT,ITEXT,ANGLE,NC) +C +C X,Y IS THE STARTING COORDINATE OF THE TEXT GENERATION. +C HGT IS THE CHARACTER HEIGHT SPECIFICATION (IN INCHES). +C ITEXT IS THE ALPHANUMERIC TEXT TO BE GENERATED. +C ANGLE IS THE ANGLE AT WHICH THE CHARACTER LINE IS PLOTTED +C NC IS THE NUMBER OF CHARACTERS TO BE PLOTTED. +C +C NC>0 ALPHA TEXT, NUMBER OF CHARACTER TO BE PLOTTED. +C NC=0 PLOT SINGLE CHARACTER,RIGHT-JUSTIFIED IN ITEXT +C NC=-1 MOVE TO X,Y WITH 'PEN' UP;PLOT SYMBOL # ITEXT. +C NC<-1 MOVE TO X,Y 'PEN' DOWN;PLOT SYMBOL # 'ITEXT'. +C +C VERSATEC ROUTINE WITH ALL THE SHIFTING AND MASKING STRIPPED OUT + DIMENSION XA(14),YA(14),ASIN(5),ACOS(5) + DIMENSION ITEXT(1) + CHARACTER*1 ITEMP + CHARACTER*132 STRING + DIMENSION IXYS(2,936),NNODES(128),INODE(128) +C + DATA RADCO/0.01745329/,FNN/999.0/,FCTR/0.7/,FACC/0.0/,THETA/0.0/ + DATA ANCC/1.0/,ANCS/0.0/,XC/0.0/,YC/0.0/,XT/0.0/ + DATA YT/0.0/,XO/0.0/,YO/0.0/ + DATA XA,YA/14*0.,14*0./ + DATA EPSIL/0.0000277/ + DATA ASIN(1)/0./,ASIN(2)/1./,ASIN(3)/0./,ASIN(4)/-1./,ASIN(5)/0./ + DATA ACOS(1)/1./,ACOS(2)/0./,ACOS(3)/-1./,ACOS(4)/0./,ACOS(5)/1./ + DATA IXYS/ + 1 2, 2, 2, 4, 0, 4, 0, 0, 4, 0, 4, 4, 2, 4, 2, 2, 2, 2, 2, 4, + 2 1, 4, 0, 3, 0, 1, 1, 0, 3, 0, 4, 1, 4, 3, 3, 4, 2, 4, 2, 2, + 3 2, 2, 2, 4, 0, 1, 4, 1, 2, 4, 2, 2, 2, 2, 4, 2,15, 0, 2, 4, + 4 2, 0,15, 0, 0, 2, 2, 2, 2, 2, 4, 4,15, 0, 0, 4, 4, 0,15, 0, + 5 0, 0, 2, 2, 2, 2, 2, 4, 0, 2, 2, 0, 4, 2, 2, 4, 2, 2, 2, 2, + 6 2, 0, 2, 4, 0, 2, 4, 2, 2, 4, 2, 2, 2, 2, 0, 0, 4, 4, 0, 4, + 7 4, 0, 2, 2, 2, 2, 4, 4, 0, 4, 4, 4, 0, 0, 4, 0, 0, 0, 2, 2, + 8 2, 2, 4, 4,15, 0, 0, 4, 2, 2,15, 0, 2, 0, 2, 2, 2, 2, 4, 4, + 9 15, 0, 3, 3, 3, 1, 4, 0,15, 0, 0, 0, 1, 1, 1, 3, 0, 4,15, 0, + A 1, 1, 3, 1,15, 0, 1, 3, 3, 3, 2, 2, 2, 2, 4, 2,15, 0, 2, 4, + 1 2, 0,15, 0, 0, 2, 2, 2, 4, 4,15, 0, 0, 4, 4, 0,15, 0, 0, 0, + 2 2, 2, 2, 2, 4, 4, 0, 4, 4, 0, 0, 0, 2, 2, 2, 2, 2, 4, 2, 0, + 3 2, 2, 3, 2, 5, 8, 7, 2, 2, 6, 8, 6, 3, 2, 2, 2, 6, 2, 2, 2, + 4 2, 6,15, 4, 2, 1, 3, 1, 4, 2, 4, 5, 5, 6, 4, 7, 4,10, 3,11, + 5 2,11, 2, 7, 6, 7,15, 0, 6, 5, 2, 5,15, 0, 2, 3, 6, 3, 1, 5, + 6 7, 5, 5, 6, 5, 4, 7, 5,15, 3, 2, 4, 6, 4,15, 0, 6, 6, 2, 6, + 7 15, 0, 3, 3, 5, 7, 2, 3, 6, 3,15, 0, 4, 4, 4, 8,15, 0, 2, 6, + 8 6, 6, 6, 1, 5, 1, 4, 2, 4, 5, 3, 6, 4, 7, 4,10, 5,11, 6,11, + 9 15, 5, 1,10, 8,10, 1, 2, 2, 1, 3, 1, 4, 2, 4, 9, 5,10, 6,10, + A 7, 9, 2, 4, 5, 4, 6, 5, 6, 6, 5, 7, 2, 7, 2, 6, 4, 2, 6, 6, + 1 1, 4, 2, 5, 3, 5, 5, 3, 6, 3, 7, 4, 1, 4, 2, 5, 3, 5, 5, 3, + 2 6, 3, 7, 4,15, 0, 7, 6, 6, 5, 5, 5, 3, 7, 2, 7, 1, 6,15, 0, + 3 4, 9, 4, 4,15, 0, 3, 2, 4, 3, 5, 2, 3, 2, 5, 7, 4, 9, 5, 9, + 4 5, 7,15, 0, 3, 7, 2, 9, 3, 9, 3, 7, 2, 4, 6, 4, 5, 4, 5, 3, + 5 5, 7, 5, 6, 6, 6, 2, 6, 3, 6, 3, 7, 3, 3, 4, 9, 4, 2,15, 0, + 6 2, 3, 5, 3, 6, 4, 6, 5, 5, 6, 3, 6, 2, 7, 3, 8, 6, 8, 3, 8, + 7 2, 8, 2, 9, 3, 9, 3, 8,15, 0, 6, 9, 2, 2,15, 0, 5, 3, 6, 3, + 8 6, 2, 5, 2, 5, 3, 6, 2, 3, 7, 3, 8, 4, 9, 5, 8, 2, 5, 2, 4, + 9 3, 3, 4, 3, 6, 4, 5, 7, 4, 9, 5, 9, 5, 7, 6, 9, 5, 8, 5, 3, + A 6, 2, 2, 9, 3, 8, 3, 3, 2, 2, 2, 5, 6, 5,15, 0, 2, 3, 6, 7, + 1 15, 0, 2, 7, 6, 3, 4, 4, 4, 8,15, 0, 2, 6, 6, 6, 4, 2, 3, 2, + 2 3, 3, 4, 3, 4, 2, 3, 1, 2, 5, 6, 5, 4, 2, 3, 2, 3, 3, 4, 3, + 3 4, 2, 2, 2, 6, 9, 6, 8, 5, 9, 3, 9, 2, 8, 2, 3, 3, 2, 5, 2, + 4 6, 3, 6, 8, 3, 8, 4, 9, 4, 2,15, 0, 3, 2, 5, 2, 2, 8, 3, 9, + 5 5, 9, 6, 8, 6, 6, 2, 4, 2, 2, 6, 2, 2, 8, 3, 9, 5, 9, 6, 8, + 6 6, 7, 5, 6, 3, 6, 5, 6, 6, 5, 6, 3, 5, 2, 3, 2, 2, 3, 2, 4, + 7 6, 4,15, 0, 5, 9, 5, 2,15, 0, 2, 9, 2, 4,15, 0, 4, 2, 6, 2, + 8 2, 3, 3, 2, 5, 2, 6, 3, 6, 5, 5, 6, 2, 6, 2, 9, 6, 9, 3, 6, + 9 5, 6, 6, 5, 6, 3, 5, 2, 3, 2, 2, 3, 2, 8, 3, 9, 5, 9, 6, 8, + A 2, 9, 6, 9, 6, 8, 4, 3, 4, 2, 5, 6, 6, 7, 6, 8, 5, 9, 3, 9, + 1 2, 8, 2, 7, 3, 6, 5, 6, 6, 5, 6, 3, 5, 2, 3, 2, 2, 3, 2, 5, + 2 3, 6, 2, 3, 3, 2, 5, 2, 6, 3, 6, 8, 5, 9, 3, 9, 2, 8, 2, 6, + 3 3, 5, 5, 5, 6, 6, 3, 5, 3, 6, 4, 6, 4, 5, 3, 5,15, 0, 4, 2, + 4 3, 2, 3, 3, 4, 3, 4, 2, 3, 5, 3, 6, 4, 6, 4, 5, 3, 5,15, 0, + 5 4, 2, 3, 2, 3, 3, 4, 3, 4, 2, 3, 1, 6, 8, 2, 6, 6, 4, 2, 4, + 6 6, 4,15, 0, 6, 6, 2, 6, 2, 4, 6, 6, 2, 8, 3, 2, 4, 3, 5, 2, + 7 3, 2,15, 0, 4, 4, 4, 6, 5, 6, 6, 7, 6, 8, 5, 9, 3, 9, 2, 8, + 8 6, 6, 5, 7, 4, 7, 3, 6, 3, 5, 4, 4, 5, 4, 6, 5, 6, 7, 5, 8, + 9 3, 8, 2, 7, 2, 4, 3, 3, 5, 3, 6, 4, 2, 2, 2, 5, 6, 5,15, 0, + A 2, 5, 2, 8, 3, 9, 5, 9, 6, 8, 6, 2, 6, 3, 6, 5, 5, 6, 2, 6, + 1 5, 6, 6, 7, 6, 8, 5, 9, 2, 9, 2, 2, 5, 2, 6, 3, 6, 8, 5, 9, + 2 3, 9, 2, 8, 2, 3, 3, 2, 5, 2, 6, 3, 6, 8, 5, 9, 2, 9, 2, 2, + 3 5, 2, 6, 3, 6, 8, 6, 9, 2, 9, 2, 6, 5, 6,15, 0, 2, 6, 2, 2, + 4 6, 2, 6, 9, 2, 9, 2, 6, 5, 6,15, 0, 2, 6, 2, 2, 6, 8, 5, 9, + 5 3, 9, 2, 8, 2, 3, 3, 2, 5, 2, 6, 3, 6, 5, 5, 5, 2, 2, 2, 9, + 6 15, 0, 2, 6, 6, 6,15, 0, 6, 9, 6, 2, 3, 2, 5, 2,15, 0, 4, 2, + 7 4, 9,15, 0, 3, 9, 5, 9, 2, 3, 3, 2, 5, 2, 6, 3, 6, 9, 2, 9, + 8 2, 2,15, 0, 2, 5, 6, 9,15, 0, 4, 7, 6, 2, 2, 9, 2, 2, 6, 2, + 9 2, 2, 2, 9, 4, 5, 6, 9, 6, 2, 6, 9, 6, 2, 2, 9, 2, 2, 4, 7, + A 6, 9,15, 0, 6, 8, 5, 9, 3, 9, 2, 8, 2, 3, 3, 2, 5, 2, 6, 3, + 1 6, 8, 2, 2, 2, 9, 5, 9, 6, 8, 6, 7, 5, 6, 2, 6, 6, 8, 5, 9, + 2 3, 9, 2, 8, 2, 3, 3, 2, 5, 2, 6, 3, 6, 8,15, 0, 4, 4, 6, 2, + 3 2, 2, 2, 9, 5, 9, 6, 8, 6, 7, 5, 6, 2, 6, 5, 6, 6, 5, 6, 2, + 4 6, 8, 5, 9, 3, 9, 2, 8, 2, 7, 3, 6, 5, 6, 6, 5, 6, 3, 5, 2, + 5 3, 2, 2, 3, 2, 9, 6, 9,15, 0, 4, 9, 4, 2, 2, 9, 2, 3, 3, 2, + 6 5, 2, 6, 3, 6, 9, 2, 9, 4, 2, 6, 9, 2, 9, 2, 2, 4, 6, 6, 2, + 7 6, 9, 2, 9, 6, 2,15, 0, 2, 2, 6, 9, 2, 9, 4, 7, 4, 2,15, 0, + 8 4, 7, 6, 9, 2, 9, 6, 9, 2, 2, 6, 2,15, 0, 3, 6, 5, 6, 6, 9, + 9 2, 9, 2, 2, 6, 2, 2, 9, 6, 2, 2, 2, 6, 2, 6, 9, 2, 9, 2, 2, + A 4, 6, 6, 2, 1, 1, 8, 1, 6, 7, 5, 7, 4, 6, 3, 7, 2, 7, 1, 6, + 1 1, 5, 2, 4, 3, 4, 4, 5, 4, 6, 4, 5, 5, 4, 6, 4, 7, 5, 7, 6, + 2 6, 7, 2, 5, 7, 5, 7, 4, 2, 2, 3, 7, 3, 4, 4, 3, 5, 3, 6, 4, + 3 6, 7, 6, 4, 7, 3, 3, 3, 3, 7,15, 0, 2, 7, 6, 7,15, 0, 5, 7, + 4 5, 3, 4, 2, 4, 8,15, 0, 3, 7, 2, 6, 2, 4, 3, 3, 5, 3, 6, 4, + 5 6, 6, 5, 7, 3, 7, 3, 7, 2, 6, 2, 4, 3, 3, 5, 3, 6, 4, 6, 6, + 6 5, 7, 3, 7,15, 0, 1, 5, 7, 5, 2, 6, 3, 6, 3, 4, 4, 3, 5, 4, + 7 5, 6, 6, 6,15, 0, 4, 2, 4, 8, 2, 3, 6, 6,15, 0, 2, 6, 3, 6, + 8 5, 3, 6, 3, 2, 7, 2, 4, 3, 3, 4, 4, 4, 7, 4, 4, 5, 3, 6, 4, + 9 6, 7, 2, 8, 3, 7, 4, 5, 6, 3,15, 0, 2, 2, 4, 5, 6, 7, 5, 7, + A 4, 6, 3, 7, 2, 7, 1, 6, 1, 5, 2, 4, 3, 4, 4, 5, 4, 6, 4, 5, + 1 5, 4, 6, 4, 5, 8, 4, 8, 3, 7, 4, 6, 5, 6, 6, 5, 6, 4, 5, 3, + 2 4, 3, 3, 4, 3, 5, 4, 6, 6, 7, 4, 7, 3, 6, 3, 4, 4, 3, 6, 3, + 3 15, 0, 6, 5, 2, 6, 2, 6, 3, 7, 4, 6, 3, 4, 4, 6, 5, 7, 6, 6, + 4 5, 2,15, 1,15, 2, 7, 1, 2, 1, 5, 6, 2,10, 7,10, 1, 5, 6, 5, + 5 15, 0, 3, 3, 3, 4, 4, 4, 4, 3, 3, 3,15, 0, 3, 6, 3, 7, 4, 7, + 6 4, 6, 3, 6, 6, 8, 2, 6, 6, 4,15, 0, 6, 3, 2, 3, 6, 3, 2, 3, + 7 15, 0, 2, 4, 6, 6, 2, 8, 1, 2, 4, 7, 7, 2, 1, 2, 6, 6, 5, 7, + 8 3, 7, 2, 6, 2, 4, 3, 3, 5, 3, 6, 4,15, 0, 4, 2, 4, 8, 1, 5, + 9 7, 5, 2, 1, 2,10, 2, 8, 3, 9, 4, 8, 4, 2,15, 0, 4, 8, 5, 9, + A 6, 8, 2, 3, 3, 4, 4, 2, 4,10, 7,10, 4, 2, 4, 9,15, 0, 3, 4, + 1 5, 4,15, 0, 3, 8, 5, 8, 4, 2, 4, 9,15, 0, 3, 4, 5, 4,15, 0, + 2 3, 8, 5, 8,15, 0, 3, 6, 5, 6, 1, 5, 3, 6, 3, 4, 1, 5, 7, 5, + 3 2, 3, 6, 7,15, 0, 2, 7, 6, 3, 4, 2, 4, 9, 3, 7, 5, 7, 4, 9, + 4 4, 2, 3, 4, 5, 4, 4, 2, 4, 9, 0, 0/ + DATA INODE/ + 1 0, 8, 20, 26, 34, 42, 49, 56, 62, 70, 78, 96,111,117,121,127, + 2 129,131,132,141,149,154,155,163,171,180,181,183,191,197,200,206, + 3 219,220,227,236,247,259,273,283,287,291,295,303,308,314,316,321, + 4 323,332,338,346,359,370,379,390,395,411,423,434,446,449,454,457, + 5 470,486,496,508,516,523,531,538,548,556,564,569,577,580,585,589, + 6 601,608,620,630,642,647,653,656,661,666,672,679,683,685,689,692, + 7 694,711,714,723,731,743,755,765,772,781,788,802,814,823,831,832, + 8 833,838,852,858,864,868,879,881,883,891,896,904,915,920,925,930/ + DATA NNODES/ + 1 7, 11, 5, 7, 7, 6, 6, 5, 7, 7, 17, 14, 5, 3, 5, 1, + 2 1, 0, 8, 7, 4, 0, 7, 7, 8, 0, 1, 7, 5, 2, 5, 12, + 3 0, 6, 8, 10, 11, 13, 9, 3, 3, 3, 7, 4, 5, 1, 4, 1, + 4 8, 5, 7, 12, 10, 8, 10, 4, 15, 11, 10, 11, 2, 4, 2, 12, + 5 15, 9, 11, 7, 6, 7, 6, 9, 7, 7, 4, 7, 2, 4, 3, 11, + 6 6, 11, 9, 11, 4, 5, 2, 4, 4, 5, 6, 3, 1, 3, 2, 1, + 7 16, 2, 8, 7, 11, 11, 9, 6, 8, 6, 13, 11, 8, 7, 0, 0, + 8 4, 13, 5, 5, 3, 10, 1, 1, 7, 4, 7, 10, 4, 4, 4, 4/ +C + Y = YZ + X = XZ + NC = NZ + IC = 3 + DIV = 7.0 + NSTRING=NC + IF(NSTRING.LE.0)NSTRING=1 + NSTRING=IABS(NSTRING) + N=(NSTRING+3)/4 + N4=N*4 + ENCODE(N4,3333,STRING)(ITEXT(I),I=1,N) + 3333 FORMAT(33A4) + IASCII=ICHAR(STRING(1:1)) +C +C... CENTERED SYMBOL,RIGHT JUSTIFIED SYMBOL,LEFT JUSTIFIED SYMBOL TEXT? +C +C CS, RS, LS + IF (NC) 100,110,110 +C +C... SYMBOL PLOT (CENTERED) + 100 IF (IASCII.LE.13) DIV = 4.0 + IF (NC.LT.-1) IC = 2 +C +C... INPUT INTEGER/SYMBOL RIGHT JUSTIFIED. + 110 CONTINUE +C +C... CHARACTER TEXT OUTPUT +C +C... SHOULD CURRENT HEIGHT AND ANGLE BE USED? + 120 IF (HGT.LE.0.0) GO TO 150 + ISTAT = 1 + FCT = HGT/DIV +C +C... NEW ANGLE IN THIS 'SYMBOL' CALL? + IF (ANGLE.EQ.THETA) GO TO 140 +C +C... CALCULATE A NEW THETA + FACC = FCT + THETA = ANGLE + ANG = AMOD(ANGLE,360.0) + IF (ANG.LT.0) ANG = 360.0 - ANG + I = (ANG + EPSIL)/90.0 + A = I*90.0 + IF (ABS(ANG-A).GT.EPSIL) GO TO 132 + ANCS = ASIN(I+1) + ANCC = ACOS(I+1) + Z = FACC*ANCC + W = FACC*ANCS + XI = Z + YI = W + DO 131 L=2,14 + XA(L) = Z + YA(L) = W + Z = Z+XI + 131 W = W+YI + GO TO 150 + 132 ANCC = THETA*RADCO + ANCS = SIN(ANCC) + ANCC = COS(ANCC) + Z = FACC*ANCC + W = FACC*ANCS + XI = Z + YI = W + DO 133 L=2,14 + XA(L) = Z + YA(L) = W + Z = Z+XI + 133 W = W+YI + GO TO 150 +C +C... IS CALCULATION OF NEW OFFSETS UNNECCESSARY? + 140 IF (FCT.EQ.FACC) GO TO 150 + FACC = FCT +C... CALCULATE OFFSETS FOR NEW 'FACC' AND/OR 'ANGLE'. + Z = FACC*ANCC + W = FACC*ANCS + XI = Z + YI = W + DO 141 L=2,14 + XA(L) = Z + YA(L) = W + Z = Z+XI + 141 W = W+YI +C +C... IF X OR Y = 999.0; THEN USE THE PREVIOUS VALUE(S) OF X AND/OR Y. + 150 IF (X.EQ.999.0) GO TO 160 + X = X-XA(3)+YA(3) + XO = X + XC = X + 160 IF (Y.EQ.999.0) GO TO 170 + Y = Y-XA(3)-YA(3) + YO = Y + YC = Y + 170 X = XC + Y = YC + K = 0 + DO 900 ISTRING=1,NSTRING + IASCII=ICHAR(STRING(ISTRING:ISTRING)) + INDEX = INODE(IASCII+1) + NDKNT = NNODES(IASCII+1)+1 + DO 888 JNODE=INDEX+1,INDEX+NDKNT + NODEX = IXYS(1,JNODE) + NODEY = IXYS(2,JNODE) +C... CHECK FOR SPECIAL CONTROL FUNCTIONS. (NODEX = 15) + IF(NODEX.NE.15)GO TO 240 +C... DECODE SPECIAL FUNCTION (Y-OFFSET) + IFUNCT = NODEY + 1 +C +C... BLANK,SUPERSCRIPT,SUBSCRIPT,CARRIAGE RETURN,BACK SPACE,NULL CHAR? +C +C BLK,SUP,SUB,RTN,BSP,NUL + GO TO (300,310,320,330,340,260),IFUNCT +C +C... BLANK CHARACTER. + 300 IC = 3 + GO TO 888 +C +C... SUPERSCRIPT SET/RESET CODE: (FIRST TEST EXISTING STATE) + 310 IS = ISTAT-1 + IF (IS) 311,312,260 +C +C... IF(ISTAT.EQ.0) RETURN TO NORMAL STATE=1 + 311 ISTAT = 1 + FACC = FACC/FCTR + Z = FACC*ANCC + W = FACC*ANCS + XI = Z + YI = W + DO 314 L=2,14 + XA(L) = Z + YA(L) = W + Z = Z+XI + 314 W = W+YI + 313 X = X-YA(2) + Y = Y+XA(2) + GO TO 260 +C +C... IF(ISTAT.EQ.1) SET SUPERSCRIPT MODE,ISTAT=2 + 312 ISTAT = 2 + X = X-YA(5) + Y = Y+XA(5) + FACC = FACC*FCTR + Z = FACC*ANCC + W = FACC*ANCS + XI = Z + YI = W + DO 315 L=2,14 + XA(L) = Z + YA(L) = W + Z = Z+XI + 315 W = W+YI + GO TO 260 +C +C... IF(ISTAT.EQ.2) GO TO 260 (BRANCH TO NEXT CHARACTER) +C +C... SUBSCRIPT SET/RESET CODE: (FIRST TEST EXISTING STATE) + 320 IS = ISTAT-1 + IF (IS) 260,322,323 +C +C... IF(ISTAT.EQ.0) GO TO 260 (BRANCH TO NEXT CHARACTER) +C +C... IF(ISTAT.EQ.1); SET SUBSCRIPT MODE,ISTAT=0 + 322 ISTAT = 0 + X = X+YA(2) + Y = Y-XA(2) + FACC = FACC*FCTR + Z = FACC*ANCC + W = FACC*ANCS + XI = Z + YI = W + DO 410 L=2,14 + XA(L) = Z + YA(L) = W + Z = Z+XI + 410 W = W+YI + GO TO 260 +C +C... CARRIAGE RETURN + 330 X = XO + YA(13) + Y = YO - XA(13) + XO = X + YO = Y + GO TO 260 +C +C... BACKSPACE +C 340 X = X - XA(8) +C Y = Y - YA(8) +C CHANGE WIDTH TO 6/7 FOR COMPATIBILITY WITH OLD CALCOMP + 340 X = X - XA(7) + Y = Y - YA(7) + GO TO 260 +C +C... IF(ISTAT.EQ.2); RETURN TO NORMAL MODE,ISTAT=1 + 323 ISTAT = 1 + FACC = FACC/FCTR + Z = FACC*ANCC + W = FACC*ANCS + XI = Z + YI = W + DO 510 L=2,14 + XA(L) = Z + YA(L) = W + Z = Z+XI + 510 W = W+YI + X = X+YA(5) + Y = Y-XA(5) + GO TO 260 +C +C... PROCESS MOVE TO NODE + 240 NODEX = NODEX + 1 + NODEY = NODEY + 1 + YT = Y + YA(NODEX) + XA(NODEY) + XT = X + XA(NODEX) - YA(NODEY) + CALL PLOT(XT,YT,IC) + IC = 2 + X = XC + Y = YC + 888 CONTINUE +C 250 X = X + XA(8) +C Y = Y + YA(8) +C CHANGE WIDTH TO 6/7 FOR COMPATIBILITY WITH OLD CALCOMP + 250 X = X + XA(7) + Y = Y + YA(7) +C +C... DECREMENT AND TEST SYMBOL COUNT. + 260 XC = X + YC = Y + IC = 3 + 900 CONTINUE + RETURN + END +c SUBROUTINE USERNAME(NAME) +c COMMON /USERLST/USERNAME_LEN,JPI_USERNAME_ID,USERNAME_ADR,ZERO +c BYTE NAME(12) +c INTEGER*4 USERNAME_ADR,SYS$GETJPI,ZERO(2),JPI$_USERNAME +c INTEGER*2 USERNAME_LEN,JPI_USERNAME_ID +c DATA JPI$_USERNAME/'202'X/ +c DATA USERNAME_LEN,ZERO/12,0,0/ +c JPI_USERNAME_ID=JPI$_USERNAME +c USERNAME_ADR=%LOC(NAME) +c IF(SYS$GETJPI(,,,USERNAME_LEN,,,).NE.1)STOP 'USERNAME ERROR' +c RETURN +c END +c SUBROUTINE NAMEFILE(FILENAME) +c REAL*8 FILENAME(2) +c CHARACTER UNIQUE_FILE_NAME*9,A*9 +c A=UNIQUE_FILE_NAME() +c DECODE(9,1,A)FILENAME +c 1 FORMAT(A8,A1) +c RETURN +c END + SUBROUTINE EFRAME(XMIN,XMAX,XLEN,MODX,XCTIT, + * YMIN,YMAX,YLEN,MODY,YCTIT) +C + BYTE XBTIT(80),YBTIT(80) + CHARACTER*80 XCTIT,YCTIT,XLAB,YLAB + COMMON/SCALES/XL,XR,DINCHX,YBOT,YTOP,DINCHY,RLEN,SLEN + COMMON/PLTDAT/DUM1(10),IWTCUR + COMMON/FR_DRAW/MODE/FR_HTS/HTL,HTN/FR_WTS/IWT(4)/FR_ROTN/IROT + COMMON/FR_SYMB/ISYM/FR_TIKS/TIKS(3),TIKL/FR_INT/IFRAME + COMMON/FONTC1/DUM2(5),RMAX,RMIN,SMAX,SMIN/FR_CONF/SCENT,ICONF + EQUIVALENCE (XBTIT(1),XLAB),(YBTIT(1),YLAB) +C +C +C DRAW FRAME FOR PLOT WITH TICK MARKS, NUMERICAL LABELS, AND +C TITLES, USING EXTENDED FONT SET. +C +C +C INPUT: ( Y IS SIMILAR TO X) +C ------ +C +C XMIN PLOT VALUE AT LEFT HAND SIDE +C XMAX PLOT VALUE AT RIGHT HAND SIDE +C XLEN LENGTH OF X AXIS IN INCHES +C MODX = 1 LINEAR PLOT LIMITS CORRESPOND TO XMIN XMAX +C MODX = 2 LINEAR PLOT LIMITS ADJUSTED TO CONTAIN TO XMIN XMAX +C MODX =-1 LOG PLOT LIMITS CORRESPOND TO XMIN XMAX +C MODX =-2 LOG PLOT LIMITS ADJUSTED TO CONTAIN TO XMIN XMAX +C XCTIT(CHARACTER*80) CONTAINS X TITLE +C *** FOR LOG PLOT ENTER ACTUAL VARIABLE, I.E. .01 NOT -2 +C +C +C OUTPUT: +C ------- +C +C XL ACTUAL VALUE OF LEFT LIMIT +C XR ACTUAL VALUE OF RIGHT LIMIT +C DINCHX INCHES PER PLOT UNIT, I.E. XLEN/(XR-XL) +C YBOT ACTUAL VALUE OF BOTTOM LIMIT +C YTOP ACTUAL VALUE OF TOP LIMIT +C DINCHY INCHES PER PLOT UNIT, I.E. YLEN/(YTOP-YBOT) +C *** FOR LOG PLOTS LIMIT IS LOG10 OF VARIABLE +C +C +C SWITCHES: +C --------- +C +C THE FOLLOWING COMMON BLOCKS EACH MAY CONTAIN ONE INTEGER*4 +C VARIABLE (MODE, SAY), WHOSE EFFECT IS AS DESCRIBED. +C +C (i) /FR_DRAW/ IF MODE IS NONZERO, ONLY SCALING INFORMATION IS +C RETURNED -- NOTHING IS DRAWN, +C (ii) /FR_BNDS/ FOR NONZERO MODE, ONLY THAT PART OF THE +C GRAPH (PRODUCED BY M(D)LINE) LYING WITHIN THE +C "FRAME"-DEFINED BOX IS ACTUALLY PLOTTED, +C (iii)/FR_LABX/ THE X-AXIS IS NUMBERED ONLY FOR MODE=0, +C (iv) /FR_LABY/ THE Y-AXIS IS NUMBERED ONLY FOR MODE=0. +C (v) /FR_ROTN/ AN ATTEMPT WILL BE MADE TO KEEP ALL Y-AXIS +C LABELS HORIZONTAL IF MODE IS ZERO. NUMERICAL LABELS +C LONGER THAN SIX CHARACTERS AND TEXT LABELS WITH +C LENGTH GREATER THAN MAX( 1.2 INCHES, 7.5*HTL ) +C WILL STILL BE PLOTTED VERTICALLY. +C *** NOTE: THIS IS ONLY RELEVANT TO EFRAME. S/R FRAME +C WILL STILL DRAW ALL Y-LABELS VERTICALLY. +C +C +C THESE SWITCHES MAY BE SET WITH "CALL SETMOD(IM1,IM2,IM3,IM4,IM5)". +C +C THUS, IF NO SWITCH IS SET, ENTIRE GRAPHS WILL BE DRAWN AND BOTH +C AXES WILL BE NUMBERED (WITH HORIZONTAL LABELS, IF POSSIBLE). +C +C +C OTHER VARIABLE PARAMETERS: +C -------------------------- +C +C (vi) HTL, HTN, IN COMMON BLOCK /FR_HTS/, GIVE THE SIZES OF THE +C TITLES AND NUMERICAL LABELS, RESPECTIVELY. DEFAULTS ARE .15, .15. +C THE SIZES OF ALL TICK MARKS ALONG THE AXES SCALE WITH HTN. +C +C SET HEIGHTS WITH "CALL SETHTS(HT1,HT2)". +C +C (vii) THE WEIGHTS OF VARIOUS COMPONENTS OF THE FRAME MAY BE SET +C INDIVIDUALLY VIA THE INTEGER*4 ARRAY IWT IN COMMON /FR_WTS/: +C +C IWT(1): BOX AND TICK MARKS. +C IWT(2): NUMERICAL LABELS (EXCLUDING EXPONENTS, IF ANY). +C IWT(3): EXPONENTS (DEFAULT = IWT(2)). +C IWT(4): TEXT LABELS. +C +C S/R WEIGHT IS CALLED WITH ARGUMENT IWT(.), WHEN NECESSARY. +C DEFAULTS ARE 1,1,1,1. +C +C SET WEIGHTS WITH "CALL SETWTS(IW1,IW2,IW3,IW4)". +C + IFRAME=1 + ISYM=-1 + DMIN=AMIN1(XLEN,YLEN) + IF(DMIN.GT.2.)THEN + IF(HTL.EQ.0.)HTL=.15 + IF(HTN.EQ.0.)HTN=.15 + ELSE + IF(HTL.EQ.0.)HTL=.075*DMIN + IF(HTN.EQ.0.)HTN=HTL + END IF + TIKS(1)=.2*HTN + TIKS(2)=2.5*TIKS(1) + TIKS(3)=4.*TIKS(1) + TIKL=.3*HTN +C + MODEX=MODX + MODEY=MODY + X1=XMIN + X2=XMAX + Y1=YMIN + Y2=YMAX + RLEN=XLEN + SLEN=YLEN + ICONF=0 + SCENT=.5*SLEN +C +C SET AXES TICK, LABEL INFO +C + IF(MODEX.GT.0) + * CALL FR_LINSET(X1,X2,XLEN,MODEX,DXS,DXM,DXL,LABXSP,LABXDP,LPOWX) + IF(MODEX.LT.0) + * CALL FR_LOGSET(X1,X2,XLEN,MODEX,DXS,DXM,DXL) + XL=X1 + XR=X2 + DINCHX=XLEN/(XR-XL) + IF(MODEY.GT.0) + * CALL FR_LINSET(Y1,Y2,YLEN,MODEY,DYS,DYM,DYL,LABYSP,LABYDP,LPOWY) + IF(MODEY.LT.0) + * CALL FR_LOGSET(Y1,Y2,YLEN,MODEY,DYS,DYM,DYL) + YBOT=Y1 + YTOP=Y2 + DINCHY=YLEN/(YTOP-YBOT) + IF(MODE.NE.0)RETURN +C +C DRAW AXES +C + IF(MODEX.LT.0) GO TO 1 + CALL FR_LINDRX(Y1,X1,X2,DXS,DXM,DXL,1,1,LABXSP,LABXDP) + CALL FR_LINDRX(Y2,X1,X2,DXS,DXM,DXL,2,0,LABXSP,LABXDP) + GO TO 2 + 1 CALL FR_LOGDRX(Y1,X1,X2,DXS,DXM,DXL,1,1) + CALL FR_LOGDRX(Y2,X1,X2,DXS,DXM,DXL,2,0) +C + 2 IF(MODEY.LT.0) GO TO 3 + CALL FR_LINDRY(X1,Y1,Y2,DYS,DYM,DYL,1,1,LABYSP,LABYDP) + CALL FR_LINDRY(X2,Y1,Y2,DYS,DYM,DYL,2,0,LABYSP,LABYDP) + GO TO 4 + 3 CALL FR_LOGDRY(X1,Y1,Y2,DYS,DYM,DYL,1,1) + CALL FR_LOGDRY(X2,Y1,Y2,DYS,DYM,DYL,2,0) +C +C LABEL AXES WITH EXTENDED FONT SET +C + 4 XLAB=XCTIT + YLAB=YCTIT + IF(IWT(4).NE.0)THEN + JWT=IWTCUR + IWTCUR=IWT(4) ! EQUIVALENT TO "CALL WEIGHT(IWT(4))" + END IF + SYMOFF=-(HTL+2.*HTN+.1) + CALL SIMBOL(.5*XLEN,SYMOFF,HTL,XBTIT,0.,-80) + CALL SIMBOL(0.,0.,-HTL,YBTIT,0.,80) + WIDTHR=RMAX-RMIN + WIDTHS=SMAX-SMIN + IF(IROT.EQ.0)THEN + IF(MODEY.LT.0)THEN + SYMOFF=-3.5*HTN + ELSE IF(MODEY.GT.0.AND.LABYSP.LE.5)THEN + SYMOFF=-(LABYSP+1.5)*HTN + END IF + ELSE + SYMOFF=-HTN-.15 + END IF + IF((WIDTHR.LT.7.5*HTL.OR.WIDTHR.LT.1.2).AND.IROT.EQ.0)THEN + TH=0. + R=SYMOFF-WIDTHR + IF(ICONF.EQ.0)THEN + IF(WIDTHR.GT.3.*HTL)THEN + R=R+2.*HTN + ELSE ! Move Y-label right if no conflict. + R=R+HTN + END IF + END IF + S=.5*(YLEN-WIDTHS) + ELSE + TH=90. + R=SYMOFF-WIDTHS-HTN + S=.5*(YLEN-WIDTHR) + END IF + CALL SIMBOL(R,S,HTL,YBTIT,TH,80) + IF(IWT(4).NE.0)IWTCUR=JWT + IFRAME=0 + RETURN + END + SUBROUTINE SIMBOL(XI,YI,HITE,CHARS,THETA,NUMCH) +C +C EXTENDED-FONT VERSION OF SYMBOL +C POSITIONING INFO IS RETURNED IN COMMON/FONTC1/... +C NUMCH.LT.0 : STRING CENTERED ON (XI,YI) +C NUMCH.GE.0 : STRING STARTS WITH (XI,YI) AT LOWER LH CORNER +C HITE.LE.0. : ONLY POSITIONING INFO RETURNED: NOTHING DRAWN +C + BYTE CHARS(1) +C INTEGER*2 N,M,NUM,JL,JR,IDIC,LONG + INTEGER N,M,NUM,JL,JR,IDIC,LONG + INTEGER*4 NUMCH,NCH + REAL*4 LASTINC + COMMON/FONTC1/OFFX,OFFY,LASTINC,XP,YP,XMAX,XMIN,YMAX,YMIN +C COMMON/SIM_FC2/N,M,NUM(288),JL(288),JR(288),IDIC(288),LONG(15610) + COMMON/SIM_ANG/SINT,COST/SIM_LEN/NCH,HEIGHT +10 HEIGHT=ABS(HITE) + XMAX=XI + YMAX=YI + XMIN=XI + YMIN=YI + SINT=SIN(THETA*.0174533) + COST=COS(THETA*.0174533) + NCH=IABS(NUMCH) + IF(NCH.GT.1000)STOP ' ERROR: >1000 CHARACTERS SENT TO SIMBOL.' + IF(NCH.EQ.0)NCH=100 + IF(NUMCH.LT.0)THEN + CALL SIM_DRAW(XI,YI,CHARS,0,1) + DX2=.5*(XMAX+XMIN)-XI + XMAX=XMAX-DX2 + XMIN=XMIN-DX2 + DY2=.5*(YMAX+YMIN)-YI + YMAX=YMAX-DY2 + YMIN=YMIN-DY2 + XP=XP-DX2 + YP=YP-DY2 + IF(HITE.LE.0.)RETURN + CALL SIM_DRAW(XI-DX2,YI-DY2,CHARS,1,0) + ELSE + DISP=.433*HEIGHT + IF(HITE.LE.0.)CALL SIM_DRAW(XI-DISP*SINT,YI+DISP*COST,CHARS,0,1) + IF(HITE.GT.0.)CALL SIM_DRAW(XI-DISP*SINT,YI+DISP*COST,CHARS,1,1) + END IF + RETURN + END + SUBROUTINE SIMST(R,S,H,STRING,T,N) +C ! "SIMBOL" WITH CHARACTER*(*) INPUT STRING. + CHARACTER*(*) STRING + INTEGER*4 N + CALL SIMBOL(R,S,H,%REF(STRING),T,N) + RETURN + END + SUBROUTINE SIM_DRAW(XLHE,YLHE,CHARS,LETTS,BOUNDS) + BYTE CHARS(1) + INTEGER BOUNDS,BACKS + REAL*4 LASTINC + COMMON/FONTC1/OFFX,OFFY,LASTINC,XP,YP,XMAX,XMIN,YMAX,YMIN + COMMON/SIM_ANG/SINT,COST/SIM_LEN/NCH,HEIGHT + CHARACTER*60 FONTS(261) + CHARACTER*60 FONT01(10),FONT02(10),FONT03(10),FONT04(10) + CHARACTER*60 FONT05(10),FONT06(10),FONT07(10),FONT08(10) + CHARACTER*60 FONT09(10),FONT10(10),FONT11(10),FONT12(10) + CHARACTER*60 FONT13(10),FONT14(10),FONT15(10),FONT16(10) + CHARACTER*60 FONT17(10),FONT18(10),FONT19(10),FONT20(10) + CHARACTER*60 FONT21(10),FONT22(10),FONT23(10),FONT24(10) + CHARACTER*60 FONT25(10),FONT26(10),FONT27(1) + EQUIVALENCE (FONT01(1),FONTS( 1)),(FONT02(1),FONTS( 11)) + EQUIVALENCE (FONT03(1),FONTS( 21)),(FONT04(1),FONTS( 31)) + EQUIVALENCE (FONT05(1),FONTS( 41)),(FONT06(1),FONTS( 51)) + EQUIVALENCE (FONT07(1),FONTS( 61)),(FONT08(1),FONTS( 71)) + EQUIVALENCE (FONT09(1),FONTS( 81)),(FONT10(1),FONTS( 91)) + EQUIVALENCE (FONT11(1),FONTS(101)),(FONT12(1),FONTS(111)) + EQUIVALENCE (FONT13(1),FONTS(121)),(FONT14(1),FONTS(131)) + EQUIVALENCE (FONT15(1),FONTS(141)),(FONT16(1),FONTS(151)) + EQUIVALENCE (FONT17(1),FONTS(161)),(FONT18(1),FONTS(171)) + EQUIVALENCE (FONT19(1),FONTS(181)),(FONT20(1),FONTS(191)) + EQUIVALENCE (FONT21(1),FONTS(201)),(FONT22(1),FONTS(211)) + EQUIVALENCE (FONT23(1),FONTS(221)),(FONT24(1),FONTS(231)) + EQUIVALENCE (FONT25(1),FONTS(241)),(FONT26(1),FONTS(251)) + EQUIVALENCE (FONT27(1),FONTS(261)) + INTEGER INDEX(4,288) + INTEGER INDEX1(120),INDEX2(120),INDEX3(120),INDEX4(120) + INTEGER INDEX5(120),INDEX6(120),INDEX7(120),INDEX8(120) + INTEGER INDEX9(120),INDEX10(72) + EQUIVALENCE (INDEX1(1),INDEX(1, 1)),(INDEX2(1),INDEX(1, 31)) + EQUIVALENCE (INDEX3(1),INDEX(1, 61)),(INDEX4(1),INDEX(1, 91)) + EQUIVALENCE (INDEX5(1),INDEX(1,121)),(INDEX6(1),INDEX(1,151)) + EQUIVALENCE (INDEX7(1),INDEX(1,181)),(INDEX8(1),INDEX(1,211)) + EQUIVALENCE (INDEX9(1),INDEX(1,241)),(INDEX10(1),INDEX(1,271)) + DATA INDEX1/ + 1 0, -9, 9, 1, 28, -4, 4, 1, 22, -7, 7, 29, + 2 10,-12, 12, 51, 82,-10, 10, 61, 0, 0, 0, 143, + 3 96,-12, 13, 143, 10, -4, 4, 239, 38, -7, 7, 249, + 4 38, -7, 7, 287, 16, -8, 8, 325, 10,-12, 12, 341, + 5 14, -4, 4, 351, 4,-12, 12, 365, 10, -4, 4, 369, + 6 4,-11, 11, 379, 78,-10, 10, 383, 20,-10, 10, 461, + 7 88,-10, 10, 481, 90,-10, 10, 569, 24,-10, 10, 659, + 8 76,-10, 10, 683, 94,-10, 10, 759, 60,-10, 10, 853, + 9 124,-10, 10, 913, 94,-10, 10, 1037, 22, -4, 4, 1131, + A 26, -4, 4, 1153, 6,-11, 11, 1179, 10,-12, 12, 1185/ + DATA INDEX2/ + 1 6,-11, 11, 1195, 62, -9, 9, 1201, 0, 0, 0, 1263, + 2 34,-10, 10, 1263, 88,-11, 11, 1297, 62,-11, 10, 1385, + 3 58,-11, 11, 1447, 42,-11, 10, 1505, 38,-11, 9, 1547, + 4 78,-11, 11, 1585, 52,-12, 12, 1663, 22, -5, 6, 1715, + 5 38, -8, 8, 1737, 52,-12, 11, 1775, 26,-10, 9, 1827, + 6 58,-12, 13, 1853, 40,-11, 12, 1911, 86,-11, 11, 1951, + 7 56,-11, 11, 2037, 106,-11, 11, 2093, 76,-11, 11, 2199, + 8 66,-10, 10, 2275, 30, -9, 10, 2341, 44,-12, 12, 2371, + 9 28,-11, 11, 2415, 46,-12, 12, 2443, 40,-11, 11, 2489, + A 38,-11, 12, 2529, 30,-10, 10, 2567, 22, -7, 7, 2597/ + DATA INDEX3/ + 1 0, 0, 0, 2619, 22, -7, 7, 2619, 0, 0, 0, 2641, + 2 20,-12, 12, 2641, 26, -7, 7, 2661, 76, -9, 11, 2687, + 3 64,-11, 10, 2763, 54,-10, 9, 2827, 70,-10, 11, 2881, + 4 60,-10, 9, 2951, 42, -7, 5, 3011, 118,-10, 10, 3053, + 5 54,-11, 11, 3171, 34, -5, 6, 3225, 48, -5, 6, 3259, + 6 52,-11, 11, 3307, 22, -5, 6, 3359, 86,-16, 17, 3381, + 7 54,-11, 11, 3467, 70,-10, 10, 3521, 70,-11, 10, 3591, + 8 64,-10, 11, 3661, 44, -9, 8, 3725, 58, -8, 9, 3769, + 9 30, -7, 8, 3827, 54,-11, 11, 3857, 28,-10, 10, 3911, + A 46,-13, 13, 3939, 40,-11, 11, 3985, 42,-10, 10, 4025/ + DATA INDEX4/ + 1 30, -9, 9, 4067, 54, -7, 7, 4097, 4, -4, 4, 4151, + 2 54, -7, 7, 4155, 0, 0, 0, 4209, 0, 0, 0, 4209, + 3 0, 9, -9, 4209, 44,-12, 12, 4209, 44,-12, 12, 4253, + 4 86,-12, 12, 4297, 118,-12, 12, 4383, 0, 0, 0, 4501, + 5 90, -8, 8, 4501, 10, -4, 4, 4591, 54,-12, 12, 4601, + 6 50,-12, 12, 4655, 10,-10, 10, 4705, 16,-11, 11, 4715, + 7 40,-11, 12, 4731, 16,-11, 11, 4771, 10,-12, 12, 4787, + 8 28,-12, 12, 4797, 34,-10, 10, 4825, 8,-10, 10, 4859, + 9 28,-10, 10, 4867, 30,-10, 10, 4895, 12,-10, 10, 4925, + A 34,-10, 10, 4937, 46,-10, 10, 4971, 10,-10, 10, 5017/ + DATA INDEX5/ + 1 58,-10, 10, 5027, 46,-10, 10, 5085, 62,-12, 12, 5131, + 2 98,-12, 12, 5193, 18,-11, 11, 5291, 16,-12, 12, 5309, + 3 18,-11, 11, 5325, 16,-12, 12, 5343, 0, 0, 0, 5359, + 4 110,-13, 14, 5359, 50,-12, 13, 5469, 60,-11, 11, 5519, + 5 28,-10, 10, 5579, 30,-11, 11, 5607, 94,-10, 11, 5637, + 6 26,-10, 9, 5731, 22,-10, 11, 5757, 10, -5, 5, 5779, + 7 28,-10, 10, 5789, 54,-12, 12, 5817, 28,-10, 10, 5871, + 8 20, -8, 8, 5899, 20, -8, 8, 5919, 42,-12, 12, 5939, + 9 40,-12, 12, 5981, 110,-11, 11, 6021, 62,-12, 12, 6131, + A 36,-10, 10, 6193, 10,-12, 12, 6229, 44, -9, 10, 6239/ + DATA INDEX6/ + 1 50,-10, 10, 6283, 84,-11, 11, 6333, 70,-11, 11, 6417, + 2 80,-11, 12, 6487, 60,-11, 11, 6567, 58, -9, 9, 6627, + 3 0, 0, 0, 6685, 110, -9, 9, 6685, 0, 0, 0, 6795, + 4 46,-12, 12, 6795, 14,-17, 16, 6841, 78,-11, 12, 6855, + 5 112,-11, 10, 6933, 40,-11, 10, 7045, 74, -9, 10, 7085, + 6 48, -9, 8, 7159, 82,-11, 11, 7207, 56, -9, 11, 7289, + 7 60,-11, 11, 7345, 26, -6, 6, 7405, 88, -9, 10, 7431, + 8 50,-10, 10, 7519, 40, -9, 11, 7569, 52,-11, 11, 7609, + 9 46,-10, 11, 7661, 62, -9, 9, 7707, 42,-11, 11, 7769, + A 84, -9, 10, 7811, 60,-10, 9, 7895, 68,-10, 12, 7955/ + DATA INDEX7/ + 1 30,-10, 10, 8023, 48,-11, 10, 8053, 54, -8, 10, 8101, + 2 82,-12, 11, 8155, 88, -9, 8, 8237, 66,-13, 12, 8325, + 3 62, -9, 8, 8391, 6, -7, 7, 8453, 10, -7, 7, 8459, + 4 6, -7, 7, 8469, 20,-12, 12, 8475, 0, 0, 0, 8495, + 5 0, 0, 0, 8495, 118,-12, 14, 8495, 218,-12, 15, 8613, + 6 136,-13, 13, 8831, 142,-11, 14, 8967, 186,-11, 13, 9109, + 7 180,-12, 13, 9295, 172,-13, 14, 9475, 222,-12, 14, 9647, + 8 132,-11, 12, 9869, 120,-10, 12,10001, 228,-12, 14,10121, + 9 168,-11, 13,10349, 212,-14, 16,10517, 166,-12, 14,10729, + A 156,-13, 15,10895, 138,-10, 14,11051, 196,-13, 15,11189/ + DATA INDEX8/ + 1 214,-12, 15,11385, 186,-11, 14,11599, 140,-13, 13,11785, + 2 176,-12, 14,11925, 142,-11, 14,12101, 188,-14, 16,12243, + 3 128,-11, 13,12431, 170,-11, 14,12559, 112,-11, 13,12729, + 4 4, 0,-12,12841, 186,-11, 13, 9109, 0, 0, 0,12845, + 5 0, 0, 0,12845, 0, 0, 0,12845, 0, 0, 0,12845, + 6 58,-13, 11,12845, 92,-13, 14,12903, 64,-12, 13,12995, + 7 68,-13, 13,13059, 66,-10, 12,13127, 62,-12, 12,13193, + 8 70,-11, 14,13255, 74,-12, 15,13325, 48, -9, 11,13399, + 9 50, -9, 11,13447, 74,-12, 15,13497, 64,-11, 12,13571, + A 64,-15, 16,13635, 64,-12, 15,13699, 50,-11, 13,13763/ + DATA INDEX9/ + 1 72,-13, 13,13813, 64,-10, 12,13885, 84,-13, 14,13949, + 2 66,-11, 12,14033, 46,-10, 12,14099, 50,-12, 14,14145, + 3 56,-12, 14,14195, 66,-14, 15,14251, 90,-12, 14,14317, + 4 56,-11, 13,14407, 56,-10, 13,14463, 0, 0, 0,14519, + 5 0, 0, 0,14519, 0, 0, 0,14519, 0, 0, 0,14519, + 6 0, 0, 0,14519, 0, 0, 0,14519, 44, -6, 11,14519, + 7 44, -5, 11,14563, 26, -5, 8,14607, 44, -6, 11,14633, + 8 32, -5, 8,14677, 46, -3, 7,14709, 54, -6, 11,14755, + 9 56, -5, 12,14809, 30, -2, 7,14865, 38, -2, 7,14895, + A 64, -5, 11,14933, 34, -3, 7,14997, 64,-13, 14,15031/ + DATA INDEX10/ + 1 44, -8, 12,15095, 44, -6, 10,15139, 46, -7, 10,15183, + 2 52, -6, 11,15229, 28, -5, 10,15281, 30, -4, 9,15309, + 3 30, -3, 8,15339, 36, -6, 11,15369, 32, -6, 11,15405, + 4 48, -9, 14,15437, 38, -8, 10,15485, 44, -6, 11,15523, + 5 44, -6, 10,15567, 20,-12, 12, 8475, 0, 0, 0,15611, + 6 0, 0, 0,15611, 0, 0, 0,15611, 0, 0, 0,15611/ + DATA FONT01/ + 1'@L?J@>AJ@L__@J@D__@9?8@7A8@9=L<E__>L<E__CLBE__DLBE6J66J6JJ6J', + 2'>P>3__BPB3__FIEHFGGHGIEKBL>L;K9I9G:E;D=CCAE@G>__9G;E=DCBEAF@', + 3'G>G:E8B7>7;89:9;:<;;::IDHCIBJCJDIEHEGDFBD<C:A8?7;7887:7=8?>C', + 4'@EAGAI@K>L<K;I;G<D>AC:E8H7I7J8J9__;7988:8=9?;A__;G<ED:F8H7@L', + 5'?E__AL?EDPBN@K>G=B=>>9@5B2D0__BN@J?G>B>>?9@6B2<P>N@KBGCBC>B9', + 6'@5>2<0__>N@JAGBBB>A9@6>2@L@@__;IEC__EI;C@I@7__7@I@@7?8@9A8A6', + 7'@4?37@I@@9?8@7A8@9IP70?L<K:H9C9@:;<8?7A7D8F;G@GCFHDKAL?L__?L', + 8'=K<J;H:C:@;;<9=8?7__A7C8D9E;F@FCEHDJCKAL<H>IALA7__@K@7__<7E7', + 9':H;G:F9G9H:J;K>LBLEKFJGHGFFDCB>@<?:=9:97__BLDKEJFHFFEDBB>@__', + A'99::<:A8D8F9G:__<:A7E7F8G:G<:I;H:G9H9I;K>LBLEKFIFFEDBC?C__BL'/ + DATA FONT02/ + 1'DKEIEFDDBC__BCDBF@G>G;F9E8B7>7;8:99;9<:=;<:;__EAF>F;E9D8B7BJ', + 2'B7__CLC7__CL8=H=__?7F7;L9B__9B;C>DADDCFAG>G=F:D8A7>7;8:99;9<', + 3':=;<:;__ADCCEAF>F=E:C8A7__;LEL__;K@KELEIDHEGFHFIEKCL@L=K;I:G', + 4'9C9=::<8?7A7D8F:G=G>FADCAD@D=C;A:>__@L>K<I;G:C:=;:=8?7__A7C8', + 5'E:F=F>EACCAD9L9F__9H:J<L>LCIEIFJGL__:J<K>KCI__GLGIFFBAA?@<@7', + 6'__FFAA@??<?7>L;K:I:F;D>CBCEDFFFIEKBL>L__>L<K;I;F<D>C__BCDDEF', + 7'EIDKBL__>C;B:A9?9;:9;8>7B7E8F9G;G?FAEBBC__>C<B;A:?:;;9<8>7__', + 8'B7D8E9F;F?EADBBCFEEBC@@???<@:B9E9F:I<K?LALDKFIGFG@F<E:C8@7=7', + 9';8:::;;<<;;:__??=@;B:E:F;I=K?L__ALCKEIFFF@E<D:B8@7@E?D@CAD@E', + A'__@9?8@7A8@9@E?D@CAD@E__@7?8@9A8A6@4?3HI8@H77CIC__7=I=8IH@87'/ + DATA FONT03/ + 1';H<G;F:G:H;J<K>LALDKEJFHFFEDDC@A@>__ALCKDJEHEFDDBB__@9?8@7A8', + 2'@9@L97__@LG7__@IF7__;<E<__67<7__C7J7:L:7__;L;7__7LCLFKGJHHHF', + 3'GDFCCB__CLEKFJGHGFFDECCB__;BCBFAG@H>H;G9F8C777__CBEAF@G>G;F9', + 4'E8C7FIGGGLFIDKAL?L<K:I9G8D8?9<::<8?7A7D8F:G<__?L=K;I:G9D9?:<', + 5';:=8?7:L:7__;L;7__7LALDKFIGGHDH?G<F:D8A777__ALCKEIFGGDG?F<E:', + 6'C8A7:L:7__;L;7__AFA>__7LGLGGFL__;BAB__77G7G<F7:L:7__;L;7__AF', + 7'A>__7LGLGGFL__;BAB__77>7FIGGGLFIDKAL?L<K:I9G8D8?9<::<8?7A7D8', + 8'F:__?L=K;I:G9D9?:<;:=8?7__F?F7__G?G7__C?I?9L97__:L:7__FLF7__', + 9'GLG7__6L=L__CLJL__:BFB__67=7__C7J7@L@7__ALA7__=LDL__=7D7CLC;', + A'B8@7>7<8;:;<<==<<;__BLB;A8@7__?LFL9L97__:L:7__GL:?__?CG7__>C'/ + DATA FONT04/ + 1'F7__6L=L__DLJL__67=7__C7J7;L;7__<L<7__8L?L__87G7G<F79L97__:L', + 2'@:__9L@7__GL@7__GLG7__HLH7__6L:L__GLKL__67<7__D7K7:L:7__;LG9', + 3'__;JG7__GLG7__7L;L__DLJL__77=7?L<K:I9G8C8@9<::<8?7A7D8F:G<H@', + 4'HCGGFIDKAL?L__?L=K;I:G9C9@:<;:=8?7__A7C8E:F<G@GCFGEICKAL:L:7', + 5'__;L;7__7LCLFKGJHHHEGCFBCA;A__CLEKFJGHGEFCEBCA__77>7?L<K:I9G', + 6'8C8@9<::<8?7A7D8F:G<H@HCGGFIDKAL?L__?L=K;I:G9C9@:<;:=8?7__A7', + 7'C8E:F<G@GCFGEICKAL__;:=<?<A;B9C5D4E4F5:L:7__;L;7__7LCLFKGJHH', + 8'HFGDFCCB;B__CLEKFJGHGFFDECCB__77>7__ABE9G7I7J9__ABC@G7FJGLGH', + 9'FJEKBL>L;K9I9G:E;D=CCAE@G>__9G;E=DCBEAF@G>G:E8B7>7;8:99;97:9', + A'@L@7__ALA7__:L9G9LHLHGGL__=7D79L9=::<8?7A7D8F:G=GL__:L:=;:=8'/ + DATA FONT05/ + 1'?7__6L=L__DLJL9L@7__:L@:__GL@7__6L=L__DLJL8L<7__9L<<__@L<7__', + 2'@LD7__ALD<__HLD7__5L<L__ELKL9LF7__:LG7__GL97__6L=L__DLJL__67', + 3'<7__C7J79L@A@7__:LAAA7__HLAA__6L=L__ELKL__=7D7FL97__GL:7__:L', + 4'9G9LGL__97G7G<F7=P=0__>P>0__=PDP__=0D0BPB0__CPC0__<PCP__<0C0', + 5'FBI@F>__CEH@C;__7@H@?L=K<I<G=E?DADCEDGDICKAL?L<C<B;B;C<D>EBE', + 6'DDECFAF:G8H7__ECE:F8H7I7__EAD@>?;>:<::;8>7A7C8E:__>?<>;<;:<8', + 7'>7:L:7__;L;7__;B=D?EAEDDFBG?G=F:D8A7?7=8;:__AECDEBF?F=E:C8A7', + 8'__7L;LEBDAE@FAFBDDBE?E<D:B9?9=::<8?7A7D8F:__?E=D;B:?:=;:=8?7', + 9'ELE7__FLF7__EBCDAE?E<D:B9?9=::<8?7A7C8E:__?E=D;B:?:=;:=8?7__', + A'BLFL__E7I7:?F?FAECDDBE?E<D:B9?9=::<8?7A7D8F:__E?EBDD__?E=D;B'/ + DATA FONT06/ + 1':?:=;:=8?7CKBJCIDJDKCLAL?K>I>7__AL@K?I?7__;EBE__;7B7?E=D<C;A', + 2';?<==<?;A;C<D=E?EADCCDAE?E__=D<B<>=<__C<D>DBCD__DCEDGEGDED__', + 3'<=;<:::9;7>6C6F5G4__:9;8>7C7F6G4G3F1C0=0:19394:6=7:L:7__;L;7', + 4'__;B=D@EBEEDFBF7__BEDDEBE7__7L;L__77>7__B7I7@L?K@JAK@L__@E@7', + 5'__AEA7__=EAE__=7D7AL@KAJBKAL__BEB3A1?0=0<1<2=3>2=1__AEA3@1?0', + 6'__>EBE:L:7__;L;7__EE;;__@?F7__??E7__7L;L__BEHE__77>7__B7I7@L', + 7'@7__ALA7__=LAL__=7D75E57__6E67__6B8D;E=E@DABA7__=E?D@B@7__AB', + 8'CDFEHEKDLBL7__HEJDKBK7__2E6E__2797__=7D7__H7O7:E:7__;E;7__;B', + 9'=D@EBEEDFBF7__BEDDEBE7__7E;E__77>7__B7I7?E<D:B9?9=::<8?7A7D8', + A'F:G=G?FBDDAE?E__?E=D;B:?:=;:=8?7__A7C8E:F=F?EBCDAE:E:0__;E;0'/ + DATA FONT07/ + 1'__;B=D?EAEDDFBG?G=F:D8A7?7=8;:__AECDEBF?F=E:C8A7__7E;E__70>0', + 2'EEE0__FEF0__EBCDAE?E<D:B9?9=::<8?7A7C8E:__?E=D;B:?:=;:=8?7__', + 3'B0I0<E<7__=E=7__=?>B@DBEEEFDFCEBDCED__9E=E__97@7EDFEFBEDBE?E', + 4'<D;C;B<@>?C=E<F;__;B<A>@C>E=F;F9E8B7?7<8;:;7<8>L>;?8A7C7E8F:', + 5'__?L?;@8A7__;ECE:E::;8>7@7C8E:__;E;:<8>7__EEE7__FEF7__7E;E__', + 6'BEFE__E7I7:E@7__;E@9__FE@7__7E>E__CEIE8E<7__9E<:__@E<7__@ED7', + 7'__AED:__HED7__5E<E__EEKE:EE7__;EF7__FE:7__7E>E__CEIE__77=7__', + 8'B7I7:E@7__;E@9__FE@7>3<1:0908192:1__7E>E__CEIEEE:7__FE;7__;E', + 9':B:EFE__:7F7F:E7BP?M>J>H?EBB__@N?K?G@D__BB?@B>__B>?;>8>6?3B0', + A'__@<?9?5@2@P@0>PAMBJBHAE>B__@NAKAG@D__>BA@>>__>>A;B8B6A3>0__'/ + DATA FONT08/ + 1'@<A9A5@2@@6JJJ@@?AAA=CCC;EEE9GGG7III8HHH:FFF<DDD>BBB@@66J6@@', + 2'??A?==C=;;E;99G977I788H8::F:<<D<>>B>6J66J6JJ6JJH6HJF6FJD6DJB', + 3'6BJ@6@J>6>J<6<J:6:J868J767J969J;6;J=6=J?6?JA6AJC6CJE6EJG6GJI', + 4'6I@J<7:H8F7D6@7<8::8<7@6D7F8H:I<J@IDHFFHDI@JDI<IFH:HGG9GHF8F', + 5'HE8EID7DIC7CIB7BIA7AJ@6@I?7?I>7>I=7=I<7<H;8;H:8:G999F8:8D7<7', + 6'CIBHCGDHDICKAL?L=K<I<G=E?CD@__=EBBD@E>E<D:B8__>D<B;@;><<>:C7', + 7'__<<A9C7D5D3C1A0?0=1<3<4=5>4=3@A?@@?A@@A@A?@@?A@@A__@J<I:H8F', + 8'7D6@7<8::8<7@6D7F8H:I<J@IDHFFHDI@J6@J@__@6@J<I:H8F7D6@7<8::8', + 9'<7@6D7F8H:I<J@IDHFFHDI@J9GG9__GG99@H@7__8@H@__87H7I;G;E<C>@B', + A'?C=D;D9C8A8?9=;<=<?=@>CBEDGEIE@H@7__8HHH__8@H@@J6@@6J@@J@I?H'/ + DATA FONT09/ + 1'@GAH@I__7@I@__@9?8@7A8@9?L<K:H9C9@:;<8?7A7D8F;G@GCFHDKAL?L<H', + 2'>IALA7:G:H;J<K>LBLDKEJFHFFEDCA97G7;LFL@DCDECFBG?G=F:D8A7>7;8', + 3':99;CL9>H>__CLC7EL;L:C;D>EAEDDFBG?G=F:D8A7>7;8:99;FIEKBL@L=K', + 4';H:C:>;:=8@7A7D8F:G=G>FADCAD@D=C;A:>GL=7__9LGL>L;K:I:G;E>DCC', + 5'EBFAG?G<F:D8A7?7<8::9<9?:A;B=CBDEEFGFIEKBL>LFEEBC@@???<@:B9E', + 6'9F:I<K?L@LCKEIFEF@E;C8@7>7;8::IOHNIMJNJOIPGPEOCMBKAH@D>8=4<2', + 7'__DNCLBH@<?8>5=3;190706162738271IOHNIMJNJOIPGPEOCMBKAH@D>8=4', + 8'<2__DNCLBH@<?8>5=3;190706162738271__?G<F:D9A9?:<<:?9A9D:F<G?', + 9'GAFDDFAG?GHL8EH>__8<H<__87H77EIE__7@I@__7;I;8LHE8>__8<H<__87', + A'H7GI97__7CIC__7=I=EDDFBG?G=F<E;B;?<=><A<C=D?__?G=E<B<?==><__'/ + DATA FONT10/ + 1'EGD?D=F<H<J>KAKCJFIHGJEKBL?L<K:J8H7F6C6@7=8;:9<8?7B7E8G9H:__', + 2'FGE?E=F<J?I=G<E<C=B>?B>C<D:D8C7A7?8=:<<<>=?>BBCCEDGDICJAJ?ED', + 3'DCEBFCFDDFBG?G<F:D9A9?:<<:?9A9D:F<__?G=F;D:A:?;<=:?9__IP70@L', + 4'87__@LH7__@JG7__98G8__87H7HHAH=G;F9D8A8?9<;:=9A8H8__8@D@@L@7', + 5'__ALA7__>G;F:E9C9@:>;=><C<F=G>H@HCGEFFCG>G__>G<F;E:C:@;><=><', + 6'__C<E=F>G@GCFEEFCG__=LDL__=7D7;L;7__<L<7__8LGLGGFL__87?7AL:0', + 7'__GL@0__:AHA__9;G;>J>7__BJB78L@7__9L@9__HL@7__8LHL__9KGKGG99', + 8'__G99G__@J<I:H8F7D6@7<8::8<7@6D7F8H:I<J@IDHFFHDI@J@L97__@LG7', + 9'__@IF7__67<7__C7J7>F@IBF__;C@HEC__@H@7>:@7B:__;=@8E=__@I@8@J', + A'<I:H8F7D6@7<8::8<7@6D7F8H:I<J@IDHFFHDI@J9L97__:L:7__FLF7__GL'/ + DATA FONT11/ + 1'G7__6LJL__67=7__C7J7?L<K:I9G8C8@9<::<8?7A7D8F:G<H@HCGGFIDKAL', + 2'?L__?L=K;I:G9C9@:<;:=8?7__A7C8E:F<G@GCFGEICKAL__=E=>__CEC>__', + 3'=BCB__=ACAIL77__<L>J>H=F;E9E7G7I8K:L<L>KAJDJGKIL__E>C=B;B9D7', + 4'F7H8I:I<G>E>9L@B87__8L?B__8LFLGHEL__98F8__87F7G;77I7__@7@J9G', + 5'9I:K;L=L>K?I@E@7__HGHIGKFLDLCKBIAEA7__=7D797@LBMCOCPBR@S>R=P', + 6'=O>M@LG7__@IF7__;<E<__67<7__C7J78:97=7;;9>8B8F9I;K>LBLEKGIHF', + 7'HBG>E;C7G7H:__;;:>9B9F:I<K>L__BLDKFIGFGBF>E;__98<8__D8G89M8H', + 8'__HMGH__=D<?__DDC?__9;86__H;G6__9KGK__9JGJ__=BCB__=ACA__99G9', + 9'__98G8@L@7__ALA7__7E8F:E;A<?=>?=__8F9E:A;?<>?=B=E>F?GAHEIF__', + A'B=D>E?FAGEIFJE__=LDL__=7D7:L:7__;L;7__;@=B@CBCEBF@F7__BCDBE@'/ + DATA FONT12/ + 1'E7__7L;L__7GEG__77>7__B7I7@L?J@HAJ@L__@L@0__@A?>@0A>@A__:E<D', + 2'>E<F:E__:EFE__BEDDFEDFBE@L?J@HAJ@L__@L@>__@B?@@<@:?<A@@B__@>', + 3'@0__@4?2@0A2@4__:E<D>E<F:E__:EFE__BEDDFEDFBE__:7<6>7<8:7__:7', + 4'F7__B7A6F7D8B77=7?8B:C<C>BB?D>F>H?IA__7?8A:B<B>AB>D=F=H>IAIC', + 5'2@7@@4__6?@2PS?E<D:B9@8=8:98<7>7@8C;E>GBHE__?E=D;B:@9=9::8<7', + 6'__?EAEDDEAF;G8H7__AECDDAE;F8H7I7BL?K=I;E:B9>8870__BL@K>I<E;B', + 7':>9880__BLDLFKGJGGFEEDBC?C__DLFJFGEEDDBC__?CBBDAE@F>F;E9D8A7', + 8'>7<8;9:<__BBD@E>E;D9C8A77E9E;D<CC2E0__9E;CB2C1E0G0__HEGCD?:6', + 9'7260DDBE@E=D;A:>:;;9<8>7@7C8E;F>FAECAG@I@KALCLEKGI__@E>D<A;>', + A';:<8__@7B8D;E>EBDDEDCE@E=D;B:?:<;9<8?7B7D8__@E>D<B;?;<<9=8?7'/ + DATA FONT13/ + 1'__;>C>CL=0__DL<0__?E;D9B8?8<9:;8>7A7E8G:H=H@GBEDBE?E__?E<D:B', + 2'9?9<::<8>7__A7D8F:G=G@FBDDBE8B:D<E=E?D@CA@A<@7>0__9C;D>D@C__', + 3'IEHBE>B:@7>3=0__HEGBE?B:7A9D;E=D=B<>:7__;E<D<B;>97__<>>B@DBE', + 4'DEFDGCG@F;C0__DEFCF@E;B0@E>>=:=8?7A8C;__AE?>>:>8?7F@ECDDBE@E', + 5'=D;A:>:;;9<8>7@7C8E:F=GBGGFJEKCL@L>K<I<H=H=I>K__@E>D<A;>;:<8', + 6'__@7B8D:E=FBFGEJCL<E87__=E97__GDFEEECD?@=?;?__=??>B8C7__=?>>', + 7'A8C7E8G;:L<L>K?JAEG8H7__<L>J@EF8H7I7__@E97__@E:7;E50__<E60__', + 8';A:<:9<7>7@8B:D>__FEC:C8E7G8I;__GED:D8E7<E:7__=E<?;::7__GEFA', + 9'D=__HEGBF@D=B;?9=8:7__9E=E@E=D;A:>:;;9<8>7@7C8E;F>FAECDDBE@E', + A'__@E>D<A;>;:<8__@7B8D;E>EBDD>D:7__>D;7__DDD7__DDE7__7B9D<EIE'/ + DATA FONT14/ + 1'__7B9C<DIDBL?K=H<F;C:>::;8=7?7B8D;E=F@GEGIFKDLBL__BL@K>H=F<C', + 2';>;:<8=7__?7A8C;D=E@FEFIEKDL__<BEB:<;9<8>7@7C8E;F>FAECDDBE@E', + 3'=D;A:>60__@7B8D;E>EBDD__@E>D<A;>70JE?E<D:A9>9;:9;8=7?7B8D;E>', + 4'EADCCDAE__?E=D;A:>::;8__?7A8C;D>DBCD__CDJDAD>7__AD?7__8B:D=E', + 5'HE__8B:C=DHD7A9D;E=D=B;<;9=7__;E<D<B:<:9;8=7?7B8D:F=GAGEFEGC', + 6'<7>9B?CBDECHBJ@L?K>I=F>B??@<B:D7F:__B?CCCGBJAK?K>G>C??:D<D<E', + 7':D8A7>7;8897;7=8?;@>__7;8998;8=9?;__?>?;@8A7C7E8G;H>HAGDFEFD', + 8'GD__?;@9A8C8E9G;BL@K?J?I@HCGFG__CG?F=E<C<A>?A>D>__CG@F>E=C=A', + 9'??A>__A>==;<:::8<6A4B3B1@0>0__A>>=<<;:;8=6A4CL=0__DL<0__5A7D', + A'9E;D;B:=:;;9=8@8B9E;__9E:D:B9=9;:9;8=7?7B8E;G>IBJEBL@K?J?I@H'/ + DATA FONT15/ + 1'CGHGHHEGAE>C;@:=:;;9>7A5B3B1A0?0>2__EGBE?C<@;=;;<9>7CP<@C0=P', + 2'=0__CPC0=PD@=0:B7@:>__=E8@=;__8@I@:I<K>L@LAKH;I:K:__?K@JG:H8', + 3'I9G:__<K>K?JF:G8H7I7K:__:E;F=G>G?F__>F>E__;F=F>D__57799:<:>9', + 4'__89<9=8__5788;8<7>9__@H::__<?D?6J8L;L=K?L__9K<K__6J8K:J=J?L', + 5'__;G:F9D9C7C6B6@7A9A9;__:E:=__7B:B__;G;>:<9;__@I?H>F>=__?G??', + 6'__@I@@?>>=__@IFLHKIIIGGECC__FKHIHG__DKFJGIGFED__EDHBI@I:__GB', + 7'H@H;__EDFCGAG:__87;9>:B:E9__:8=9B9D8__87<8A8C7E9G:I:__CCC:__', + 8'C@G@__C=G=<K:J8H7F6C6?7<8:;8>7A7D8F9H;I=__8G7D7?9;<9?8B8E9__', + 9'<K:I9G8D8@9=<:?9B9E:G;I=__>H><__?H?>__@I@??=><__>H@ICLEKGKHL', + A'__BKDJFJ__AJCIEIGJHL__EIE:7LELGKHIH:__9KEKGIG;__7L8K:JEJFIF:'/ + DATA FONT16/ + 1'__=G<F;D;C9C8B8@9A;A;<__<E<>__9B<B__=G=?<=;<__77:9=:A:D9__98', + 2'<9A9C8__77;8@8B7D9F:H:__@J@:__@EBDDDFE__@?B@D@F?7J9L;L=K?L__', + 3':K<K__7J9K;J=J?L__<G;F:D:C8C7B7@8A:A:;__;E;=__8B;B__<G<>;<:;', + 4'__?E@HAJBKDLFLIK__BJDKFKHJ__@HAICJEJGIIK__?=@@ABBCDCFB__BBDB', + 5'EA__@@AACAD@FB__97<9@:E:I9__;8>9E9H8__97=8D8G7I9__?E?:8J:L=L', + 6'?KAL__;K>K__8J:K<J?JAL__>G=F<D<C:C9B9@:A<A<<__=E=>__:B=B__>G', + 7'>?==<<__AHA9@8?8;:9:7957__BHB:__BBFB__>8=8;989__CICCFC__FACA', + 8'C;B9>7<7:88857__AHCIFLHKJKKL__EKGJIJ__DJFIHIJJKL__FIF;<K:J8H', + 9'7F6C6@7=8;:9<8?7C7F8H:I<I?HAGBECCC__8G7D7?8<__<K:I9G8D8?9<::', + A'<8__G:H;H?GA__C7E8F9G;G?FAEBCC__>H>;__?H?=__@I@>?<>;__>H@ICL'/ + DATA FONT17/ + 1'EKGKHL__BKDJFJ__AJCIEIGJHL__GJCCC7__C?G?__C<G<6J8L;L=K?L__9K', + 2'<K__6J8K:J=J?L__;G:F9D9C7C6B6@7A9A9;__:E:=__7B:B__;G;>:<9;__', + 3'87;9>:A:C9__:8=9@9B8__87<8?8A7C9__@I?H>F>=__?G??__@I@@?>>=__', + 4'@IBKDLFLHK__EKFKGJ__BKDKFIHK__CCEDGFHEIBI>H:F7__FEGDHBH=G:__', + 5'EDFDGBG=F7__CCC9__C@G@__C=G=:J<L?LBKDL__=KAK__:J<K?JBJDL__AG', + 6'@F?D?C=C<B<@=A?A?<__@E@>__=B@B__AGA?@=?<__GJEHDED:C8A8=:;:99', + 7'77__EGE;__@8?8=9:9__GJFHF<E:C8A7>7<89877:J<L?LBKDL__=KAK__:J', + 8'<K?JBJDL__AG@F?D?C=C<B<@=A?A?<__@E@>__=B@B__AGA?@=?<__GJEHDE', + 9'D:C8__EGE;__GJFHF<E:C8@7=7:8998;8<9=:<9;6J8L;L=K?L__9K<K__6J', + A'8K:J=J?L__;G:F9D9C7C6B6@7A9A9;__:E:=__7B:B__;G;>:<9;__87;9>:'/ + DATA FONT18/ + 1'A:C9__:8<9@9B8__87<8?8A7C9__@I?H>F>=__?G??__@I@@?>>=__@IBKDL', + 2'FLHK__EKFKGJ__BKDKFIHK__CCFFGEID__EEGDID__IDGAE?C=__E?G>H:I8', + 3'J8__G<H8__E?F>G8H7I7J8__CCC97J9L<L>K@L__:K=K__7J9K;J>J@L__<G', + 4';F:D:C8C7B7@8A:A:;__;E;=__8B;B__<G<>;<:;__97<9@:E:I9__;8>9E9', + 5'H8__97=8D8G7I9__AI@H?F?=__@G@?__AIA@@>?=__AICKELGLIK__FKGKHJ', + 6'__CKEKGIIK__EKE::H9G8E8C6C5B5@6A8A8=__9F9?__6B9B__:H:@9>8=__', + 7'37597:9:;9<9=:__6999;8__375888:7;7<8=:__:H>LBHB;C9D9__>KAHA:', + 8'@9A8B9A:__>BAB__<J=J@G@C=C__=A@A@:?9A7D9E:__BHFLJHJ;K9L9__FK', + 9'IHI:K8__FBIB__DJEJHGHCEC__EAHAH9J7L9__=J=:__EJE:5I7K9L;L=K?H', + A'D=F:G9__;K=I>GD;G8__7K9K;J=GB<D9E8G7__DJFIHIJJKL__EKGJIJ__DJ'/ + DATA FONT19/ + 1'FLHKJKKL__9C7C6B6@7A9A__7B9B__57799:<:>9__89;9=8__5788;8<7>9', + 2'__9K9:__GIG7__@FAECDEDGE__9>;???A><L:K8I7G6D6@7=8;:9<8?7A7D8', + 3'F9H;I=J@JDIGHIFKDLCK@I=H__8H7E7?8<__<L:J9H8E8?9<::<8__H<I?IE', + 4'GIFJ__D8F:G<H?HEGGEJCK__=H=;__>H>=__?H?>><=;__CKC8__CEEDFDHE', + 5'__C?E@F@H?9L:K;I;C9C8B8@9A;A;987;8;0=2__;J<H<2__9B<B__9L;K<J', + 6'=H=2__=G@IDLHHH:__DKGHG:__BJCJFGF9__@:C:F9__A9C9E8__@8B8D7F9', + 7'H:__@I@3__@EBDDDFE__@?B@D@F?<L:K8I7G6D6@7=8;:9<8>7B7D8F9H;I=', + 8'J@JDIGHIFKDLCK@I=H__8H7E7?8<__<L:J9H8E8?9<::<8__H<I?IEGIFJ__', + 9'D8F:G<H?HEGGEJCK__=H=;__>H>=__?H?>><=;__CKC8__CEEDFDHE__C?E@', + A'F@H?__>7?8@8B7F2H1I1__B6D3F1G1__@8A7D1F0H0I16J8L;L=K?L__9K<K'/ + DATA FONT20/ + 1'__6J8K:J=J?L__;G:F9D9C7C6B6@7A9A9;__:E:=__7B:B__;G;>:<9;__87', + 2';9>:@:C9__:8<9@9B8__87<8?8A7C9__@I?H>F>=__?G??__@I@@?>>=__@I', + 3'CKELGKHIHFGDFCBA@@__EKFKGIGEFD__CKEJFHFEECBA__BAD@E?H:I9J9__', + 4'E>G:I8__BAD?F9H7J9CIBJ@K=L__DJBK__EKAL=L:K9J8H9F:E=DEDGCHBH@', + 5'G=__9G:F=EFEHDICIAH?__9J9H:G=FGFIEJCJAG=C7__7C8B:ACAD@D?C=__', + 6'8A:@B@C?__7C7B8@:?A?C>C=__77:9>:A:D9__98<9@9C8__77;8@8C7__EK', + 7'CIAF__@D>A__=?;=9<8<8=9<8H7F6C6?7<99;8>7A7D8F9H;I=__7?8<::<9', + 8'?8B8E9__8H7E7A8>:;<:?9B9E:G;I=__6I7K9L=LCKGKIL__>KBJFJ__6I7J', + 9'9K<KBIEIGJIL__AI@H>G><__?G?>__@H@??=><__EIE:6J8L:L=K?L__9K<K', + A'__6J8K;J=J?L__9H8F7C7?8<9:;8>7A7D8F9H7J9__8?9<<9?8B8__9H8D8A'/ + DATA FONT21/ + 1'9>:<<:?9C9F:__CI?H>F><__?G?>__@H@??=><__CIEJGLHKJJHIH;I9J9__', + 2'GIHJGKFJGIG:I8__EJFIF:__CIC9__CDFD__C@F@8L9K:I:C8C7B7@8A:A::', + 3'89__:J;H;:__8B;B__<9?9A8__8L:K;J<H<:@:C9__89;9>8@7C9F:H:__@H', + 4'CIEJGLHKJJHIH:__GIHJGKFJGIG;__EJFIF:__@H@:__@EBDDDFE__@?B@D@', + 5'F?6L7K8I8C6C5B5@6A8A8:69__8J9H9:__6B9B__:9<9>8__6L8K9J:H::=:', + 6'?9__6999<8=7?9B:D9E7G9J:__=J@LBJB:E:G9__@KAJA:__=J?J@I@:?9__', + 7'E9F8__EJHLJJJ:__HKIJI:__EJGJHIH:G9__=J=:__EJE:__=D@D__=@@@__', + 8'EDHD__E@H@6I8K:L<L=KE9F8H8__;K<JD9E8__8K:K;JC8D7F7H8J:__ELGK', + 9'IKJL__EKFJHJ__DJEIGIIJJL__67799:;:<9__89:9;8__677898;7__ELAC', + A'__?@;7__:B>B__ABFB8L9K:I:C8C7B7@8A:A::89__:J;H;:__8B;B__<9?9'/ + DATA FONT22/ + 1'A8__8L:K;J<H<:@:C9__89;9>8@7C9F:__@HCIEJGLHKJJHIH4G2E0C1?2:2', + 2'__GIHJGKFJGIG9__EJFIF:H7__F1D2A2__G2D3>3:2__@H@:__@EBDDDFE__', + 3'@?B@D@F?GKFI@C<>:;77__DF<=__ILFHDE@@::98__7J9L<KCKIL__8K<JAJ', + 4'FK__7J;I@IEJGK__98;9@:E:I9__:8?9D9H8__77=8D8G7I9__:B?B__BBFB', + 5'@D4DFL<>9:785737282:3;4;5:__FLB7__B8A<@>>@<A:A9@9>:;=8@7C7E8', + 6'F9CKBJAH?C==<;:88767585:6;7;8:__=F<D;C9C8D8F9H;J=K@LFLHKIIIG', + 7'HEFDCC?C__CCEBFAG?G<F9E8C7@7?8?:@<9J8H8F9D<C?CCDEEHGIIIKHLFL', + 8'CK@I>G<D;B:?:<;9<8>7@7C8E:F<F>E@C@A?@=CKBJAH?C==<;:88767585:', + 9'6;8;::<8>7A7C8E:G>HCHFGIEKCL>L;K9I8G8E9D;D<E=GEIDHDFEEGEHGHI', + A'GKELBL@K?J>H>F?DAC?C<B:@9>9;:9;8=7@7C8E:F<F>E@C@A?@=?F>D<C:C'/ + DATA FONT23/ + 1'9E9G:I<K@LHLFIEGCAA<@:>8;787686:7;8;9:__=?>@@AEAGBHDF>:I9G9E', + 2':C<B>BACCDFGGJGKFLELCKAI@G?D?A@?B>D>F?HAICG=E:B8?7<798898;9<', + 3':<;;;F:G:I<K?LAL=@;;987757484:5;6;7:__8>9?;@DCFDIFKHLJLKKLJL', + 4'HJFFD@C<C9D7E7G8I:HFFDCC@C>D=F=H>J@KCLHLFJDGBB@<?:=8;787787:', + 5'8;9;::HFFDCC@C>D=F=H>J@KCLHLFJDGBB@<?9=5<4:39496:8<:B>D@;F:G', + 6':I<K?LAL=@;;987757484:5;6;7:__KHLILKKLIKHIFFEECD@C>C__@CABB@', + 7'C9D7E7G8I:;I:G:E;C=B@BCCEDHGIJIKHLGLEKDJBG@A><=:;89777686:7;', + 8'9;;:>8@7C7E8F9@L<C9=7:583717080:1;2;3:__@L>C=;=7__HLDCB??:=7', + 9'__HLFCE;E9F7G7I8K:@L?H=B;=:;886747383:4;5;6:__@L@FB=B7__LIMH', + A'NHOIOKNLLLJKHHGFEAC;B7AL?K=I;F:D9@9<:9;8=7?7B8D:F=G?HCHGGJFK'/ + DATA FONT24/ + 1'EKCJAH?D>?><CKBJAH?C==<;:88767585:6;7;8:__=F<D;C9C8D8F9H;J=K', + 2'@LELGKHJIHIEHCGBEACAAB@CCHCFBDAC?B=B<D<F=I?KBLELGKHIHEGBE?A;', + 3'>9<89777686:7;9;;:>8@7C7E8F9CKBJAH?C==<;:88767585:6;7;8:__=F', + 4'<D;C9C8D8F9H;J=K@LFLHKIIIGHEGDDC?C__@CBBC@D9E7F7H8J:=I<G<E=C', + 5'?BBBECGDIFJHJKILHLGKFIEED?C<B:@8=7:7887:7<8>9?;@=@>?>==;<:AF', + 6'@D>C<C;E;G<I>KBLJLHIGGEAC<B:@8=7:7888:9;:;;:7H9K;L<L=J=G<C;@', + 7':<:9;7=7?8B;D>FC__ILE@D<D9E7F7H8J:7H9K;L<L=J=G<C;@:<:9;7=7?8', + 8'B;D>FBGEHIHKGLFLEKDIDFEDGBIAKA7F6F5G5I6K8L<L;J:E:=97__DLBJAH', + 9'?C==;997__DLCJBEB=A7__LLJJIHGCE=C9A7=G<F:F9G9I:K<L>L@KAIAF@B', + A'>=<::88767585:6;7;8:__HIIHJHKIKKJLHLFKDIBF@B?=?:@8B7D7F8G:G<'/ + DATA FONT25/ + 1'F=D=C<9H;K=L>L?K?I=C=@>>@>C?EAGDHF__JLHFE=C:A8>7;7887:7<8=9=', + 2':<BFAD?C=C<E<G=I?KCLKLIIGED>B;@9>8:777686:7;9;;:>8@7C7E8F9C=', + 3'B?@@>@<?;>:<::;8=7?7A8B:__D@B:B8C7D7F8G9I<;<=?@DAFBIBKAL?K>I', + 4'=E<><8=7>7@8B:C=C@D<E;G;I<B>B?A@?@=?<>;<;:<8>7A7D9F<C=B?@@>@', + 5'<?;>:<::;8=7?7A8B:__HLB:B8C7D7F8G9I<=9?:@;A=A?@@?@=?<=<:=8?7', + 6'A7C8D9F<=<AACDDFEIEKDLBKAI?A<8918.8,9+;,</=8>7@7B8C9E<C=B?@@', + 7'>@<?;>:<::;8=7?7A8B9__D@B9>.=,;+:,:.;1>4A6C7F9I<;<=?@DAFBIBK', + 8'AL?K>I=E<?;7__;7<:=<??A@C@D?D=C:C8D7E7G8H9J<AEADBDBEAE__><@@', + 9'>:>8?7@7B8C9E<AEADBDBEAE__><@@:.9,7+6,6.71:4=6?7B9E<;<=?@DAF', + A'BIBKAL?K>I=E<?;7__;7<:=<??A@C@D?D=B<?<__?<A;B8C7D7F8G9I<=<??'/ + DATA FONT26/ + 1'BDCFDIDKCLAK@I?E>>>8?7@7B8C9E<3<5?7@8?8>7:67__7:8<:?<@>@???>', + 2'>:=7__>:?<A?C@E@F?F=E:E8F7G7I8J9L<8<:?<@=?=><:;7__<:=<??A@C@', + 3'D?D=C:C8D7E7G8H9J<@@>@<?;>:<::;8=7?7A8B9C;C=B?@@???=@;B:E:G;', + 4'H<9<;?<A;=5+__;=<?>@@@B?C=C;B9A8?7__;8=7@7C8E9H<C=B?@@>@<?;>', + 5':<::;8=7?7A8__D@C=A8>1=.=,>+@,A/A6C7F9I<;<=?>A>?A?B>B<A9A8B7', + 6'C7E8F9H<<<>??A??A<B:B8@7__<8>7B7D8E9G<=<??AC__DL>:>8?7A7C8D9', + 7'F<__>DED:<<@:::8;7=7?8A:C=__D@B:B8C7D7F8G9I<:<<@;;;8<7=7@8B:', + 8'C=C@__C@D<E;G;I<:@8>7;7987:7<8>:__@@>:>8?7A7C8E:F=F@__F@G<H;', + 9'J;L<8<:?<@>@???8@7C7F9H<__E?D@B@A?=8<7:798:<<@:::8;7=7?8A:C=', + A'__D@>.=,;+:,:.;1>4A6C7F9I<:<<?>@@@B>B<A:?8<7>6?4?1>.=,;+:,:.'/ + DATA FONT27/ + 1';1>4A6E9H< '/ + JOFF=0 + BACKS=0 + TALIC=1. + ! Initially, italics are ON. ! + OFFX=0. + OFFY=0. + SUBS=1. +C +C ***** LOOP OVER CHARACTERS TO BE PLOTTED ***** +C + DO 10 J10=1,NCH + KCUR=CHARS(J10) + IF(KCUR.LT.32)KCUR=32 + IF(KCUR.EQ.64)THEN + IF(JOFF.EQ.192)THEN + SUBS=SUBS*0.6 + ! %@ = decrease size ! + JOFF=-96 + END IF + JOFF=JOFF+96 + ! @ = second font ! + IF(JOFF-192)10,1,11 + ! @@ = backspace ! +1 BACKS=1 + JOFF=0 + ELSE IF (KCUR.EQ.37) THEN + IF(JOFF.EQ.96)THEN + SUBS=SUBS/0.6 + ! @% = increase size ! + JOFF=-192 + END IF + JOFF=JOFF+192 + ! % = third font ! + IF(JOFF.GT.192)GO TO 11 + ! %% = end ! + ELSE IF (KCUR.EQ.94) THEN + SUBS=SUBS*0.6 + ! ^ = superscript ! + OFFY=OFFY+21.*SUBS + ELSE IF (KCUR.EQ.92) THEN + SUBS=SUBS*0.6 + ! \ = subscript ! + OFFY=OFFY-12.*SUBS + ELSE IF (KCUR.EQ.126)THEN + TALIC=1.-TALIC + ! ~ = italics off/on ! + ELSE + J=KCUR-31+JOFF + LEFTE=INDEX(2,J) + ! LH offset of letter within box + IF(BACKS.EQ.1.AND.NBACK.EQ.0)OLDINC=LASTINC + LASTINC=(INDEX(3,J)-INDEX(2,J))*SUBS + ! width of (letter+RH edge) ! + IF(BACKS.EQ.1)THEN + DIFF=.5*(OLDINC-LASTINC) + OFFX=OFFX-OLDINC+DIFF + LASTINC=LASTINC+DIFF + END IF + NP=INDEX(1,J)/2 + ! # of pen strokes ! + IF(NP.EQ.0)GO TO 6 + INDX=INDEX(4,J) + ! where to start ! + KC=J+31 + TAL=0. + IF(KC.GE.65.AND.KC.LE.90)TAL=TALIC + ! only italicise ! + IF(KC.GE.97.AND.KC.LE.122)TAL=TALIC + ! letters ! + UP=1. +C +C ***** LOOP OVER PEN STROKES ***** +C + DO 5 L=1,NP + J60=(INDX+59)/60 + I60=INDX+60-J60*60 + IX=ICHAR(FONTS(J60)(I60:I60))-64 + IY=ICHAR(FONTS(J60)(I60+1:I60+1))-64 + INDX=INDX+2 + IF(IX.EQ.31)THEN + UP=1. + GO TO 5 + ELSE + ! OFF is the ! + XL=OFFX+SUBS*(IX-LEFTE+0.20*TAL*(IY+9)) + ! current offset ! + YL=OFFY+SUBS*(IY) + ! relative to ! + XP=XLHE+0.0476*HEIGHT*(XL*COST-YL*SINT) + ! the start of ! + YP=YLHE+0.0476*HEIGHT*(YL*COST+XL*SINT) + ! the string ! + ENDIF + ! (i.e. the LH edge) ! + IF(UP.EQ.1.)THEN + IF(LETTS.EQ.1)CALL JUMP TO (XP,YP) + UP=0. + ELSE + IF(LETTS.EQ.1)CALL LINE TO (XP,YP) + ENDIF + IF(BOUNDS.EQ.1)THEN + IF(XP.GT.XMAX)XMAX=XP + IF(YP.GT.YMAX)YMAX=YP + IF(XP.LT.XMIN)XMIN=XP + IF(YP.LT.YMIN)YMIN=YP + END IF +5 CONTINUE +6 JOFF=0 + NBACK=0 + IF(BACKS.EQ.1)NBACK=1 + BACKS=0 + SUBS=1. + OFFY=0. + OFFX=OFFX+LASTINC + ENDIF +10 CONTINUE +11 CONTINUE + XP=XLHE+.0476*HEIGHT*(OFFX*COST) + YP=YLHE+.0476*HEIGHT*(OFFX*SINT) + RETURN + END + SUBROUTINE FR_NUMBR(R,S,H,X,T,N) + COMMON/FR_SYMB/ISYM + INTEGER*4 N + IF(ISYM.EQ.-1)THEN + CALL NOMBER(R,S,H,X,T,N) + ELSE + CALL NUMBER(R,S,H,X,T,N) + END IF + RETURN + END + SUBROUTINE NOMBER (X,Y,HT,F,AN,IC) +C SIMILIAR TO CALCOMP NUMBER (CALLING SEQUENCE IDENTICAL), BUT USES +C SIMBOL; CREATED 20.JUN.80 PLH; MODIFIED 5.MAR.82, 5.21.82 SMCM. +c IMPLICIT REAL*8 D + REAL*8 SPACC + REAL*4 X,Y,HT,F,AN,DUM + INTEGER*4 I,IC,J,M,N,NCHAR + LOGICAL*1 A(80),IAS + CHARACTER*1 DOT,NEG,PCT,AA(10) + COMMON/FR_INT/IFRAME + COMMON/FONTC1/DUM(5),XMAX,XMIN,YMAX,YMIN + DATA DOT/'.'/,NEG/'-'/,PCT/'%'/, + + AA/'0','1','2','3','4','5','6','7','8','9'/ + + SPACC/1.00000001/ + DEX(DPF)=10.**DPF + IAS(I)=ICHAR(AA(I+1)) ! Integer digit to ascii conversion. + DPF=DBLE(F) + NCHAR=0 + IF(IFRAME.EQ.1)NCHAR=-999 ! Ensure numerical labels are centered. + N=0 + IF (DPF.NE.0.) THEN + N=LOG10(ABS(DPF))+1. ! Digits to left of decimal. + END IF + IF (N.LE.0) N=1 + M=N+1+IC ! Total characters plotted. + DPG=ABS(DPF) ! For discounting. + IF (IC) 100,200,200 +100 DO I=1,M ! IC < 0 + DPH=DEX(DFLOAT(N-I)) + J=DPG/DPH*SPACC ! Discounted digit. + A(I)=IAS(J) + DPG=DPG-J*DPH ! Discount DPG for next digit. + END DO + GO TO 500 +200 DO I=1,N ! For IC >,= 0 + DPH=DEX(DFLOAT(N-I)) + J=DPG/DPH*SPACC ! Discounted digit. + A(I)=IAS(J) + DPG=DPG-J*DPH ! Discount DPG for next digit. + END DO + A(N+1)=ICHAR(DOT) ! Insert decimal point. + IF (IC.EQ.0) GO TO 500 + DO I=1,IC ! Add decimal digits. + J=10*DPG*SPACC ! Discounted digit. + A(N+1+I)=IAS(J) + DPG=10.*DPG-J ! Continue discounting DPG. + END DO + +500 J=10*DPG*SPACC + IF(J.LT.5)GO TO 501 ! Round off last digit(s). + IF(IC.GT.0)THEN + DO I=M,N+2,-1 ! Start at right edge of string. + IF(A(I).LE.56)THEN + A(I)=A(I)+1 + GO TO 501 + END IF + A(I)=48 + END DO + END IF + DO I=N,1,-1 ! Then adjust left, if necessary. +C IF(A(I).LT.56)THEN BUG FOUND BY RYBICK 04FEB86 + IF(A(I).LE.56)THEN + A(I)=A(I)+1 + GO TO 501 + END IF + A(I)=48 + END DO + DO I=M,1,-1 + A(I+1)=A(I) + END DO + A(1)=IAS(1) +501 A(M+1)=ICHAR(PCT) ! Add %% for SIMBOL. + A(M+2)=A(M+1) + IF (F.LT.0.) THEN ! Put "-" up front if necessary. + DO I=1,M+2 + A(M+4-I)=A(M+3-I) + END DO + A(1)=ICHAR(NEG) + M=M+1 + IF(NCHAR.LT.0)THEN + M=M+1 ! Extra blank for better centering + A(M+2)=A(M+1) ! of negative numbers. + A(M+1)=A(M) + A(M)=' ' + END IF + END IF + IF(IFRAME.GE.0)THEN + CALL SIMBOL (X,Y,HT,A,AN,NCHAR) ! Call SIMBOL as usual. + ELSE + CALL SIMBOL (X,Y,-HT,A,AN,NCHAR) + R=X+(XMIN-XMAX) ! N.B. This is specific to a + S=Y+.5*(YMIN-YMAX) ! horizontal string, as written. + CALL SIMBOL (R,S,HT,A,AN,NCHAR) + END IF + RETURN + END + SUBROUTINE FRAME(XMIN,XMAX,XLEN,MODX,XTIT, ! SEE COMMENTS + * YMIN,YMAX,YLEN,MODY,YTIT) ! FOR EFRAME + CHARACTER*80 XTIT,YTIT + COMMON/SCALES/XL,XR,DINCHX,YBOT,YTOP,DINCHY,RLEN,SLEN + COMMON/PLTDAT/DUM(10),IWTCUR + COMMON/FR_DRAW/MODE/FR_HTS/HTL,HTN/FR_WTS/IWT(4)/FR_ROTN/IROT + COMMON/FR_SYMB/ISYM/FR_TIKS/TIKS(3),TIKL/FR_INT/IFRAME +C + IFRAME=1 + ISYM=1 + JROT=IROT + IF(IROT.EQ.0)IROT=1 + DMIN=AMIN1(XLEN,YLEN) + IF(DMIN.GT.2.)THEN + IF(HTL.EQ.0.)HTL=.15 + IF(HTN.EQ.0.)HTN=.15 + ELSE + IF(HTL.EQ.0.)HTL=.075*DMIN + IF(HTN.EQ.0.)HTN=HTL + END IF + TIKS(1)=.2*HTN + TIKS(2)=2.5*TIKS(1) + TIKS(3)=4.*TIKS(1) + TIKL=.3*HTN +C + MODEX=MODX + MODEY=MODY + X1=XMIN + X2=XMAX + Y1=YMIN + Y2=YMAX +C + RLEN=XLEN + SLEN=YLEN +C +C SET AXES TICK, LABEL INFO +C + IF(MODEX.GT.0) + * CALL FR_LINSET(X1,X2,XLEN,MODEX,DXS,DXM,DXL,LABXSP,LABXDP,LPOWX) + IF(MODEX.LT.0) + * CALL FR_LOGSET(X1,X2,XLEN,MODEX,DXS,DXM,DXL) + XL=X1 + XR=X2 + DINCHX=XLEN/(XR-XL) + IF(MODEY.GT.0) + * CALL FR_LINSET(Y1,Y2,YLEN,MODEY,DYS,DYM,DYL,LABYSP,LABYDP,LPOWY) + IF(MODEY.LT.0) + * CALL FR_LOGSET(Y1,Y2,YLEN,MODEY,DYS,DYM,DYL) + YBOT=Y1 + YTOP=Y2 + DINCHY=YLEN/(YTOP-YBOT) + IF(MODE.NE.0)GO TO 10 +C +C DRAW AXES +C + IF(MODEX.LT.0) GO TO 1 + CALL FR_LINDRX(Y1,X1,X2,DXS,DXM,DXL,1,1,LABXSP,LABXDP) + CALL FR_LINDRX(Y2,X1,X2,DXS,DXM,DXL,2,0,LABXSP,LABXDP) + GO TO 2 + 1 CALL FR_LOGDRX(Y1,X1,X2,DXS,DXM,DXL,1,1) + CALL FR_LOGDRX(Y2,X1,X2,DXS,DXM,DXL,2,0) + 2 IF(MODEY.LT.0) GO TO 3 + CALL FR_LINDRY(X1,Y1,Y2,DYS,DYM,DYL,1,1,LABYSP,LABYDP) + CALL FR_LINDRY(X2,Y1,Y2,DYS,DYM,DYL,2,0,LABYSP,LABYDP) + GO TO 4 + 3 CALL FR_LOGDRY(X1,Y1,Y2,DYS,DYM,DYL,1,1) + CALL FR_LOGDRY(X2,Y1,Y2,DYS,DYM,DYL,2,0) +C +C LABEL AXES +C + 4 CALL FR_SPACES(XTIT,NTIT) + IF(IWT(4).NE.0)THEN + JWT=IWTCUR + IWTCUR=IWT(4) + END IF + IF(NTIT.EQ.0) GO TO 5 + R=.5*(XLEN-.857*HTL*NTIT) + S=-(HTL+3.*HTN) + CALL SYMBOL(R,S,HTL,%REF(XTIT),0.,NTIT) + 5 CALL FR_SPACES(YTIT,NTIT) + IF(NTIT.EQ.0) GO TO 6 + R=-3.*HTL + IF(MODEY.LT.0.AND.IROT.EQ.0)R=R-1.5*HTN + S=.5*(YLEN-.857*HTL*NTIT) + CALL SYMBOL(R,S,HTL,%REF(YTIT),90.,NTIT) + 6 IF(IWT(4).NE.0)IWTCUR=JWT + IFRAME=0 + 10 IROT=JROT + RETURN + END + SUBROUTINE FR_LINSET(X1,X2,XLEN,MODE,DXS,DXM,DXL,LABSP, + + LABDP,LABPOW) +C +C DETERMINES INCREMENTS FOR SMALL, MAJOR AND NUMBERED TICKS +C FOR A LINEAR PLOT +C + CALL FR_LINDIV(X1,X2,XLEN,DXS,DXM,DXL) + CALL FR_LINFNC(X1,X2,DXM,MODE,FIRSTL,NL) + CALL FR_LINFNC(X1,X2,DXL,1,FIRSTL,NL) + CALL FR_LABFRM(FIRSTL,DXL,NL,LABSP,LABDP,LABPOW) + RETURN + END + SUBROUTINE FR_LOGSET(X1,X2,XLEN,MODE,DEXPS,DEXPM,DEXPL) +C +C FINDS INCREMENTS FOR SMALL, MAJOR AND LABELED TICKS FOR LOG PLOT +C + X1=ALOG10(ABS(X1)) + X2=ALOG10(ABS(X2)) + CALL FR_LINDIV(X1,X2,XLEN,DEXPS,DEXPM,DEXPL) + IF(ABS(DEXPS).LT.1.) DEXPS=0. + IF(ABS(DEXPM).LT.1.) DEXPM=DEXPM/ABS(DEXPM) + IF(ABS(DEXPL).LT.1.) DEXPL=DEXPM + IF(MODE.NE.-2) RETURN + DFNC=DEXPM + IF(DEXPS.NE.0.) DFNC=DEXPS + CALL FR_LINFNC(X1,X2,DFNC,2,FEXP,NEXP) + RETURN + END + SUBROUTINE FR_LINDIV(X1,X2,XLEN,DXS,DXM,DXL) +C +C FIGURES OUT "SUITABLE" TICK SPACINGS (NEITHER TOO MANY NOR +C TOO FEW NUMBERS OR MAJOR TICKS) +C + DIMENSION SUBT(4),SUBL(3) + DATA SUBT/.1,.2,.25,.5/,SUBL/1.,2.,5./,THS,THL/.1,1./ + DXINCH=(X2-X1)/XLEN + CALL COMPOZ(DXINCH,DXPI,LPOW) + FAC=10.**(LPOW) + IF(X2.LT.X1) FAC=-FAC + SCALE=1. + DIPX=1./ABS(DXPI) + 1 DO 2 I=1,4 + J=I + IF(SUBT(J)*DIPX .GT. THS) GO TO 3 + 2 CONTINUE + DIPX=DIPX*10. + SCALE=SCALE*10. + GO TO 1 + 3 XX=SCALE*FAC + DXS=SUBT(J)*XX + DXM=XX + IF(J.EQ.1) DXM=.5*XX + 4 DO 5 I=1,3 + J=I + IF(SUBL(J)*DIPX .GE. THL) GO TO 6 + 5 CONTINUE + SCALE=SCALE*10. + DIPX=DIPX*10. + GO TO 4 + 6 DXL=SUBL(J)*SCALE*FAC + RETURN + END + SUBROUTINE FR_LINFNC(X1,X2,DX,MODE,FIRST,NPOST) + DATA EPS/.01/ +C +C MODE=1 ESTABLISH FENCEPOSTS BETWEEN X1-X2, AT INTERVAL DX +C MODE=2 MOVE POSTS OUT TO CONTAIN X1,X2 +C + IF(X2.LT.X1) GO TO 1 + SMALL=X1 + BIG=X2 + GO TO 2 + 1 SMALL=X2 + BIG=X1 + 2 DXG=ABS(DX) + FS=SMALL/DXG + NS=FS + IF(ABS(FS-NS).LE.EPS) GO TO 3 + IF(SMALL.GT.0.) NS=NS+1 + IF(MODE.EQ.2) NS=NS-1 + 3 FB=BIG/DXG + NB=FB + IF(ABS(FB-NB).LE.EPS) GO TO 4 + IF(BIG.LT.0.) NB=NB-1 + IF(MODE.EQ.2) NB=NB+1 + 4 IF(X2.GT.X1) GO TO 5 + I=NB + NB=NS + NS=I + 5 FIRST=NS*DXG + NPOST=ABS(NB-NS)+1 + IF(MODE.NE.2) RETURN + X1=FIRST + X2=NB*DXG + RETURN + END + SUBROUTINE FR_LABFRM(FIRST,DX,NX,NLAB,NDEC,NPOW) +C +C GIVEN THE (NX) VALUES FROM (FIRST) IN INCREMENTS OF (DX) +C TO BE WRITTEN, FIND FORMAT +C NDEC=-1 : INTEGER FORMAT +C NDEC.GT.0 : NUMBER OF PLACES RIGHT OF DEC POINT +C NPOW.NE.0 : E FORMAT +C NLAB = NUMBER OF SPACES FOR LABEL +C + DATA NMAX /8/ +C + NPOW=0 + CALL COMPOZ(DX,F,LDX) + FINAL= FIRST+(NX-1)*DX + BIG=FIRST + IF(ABS(FIRST).LT.ABS(FINAL)) BIG=FINAL + CALL COMPOZ(BIG,F,LBIG) + NSIN=0 + IF(FIRST.LT.0. .OR. FINAL.LT.0.) NSIN=1 +C *** IS INTEGER FORMAT OK *** + IF(LDX.LT.0) GO TO 1 + NLAB=NSIN+1+LBIG + IF(NLAB.GT.NMAX) GO TO 2 + NDEC=-1 + RETURN +C *** INCREMENT LT 1, IS F FORMAT OK *** + 1 NDEC=ABS(LDX) + NLAB=NSIN+1+NDEC + IF(LBIG.GE.0) NLAB=NLAB+LBIG+1 + IF(NLAB.LE.NMAX) RETURN +C *** RESORT TO E FORMAT *** + 2 NLAB=NSIN+5 + NPOW=LBIG + IF(ABS(NPOW).GE.10) NEX=NEX+1 + IF(NPOW.LT.0) NLAB=NLAB+1 + NDEC=NPOW-LDX + IF(NDEC.LT.1) NDEC=1 + NLAB=NLAB+NDEC + RETURN + END + SUBROUTINE FR_LINDRX(Y,X1,X2,DXS,DXM,DXL,IAX,ILAB,NLAB,NDEC) +C +C DRAWS X-AXIS, TICK MARKS AND NUMBERS FOR LINEAR CASE. +C NO NUMBERS ARE DRAWN FOR NONZERO LMODE. +C + DIMENSION DX(3) + COMMON/SCALES/XL,XR,DINCHX,YBOT,YTOP,DINCHY/PLTDAT/DUM(10),IWTCUR + COMMON/FR_LABX/LMODE/FR_HTS/HTL,HTN/FR_WTS/IWT(4) + COMMON/FR_TIKS/TIKS(3),TIKL/FR_SYMB/ISYM + DATA MODE/1/,THETA/0./ +C + CINCH(XA,XS,DI)=(XA-XS)*DI + DX(1)=DXS + DX(2)=DXM + DX(3)=DXL + SAX=CINCH(Y,YBOT,DINCHY) + R1=CINCH(X1,XL,DINCHX) + R2=CINCH(X2,XL,DINCHX) + IF(IWT(1).NE.0)THEN + JWT=IWTCUR + IWTCUR=IWT(1) + END IF + CALL PLOT(R1,SAX,3) + CALL PLOT(R2,SAX,2) + DS=1. + IF(IAX.EQ.2) DS=-1. + DO 2 J=1,3 + IF(DX(J).EQ.0) GO TO 2 + STIK=SAX+DS*TIKS(J) + CALL FR_LINFNC(X1,X2,DX(J),MODE,FIRSTX,NX) + DR=DX(J)*DINCHX + R=CINCH(FIRSTX,XL,DINCHX) + DO 1 I=1,NX + CALL PLOT(R,SAX,3) + CALL PLOT(R,STIK,2) + 1 R=R+DR + 2 CONTINUE + IF(IWT(1).NE.0)IWTCUR=JWT + IF(ILAB.EQ.0.OR.LMODE.NE.0) RETURN + X=FIRSTX + R=CINCH(FIRSTX,XL,DINCHX) + IF(ISYM.EQ.-1.AND.NDEC.NE.0)THEN + IF(IAX.EQ.1)S=SAX-HTN + IF(IAX.EQ.2)S=SAX+HTN + ELSE + R=R-.5*HTN*NLAB + IF(IAX.EQ.1)S=SAX-1.5*HTN + IF(IAX.EQ.2)S=SAX+.5*HTN + END IF + IF(IWT(2).NE.0)THEN + JWT=IWTCUR + IWTCUR=IWT(2) + END IF + DO 3 I=1,NX + IF(NDEC.EQ.0) CALL LOGNUM(R,S,HTN,X,THETA,-1) + IF(NDEC.NE.0) CALL FR_NUMBR(R,S,HTN,X,THETA,NDEC) + R=R+DR + 3 X=X+DXL + IF(IWT(2).NE.0)IWTCUR=JWT + RETURN + END + SUBROUTINE FR_LINDRY(X,Y1,Y2,DYS,DYM,DYL,IAX,ILAB,NLAB,NDEC) +C +C AS FOR LINDRX, BUT FOR THE Y-AXIS +C + DIMENSION DY(3) + COMMON/SCALES/XL,XR,DINCHX,YBOT,YTOP,DINCHY/PLTDAT/DUM(10),IWTCUR + COMMON/FR_LABY/LMODE/FR_HTS/HTL,HTN/FR_WTS/IWT(4)/FR_ROTN/IROT + COMMON/FR_TIKS/TIKS(3),TIKL/FR_SYMB/ISYM/FR_INT/IFRAME + COMMON/FR_CONF/SCENT,ICONF + DATA MODE/1/,THETA/90./THETAL/0./ +C + CINCH(XA,XS,DI)=(XA-XS)*DI + DY(1)=DYS + DY(2)=DYM + DY(3)=DYL + RAX=CINCH(X,XL,DINCHX) + S1=CINCH(Y1,YBOT,DINCHY) + S2=CINCH(Y2,YBOT,DINCHY) + IF(IWT(1).NE.0)THEN + JWT=IWTCUR + IWTCUR=IWT(1) + END IF + CALL PLOT(RAX,S1,3) + CALL PLOT(RAX,S2,2) + DR=1. + IF(IAX.EQ.2) DR=-1. + DO 2 J=1,3 + IF(DY(J).EQ.0.) GO TO 2 + RTIK=RAX+DR*TIKS(J) + CALL FR_LINFNC(Y1,Y2,DY(J),MODE,FIRSTY,NY) + DS=DY(J)*DINCHY + S=CINCH(FIRSTY,YBOT,DINCHY) + DO 1 I=1,NY + CALL PLOT(RAX,S,3) + CALL PLOT(RTIK,S,2) + 1 S=S+DS + 2 CONTINUE + IF(IWT(1).NE.0)IWTCUR=JWT + IF(ILAB.EQ.0.OR.LMODE.NE.0) RETURN + Y=FIRSTY + S1=CINCH(FIRSTY,YBOT,DINCHY) + HALF=.5*HTN + IF(NLAB.LE.5.AND.IROT.EQ.0)THEN + TH=THETAL + IF(ISYM.EQ.-1.AND.IAX.EQ.1.AND.NDEC.NE.0)THEN + IFRAME=-1 + R=RAX-HALF + S=S1 + ELSE + IF(NDEC.NE.0)IFRAME=0 + IF(IAX.EQ.1)R=RAX-HTN*(.5+NLAB) + IF(IAX.EQ.2)R=RAX+HALF + S=S1-HALF + END IF + ELSE + TH=THETA + IF(ISYM.EQ.-1)THEN + IF(IAX.EQ.1)R=RAX-HTN + IF(IAX.EQ.2)R=RAX+HTN + S=S1 + ELSE + IF(IAX.EQ.1)R=RAX-HALF + IF(IAX.EQ.2)R=RAX+3.*HALF + S=S1-NLAB*HALF + END IF + END IF + SMIN=HALF ! Only offset first Y-axis + IF(TH.EQ.THETA)SMIN=NLAB*HALF ! label if it really would + IF(S1.LT.SMIN)S=S+SMIN ! extend below the X-axis. + IF(IWT(2).NE.0)THEN + JWT=IWTCUR + IWTCUR=IWT(2) + END IF + IF(NDEC.EQ.0) CALL LOGNUM(R,S,HTN,Y,TH,-1) + IF(NDEC.NE.0) CALL FR_NUMBR(R,S,HTN,Y,TH,NDEC) + IF(ABS(S-SCENT).LE.HTN+HTL)THEN + ICONF=1 ! ICONF is nonzero if a conflict exists. + IF(S.LT.SCENT)ICONF=-1 + END IF + IF(S1.LT.SMIN)S=S-SMIN + IF(NY.LE.1)GO TO 4 + DO 3 I=2,NY + S=S+DS + Y=Y+DYL + IF(NDEC.EQ.0) CALL LOGNUM(R,S,HTN,Y,TH,-1) + IF(NDEC.NE.0) CALL FR_NUMBR(R,S,HTN,Y,TH,NDEC) + IF(ABS(S-SCENT).LE.HTN+HTL)THEN + ICONF=1 + IF(S.LT.SCENT)ICONF=-1 + END IF + 3 CONTINUE + 4 IF(IWT(2).NE.0)IWTCUR=JWT + IFRAME=1 + RETURN + END + SUBROUTINE FR_LOGDRX(Y,X1,X2,DEXPS,DEXPM,DEXPL,IAX,ILAB) +C +C DRAWS X-AXIS, TICK MARKS AND NUMBERS FOR A LOG PLOT +C + DIMENSION TIKS(8) + COMMON/SCALES/XL,XR,DINCHX,YBOT,YTOP,DINCHY/PLTDAT/DUM(10),IWTCUR + COMMON/FR_HTS/HTL,HTN/FR_WTS/IWT(4)/FR_TIKS/TIKK(3),TIKL + DATA NTIK,TIKS/8,.301003,.4771213,.60206,.69897,.7781513, + * .845098,.90309,.9542425/ +C + CINCH(DUMX,DOR,DINCH)=(DUMX-DOR)*DINCH + NLAB=2 + NDEC=0 + CALL FR_LINDRX(Y,X1,X2,DEXPS,DEXPM,DEXPL,IAX,ILAB,NLAB,NDEC) + IF(ABS(DEXPM).NE.1.) RETURN + IF(ABS(DINCHX).LE..5) RETURN +C +C ADD MARKERS FOR INTEGERS +C + DS=1. + IF(IAX.EQ.2) DS=-DS + SAX=CINCH(Y,YBOT,DINCHY) + STIK=SAX+DS*TIKL + XA=X1 + XB=X2 + IF(XB.GT.XA) GO TO 1 + XA=X2 + XB=X1 + 1 CALL FR_LINFNC(XA,XB,1.,1,FEXP,NEXP) + FEXP=FEXP-1. + NEXP=NEXP+1 + IF(IWT(1).NE.0)THEN + JWT=IWTCUR + IWTCUR=IWT(1) + END IF + DO 3 I=1,NEXP + DO 2 J=1,NTIK + EXP=FEXP+TIKS(J) + IF(EXP.LT.XA) GO TO 2 + IF(EXP.GT.XB) GO TO 4 + R=CINCH(EXP,XL,DINCHX) + CALL PLOT(R,SAX,3) + CALL PLOT(R,STIK,2) + 2 CONTINUE + 3 FEXP=FEXP+1. + 4 CONTINUE + IF(IWT(1).NE.0)IWTCUR=JWT + RETURN + END + SUBROUTINE FR_LOGDRY(X,Y1,Y2,DEXPS,DEXPM,DEXPL,IAX,ILAB) +C +C AS FOR LOGDRX, BUT FOR THE Y-AXIS +C + DIMENSION TIKS(8) + COMMON/SCALES/XL,XR,DINCHX,YBOT,YTOP,DINCHY/PLTDAT/DUM(10),IWTCUR + COMMON/FR_HTS/HTL,HTN/FR_WTS/IWT(4)/FR_TIKS/TIKK(3),TIKL + DATA NTIK,TIKS/8,.301003,.4771213,.60206,.69897,.7781513, + * .845098,.90309,.9542425/ +C + CINCH(DUMX,DOR,DINCH)=(DUMX-DOR)*DINCH + NLAB=3 + NDEC=0 + CALL FR_LINDRY(X,Y1,Y2,DEXPS,DEXPM,DEXPL,IAX,ILAB,NLAB,NDEC) + IF(ABS(DEXPM).NE.1.) RETURN + IF(ABS(DINCHY).LE..5) RETURN +C +C ADD MARKERS FOR INTEGERS +C + DR=1. + IF(IAX.EQ.2) DR=-DR + RAX=CINCH(X,XL,DINCHX) + RTIK=RAX+DR*TIKL + YA=Y1 + YB=Y2 + IF(YB.GT.YA) GO TO 1 + YA=Y2 + YB=Y1 + 1 CALL FR_LINFNC(YA,YB,1.,1,FEXP,NEXP) + FEXP=FEXP-1. + NEXP=NEXP+1 + IF(IWT(1).NE.0)THEN + JWT=IWTCUR + IWTCUR=IWT(1) + END IF + DO 3 I=1,NEXP + DO 2 J=1,NTIK + EXP=FEXP+TIKS(J) + IF(EXP.LT.YA) GO TO 2 + IF(EXP.GT.YB) GO TO 4 + S=CINCH(EXP,YBOT,DINCHY) + CALL PLOT(RAX,S,3) + CALL PLOT(RTIK,S,2) + 2 CONTINUE + 3 FEXP=FEXP+1. + 4 CONTINUE + IF(IWT(1).NE.0)IWTCUR=JWT + RETURN + END + SUBROUTINE ENUMBR(XI,YI,HT,FPN,THETA,LL) +C +C LEAVES XI AND YI UNCHANGED. +C PLOTS A NUMBER OF THE FORM 7.23(-6). +C + COMMON/FR_SYMB/ISYM +C + THETR=0.01745329*THETA + XINC=COS(THETR)*HT + YINC=SIN(THETR)*HT + IF(ISYM.NE.-1)THEN + XINC=.8571429*XINC + YINC=.8571429*YINC + END IF +C + CALL COMPOZ(FPN,FPNRED,LPOW) + CALL FR_NUMBR(XI,YI,HT,FPNRED,THETA,LL) + NSP=LL+2 + IF(FPNRED.LT.0) NSP=NSP+1 + XN=XI+NSP*XINC + YN=YI+NSP*YINC + IF(ISYM.EQ.-1)THEN + CALL SIMBOL(XN,YN,HT,1H(,THETA,1) + ELSE + CALL SYMBOL(XN,YN,HT,1H(,THETA,1) + END IF + XN=XN+XINC + YN=YN+YINC + RLOG=LPOW + CALL FR_NUMBR(XN,YN,HT,RLOG,THETA,-1) + NSP=1 + IF(LPOW.LT.0) NSP=NSP+1 + IF(ABS(LPOW).GE.10) NSP=NSP+1 + XN=XN+NSP*XINC + YN=YN+NSP*YINC + IF(ISYM.EQ.-1)THEN + CALL SIMBOL(XN,YN,HT,1H),THETA,1) + ELSE + CALL SYMBOL(XN,YN,HT,1H),THETA,1) + END IF + RETURN + END + SUBROUTINE LOGNUM(XI,YI,HT1,EXP,THETA,LL) +C +C PLOTS THE NUMBER 10**(EXP) +C LEAVES XI,YI UNCHANGED. +C FOR INTEGER VALUES OF THE EXPONENT, SET LL = -1 +C + COMMON/PLTDAT/DUM(10),IWTCUR + COMMON/FR_SYMB/ISYM/FR_INT/IFRAME/FR_WTS/IWT(4) +C + IF(ISYM.EQ.-1)THEN + CALL SIMBOL(XI,YI,HT1,2H10,THETA,2) + XWIDTH=1.8642857 + ELSE + CALL SYMBOL(XI,YI,HT1,2H10,THETA,2) + XWIDTH=1.7142857 + END IF + HT2=0.53333333*HT1 + THETR=0.01745329*THETA + SINTH=SIN(THETR) + COSTH=COS(THETR) + XE=XI + (XWIDTH*COSTH - 0.7142857*SINTH)*HT1 + YE=YI + (0.7142857*COSTH + XWIDTH*SINTH)*HT1 + IF(IWT(3).NE.0.AND.IFRAME.EQ.1)THEN + JWT=IWTCUR + IWTCUR=IWT(3) + END IF + JFRAME=IFRAME + IFRAME=0 ! Don't want centered symbol. + CALL FR_NUMBR(XE,YE,HT2,EXP,THETA,LL) + IFRAME=JFRAME + IF(IWT(3).NE.0.AND.IFRAME.EQ.1)IWTCUR=JWT + RETURN + END + SUBROUTINE PLOTIN(R,S,IPEN) + COMMON/SCALES/X1,X2,DIX,Y1,Y2,DIY,RLEN,SLEN + DATA IUP,IDN/3,2/ +C +C MOVES PEN FROM LAST POINT TO NEW POINT, CONNECTING +C ONLY THAT SEGMENT OF LINE LYING WITHIN BOUNDARIES. +C + IN=0 + I=2 + J=2 + IF(R.LT.0.) I=1 + IF(R.GT.RLEN) I=3 + IF(S.LT.0.) J=1 + IF(S.GT.SLEN) J=3 + K=I+3*(J-1) + IF(K.EQ.5) IN=1 + IF(IPEN.EQ.IUP) GO TO 99 + RP=R + SP=S +C *** BOTH IN *** + IF(IN+INL.EQ.2) GO TO 98 +C *** BOTH OUT *** + IF(IN+INL.EQ.0) GO TO 20 +C +C *** 1 IN 1 OUT *** + IF(IN.EQ.1) GO TO 3 +C +C LAST POINT IN +C + RIN=RL + SIN=SL + 2 ROUT=R + SOUT=S + IOUT=I + KOUT=K + GO TO 5 +C +C CURRENT POINT IN +C + 3 RIN=R + SIN=S + 4 ROUT=RL + SOUT=SL + IOUT=IL + KOUT=KL +C +C MOVE FROM RIN,SIN TO ROUT,SOUT +C + 5 CALL PLOT(RIN,SIN,IUP) + IF(KOUT.EQ.2) GO TO 11 + IF(KOUT.EQ.8) GO TO 12 + IF(KOUT.EQ.6) GO TO 14 + IF(KOUT.EQ.4) GO TO 15 +C +C EXIT THROUGH CORNER SQUARE FIND EXIT SIDE +C + RP=0. + IF(IOUT.EQ.3) RP=RLEN + SP=SIN+(RP-RIN)*(SOUT-SIN)/(ROUT-RIN) + IF(SP.LT.0.) GO TO 11 + IF(SP.GT.SLEN) GO TO 12 + GO TO 98 +C +C EXIT SIDE KNOWN +C +C THROUGH BOTTOM +C + 11 SP=0. + GO TO 13 +C +C THROUGH TOP +C + 12 SP=SLEN + 13 RP=RIN+(SP-SIN)*(ROUT-RIN)/(SOUT-SIN) + GO TO 98 +C +C THROUGH RIGHT +C + 14 RP=RLEN + GO TO 16 +C +C THROUGH LEFT +C + 15 RP=0. + 16 SP=SIN+(RP-RIN)*(SOUT-SIN)/(ROUT-RIN) + GO TO 98 +C +C BOTH POINTS OUT, LOOK FOR INTERSECTION WITH FRAME +C +C FIRST DISPOSE OF SAME SQUARE, OR SAME OUTSIDE ROW OR COL +C + 20 IF(K.EQ.KL) GO TO 99 + IF(J+JL.EQ.2) GO TO 99 + IF(J+JL.EQ.6) GO TO 99 + IF(I+IL.EQ.2) GO TO 99 + IF(I+IL.EQ.6) GO TO 99 +C +C IS ANY SQUARE ON SIDE +C + KOUT=KL + IF(K.EQ.2) GO TO 21 + IF(K.EQ.8) GO TO 22 + IF(K.EQ.6) GO TO 24 + IF(K.EQ.4) GO TO 25 + KOUT=K + IF(KL.EQ.2) GO TO 21 + IF(KL.EQ.8) GO TO 22 + IF(KL.EQ.6) GO TO 24 + IF(KL.EQ.4) GO TO 25 + GO TO 27 +C +C THROUGH BOTTOM +C + 21 SIN=0. + GO TO 23 +C +C THROUGH TOP +C + 22 SIN=SLEN + 23 RIN=R+(SIN-S)*(RL-R)/(SL-S) + IF(RIN.LE.0.) GO TO 99 + IF(RIN.GE.RLEN) GO TO 99 + IF(KOUT.EQ.KL) GO TO 4 + GO TO 2 +C +C THROUGH RIGHT SIDE +C + 24 RIN=RLEN + GO TO 26 + 25 RIN=0. + 26 SIN=S+(RIN-R)*(SL-S)/(RL-R) + IF(SIN.LE.0.) GO TO 99 + IF(SIN.GE.SLEN) GO TO 99 + IF(KOUT.EQ.KL) GO TO 4 + GO TO 2 +C +C CONNECTS DIAGONAL CORNERS +C + 27 IP=3 + SIN=0. + RIN=R+(SIN-S)*(RL-R)/(SL-S) + IF(RIN.GT.RLEN) GO TO 28 + IF(RIN.LT.0.) GO TO 28 + CALL PLOT(RIN,SIN,IP) + IP=2 + 28 SIN=SLEN + RIN=R+(SIN-S)*(RL-R)/(SL-S) + IF(RIN.GT.RLEN) GO TO 29 + IF(RIN.LT.0.) GO TO 29 + CALL PLOT(RIN,SIN,IP) + IF(IP.EQ.2) GO TO 99 + IP=2 + 29 RIN=0. + SIN=S+(RIN-R)*(SL-S)/(RL-R) + IF(SIN.GT.SLEN) GO TO 30 + IF(SIN.LT.0.) GO TO 30 + CALL PLOT(RIN,SIN,IP) + IF(IP.EQ.2) GO TO 99 + IP=2 + 30 RIN=RLEN + SIN=S+(RIN-R)*(SL-S)/(RL-R) + IF(SIN.GT.SLEN) GO TO 99 + IF(SIN.LT.0.) GO TO 99 + CALL PLOT(RIN,SIN,IP) + GO TO 99 +C +C PLOT TO FINAL SEGMENT THEN TERMINATE ON LAST POINT +C + 98 CALL PLOT(RP,SP,IDN) + 99 CALL PLOT(R,S,IUP) + RL=R + SL=S + IL=I + JL=J + KL=K + INL=IN + RETURN + END + SUBROUTINE DPLOT(R,S,IPEN) +C +C DRAWS A SETPAT-DEFINED DASHED LINE TO (R,S). +C + COMMON/DASH/DPATRN(10),DPAT,NPATRN,IPAT,LPEN + COMMON/FR_BNDS/MODE + DATA TOL/0.002/ + ENTRY DPLOTIN(R,S,IPEN) + IF(ABS(IPEN).EQ.3)THEN + CALL PLOT(R,S,IPEN) + RETURN + END IF + IF(KOUNT.EQ.0)THEN + KOUNT=1 + IF(DPAT.EQ.0.)CALL SETPAT(0,0,0,0) + END IF + CALL LASTP(RL,SL) + DR=R-RL + DS=S-SL + TRAVL=SQRT(DR**2+DS**2) + IF(TRAVL.GT.1.E6*DPAT)STOP ' WARNING: (D)LINE LENGTH >1.E6*DPAT.' + IF(TRAVL.EQ.0.)THEN + DRDL=0. + DSDL=0. + GO TO 1 + END IF + DRDL=DR/TRAVL + DSDL=DS/TRAVL + 1 DO 2 I=IPAT,NPATRN + IPLAST=I + STEP=MIN(TRAVL,DPAT) + RL=RL+STEP*DRDL + SL=SL+STEP*DSDL + IF(MODE.EQ.0)THEN + CALL PLOT(RL,SL,LPEN) + ELSE + CALL PLOTIN(RL,SL,LPEN) + END IF + TRAVL=TRAVL-STEP + IF(TRAVL.LE.TOL) GO TO 4 + DPAT=DPATRN(I+1) + 2 LPEN=5-LPEN + 3 DPAT=DPATRN(1) + IPAT=1 + LPEN=2 + IF(TRAVL.GT.TOL) GO TO 1 + RETURN + 4 IPAT=IPLAST + DPAT=DPAT-STEP + IF(DPAT.GT.TOL) RETURN + IPAT=IPAT+1 + IF(IPAT.GT.NPATRN) GO TO 3 + DPAT=DPATRN(IPAT) + LPEN=5-LPEN + RETURN + END + SUBROUTINE LASTP(RL,SL) +C +C *** ESTABLISH OFFSET OF LAST POINT WRT CURRENT ORIGIN *** +C + COMMON/FR_BNDS/MODE + CALL WHERE(RL,SL,SCALE) + IF(MODE.EQ.0)THEN + CALL PLOT(0.,0.,3) + ELSE + CALL PLOTIN(0.,0.,3) + END IF + CALL WHERE(R0,S0,SCALE) + RL=RL-R0 + SL=SL-S0 + IF(MODE.EQ.0)THEN + CALL PLOT(RL,SL,3) + ELSE + CALL PLOTIN(RL,SL,3) + END IF + RETURN + END + SUBROUTINE SETPAT(NT1,NB1,NT2,NB2) +C +C SETS PATTERN OF DASHES FOR DPLOT +C + COMMON/DASH/DPATRN(10),DPAT,NPATRN,IPAT,LPEN + DATA BLANK,BLANK0/0.05,.025/ + LPEN=2 + IPAT=1 + NPATRN=4 + DPATRN(1)=NT1*BLANK + DPATRN(2)=NB1*BLANK + DPATRN(3)=NT2*BLANK + DPATRN(4)=NB2*BLANK + DO 1 I=1,NPATRN +1 IF(DPATRN(I).EQ.0.)DPATRN(I)=BLANK0 + DPAT=DPATRN(1) + END + SUBROUTINE SETPATTERN(SOLID1,BLANK1,SOLID2,BLANK2) +C +C SETS PATTERN OF DASHES FOR DPLOT +C + DATA BLANK0/.025/ + COMMON/DASH/DPATRN(10),DPAT,NPATRN,IPAT,LPEN + LPEN=2 + IPAT=1 + NPATRN=4 + DPATRN(1)=SOLID1 + DPATRN(2)=BLANK1 + DPATRN(3)=SOLID2 + DPATRN(4)=BLANK2 + DO 1 I=1,NPATRN +1 IF(DPATRN(I).EQ.0.)DPATRN(I)=BLANK0 + DPAT=DPATRN(1) + END + SUBROUTINE SETMOD(I1,I2,I3,I4,I5) + COMMON/FR_DRAW/MD/FR_BNDS/MB/FR_LABX/MX/FR_LABY/MY/FR_ROTN/MR + MD=I1 + MB=I2 + MX=I3 + MY=I4 + MR=I5 + END + SUBROUTINE SETHTS(HT1,HT2) + COMMON/FR_HTS/HTL,HTN + HTL=HT1 + HTN=HT2 + END + SUBROUTINE SETWTS(I1,I2,I3,I4) + COMMON/FR_WTS/IWT(4) + IWT(1)=I1 + IWT(2)=I2 + IWT(3)=I3 + IWT(4)=I4 + RETURN + END + SUBROUTINE MLINE(XARRAY,YARRAY,N,JTH,JSYMBL,HTSYM) +C +C PLOTS THE N POINTS YARRAY(XARRAY), WITH IDENTIFYING +C SYMBOLS, OF HEIGHT |HTSYM|, AT EVERY |JTH|-TH POINT +C FOR NONZERO JTH. +C IF JTH = 0, THE POINTS ARE JOINED BY SOLID LINES ONLY. +C IF JTH > 0, BOTH LINES AND SYMBOLS ARE DRAWN. +C IF JTH < 0, ONLY THE SYMBOLS ARE DRAWN. +C +C IF JSYMBL >0 OR =0, THE SYMBOL IS DRAWN BY SUBROUTINE +C "SYMBOL", REFERENCED BY |JSYMBL|. +C IF JSYMBL < 0, THE SYMBOL IS A CENTERED "SIMBOL" SYMBOL. +C DEFINING IASCII = |JSYMBL|, THE FIRST FONT IS OBTAINED +C FOR IASCII.LE.127, THE SECOND FOR 128.LE.IASCII.LE.223 +C AND THE THIRD FOR IASCII.GE.224, SO, FOR EXAMPLE, 58 +C BECOMES A COLON (":"), 58+96=154 IS AN INTEGRAL SIGN ("@:") +C AND 58+192=250 IS A GOTHIC "Z" ("%:"). +C +C NO LINES ARE DRAWN OUTSIDE THE BOX PRODUCED BY "FRAME" +C IF MODE IS NONZERO. +C IF HTSYM < 0., THE "SIMBOL" SYMBOLS WILL NOT BE CENTERED: +C THE SYMBOL WILL BE DRAWN WITH THE ARRAY POINT AT THE +C BOTTOM LEFT-HAND CORNER. +C + DIMENSION XARRAY(1),YARRAY(1) + CHARACTER SIM*3 + COMMON/SCALES/ XMINIM,XMAX,DXINCH,YMINIM,YMAX,DYINCH,RLEN,SLEN + COMMON/FR_BNDS/MODE + CINCH(X,X0,DXI)=(X-X0)*DXI + IF(JTH.EQ.0) GO TO 2 + HITE=ABS(HTSYM) + IF(JSYMBL.LT.0)THEN + IASCII=-JSYMBL + IF(IASCII.LE.127)THEN + NSYM=-2 + SIM='~'//CHAR(IASCII) + ELSE IF(IASCII.LE.223)THEN + NSYM=-3 + SIM='~@'//CHAR(IASCII-96) + ELSE + NSYM=-3 + SIM='~%'//CHAR(IASCII-192) + END IF + IF(HTSYM.LT.0.)NSYM=-NSYM + END IF +C +C *** PLOT SYMBOLS *** +C + INT=ABS(JTH) + DO 1 I=1,N,INT + X1=CINCH(XARRAY(I),XMINIM,DXINCH) + Y1=CINCH(YARRAY(I),YMINIM,DYINCH) + IF(MODE.NE.0.AND. + +(X1.LT.0..OR.X1.GT.RLEN.OR.Y1.LT.0..OR.Y1.GT.SLEN))GO TO 1 + IF(JSYMBL.GE.0)THEN + CALL SYMBOL(X1,Y1,HITE,JSYMBL,0.,-1) + ELSE + CALL SIMBOL(X1,Y1,HITE,%REF(SIM),0.,NSYM) + END IF +1 CONTINUE + IF(JTH.LT.0) RETURN +C +C *** PLOT LINE *** +C + 2 X1=CINCH(XARRAY(1),XMINIM,DXINCH) + Y1=CINCH(YARRAY(1),YMINIM,DYINCH) + IF(MODE.EQ.0)THEN + CALL PLOT(X1,Y1,3) + ELSE + CALL PLOTIN(X1,Y1,3) + END IF + DO 3 I=2,N + X1=CINCH(XARRAY(I),XMINIM,DXINCH) + Y1=CINCH(YARRAY(I),YMINIM,DYINCH) + IF(MODE.EQ.0)THEN + CALL PLOT(X1,Y1,2) + ELSE + CALL PLOTIN(X1,Y1,2) + END IF + 3 CONTINUE + RETURN + END + SUBROUTINE DLINE(XARRAY,YARRAY,N,JTH,JSYMBL,HTSYM) +C +C LIKE MLINE, BUT DRAWS A DASHED LINE +C + DIMENSION XARRAY(1),YARRAY(1) + CHARACTER SIM*3 + COMMON/SCALES/ XMINIM,XMAX,DXINCH,YMINIM,YMAX,DYINCH,RLEN,SLEN + COMMON/DASH/DPATRN(10),DPAT,NPATRN,IPAT,LPEN + COMMON/FR_BNDS/MODE + CINCH(X,X0,DXI)=(X-X0)*DXI + IF(JTH.EQ.0) GO TO 2 + HITE=ABS(HTSYM) + IF(JSYMBL.LT.0)THEN + IASCII=-JSYMBL + IF(IASCII.LE.127)THEN + NSYM=-2 + SIM='~'//CHAR(IASCII) + ELSE IF(IASCII.LE.223)THEN + NSYM=-3 + SIM='~@'//CHAR(IASCII-96) + ELSE + NSYM=-3 + SIM='~%'//CHAR(IASCII-192) + END IF + IF(HTSYM.LT.0.)NSYM=-NSYM + END IF +C +C *** PLOT SYMBOLS *** +C + INT=ABS(JTH) + DO 1 I=1,N,INT + X1=CINCH(XARRAY(I),XMINIM,DXINCH) + Y1=CINCH(YARRAY(I),YMINIM,DYINCH) + IF(MODE.NE.0.AND. + +(X1.LT.0..OR.X1.GT.RLEN.OR.Y1.LT.0..OR.Y1.GT.SLEN))GO TO 1 + IF(JSYMBL.GE.0)THEN + CALL SYMBOL(X1,Y1,HITE,JSYMBL,0.,-1) + ELSE + CALL SIMBOL(X1,Y1,HITE,%REF(SIM),0.,NSYM) + END IF +1 CONTINUE + IF(JTH.LT.0) RETURN +C +C *** PLOT LINE *** +C + 2 X1=CINCH(XARRAY(1),XMINIM,DXINCH) + Y1=CINCH(YARRAY(1),YMINIM,DYINCH) + IF(MODE.EQ.0)THEN + CALL PLOT(X1,Y1,3) + ELSE + CALL PLOTIN(X1,Y1,3) + END IF + DO 3 I=2,N + X1=CINCH(XARRAY(I),XMINIM,DXINCH) + Y1=CINCH(YARRAY(I),YMINIM,DYINCH) + 3 CALL DPLOT(X1,Y1,2) + RETURN + END + SUBROUTINE COMPOZ(FPN,FGE1,LPOW) +C +C DECOMPOSES A FLOATING POINT NUMBER FPN INTO +C FGE1*10**(LPOW) WHERE: ABS(FGE1) IS .GE. 1 +C + IF(FPN.EQ.0.) GO TO 1 + FABS=ABS(FPN) + LPOW=ALOG10(FABS) + FGE1=FPN*10.**(-LPOW) + IF(ABS(FGE1).GE.1) RETURN + FGE1=FGE1*10. + LPOW=LPOW-1 + RETURN + 1 FGE1=0. + LPOW=0 + END + SUBROUTINE FR_SPACES(ZTIT,NZTIT) +C +C CALCULATES THE TRUE LENGTH, NZTIT, OF A CHARACTER STRING, ZTIT. +C THE LENGTH OF THE STRING IS THE POSITION OF THE CHARACTER BEFORE +C FIVE BLANKS ARE ENCOUNTERED. +C + CHARACTER*(*) ZTIT + CHARACTER*5 SPACE + SPACE=' ' + NZTIT=INDEX(ZTIT,SPACE)-1 + RETURN + END + SUBROUTINE FR_INCHES(X,Y,R,S) +C +C USER UNITS (X,Y) TO INCHES (R,S) +C + COMMON/SCALES/XL,XR,DINCHX,YBOT,YTOP,DINCHY + R=(X-XL)*DINCHX + S=(Y-YBOT)*DINCHY + RETURN + END + SUBROUTINE FR_USERS(R,S,X,Y) +C +C INCHES (R,S) TO USER UNITS (X,Y) +C + COMMON/SCALES/XL,XR,DINCHX,YBOT,YTOP,DINCHY + X=XL+R/DINCHX + Y=YBOT+S/DINCHY + RETURN + END + SUBROUTINE ARROW(XTAIL,YTAIL,XHEAD,YHEAD,MODE) +C +C DRAWS ARROW FROM (X,Y)-TAIL TO (X,Y)-HEAD +C IF MODE = 0, X AND Y ARE USER UNITS +C IF MODE = 1, X AND Y ARE IN INCHES +C + COMMON/SCALES/XL,XR,DINCHX,YBOT,YTOP,DINCHY + DATA OPEN,PI/.5236,3.141593/ + IF(MODE.EQ.0)THEN + RTAIL=(XTAIL-XL)*DINCHX + STAIL=(YTAIL-YBOT)*DINCHY + DR=(XHEAD-XTAIL)*DINCHX + DS=(YHEAD-YTAIL)*DINCHY + ELSE + RTAIL=XTAIL + STAIL=YTAIL + DR=XHEAD-XTAIL + DS=YHEAD-YTAIL + END IF + THETA=ATAN2(DS,DR) + CALL PLOT(RTAIL,STAIL,3) + RHD=RTAIL+DR + SHD=STAIL+DS + CALL PLOT(RHD,SHD,2) + ALPHA=THETA+PI-OPEN + SHAFT=SQRT(DR*DR+DS*DS) + POINT=.1 + IF(SHAFT.GT.1.)POINT=.15*SHAFT + IF(SHAFT.LT..5)POINT=AMAX1(.05,.2*SHAFT) + R=RHD+POINT*COS(ALPHA) + S=SHD+POINT*SIN(ALPHA) + CALL PLOT(R,S,2) + CALL PLOT(RHD,SHD,3) + ALPHA=ALPHA+2.*OPEN + R=RHD+POINT*COS(ALPHA) + S=SHD+POINT*SIN(ALPHA) + CALL PLOT(R,S,2) + RETURN + END + SUBROUTINE ERRBARS(XC,YC,DX,DY) +C +C DRAWS ERROR BARS CENTERED ON (XC,YC), OF LENGTH(S) +C DX AND/OR DY, ALL MEASURED IN USER UNITS +C + COMMON/SCALES/XL,XR,DINCHX,YBOT,YTOP,DINCHY + DATA CAP/.07/ + IBOTH=1 + GO TO 10 + ENTRY XERR(XC,YC,DX) + IBOTH=-1 +10 RC=(XC-XL)*DINCHX + SC=(YC-YBOT)*DINCHY + DR=DX*DINCHX +C *** HORIZONTAL BAR *** + CALL PLOT(RC-DR,SC,3) + CALL PLOT(RC+DR,SC,2) + R=RC-DR + CALL PLOT(R,SC-CAP,3) + CALL PLOT(R,SC+CAP,2) + R=RC+DR + CALL PLOT(R,SC-CAP,3) + CALL PLOT(R,SC+CAP,2) + IF(IBOTH.LT.0)RETURN + GO TO 20 + ENTRY YERR(XC,YC,DY) + RC=(XC-XL)*DINCHX + SC=(YC-YBOT)*DINCHY +20 DS=DY*DINCHY +C *** VERTICAL BARS *** + CALL PLOT(RC,SC-DS,3) + CALL PLOT(RC,SC+DS,2) + S=SC-DS + CALL PLOT(RC-CAP,S,3) + CALL PLOT(RC+CAP,S,2) + S=SC+DS + CALL PLOT(RC-CAP,S,3) + CALL PLOT(RC+CAP,S,2) + RETURN + END + SUBROUTINE AXES(YAX,XAX,ID) +C +C THIS ROUTINE DRAWS THE X-AXIS (Y=YAX) AND/OR THE Y-AXIS (X=XAX). +C IT WILL NOT DRAW EITHER AXIS OUTSIDE THE BOUNDARIES DEFINED BY +C 'FRAME'. AXIS IS DASHED FOR -VE ID. +C + DIMENSION XA(2),YA(2) + COMMON/SCALES/XL,XR,DINCHX,YBOT,YTOP,DINCHY + IBOTH=1 + GO TO 10 + ENTRY XAXIS(YAX,ID) + IBOTH=-1 +10 IF(SIGN(1.,(YBOT-YAX)).EQ.SIGN(1.,(YTOP-YAX)))GO TO 20 + XA(1)=XL + YA(1)=YAX + XA(2)=XR + YA(2)=YAX + IF(ID.GE.0)CALL MLINE(XA,YA,2,0,0,0.) + IF(ID.LT.0)CALL DLINE(XA,YA,2,0,0,0.) +20 IF(IBOTH.LT.0)RETURN + GO TO 25 + ENTRY YAXIS(XAX,ID) +25 IF(SIGN(1.,(XL-XAX)).EQ.SIGN(1.,(XR-XAX)))GO TO 30 + XA(1)=XAX + YA(1)=YBOT + XA(2)=XAX + YA(2)=YTOP + IF(ID.GE.0)CALL MLINE(XA,YA,2,0,0,0.) + IF(ID.LT.0)CALL DLINE(XA,YA,2,0,0,0.) +30 RETURN + END + SUBROUTINE SMLINE(X,Y,N,JTH,JSYMBOL,HTSYM,RES) +C***** DRAWS A CURVE THROUGH THE POINTS DEFINED BY +C***** THE ARRAYS X(I) AND Y(I), I=1,N, MUCH IN +C***** THE SAME FASHION AS THE MACPAK ROUTINE MLINE (OR DLINE +C***** IF THE ENTRY SDLINE IS USED). THE DIFFERENCE IS THAT, +C***** FOR N.GT.2, INSTEAD OF STRAIGHT LINES BETWEEN THE GIVEN POINTS, +C***** A PARABOLIC FIT (N.EQ.2) OR A CUBIC SPLINE FIT (N.GE.3) +C***** IS USED TO OBTAIN A FINER GRID OF POINTS SEPARATED BY A +C***** "RESOLUTION" SCALE RES (IN INCHES), AND STRAIGHT LINES ARE +C***** DRAWN BETWEEN THESE. FOR RES SUFFICIENTLY SMALL THE +C***** APPEARANCE OF THE CURVE IS MUCH SMOOTHER. (IN EACH +C***** INTERVAL THE VALUE OF RES IS ALTERED SLIGHTLY TO +C***** MAKE THE SUBDIVISIONS EQUAL.) THE DIMENSION +C***** OF THE ARRAYS YPP AND H MUST BE AT LEAST AS LARGE AS N. +C***** WRITTEN BY G. RYBICKI 28 JUNE 1983. + LOGICAL IDOT,IIN + DIMENSION X(N),Y(N) + DIMENSION YPP(1000),H(1000) + COMMON /SCALES/ XL,XR,DINCHX,YBOT,YTOP,DINCHY,RLEN,SLEN + COMMON /FR_BNDS/ MODE + COMMON /G_PLT/ IDOT,IIN +C***** SET IDOT ACCORDING TO ENTRY POINT, SMLINE OR SDLINE + IDOT=.FALSE. + GO TO 10 + ENTRY SDLINE(X,Y,N,JTH,JSYMBOL,HTSYM,RES) + IDOT=.TRUE. +10 CONTINUE +C***** IF REQUIRED, PLOT SYMBOLS USING MLINE + IF(JTH.NE.0)THEN + CALL MLINE(X,Y,N,-1,JSYMBOL,HTSYM) + IF(JTH.LT.0)RETURN + END IF + IIN=MODE.NE.0 + DELX=RES/DINCHX +C***** SET PEN AT FIRST POINT + CALL GPLOT(X(1),Y(1),+3) +C***** FOR N.EQ.1 PLOT SINGLE POINT + IF(N.EQ.1)THEN + CALL GPLOT(X(1),Y(1),+2) + RETURN + END IF +C***** FOR N.EQ.2 FIT WITH STRAIGHT LINE + IF(N.EQ.2)THEN + CALL GPLOT(X(2),Y(2),+2) + RETURN + END IF +C***** FOR N.EQ.3 FIT WITH PARABOLA + IF(N.EQ.3)THEN + M=(X(3)-X(1))/DELX+1. !AN ADJUSTED DELTA-X IS DEFINED TO GIVE + DX=(X(3)-X(1))/M !EQUAL SPACING ACROSS INTERVAL + XX=X(1) + DO J=1,M + XX=XX+DX + YY=POLY(3,XX,X,Y) + CALL GPLOT(XX,YY,+2) + END DO + RETURN + END IF +C***** FOR N.GE.4 FIT WITH CUBIC SPLINE + N3=N-3 +C***** THE FOLLOWING TWO CALLS SET THE SECOND DERIVATIVES OF +C***** THE SPLINE REPRESENTATION AT THE ENDPOINTS BY MEANS OF +C***** A CUBIC FIT OF THE FIRST (LAST) FOUR POINTS. + YPP(1)=DERTWO(X(1),X(1),Y(1)) + YPP(N)=DERTWO(X(N),X(N3),Y(N3)) +C***** THE OTHER SECOND DERIVATIVES OF THE SPLINE ARE NOW COMPUTED + CALL SPLINE(N,X,Y,YPP,H) + DO I=2,N + M=H(I)/DELX+1. ! AN ADJUSTED DELTA-X IS DEFINED TO GIVE + DX=H(I)/M ! EQUAL SPACING ACROSS EACH INTERVAL + XX=X(I-1) + XI=X(I) + HI=H(I) + HI2=HI*HI/6. + Y1=Y(I-1) + Y2=Y(I) + YPP1=YPP(I-1) + YPP2=YPP(I) + DO J=1,M + XX=XX+DX + A=(XI-XX)/HI + B=1.-A + C=A*(A**2-1.)*HI2 + D=B*(B**2-1.)*HI2 + YY=A*Y1+B*Y2+C*YPP1+D*YPP2 + CALL GPLOT(XX,YY,+2) + END DO + END DO + RETURN + END + FUNCTION DERTWO(XX,X,Y) +C***** FITS A CUBIC POLYNOMIAL TO THE DATA POINTS Y(I) AT ABSCISSAS +C***** X(I), I=1,4, AND RETURNS THE VALUE OF THE SECOND DERIVATIVE +C***** AT ABSCISSA XX. +C***** WRITTEN BY G. RYBICKI 24 JUNE 1983. + DIMENSION X(4),Y(4) + DERTWO=0. + DO I=1,4 + PROD=1. + SUM=0. + DO J=1,4 + IF(J.NE.I)THEN + PROD=PROD*(X(I)-X(J)) + SUM=SUM+(XX-X(J)) + END IF + END DO + DERTWO=DERTWO+2.*Y(I)*SUM/PROD + END DO + RETURN + END + SUBROUTINE SPLINE(N,X,Y,YPP,H) +C A CUBIC SPLINE APPROXIMATION TO THE FUNCTION Y(XX) IS DETERMINED +C BY THE VALUES Y(I) AT THE GRID POINTS X(I), I=1,N, AND THE +C VALUES OF THE SECOND DERIVATIVES AT THE ENDPOINTS YPP(1) AND YPP(N). +C (HERE YPP(I)=Y''(I).) THE SEQUENCE OF GRID POINTS +C X(I) MUST BE STRICTLY MONOTONIC. THIS ROUTINE RETURNS +C THE SECOND DERIVATIVES YPP(I) AT THE GRID POINTS I=2,N-1. +C IT ALSO RETURNS THE VALUES OF THE GRID DIFFERENCES +C H(I)=X(I)-X(I-1), I=2,N. FROM THE VALUES OF Y AND YPP AT +C EACH END OF AN INTERVAL (X(I-1),X(I)) THE CUBIC REPRESENTATION OF +C Y(XX) ON THE INTERVAL CAN BE DETERMINED BY MEANS OF THE FORMULA +C +C Y(XX)=A*Y(I-1)+B*Y(I)+C*YPP(I-1)+D*YPP(I) +C +C WHERE +C +C A=(X(I)-XX)/H(I) +C B=1.-A +C C=A*(A**2-1.)*H(I)**2/6. +C D=B*(B**2-1.)*H(I)**2/6. +C +C WRITTEN BY G. RYBICKI 27 JUNE 1983. + DIMENSION X(N),Y(N),YPP(N),H(N) + N1=N-1 + H(1)=0. + DO I=2,N1 + SIG=(X(I)-X(I-1))/(X(I+1)-X(I-1)) + P=SIG*H(I-1)+2. + H(I)=(SIG-1.)/P + YPP(I)=(6.*((Y(I+1)-Y(I))/(X(I+1)-X(I))-(Y(I)-Y(I-1)) + & /(X(I)-X(I-1)))/(X(I+1)-X(I-1))-SIG*YPP(I-1))/P + END DO + DO I=N1,2,-1 + YPP(I)=H(I)*YPP(I+1)+YPP(I) + END DO + DO I=2,N + H(I)=X(I)-X(I-1) + END DO + RETURN + END + FUNCTION POLY(N,XX,X,Y) +C***** FITS AN (N-1)TH ORDER POLYNOMIAL TO THE DATA POINTS Y(I) AT +C***** ABSCISSAS X(I), I=1,N, AND RETURNS THE VALUE OF THE +C***** POLYNOMIAL AT ABSCISSA XX. +C***** WRITTEN BY G. RYBICKI 24 JUNE 1983. + DIMENSION X(N),Y(N) + POLY=0. + DO I=1,N + PROD=1. + DO J=1,N + IF(J.NE.I)THEN + PROD=PROD*(XX-X(J))/(X(I)-X(J)) + END IF + END DO + POLY=POLY+Y(I)*PROD + END DO + RETURN + END + SUBROUTINE GPLOT(X,Y,IPEN) +C***** GENERAL PLOT ROUTINE THAT USES THE ROUTINES +C***** +C***** PLOT, PLOTIN, DPLOT, OR DPLOTIN +C***** +C***** ACCORDING TO THE MODE SWITCHES IIN AND IDOT, TRANSFERED +C***** THROUGH THE COMMON /G_PLT/. X AND Y ARE GIVEN IN +C***** USER UNITS, WITH SCALING INFORMATION TRANSFERED THROUGH +C***** THE COMMON /SCALES/. +C***** WRITTEN BY G. RYBICKI 29 JUNE 1983. + LOGICAL IDOT,IIN + COMMON /G_PLT/ IDOT,IIN + COMMON /SCALES/ XL,XR,DINCHX,YBOT,YTOP,DINCHY,RLEN,SLEN + R=(X-XL)*DINCHX + S=(Y-YBOT)*DINCHY + IF(IDOT)THEN !USE DOTTED-LINE PLOTTING ROUTINES + IF(IIN)THEN + CALL DPLOTIN(R,S,IPEN) ! HERE AND BELOW USE -IN + ELSE ! ROUTINES IF IIN IS .TRUE. + CALL DPLOT(R,S,IPEN) + END IF + ELSE !USE SOLID-LINE PLOTTING ROUTINES + IF(IIN)THEN + CALL PLOTIN(R,S,IPEN) + ELSE + CALL PLOT(R,S,IPEN) + END IF + END IF + RETURN + END + SUBROUTINE CONTOR (A,M,N,V,IV,XMIN,XMAX,YMIN,YMAX) + REAL V(IV),A(M,N) + MM=M-1 + NN=N-1 + DELTX=(XMAX-XMIN)/FLOAT(MM) + DELTY=(YMAX-YMIN)/FLOAT(NN) + Y=YMIN + DO 1 J=1,NN + X=XMIN + DO 2 I=1,MM + V1=A(I,J) + V2=A(I+1,J) + V3=A(I,J+1) + V4=A(I+1,J+1) + DO 3 K=1,IV + VAL=V(K) + IF (VAL.LT.-1.E10) GO TO 3 + ICASE=1 + IF (VAL.GT.V1) ICASE=ICASE+1 + IF (VAL.GT.V2) ICASE=ICASE+2 + IF (VAL.GT.V3) ICASE=ICASE+4 + IF (VAL.GT.V4) ICASE=9-ICASE + GO TO (3,4,5,6,7,8,9,10),ICASE +4 X0=X+DELTX*(VAL-V1)/(V2-V1) + Y0=Y + X1=X + Y1=Y+DELTY*(VAL-V1)/(V3-V1) + GO TO 11 +5 X0=X+DELTX*(VAL-V1)/(V2-V1) + Y0=Y + X1=X+DELTX + Y1=Y+DELTY*(VAL-V2)/(V4-V2) + GO TO 11 +6 X0=X + Y0=Y+DELTY*(VAL-V1)/(V3-V1) + X1=X+DELTX + Y1=Y+DELTY*(VAL-V2)/(V4-V2) + GO TO 11 +7 X0=X + Y0=Y+DELTY*(VAL-V1)/(V3-V1) + X1=X+DELTX*(VAL-V3)/(V4-V3) + Y1=Y+DELTY + GO TO 11 +8 X0=X+DELTX*(VAL-V1)/(V2-V1) + Y0=Y + X1=X+DELTX*(VAL-V3)/(V4-V3) + Y1=Y+DELTY + GO TO 11 +9 X0=X+DELTX*(VAL-V1)/(V2-V1) + Y0=Y + X1=X + Y1=Y+DELTY*(VAL-V1)/(V3-V1) + CALL JUMP TO (X0,Y0) + CALL LINE TO (X1,Y1) +10 X0=X+DELTX*(VAL-V3)/(V4-V3) + Y0=Y+DELTY + X1=X+DELTX + Y1=Y+DELTY*(VAL-V2)/(V4-V2) +11 CALL JUMP TO (X0,Y0) + CALL LINE TO (X1,Y1) +3 CONTINUE + X=X+DELTX +2 CONTINUE + Y=Y+DELTY +1 CONTINUE + RETURN + END + SUBROUTINE PLT3D(A,M,N,X,Y,L,ALT,AZ,XLEN,XOFF,YLEN,YOFF, + + ZFAC,ZOFF,IER) +C--- 3D PLOT ROUTINE, ADAPTED FROM SAS-3 ROUTINE OF SAME NAME +C +C A - REAL DATA ARRAY, REPRESENTS HEIGHT OF SURFACE AS +C FUNCTION OF LOCATION IN PLANE +C M,N - DIMENSIONS OF DATA ARRAY A +C X,Y - REAL WORK ARRAYS +C L - LENGTH OF WORK ARRAYS, .GE. 2*MIN(M,N) +C ALT,AZ - ALTITUDE,AZIMUTH VIEWING ANGLES IN DEGREES +C XLEN,YLEN - LENGTH OF UNPROJECTED X,Y AXES IN INCHES +C XOFF,YOFF - OFFSET OF ORIGIN IN INCHES +C ZFAC - SCALING OF Z-AXIS FROM DATA UNITS TO UNPROJECTED INCHES +C ZOFF - OFFSET OF Z-ORIGIN IN INCHES +C IER - RETURNS 0 FOR NO ERROR + COMMON /PLT3B/ A1,A2,A3,B1,B2,B3,B4 + DIMENSION A(M,N),X(L),Y(L) + LMAX=2*MIN0(M,N) + IF(L .LT. LMAX) GO TO 500 + TAZ=AZ*0.0174532925 + TALT=ALT*0.0174532925 + SAZ=SIN(TAZ) + CAZ=COS(TAZ) + SAL=SIN(TALT) + CAL=COS(TALT) + XSC=XLEN/FLOAT(N-1) + YSC=YLEN/FLOAT(M-1) + A1=CAZ*XSC + A2=-SAZ*YSC + A3=XOFF-0.5*(A1*FLOAT(N+1)+A2*FLOAT(M+1)) + B1=SAZ*SAL*XSC + B2=CAZ*SAL*YSC + B3=ZFAC*CAL + B4=B3*ZOFF+YOFF-0.5*(B1*FLOAT(N+1)+B2*FLOAT(M+1)) + IAZ=1 + IF(A1 .LE. 0.0) IAZ=IAZ+1 + IF(A2 .LE. 0.0) IAZ=IAZ+2 + GO TO (10,20,10,20),IAZ + 10 IFIRST=1 + ISTEP=1 + ILAST=M + GO TO 30 + 20 IFIRST=M + ISTEP=-1 + ILAST=1 + 30 GO TO (50,50,40,40),IAZ + 40 JFIRST=1 + JSTEP=1 + JLAST=N + GO TO 60 + 50 JFIRST=N + JSTEP=-1 + JLAST=1 + 60 GO TO (64,62,62,64),IAZ + 62 LLI=1 + GO TO 66 + 64 LLI=-1 + 66 IC=0 + IBEG=IFIRST+ISTEP + 70 LNTH=MIN0(2*IABS(IBEG-IFIRST)+1,LMAX) + IF(LLI .EQ. -1) GO TO 72 + LL=0 + GO TO 74 + 72 LL=LNTH+1 + 74 I=IBEG + J=JFIRST + XX=FLOAT(J) + YY=FLOAT(I) + LL=LL+LLI + X(LL)=A1*XX+A2*YY+A3 + Y(LL)=B1*XX+B2*YY+B3*(A(I,J)+ZOFF)+B4 + 80 I=I-ISTEP + YY=FLOAT(I) + LL=LL+LLI + X(LL)=A1*XX+A2*YY+A3 + Y(LL)=B1*XX+B2*YY+B3*(A(I,J)+ZOFF)+B4 + IF(J .EQ. JLAST) GO TO 85 + J=J+JSTEP + XX=FLOAT(J) + LL=LL+LLI + X(LL)=A1*XX+A2*YY+A3 + Y(LL)=B1*XX+B2*YY+B3*(A(I,J)+ZOFF)+B4 + IF(I .NE. IFIRST) GO TO 80 + 85 CALL NXTVU(IC,X,Y,LNTH,IER) + IF(IER .NE. 0) RETURN + IC=1 + IF(IBEG .EQ. ILAST) GO TO 90 + IBEG=IBEG+ISTEP + GO TO 70 + 90 JBEG=JFIRST + 100 LNTH=MIN0(2*IABS(JBEG-JLAST)+1,LMAX) + IF (LLI.EQ.-1) GO TO 102 + LL=0 + GO TO 104 + 102 LL=LNTH+1 + 104 I=ILAST + J=JBEG + XX=FLOAT(J) + YY=FLOAT(I) + LL=LL+LLI + X(LL)=A1*XX+A2*YY+A3 + Y(LL)=B1*XX+B2*YY+B3*(A(I,J)+ZOFF)+B4 + 110 J=J+JSTEP + XX=FLOAT(J) + LL=LL+LLI + X(LL)=A1*XX+A2*YY+A3 + Y(LL)=B1*XX+B2*YY+B3*(A(I,J)+ZOFF)+B4 + IF(I .EQ. IFIRST) GO TO 120 + I=I-ISTEP + YY=FLOAT(I) + LL=LL+LLI + X(LL)=A1*XX+A2*YY+A3 + Y(LL)=B1*XX+B2*YY+B3*(A(I,J)+ZOFF)+B4 + IF(J .NE. JLAST) GO TO 110 + 120 CALL NXTVU(1,X,Y,LNTH,IER) + IF(IER .NE. 0) RETURN + JBEG=JBEG+JSTEP + IF (JBEG.EQ.JLAST) RETURN + GO TO 100 + 500 IER=2 + RETURN + END + SUBROUTINE NXTVU(IC,X,Y,N,IER) +C PATCH 28MAY88 TO GET PROGRAM TO RUN DO NO KNOW CORRECT VALUE +C PARAMETER NN=2000 + PARAMETER NN=10000 + DIMENSION X(N),Y(N) + COMMON /NXTV1/XX(NN),YY(NN),KK,LL + IF (IC .NE. 0) GO TO 20 + IF(N .GT. NN) GO TO 500 + LL=NN-N+1 + I=LL + XX(I)=X(1) + YY(I)=Y(1) + CALL PLOT(XX(LL),YY(LL),3) + DO 10 J=2,N + I=I+1 + XX(I)=X(J) + YY(I)=Y(J) + CALL PLOT(XX(I),YY(I),2) + 10 CONTINUE + IER=0 + RETURN + 20 IF(IER .NE. 0) RETURN + II=1 + JJ=LL + KK=0 + YA0=Y(1) + YB0=YY(LL) + IF(X(1)-XX(LL)) 30,30,70 + 30 CALL PLOT(X(1),YA0,3) + 40 CALL OUTP(X(II),Y(II),IER) + IF (II.EQ.N) GO TO 360 + II=II+1 + YA0=Y(II) + IF(X(II) .GT. XX(LL)) GO TO 50 + CALL PLOT(X(II),YA0,2) + GO TO 40 + 50 II=II-1 + XL=X(II) + YL=Y(II) + YA0=ALIN(X(II),X(II+1),Y(II),Y(II+1),XX(LL)) + X0=XX(LL) + IF(YA0 .GT. YB0) GO TO 90 + CALL PLOT(X0,YA0,2) + CALL OUTP(X0,YA0) + CALL OUTP(X0,YB0) + GO TO 100 + 70 CALL OUTP(XX(JJ),YY(JJ),IER) + IF(JJ .EQ. NN) GO TO 380 + JJ=JJ+1 + YB0=YY(JJ) + IF(X(1)-XX(JJ)) 80,70,70 + 80 JJ=JJ-1 + YB0=ALIN(XX(JJ),XX(JJ+1),YY(JJ),YY(JJ+1),X(1)) + X0=X(1) + IF(YA0 .LE. YB0) GO TO 100 + CALL OUTP (X0,YB0,IER) + CALL OUTP(X0,YA0,IER) + XL=X0 + YL=YA0 + 90 IOV0=1 + GO TO 120 + 100 IOV0=0 + 120 IF(II .EQ. N) GO TO 300 + IF(JJ .EQ. NN) GO TO 310 + IF(X(II+1) .GT. XX(JJ+1)) GO TO 130 + ISW=+1 + II=II+1 + X1=X(II) + YA1=Y(II) + YB1=ALIN(XX(JJ),XX(JJ+1),YY(JJ),YY(JJ+1),X1) + GO TO 140 + 130 IF(XX(JJ+1) .GE. X(N)) GO TO 340 + ISW=-1 + JJ=JJ+1 + X1=XX(JJ) + YA1=ALIN(X(II),X(II+1),Y(II),Y(II+1),X1) + YB1=YY(JJ) + 140 IF(YA1 .LE. YB1) GO TO 160 + IOV1=1 + IF(IOV0 .EQ. 0) GO TO 170 + 150 IF(ISW .EQ. -1) GO TO 200 + CALL OUTP (X1,YA1,IER) + CALL PLOT(XL,YL,3) + CALL PLOT(X1,YA1,2) + XL=X1 + YL=YA1 + GO TO 200 + 160 IOV1=0 + IF(IOV0 .EQ. 0) GO TO 190 + 170 FRAC=(YB0-YA0)/(YA1-YB1+YB0-YA0) + XI=(X1-X0)*FRAC+X0 + YI=(YA1-YA0)*FRAC+YA0 + CALL OUTP(XI,YI,IER) + IF(IOV0 .EQ. 0) GO TO 180 + CALL PLOT(XL,YL,3) + CALL PLOT(XI,YI,2) + XL=XI + YL=YI + GO TO 190 + 180 XL=XI + YL=YI + GO TO 150 + 190 IF(ISW .EQ. +1) GO TO 200 + CALL OUTP(XX(JJ),YY(JJ),IER) + 200 IF(IER .NE. 0) RETURN + X0=X1 + YA0=YA1 + YB0=YB1 + IOV0=IOV1 + GO TO 120 + 310 X1=XX(NN) + YA1=ALIN(X(II),X(II+1),Y(II),Y(II+1),X1) + YB1=YY(NN) + IF(YA1 .GT. YB1) GO TO 320 + CALL OUTP(X1,YB1,IER) + CALL OUTP(X1,YA1,IER) + CALL PLOT(X1,YA1,3) + GO TO 330 + 380 II=1 + 320 CALL PLOT(X(II),Y(II),3) + 330 IF(II .EQ. N) GO TO 400 + II=II+1 + CALL OUTP(X(II),Y(II),IER) + CALL PLOT(X(II),Y(II),2) + GO TO 330 + 300 IF(JJ .EQ. NN) GO TO 400 + 340 X1=X(N) + YA1=Y(N) + YB1=ALIN(XX(JJ),XX(JJ+1),YY(JJ),YY(JJ+1),X1) + IF(YA1 .LE. YB1) GO TO 350 + CALL OUTP(X1,YA1,IER) + CALL OUTP(X1,YB1,IER) + CALL PLOT(XL,YL,3) + CALL PLOT (X1,YA1,2) +350 IF (JJ.EQ.NN) GO TO 400 + JJ=JJ+1 + CALL OUTP(XX(JJ),YY(JJ),IER) + GO TO 350 + 360 JJ=0 + GO TO 350 + 400 LL=NN-KK+1 + I=LL + DO 410 J=1,KK + XX(I)=XX(J) + YY(I)=YY(J) + I=I+1 + 410 CONTINUE + RETURN + 500 IER=1 + RETURN + END + SUBROUTINE OUTP(X,Y,IER) +C PATCH 28MAY88 TO GET PROGRAM TO RUN DO NO KNOW CORRECT VALUE +C PARAMETER NN=2000,EPS=.001 + PARAMETER NN=10000,EPS=.001 + COMMON /NXTV1/XX(NN),YY(NN),KK,LL + IF(KK .EQ. 0) GO TO 10 + IF(KK .EQ. LL-1) GO TO 20 + IF(ABS(XX(KK)-X)+ABS(YY(KK)-Y) .LT. EPS) RETURN +10 KK=KK+1 + XX(KK)=X + YY(KK)=Y + RETURN +20 IER=1 + RETURN + END + FUNCTION ALIN(X0,X1,Y0,Y1,X) + IF(X0 .EQ. X1) GO TO 10 + ALIN=(X-X0)*(Y1-Y0)/(X1-X0)+Y0 + RETURN +10 IF(Y1 .GT. Y0) GO TO 20 + ALIN=Y0 + RETURN +20 ALIN=Y1 + RETURN + END + SUBROUTINE DIGITAL (A,M,N,ISC,X0,X1,Y0,Y1,MSIZ,NSIZ) +C--- CREATES A DIGITAL MAP OF AN ARRAY +C--- CREATED 12.AUG.80 +C 27.MAR.81 FOR PAULPLOT +C--- PARAMETERS +C A - DATA ARRAY +C M,N - DIMENSIONS OF A TO PLOT +C ISC - ICODE FOR NOMBER +C X0,X1,Y0,Y1 - DELIMETERS OF PLOT +C MSIZ,NSIZ - DIMENSIONS OF ARRAY A + REAL*4 A(MSIZ,NSIZ) + COMMON/FONTC1/OFFX,OFFY,LASTINC,XP,YP,XMAX,XMIN,YMAX,YMIN + DX=(X1-X0)/M + DY=(Y1-Y0)/N + HT=DY/2. + DO 10 J=1,N + DO 10 I=1,M + IL=ALOG10(ABS(A(I,J)))+ISC+1 + IF (A(I,J).LT.0.) IL=IL+1 + H1=.5*DX/IL + HT=MIN(H1,HT) +10 CONTINUE + DO 20 J=1,N + DO 20 I=1,M + CALL NOMBER (0.,0.,-HT,A(I,J),0.,ISC) + CALL NOMBER (X0+(I-.5)*DX-.5*(XMAX-XMIN), + + Y0+(J-.5)*DY-.5*(YMAX-YMIN)+.05, + + HT,A(I,J),0.,ISC) +20 CONTINUE + RETURN + END + SUBROUTINE HEART (X0,Y0,R,T) + PI=3.1415926 + CT=COS(PI*T/180.) + ST=SIN(PI*T/180.) + AX=(180.+28.072487)*PI/180. +C--- RIGHT HUMP + CALL JUMP TO (X0,Y0) + DO 5 I=1,100 + A=I*.01*AX + X=.25*R*(1.-COS(A)) + Y=.25*R*SIN(A) + XX=X0+X*CT+Y*ST + YY=Y0+Y*CT-X*ST +5 CALL LINE TO (XX,YY) + CALL LINE TO (X0-R*ST,Y0-R*CT) +C--- LEFT HUMP + CALL JUMP TO (X0,Y0) + DO 10 I=1,100 + A=I*.01*AX + X=.25*R*(COS(A)-1.) + Y=.25*R*SIN(A) + XX=X0+X*CT+Y*ST + YY=Y0+Y*CT-X*ST +10 CALL LINE TO (XX,YY) + CALL LINE TO (X0-R*ST,Y0-R*CT) + RETURN + END + SUBROUTINE SPIRAL (R,A,T,I,X,Y) +C--- DRAWS LOGARYTHMIC SPIRALS +C R RADIUS OF SPIRAL IN INCHES +C A NUMBER OF SPIRALS PER INCH +C T ANGLE OF STARTING CURVE (DEGREES CC FROM X-AXIS) +C I DIRECTION OF SPIRAL (+1 = CCL, -1 = CL) +C X,Y LOCATION OF CENTER + PI=3.1415926 + C1=.02*PI + C2=2.*PI*A + C3=2.*PI*T/360. + CALL JUMP TO (X,Y) + DO 10 J=1,100*A*R + TH=C1*J + RA=TH/C2 + TH=C3+I*TH + X1=X+RA*COS(TH) + Y1=Y+RA*SIN(TH) +10 CALL LINE TO (X1,Y1) + RETURN + END + SUBROUTINE SQUARE (X1,X2,Y1,Y2) +C--- DRAWS BOXES + CALL JUMP TO (X1,Y1) + CALL LINE TO (X1,Y2) + CALL LINE TO (X2,Y2) + CALL LINE TO (X2,Y1) + CALL LINE TO (X1,Y1) + RETURN + END + SUBROUTINE SHADE (A,M,N,SC,XMIN,XMAX,YMIN,YMAX,MSIZ,NSIZ) +C--- CREATES COMPLETE CROSS-HATCH DENSITY MAP +C NOTE: NEGATIVE CROSS HATCHES ARE CIRCLES +C--- CREATED 11.AUG.80 +C--- A REAL ARRAY OF DATA +C M,N SUBSET OF A TO BE PLOTTED +C SC SCALE PARAMETER - +C SC < 0 THEN K = -SC*LN(A) +C SC = 0 THEN K = SC*A +C XMIN,XMAX,YMIN,YMAX DELINEATES PLOTTING AREA +C MSIZ,NSIZ DIMENSIONS OF A + REAL*4 A(MSIZ,NSIZ) + DA=0.3490658504 + DX=(XMAX-XMIN)/M + DY=(YMAX-YMIN)/N + IF (SC) 10,30,20 +10 SCX=ABS(SC) + Y=YMIN-DY/2. + YP=YMIN + YM=YMIN-DY + DO 19 J=1,N + Y=Y+DY + YP=YP+DY + YM=YM+DY + X=XMIN-DX/2. + XP=XMIN + XM=XMIN-DX + DO 19 I=1,M + X=X+DX + XP=XP+DX + XM=XM+DX + K=NINT(SCX*ALOG(A(I,J))) + IF (K) 15,19,11 +11 DDX=DX/(K+1.) + DDY=DY/(K+1.) + DO 14 KK=1,K + XX=XM+KK*DDX + YY=YM+KK*DDY + CALL JUMP TO (XM,YY) + CALL LINE TO (XP,YY) + CALL JUMP TO (XX,YM) +14 CALL LINE TO (XX,YP) + GO TO 19 +15 DDX=.5*DX/(-K+1.) + DDY=.5*DY/(-K+1.) + DO 17 KK=1,-K + CALL JUMP TO (X,Y+KK*DDY) + DO 17 KKK=1,18 + XX=X+KK*DDX*SIN(KKK*DA) + YY=Y+KK*DDY*COS(KKK*DA) +17 CALL LINE TO (XX,YY) +19 CONTINUE + GO TO 30 +20 Y=YMIN-DY/2. + YP=YMIN + YM=YMIN-DY + DO 29 J=1,N + Y=Y+DY + YP=YP+DY + YM=YM+DY + X=XMIN-DX/2. + XP=XMIN + XM=XMIN-DX + DO 29 I=1,M + X=X+DX + XP=XP+DX + XM=XM+DX + K=NINT(SC*A(I,J)) + IF (K) 25,29,21 +21 DDX=DX/(K+1.) + DDY=DY/(K+1.) + DO 24 KK=1,K + XX=XM+KK*DDX + YY=YM+KK*DDY + CALL JUMP TO (XM,YY) + CALL LINE TO (XP,YY) + CALL JUMP TO (XX,YM) +24 CALL LINE TO (XX,YP) + GO TO 29 +25 DDX=.5*DX/(-K+1.) + DDY=.5*DY/(-K+1.) + DO 27 KK=1,-K + CALL JUMP TO (X,Y+KK*DDY) + DO 27 KKK=1,18 + XX=X+KK*DDX*SIN(KKK*DA) + YY=Y+KK*DDY*COS(KKK*DA) +27 CALL LINE TO (XX,YY) +29 CONTINUE +30 RETURN + END + SUBROUTINE SOLID(X,Y) + DATA SCALE/.05/ + ENTRY SOLID SIZE OF (R) + SCALE=R + RETURN +C + ENTRY SOLID BOX AT (X,Y) + NSOLID=SCALE/.005+.5 + S=SCALE-.005*NSOLID + DO 1 ISCALE=1,NSOLID + S=S+.005 + CALL SIZE OF (S) + 1 CALL BOX AT (X,Y) + CALL DOT AT (X,Y) + RETURN +C + ENTRY SOLID DEL AT (X,Y) + NSOLID=SCALE/.005+.5 + S=SCALE-.005*NSOLID + DO 2 ISCALE=1,NSOLID + S=S+.005 + CALL SIZE OF (S) + 2 CALL DEL AT (X,Y) + CALL DOT AT (X,Y) + RETURN +C + ENTRY SOLID TRI AT (X,Y) + NSOLID=SCALE/.005+.5 + S=SCALE-.005*NSOLID + DO 3 ISCALE=1,NSOLID + S=S+.005 + CALL SIZE OF (S) + 3 CALL TRI AT (X,Y) + CALL DOT AT (X,Y) + RETURN +C + ENTRY SOLID CIRC AT (X,Y) + NSOLID=SCALE/.005+.5 + S=SCALE-.005*NSOLID + DO 4 ISCALE=1,NSOLID + S=S+.005 + CALL SIZE OF (S) + 4 CALL CIRC AT (X,Y) + CALL DOT AT (X,Y) + RETURN +C + ENTRY SOLID POINT AT (X,Y) + NSOLID=SCALE/.005+.5 + S=SCALE-.005*NSOLID + DO 5 ISCALE=1,NSOLID + S=S+.005 + CALL SIZE OF (S) + 5 CALL POINT AT (X,Y) + CALL DOT AT (X,Y) + RETURN +C + ENTRY SOLID DIME AT (X,Y) + NSOLID=SCALE/.005+.5 + S=SCALE-.005*NSOLID + DO 6 ISCALE=1,NSOLID + S=S+.005 + CALL SIZE OF (S) + 6 CALL DIME AT (X,Y) + CALL DOT AT (X,Y) + RETURN + END + SUBROUTINE DOTLINE(X1,Y1,X2,Y2,MASK) +C PRODUCES VECTORS FOR A DOTTED OR DASHED LINE USING A 16 BIT MASK. +C IN THE X OR Y DIRECTION THE PATTERN IS EXACT, BUT ON A DIAGONAL YOU +C MUST EXPERIMENT BECAUSE OF THE VARIABLE BIT SPACING. SEE WRITEUP +C FOR SUBROUTINE GRID IN THE VERSAPLOT MANUAL FOR SAMPLE MASKS. +C + DIAG=SQRT((X2-X1)**2+(Y2-Y1)**2) + DELTAX=.005*(X2-X1)/DIAG + DELTAY=.005*(Y2-Y1)/DIAG + CALL JUMP TO (X1,Y1) + X=X1-DELTAX + Y=Y1-DELTAY + IBITOLD=0 + DO 1 J=1,1000000 + DO 1 I=1,16 + X=X+DELTAX + Y=Y+DELTAY + IF(DELTAX.LT.0)X=AMAX1(X,X2) + IF(DELTAX.GT.0)X=AMIN1(X,X2) + IF(DELTAY.LT.0)Y=AMAX1(Y,Y2) + IF(DELTAY.GT.0)Y=AMIN1(Y,Y2) + IBIT=IBITS(MASK,16-I,1) + IF(IBIT.EQ.IBITOLD)GO TO 1 + IBITOLD=IBIT + IF(IBIT.EQ.1)CALL JUMP TO (X,Y) + IF(IBIT.EQ.0)CALL LINE TO (X,Y) + IF(X.EQ.X2.AND.Y.EQ.Y2)RETURN + 1 CONTINUE +c CALL FATAL + END +c SUBROUTINE TRANSLATE_LOGICAL(LOGICAL_NAME,EQUIVALENCE_NAME, +c 1 LEN_EQUIVALENCE_NAME_OUT) +C +c IMPLICIT INTEGER*4 (A-Z) +c INTEGER*2 SCR_LEN(2) +c CHARACTER*(*) LOGICAL_NAME,EQUIVALENCE_NAME +c CHARACTER*63 SCRATCH(2) +c PARAMETER (SS$_NORMAL ='0001'X) +c PARAMETER (SS$_NOTRAN ='0629'X) +C +c LEN_LOGICAL_NAME=LEN(LOGICAL_NAME) +c IF(LEN_LOGICAL_NAME.GT.63)CALL FATAL +c LEN_EQUIVALENCE_NAME_IN=LEN(EQUIVALENCE_NAME) +c IF(LEN_EQUIVALENCE_NAME_IN.LT.63)CALL FATAL +c SCRATCH(1)=LOGICAL_NAME +c SCR_LEN(1)=N_CHARS(LOGICAL_NAME) +c DO I=1,11 +c IN=MOD(I-1,2)+1 +c OUT=MOD(I,2)+1 +c SCRATCH(OUT)(1:1)=' ' +c K=SYS$TRNLOG(SCRATCH(IN)(1:SCR_LEN(IN)), +c 1 LEN_EQUIVALENCE_NAME_OUT,SCRATCH(OUT),,,) +c IF(K.EQ.SS$_NOTRAN.OR.SCRATCH(OUT)(1:2).EQ.'__')THEN +c EQUIVALENCE_NAME=SCRATCH(OUT)(1:LEN_EQUIVALENCE_NAME_OUT) +c RETURN +c ENDIF +c IF(K.NE.SS$_NORMAL)CALL FATAL +c KK=LEN_EQUIVALENCE_NAME_OUT +c IF(SCRATCH(OUT)(KK:KK).EQ.':'.AND. +c 1 SCRATCH(OUT)(KK-1:KK-1).NE.':')LEN_EQUIVALENCE_NAME_OUT=KK-1 +c SCR_LEN(OUT)=LEN_EQUIVALENCE_NAME_OUT +c ENDDO +c CALL FATAL +c END ! TRANSLATE_LOGICAL +c CHARACTER*9 FUNCTION UNIQUE_FILE_NAME() +c IMPLICIT INTEGER*4 (A-Z) +c CHARACTER FILE_NAME*9 +c INTEGER*4 SYS_TIME_LONG(2) +c REAL*8 CODE_QUAD,SCRATCH_1,SCRATCH_2,SYS_TIME_LOW,SYS_TIME_HIGH +c PARAMETER (SS$_NORMAL ='0001'X) +C +c IF(SYS$GETTIM(SYS_TIME_LONG).NE.SS$_NORMAL)CALL FATAL +c SYS_TIME_LOW =DBLE(ISHFT(SYS_TIME_LONG(1),-16).AND.'0000FFFF'X) +c SYS_TIME_HIGH=DBLE( SYS_TIME_LONG(2) .AND.'003FFFFF'X) +c CODE_QUAD=DBLE(GET_PID().AND.'FF'X) +c CODE_QUAD=CODE_QUAD+2.D0**08*SYS_TIME_LOW +c CODE_QUAD=CODE_QUAD+2.D0**24*SYS_TIME_HIGH +c SCRATCH_1=CODE_QUAD +c DO I=9,1,-1 +c SCRATCH_2=DINT(SCRATCH_1/36.D0) +c J=INT(SCRATCH_1-36.D0*SCRATCH_2) +c IF(J.LT.0.OR.J.GT.35)CALL FATAL +c IF(J.LT.10)THEN +c UNIQUE_FILE_NAME(I:I)=CHAR(ICHAR('0')+J) +c ELSE +c UNIQUE_FILE_NAME(I:I)=CHAR(ICHAR('A')+J-10) +c ENDIF +c SCRATCH_1=SCRATCH_2 +c ENDDO +c CALL HIBER(0.01) ! assure uniqueness if called again immediately +c END ! UNIQUE_FILE_NAME +c FUNCTION N_CHARS(STRING) +c CHARACTER*(*) STRING +c DO 1 N_CHARS=LEN(STRING),1,-1 +c ICH=ICHAR(STRING(N_CHARS:N_CHARS)) +c IF(ICH.NE.ICHAR(' ').AND.ICH.NE.0)RETURN +c 1 CONTINUE +c N_CHARS=0 +c RETURN +c END ! N_CHARS +c SUBROUTINE FATAL +c PARAMETER (SS$_ABORT='002C'X) +c ENTRY ABORT +c CALL LIB$STOP(%VAL(SS$_ABORT)) +c END ! FATAL +c INTEGER*4 FUNCTION GET_PID() +c IMPLICIT INTEGER*4 (A-Z) +c INTEGER*4 LIST_LONG(4) +c INTEGER*2 LIST_WORD(8) +c EQUIVALENCE (LIST_LONG,LIST_WORD) +c LIST_WORD(1)=4 +c LIST_WORD(2)='319'X +c LIST_LONG(2)=%LOC(GET_PID) +c LIST_LONG(3)=0 +c LIST_LONG(4)=0 +c K=SYS$GETJPI(,,,LIST_LONG,,,) +c RETURN +c END ! GET_PID +c SUBROUTINE HIBER(SECONDS) +c REAL*8 TIMADR +c CHARACTER*16 TIMBUF +c ICSECS=100.*SECONDS+0.5 +c IF(ICSECS.LT.1)RETURN +c IDAYS=ICSECS/8640000 +c ICSECS=ICSECS-8640000*IDAYS +c IHOURS=ICSECS/360000 +c ICSECS=ICSECS-360000*IHOURS +c IMINS=ICSECS/6000 +c ICSECS=ICSECS-6000*IMINS +c ISECS=ICSECS/100 +c ICSECS=ICSECS-100*ISECS +c WRITE(TIMBUF,1)IDAYS,IHOURS,IMINS,ISECS,ICSECS +c 1 FORMAT(I4,I3.2,2(':',I2.2),'.',I2.2) +c CALL SYS$BINTIM(TIMBUF,TIMADR) +c CALL SYS$SCHDWK(,,TIMADR,) +c CALL SYS$HIBER +c RETURN +c END ! HIBER + SUBROUTINE STRINGX(STRING,XX,YY) +C CALLS TO STRINGY PRINT IN THE Y DIRECTION +C CALLS TO STRINGXi OR STRINGYi PRODUCE STRINGS THAT ARE i TIMES LARGER +C THAN THE MINIMUM +C CALLS TO STRINGXN OR STRINGYN PRODUCE STRINGS THAT ARE NSIZE TIMES +C LARGER THAN THE MINIMUM WHERE NSIZE IS PASSED THROUGH COMMON /STRINGXY/ +C THE CAPITALS ARE 9 X 17 BITS*N. THE CHARACTER SPACING VARIES WITH +C NSIZE AND IS GIVEN IN ARRAY NWIDTHN. +C +C AN @ IN THE STRING SWITCHES THE NEXT CHARACTER TO THE ALTERNATE FONT +C AN ^ SUPERSCRIPTS THE NEXT CHARACTER +C AN \ SUBSCRIPTS THE NEXT CHARACTER +C SUBSCRIPTS AND SUPERSCRIPTS ARE HALF SIZE OR THE NEXT MULTIPLE ABOVE +C @@ IS @ @^ IS ^ @\ IS \ @` IS ' +C ^@ IS SUPER ALTERNATE +C \@ IS SUB ALTERNATE +C +C ORIGIN IS Ff +C A B C D E F G H I J K L M N O P Q R +C z . . . . . . . . . . . . . . . . . . z +C y . . . . . . . . . . . . . . . . . . y +C x . . . . . . . . . . . . . . . . . . x +C w . . . . . . . . . . . . . . . . . . w +C v . . . . . 0 . . . . . . . 0 . . . . v +C u . . . . . 0 . . . . . . . 0 . . . . u +C t . . . . . . 0 . . . . . 0 . . . . . t +C s . . . . . . 0 . . . . . 0 . . . . . s +C r . . . . . . . 0 . . . 0 . . . . . . r +C q . . . . . . . 0 . . . 0 . . . . . . q +C p . . . . . . . . 0 . 0 . . . . . . . p +C o . . . . . . . . 0 . 0 . . . . . . . o +C n . . . . . . . . . 0 . . . . . . . . n +C m . . . . . . . . 0 . 0 . . . . . . . m +C l . . . . . . . . 0 . 0 . . . . . . . l +C k . . . . . . . 0 . . . 0 . . . . . . k +C j . . . . . . . 0 . . . 0 . . . . . . j +C i . . . . . . 0 . . . . . 0 . . . . . i +C h . . . . . . 0 . . . . . 0 . . . . . h +C g . . . . . 0 . . . . . . . 0 . . . . g +C f . . . . . 0 . . . . . . . 0 . . . . f +C e . . . . . . . . . . . . . . . . . . e +C d . . . . . . . . . . . . . . . . . . d +C c . . . . . . . . . . . . . . . . . . c +C b . . . . . . . . . . . . . . . . . . b +C a . . . . . . . . . . . . . . . . . . a +C A B C D E F G H I J K L M N O P Q R +C +C BYTE STRING(1) + CHARACTER*(*) STRING +C XCORNER AND YCORNER RETURN AS THE POSITION OF THE END OF THE STRING +C OR THE POSITION WHERE ANOTHER STRING WOULD BE ADDED TO CONTINUE + COMMON /STRINGXY/XCORNER,YCORNER,NSIZE + DIMENSION NSUBN(20),NWIDTHN(20) + CHARACTER*1 XVECT,STRINGI + CHARACTER*60 FONT(95),AFONT(95),FONTS(95,2) + EQUIVALENCE (FONTS(1,1),FONT(1)),(FONTS(1,2),AFONT(1)) + DATA NSUBN/1,1,2,2,2,3,3,4,4,5,5,6,6,7,7,8,8,9,9,10/ + DATA NWIDTHN/15,14,13,13,12,12,11,11,11,11,11,11,11, + 1 11,11,11,11,11,11,11/ +C SET THIS FOR YOUR OUTPUT DEVICE AND PLOTTING SOFTWARE + DATA BITS_PER_INCH /200./ + DATA FONT/ + 2' blank', + 3'KgJhIgJfKg++JhJh++JjKvIvJj !', + 4'HsHvIvHs++KsKvLvKs "', + 5'GfIv++KfMv++FlNl++FpNp #', + 6'FjGiIhKhMiNjNlMmGoFpFrGsItKtMsNr++JfJv $', + 7'FfNvHtHvFvFtHt++NfNhLhLfNf %', + 8'NfHrHtIvKvLtLsKqGmFkFiGgHfIfNk &', + 9'JsJvKvJs quote', + A'LfIhHkHqItLv (', + 1'HfKhLkLqKtHv )', + 2'FkNq++FqNk++JiJs *', + 3'DnPn++JhJt +', + 4'IdJeJhIhJf ,', + 5'EnOn -', + 6'JfJgIgIfJf .', + 7'FfNv /', + 8'FkFqGtHuIvKvLuMtNqNkMhLgKfIfHgGhFk 0', + 9'GfMf++JfJvHt 1', + A'FtGuIvKvMuNsNrMpGjFhFfNf 2', + 1'FhGgIfKfMgNiNlMnLoMpNrNsMuKvIvGuFt++HoLo 3', + 2'LfLvFkNk 4', + 3'FhGgIfKfMgNiNlMnKoFoFvNv 5', + 4'FmGnIoKoMnNlNiMgKfIfGgFiFsGuIvKvMuNt 6', + 5'FtFvNvJf 7', + 6'FiFlGnHoLoMpNrNsMuKvIvGuFsFrGpHo++LoMnNlNiMgKfIfGgFi 8', + 7'FhGgIfKfMgNiNsMuKvIvGuFsFpGnImKmMnNo 9', + 8'JiJjIjIiJi++JoJpIpIoJo :', + 9'IdJeJgIgJf++JmJnInImJm ;', + A'NjFnNr <', + 1'FlNl++FpNp =', + 2'FjNnFr >', + 3'JfKgJhIgJf++JgJg++JjJmLnMoNqNsMuKvIvGuFt ?', + 4'NfIfGgFiFrGtIvKvMuNsNjMiLjKiIiHjHoIqKrLrLj @', + 5'FfFpGsHuIvKvLuMsNpNf++NmFm A', + 6'FfFvKvMuNsNrMpLoMnNlNiMgKfFf++FoLo B', + 7'NhMgKfIfGgFiFsGuIvKvMuNt C', + 8'FfFvKvMuNsNiMgKfFf D', + 9'NfFfFvNv++FoLo E', + A'FfFvNv++FoLo F', + 1'NtMuKvIvGuFsFiGgIfKfMgNiNlKl++NlNf G', + 2'FfFv++NfNv++FoNo H', + 3'JfJv++FfNf++FvNv I', + 4'FhGgIfKfMgNiNv J', + 5'FfFv++FlNv++IoNf K', + 6'FvFfNf L', + 7'EfFvJnNvOf M', + 8'FfFvNfNv N', + 9'FiFsGuIvKvMuNsNiMgKfIfGgFi O', + A'FfFvKvMuNsNrMpKoFo P', + 1'FiFsGuIvKvMuNsNjMhLgJfIfGgFi++JjNf Q', + 2'FfFvKvMuNsNrMpKoFo++JoNf R', + 3'FhGgIfKfMgNiNlMnKoIoGpFrFsGuIvKvMuNt S', + 4'JfJv++EvOv T', + 5'FvFiGgIfKfMgNiNv U', + 6'FvJfNv V', + 7'EvFfJnNfOv W', + 8'FfNv++FvNf X', + 9'FvJoJf++JoNv Y', + A'FvNvFfNf Z', + 1'LfHfHvLv [', + 2'FvNf \', + 3'HfLfLvHv ]', + 4'FjJrNj ^', + 5'FdRd _', + 6'JsIvHvJs `', + 7'NpNhMgKfIfGgFhFkHnNoNpLsHr++NhOfPf a', + 8'FfFv++FmGnIoKoMnNlNiMgKfIfGgFh b', + 9'NhMgKfIfGgFiFlGnIoKoMnNm c', + A'NfNv++NmMnKoIoGnFlFiGgIfKfMgNh d', + 1'NhMgKfIfGgFiFlGnIoKoMnNmNkFj e', + 2'HfHsIuKvMuNt++FoKo f', + 3'FcGbIaKaMbNdNlMnKoIoGnFlFiGgIfKfMgNh g', + 4'FfFv++FmGnIoKoMnNlNf h', + 5'JfJoIo++JsJtItIsJs i', + 6'FcGbIaKbLdLoKo++LsKsKtLtLs j', + 7'FfFv++FjNo++JlNf k', + 8'JfJv l', + 9'FfFo++FmHoIoJmJf++JmLoMoNmNf m', + A'FfFo++FlGnIoKoMnNlNf n', + 1'FiFlGnIoKoMnNlNiMgKfIfGgFi o', + 2'FaFo++FmGnIoKoMnNlNiMgKfIfGgFi p', + 3'NaNo++NmMnKoIoGnFlFiGgIfKfMgNh q', + 4'FfFo++FmGnIoKoMnNm r', + 5'FhGgIfKfMgNhNiMjKkHkFlFmGnIoKoMnNm s', + 6'JfJt++FoNo t', + 7'FoFiGgIfKfMgNiNo u', + 8'FoJfNo v', + 9'FoFfJjNfNo w', + A'FfNo++FoNf x', + 1'FoFiGgIfKfMgNh++NoNdMbKaIaGbFc y', + 2'FoNoFfNf z', + 3'LfJgIiIkJmHnJoIqIsJuLv {', + 4'JfJz |', + 5'HfJgKiKkJmLnJoKqKsJuHv }', + 6'FtGvIvKrMrNt ~'/ +C +C ALTERNATE FONT + DATA AFONT/ + 2' 1 bit kern, move backward 1 bit @ ', + 3'JrJj++HlJjLl down arrow @!', + 4'IsHvIvIs++LsKvLvLs left double quote @"', + 5'FfNfNnFnFf box @#', + 6'JfJv++HjLj++HrLr double dagger @$', + 7'FfNvHtHvFvFtHt++NfNhLhLfNf++JhJfHfHhJh per mil @%', + 8'HgIfKfLgLiHmHoJq++JkLmLoHsHuIvKvLu article @&', + 9'JsJvKvJs quote', + 1'FiFkGmInKnMmNkNiMgKfIfGgFi++GgMm++GmMg circleX @(', + 1'FiFkGmInKnMmNkNiMgKfIfGgFi++JfJn++FjNj circle+ @)', + 2'FrNj++FjNr times @*', + 3'FnNn++JjJr++FjNj plusminus @+', + 4'GnHpJqLpMnLlJkHlGn hollow bullit @,', + 5'FnNn++FrNr++JjJr minusplus @-', + 6'FtFuGvHvIuItHsGsFt degree @.', + 7'FnNn++JpIqJrKqJp++JjIkJlKkJj divide @/', + 8'FhFjGlIlJjJhIfGfFh tiny @0', + 9'GkHlHf++GfIf tiny @1', + A'FkGlIlJkJjFfJf tiny @2', + 1'FfIfJgJhIiJjJkIlFl++GiIi tiny @3', + 2'IfIlFhJh tiny @4', + 3'FfIfJgJhIiFiFlJl tiny @5', + 4'FhGiIiJhJgIfGfFgFkGlIlJk tiny @6', + 5'FkFlJlHf tiny @7', + 6'FgFhGiFjFkGlIlJkJjIiJhJgIfGfFg++GiIi tiny @8', + 7'FgGfIfJgJkIlGlFkFjGiIiJj tiny @9', + 8'FpNpKs++NlFlIi double arrow @:', + 9'JjJr++HpJrLp up arrow @;', + A'FnNn++HlFnHp left arrow @<', + 1'FjNj++FnNn++FrNr identity @=', + 2'FnNn++LlNnLp right arrow @>', + 3'FlNl++FpNp++HhLt not = @?', + 4'NfIfGgFiFrGtIvKvMuNsNjMiLjKiIiHjHoIqKrLrLj @ @@', + 5'FfFpGsHuIvJuKvLuMsNpNf++NmFm++KvLwJyHwIv Angstrom @A', + 6'EmEoGqHqLkMkOmOoMqLqHkGkEm infinity @B', + 7'NkMkJpIqHqFoFmHkIkJlMqNq proportionality @C', + 8'FfJvNfFf Delta @D', + 9'MnLoJoHnGmGlJkHjGiGhHgJfLfMg++JkKk script epsilon @E', + A'FlFpGrIsKsMrNpNlMjKiIiGjFl++JfJv++HfLf++HvLv Phi @F', + 1'FfFvNv Gamma @G', + 2'HfHv++FrNu++HmJoKoMnNlNf hbar @H', + 3'HfHv++LfLv double vertical @I', + 4'FvNvJfFv del @J', + 5'FjNr++FvIvJuJtIsJrJqIpFp++GsIs++NhIhMlMf 3/4 @K', + 6'FfJvNf Lambda @L', + 7'FjNr++GuHvHp++GpIp++JkKlMlNkNjJfNf 1/2 @M', + 8'FjNr++GuHvHp++GpIp++NhIhMlMf 1/4 @N', + 9'FiFkGmInKnMmNkNiMgKfIfGgFi++Jj++JiKjJkIjJi circle-dot @O', + A'GfGv++MfMv++EvOv Pi @P', + 1'FiFsGuIvKvMuNsNiMgKfIfGgFi++HlHp++HnLn++LlLp Theta @Q', + 2'FmGmJfNu radical @R', + 3'NfFfKoFvNv Sigma @S', + 4'JfJo++FfNf perpendicular @T', + 5'FrGvHvIuJpKuLvMvNr++JfJp++HfLf Upsilon @U', + 6'JfJr++HoLo dagger @V', + 7'FfHfHgFlFsGuIvKvMuNsNlLgLfNf Omega @W', + 8'FfNf++HoLo++FvNv Xi @X', + 9'FsGsGmHkIjKjLkMmMsNs++JfJv++HfLf++HvLv Psi @Y', + A'FgGfIgKuMvNvNu integral @Z', + 1'FjNj++NnFnNr less than or equal @[', + 2'FvNf \ @\', + 3'FjNj++FnNnFr greater than or equal @]', + 4'FjJrNj ^ @^', + 5'FfRf y line @_', + 6'JsJvKvJs single right quote @`', + 7'NfLgKnJoIoGnFkFiGgIfJfLhNk alpha @a', + 8'FdIqJsLsNqNpMnLmNjNiMgKfJfHgGh++ImLm beta @b', + 9'FdHgMlNo++FoGoHnLeMdNd chi @c', + A'LoInGmFkFiGgIfKfMgNiNlMnLoJpIqIrJsLt delta @d', + 1'MoKoHnGlGiHgKfMf++GkLk epsilon @e', + 2'FiFlGnIoKoMnNlNiMgKfIfGgFi++GcMr phi @f', + 3'FmHoIoJnKlJdJfNo gamma @g', + 4'FfFjGlInKoLoMnMdNc++FoFj eta @h', + 5'JoJgKfLfLg iota @i', + 6'NmMnKoIoGnFlFiGgIfKfMgNiNsMuKvIvGuFs script delta @j', + 7'FfHo++GjNo++HkLfMfNg kappa @k', + 8'FfJp++FvHvNf lambda @l', + 9'FoFhGgIfJfLgMiMo++FhFc++NfMgMi mu @m', + A'FoGoGfIgKhMjNmNo nu @n', + 9'FiFkGmInKnMmNkNiMgKfIfGgFi circle @o', + 2'FnGoNo++GfHo++LoMf pi @p', + 3'FkFqGtHuJvLuMtNqNkMhLgJfHgGhFk++FnNn theta @q', + 4'GhIfLfMgNiNlMnLoKoInHlFdFb rho @r', + 5'LoMmMiLgJfIfGgFiFkGmHnJoOo sigma @s', + 6'FmHoNo++JfKo tau @t', + 7'FnGoHoInIlHhHgIfKfMgNjNnMo upsilon @u', + 8'HfJjLqLsKuJvIuHsHqJjKgLfMfNg script lc L @v', + 9'HoGnFlFiGgHfIfJhKfLfMgNiNlMnLo++JhJj omega @w', + A'KtJsKrIqHoImGkFiFgHfLeLdKc++NrKr++MmIm xi @x', + 1'FnGnHmHhJgLhNo++IcLs psi @y', + 2'IsJrLr++NrLrFkFiHgMeMdKb zeta @z', + 3'LfHnLv left angle bracket @{', + 4'FfFz x line @|', + 5'HfLnHv right angle bracket @}', + 6'FnGpIpKlMlNn twiddle @~'/ + ENTRY STRINGX1(STRING,XX,YY) + NSIZE=1 + GO TO 2 + ENTRY STRINGX2(STRING,XX,YY) + NSIZE=2 + GO TO 2 + ENTRY STRINGX3(STRING,XX,YY) + NSIZE=3 + GO TO 2 + ENTRY STRINGX4(STRING,XX,YY) + NSIZE=4 + GO TO 2 + ENTRY STRINGX5(STRING,XX,YY) + NSIZE=5 + GO TO 2 + ENTRY STRINGX6(STRING,XX,YY) + NSIZE=6 + GO TO 2 + ENTRY STRINGX7(STRING,XX,YY) + NSIZE=7 + GO TO 2 + ENTRY STRINGX8(STRING,XX,YY) + NSIZE=8 + GO TO 2 + ENTRY STRINGX9(STRING,XX,YY) + NSIZE=9 + NSUB=4 + GO TO 2 + ENTRY STRINGX10(STRING,XX,YY) + NSIZE=10 + GO TO 2 + ENTRY STRINGXN(STRING,XX,YY) +C NSIZE COMES THROUGH COMMON STRINGXY + GO TO 2 + ENTRY STRINGY(STRING,XX,YY) + ENTRY STRINGY1(STRING,XX,YY) + NSIZE=1 + GO TO 12 + ENTRY STRINGY2(STRING,XX,YY) + NSIZE=2 + GO TO 12 + ENTRY STRINGY3(STRING,XX,YY) + NSIZE=3 + GO TO 12 + ENTRY STRINGY4(STRING,XX,YY) + NSIZE=4 + GO TO 12 + ENTRY STRINGY5(STRING,XX,YY) + NSIZE=5 + GO TO 12 + ENTRY STRINGY6(STRING,XX,YY) + NSIZE=6 + GO TO 12 + ENTRY STRINGY7(STRING,XX,YY) + NSIZE=7 + GO TO 12 + ENTRY STRINGY8(STRING,XX,YY) + NSIZE=8 + GO TO 12 + ENTRY STRINGY9(STRING,XX,YY) + NSIZE=9 + GO TO 12 + ENTRY STRINGY10(STRING,XX,YY) + NSIZE=10 + GO TO 12 + ENTRY STRINGYN(STRING,XX,YY) +C NSIZE COMES THROUGH COMMON STRINGXY + GO TO 12 + 12 ROTXX=0. + ROTXY=-1. + ROTYX=1. + ROTYY=0. + IFY=1 + GO TO 100 + 2 ROTXX=1. + ROTXY=0. + ROTYX=0. + ROTYY=1. + IFY=0 + 100 NBYTES=LEN(STRING) + IF(NBYTES.EQ.0)RETURN + XCORNER=XX + YCORNER=YY + SIZE=FLOAT(NSIZE)/BITS_PER_INCH + NSUB=NSUBN(NSIZE) + WIDTH=NWIDTHN(NSIZE) + IFONT=1 + IFSUPER=0 + IFSUB=0 + DO 5 I=1,NBYTES + STRINGI=STRING(I:I) + IF(IFONT.EQ.2)GO TO 200 + IF(STRINGI.EQ.'@')THEN + IFONT=2 + GO TO 5 + ENDIF + IF(STRINGI.EQ.'^')THEN + IFSUPER=1 + GO TO 5 + ENDIF + IF(STRINGI.EQ.'\')THEN + IFSUB=1 + GO TO 5 + ENDIF + 200 N=ICHAR(STRINGI)-31 + IF(N.GT.95.OR.N.LT.1)N=1 + SIZE=FLOAT(NSIZE)/BITS_PER_INCH + YC=YCORNER + XC=XCORNER + IF(IFSUPER.EQ.1)THEN + SIZE=FLOAT(NSUB)/BITS_PER_INCH + WIDTH=NWIDTHN(NSUB) + DEL=FLOAT(20*NSIZE-16*NSUB)/BITS_PER_INCH + IF(IFY.EQ.0)YC=YCORNER+DEL + IF(IFY.EQ.1)XC=XCORNER-DEL + ENDIF + IF(IFSUB.EQ.1)THEN + DEL=4.*SIZE + IF(IFY.EQ.0)YC=YCORNER-DEL + IF(IFY.EQ.1)XC=XCORNER+DEL + SIZE=FLOAT(NSUB)/BITS_PER_INCH + WIDTH=NWIDTHN(NSUB) + ENDIF + IF(IFONT.EQ.2.AND.STRINGI.EQ.' ')WIDTH=-1. + IFJUMP=1 + DO 3 IVECT=1,30 + XVECT=FONTS(N,IFONT)(IVECT*2-1:IVECT*2-1) + IF(XVECT.EQ.' ')GO TO 4 + IF(XVECT.EQ.'+')THEN + IFJUMP=1 + GO TO 3 + ENDIF + IX=ICHAR(XVECT)-70 + IY=ICHAR(FONTS(N,IFONT)(IVECT*2:IVECT*2))-102 + X=XC+(ROTXX*FLOAT(IX)+ROTXY*FLOAT(IY))*SIZE + Y=YC+(ROTYX*FLOAT(IX)+ROTYY*FLOAT(IY))*SIZE + IF(IFJUMP.EQ.1)CALL JUMP TO (X,Y) + IFJUMP=0 + CALL LINE TO (X,Y) + 3 CONTINUE + 4 XCORNER=XCORNER+WIDTH*SIZE*ROTXX + YCORNER=YCORNER+WIDTH*SIZE*ROTYX + WIDTH=NWIDTHN(NSIZE) + IFONT=1 + IFSUPER=0 + IFSUB=0 + 5 CONTINUE + RETURN +C + END + SUBROUTINE FILLUP + ENTRY LINE WITH UP FILL TO (X,Y) + CALL LINE TO (X,Y) + CALL LINE TO (X,TOP) + CALL JUMP TO (X,Y) + RETURN + ENTRY LINE WITH DOWN FILL TO (X,Y) + CALL LINE TO (X,Y) + CALL LINE TO (X,0.) + CALL JUMP TO (X,Y) + RETURN + ENTRY LINE WITH LEFT FILL TO (X,Y) + CALL LINE TO (X,Y) + CALL LINE TO (0.,Y) + CALL JUMP TO (X,Y) + RETURN + ENTRY LINE WITH RIGHT FILL TO (X,Y) + CALL LINE TO (X,Y) + CALL LINE TO (END,Y) + CALL JUMP TO (X,Y) + RETURN + END diff --git a/synthe/plotsynimcol.for b/synthe/plotsynimcol.for new file mode 100644 index 0000000..771d38c --- /dev/null +++ b/synthe/plotsynimcol.for @@ -0,0 +1,3634 @@ + PROGRAM PLOTSYN +c revised 23jan93 +C TAPE7 IS CALCULATED SPECTRUM +C TAPE55 READ BY OBSERV +C TAPE56 READ BY OBSERV1 +C TAPE57 READ BY OBSERV2 +C TAPE58 READ BY OBSENGV +C TAPE59 READ BY OBSHALL +C TAPE60 READ BY OBSKPNO +C TAPE61 READ BY OBSKPK +C TAPE62 READ BY OBSSACP +C TAPE63 READ BY OBSHAWA +C TAPE64 READ BY OBSNRL +C TAPE65 READ BY OBSPROC +C TAPE66 READ BY OBSSIR +C TAPE67 READ BY OBSARC +C TAPE68 READ BY OBSSUNF +C TAPE69 READ BY OBSSOIR +C TAPE71 READ BY OBSFTS2 +C TAPE72 READ BY OBSFTS2 +C TAPE73 READ BY OBSFTS +C TAPE74 READ BY OBSJUNG +C TAPE76 READ BY LABEL5 AFCRL LINE LIST +C TAPE77 READ BY LABEL9 PIERCE AND BRECKENRIDGE +C TAPE93 IS TEMPORARY STORAGE FOR LABEL DATA +C +C IFLABL=N LINES ARE LABELLED. A NUMBER N ENDING IN THE DIGIT I +C PRODUCES A CALL TO SUBROUTINE LABELI +C =1 NORMAL LABELS FOR CALCULATED SPECTRUM, 25/INCH, TWO ROWS +C =11 NORMAL LABELS FOR CALCULATED SPECTRUM, 12.5/INCH, ONE ROW +C =21 +C =31 NORMAL LABELS FOR CALCULATED SPECTRUM, 12.5/INCH, +C LOWER ROW ATOMS, UPPER ROW MOLECULES +C =2 +C =3 +C =4 +C =5 LABEL AFCRL TERRESTRIAL LINES 25/INCH, TWO ROWS +C =15 LABEL AFCRL TERRESTRIAL LINES 12.5/INCH, ONE ROW +C =6 +C =7 NORMAL LABELS FOR CALCULATED OPACITY SPECTRUM, 25/INCH +C =8 +C =9 LABEL PIERCE AND BRECKENRIDGE LINES +C IFLABL=0 NO LABELS +C IFABSO=0 THE PLOT IS IN RESIDUAL INTENSITY OR FLUX +C IFABSO=1 THE PLOT IS IN ABSOLUTE UNITS +C IFCONT=1 AND IFABSO=1 THE CONTINUUM IS PLOTTED +C IFCONT=0 NO CONTINUUM +C IFCONT=2 CONTINUUM USED FOR MAXIMUM BUT NOT PLOTTED +C IFCONT=3 ONLY CONTINUUM IS PLOTTED +C IFGRID=1 A BACKGROUND GRID IS PLOTTED IF XSCALE= 2. +C IFDLINE=1 SPECTRUM LINES ARE DOUBLE WEIGHT +C IFLOG=1 PLOT IS LOG WITH CYCLES CYCLES +C IFLOG=0 PLOT IS LINEAR +C JUST1=0 ALL PANELS ARE PLOTTED +C JUST1 GREATER THAN 0 A TABLE OF SWITCHES FOR EACH PANEL IS READ +C NOWAVE=1 DO NOT PUT WAVELENGTH IN BANNER AT ENDS OF PANELS +C NOWAVE=0 PUT WAVELENGTH IN BANNER AT ENDS OF PANELS +C IFNEWW CHANGE TO NEW STARTING AND STOPPING WAVELENGTHS AS READ IN +C NOCALC=0 CALCULATIONS ARE TO BE READ +C NOCALC=1 NO CALCULATIONS ARE TO BE READ REQUIRES IFNEWW=1 +C IFDUM1 +C IFNOAX=1 AXES ARE NOT LABELLED +C IFNOAX=-1 AXES ARE LABELLED. Y TWICE 0 TO 1 AND .9 TO 1 +C IFMU=0 PLOT FIRST ANGLE OR FLUX +C IFMU=1 TO 20 PLOT ANGLE IFMU +C NOPRNT=0 PRINT ALL LINE DATA +C NOPRNT=1 NO PRINTING OF LINE DATA +C NOPRNT=2 PRINT LINE DATA ONLY FOR LINES THAT ARE LABELLED +C IFKPNO.GT.0 PLOT KITT PEAK PRELIMINARY SOLAR ATLAS +C IFKPK.GT.0 PLOT KOHL, PARKINSON, AND KURUCZ SOLAR ATLAS +C IFSACP.GT.0 PLOT SAC PEAK SOLAR FLUX ATLAS +C IFHAWA.GT.0 PLOT HAWAII SOLAR ATLAS +C IFNRL.GT.0 PLOT NRL SOLAR ATLAS +C IFPROC.GT.0 PLOT GRIFFIN PROCYON ATLAS +C IFDUM2 +C IFSIR.GT.0 PLOT FURENLID SIRIUS ATLAS +C IFARC.GT.0 PLOT GRIFFIN ARCTURUS ATLAS +C IFSUNF.GT.0 PLOT FURENLID AND KURUCZ SOLAR FLUX ATLAS +C IFSOIR.GT.0 PLOT INFRARED FTS SOLAR ATLAS +C IFHALL.GT.0 PLOT HALL INFRARED SUNSPOT ATLAS +C IFENGV.GT.0 PLOT ENGVOLD SUNSPOT ATLAS +C IFOPAC=N INPUT CALCULATED SPECTRUM IS MASS ABSORPTION COEFFICIENT +C OUTPUT FROM SYNTHE. USE ASYNTH(N). PLOT MUST USUALLY BE LOG. +C IFFTS.GT.0 PLOT AN FTS SPECTRUM FROM KITT PEAK +C IFFTS2.GT.0 PLOT THE RATIO OF TWO FTS SPECTRA FROM KITT PEAK +C IFJUNG.GT.0 PLOT JUNGFRAUJOCH SOLAR ATLAS +C YSCALE IS THE HEIGHT OF THE PLOT IN MULTIPLES OF 3.125 +C DEFAULT=1. FOR XSCALE.GT.0 AND XSCALE.LT.1 +C DEFAULT=2. FOR XSCALE.GT.1 +C OTHERWISE YTOP=6.25 +C XSCALE=1. 10 IN/NM +C XSCALE=2. 20 IN/NM +C XSCALE=4. 40 IN/NM +C XSCALE=8. 80 IN/NM +C WEAK IS 1.-RESIDUAL INTENSITY OF THE WEAKEST LINES TO BE LABELED +C IF WEAK = 0 ALL LINES ARE LABELED +C PANEL IS MAXIMUM LENGTH OF EACH PLOT PANEL +C AN ADDITIONAL .1NM IS ADDED FOR OVERLAP BETWEEN PANELS +C CYCLES IS NUMBER OF CYCLES IF PLOT IS LOG +C OFFSET IS THE NUMBER OF INCHES BY WHICH THE PLOT IS DISPLACED +C VERTICALLY +C RMIN IS THE RESIDUAL INTENSITY AT THE BOTTOM OF THE PLOT +C RMAX IS THE RESIDUAL INTENSITY AT THE TOP OF THE PLOT. DEFAULT 1. +C TOP FIXES THE VALUE OF THE TOP OF THE PLOT IF IFABSO = 1 +C IF TOP=0. THE TOP IS SET TO THE MAXIMUM VAUE IN EACH PANEL +C WNEW1 IS A NEW STARTING WAVELENGTH +C WNEW2 IS A NEW STOPPING WAVELENGTH +C TICKTOP IS THE SIZE AND DIRECTION OF TICK MARKS AT THE TOP OF THE PLOT +C TICKBOT IS THE SIZE AND DIRECTION OF TICK MARKS AT THE BOTTOM OF THE PLOT +C DEFAULT IS -0.15 AND +0.15 +C SMOOTH IS A SMOOTHING PARAMETER TO BE TRANSMITTED TO OBS SUBROUTINES +C IT WOULD GENERALLY BE THE FWHM IN POINT NUMBERS OF A GAUSSIAN +C IF NEGATIVE IT IS THE CENTRAL WEIGHT FOR THREE POINT SMOOTHING +C DOPOBS IS A DOPPLER SHIFT IN KM/S FOR THE OBSERVED SPECTRA +C DOPCALC IS A DOPPLER SHIFT IN KM/S FOR THE CALCULATED SPECTRUM +C DOPTERR IS A DOPPLER SHIFT IN KM/S FOR TERRESTRIAL SPECTRUM OR LABELS +C SCALOBS IS A FACTOR BY WHICH AN OBSERVED SPECTRUM IS TO BE SCALED +C ZEROOBS IS A ZERO LEVEL CORRECTION TO AN OBSERVED SPECTRUM +C RMIN2 THE COMPUTED SPECTRUM IS PLOTTED TWICE, SECOND WITH RMIN2 +C RMAX2 THE COMPUTED SPECTRUM IS PLOTTED TWICE, SECOND WITH RMAX2 +C XOFFSET IS THE NUMBER OF INCHES THE PLOT IS DISPLACED IN X +C SCALOB2 IF 0 = SCALOBS +C IF NOT 0 SCALOBS IS THE SCALING FACTOR FOR THE BEGINNING AND +C SCALOB2 IS THE SCALING FACTOR FOR THE END AND +C INTERMEDIATE VALUES ARE LINEARLY INTERPOLATED +C DUMMY7 + COMMON /PARAMS/XSCALE, + 1 RMIN,WEAK,TOP,PANEL,CYCLES,WBEGIN,WEND,W1,W2,YTOP, + 2 HMAX,HMIN,YSCALE,OFFSET,RMAX, + 3 WNEW1,WNEW2,SMOOTH,DOPOBS,DOPCALC,DOPTERR, + 4 SCALOBS,ZEROOBS,RMIN2,RMAX2,XOFFSET,SCALOB2,DUMMY7 + 5 IFLABL,IFABSO,IFCONT,IFGRID,IFDLIN,IFLOG,IFMU,NOCALC + 6 IFVAC,NOPRNT + REAL*8 WBEGIN,WEND,W1,W2,RESOLU,RATIO,WNEW1,WNEW2,WAVEL + REAL*8 WAVE,WBEGDOP + REAL*8 TITLE(74),XMU(20),WLEDGE(200),TEFF,GLOG + COMMON /CELL/MAXCEL,IFCELL(40000) + REAL*8 Q2(40) +C REAL*4 MESSAGE(20,9),ASYNTH(64),TURBV,ALINEC(64) + REAL*4 ASYNTH(64),TURBV,ALINEC(64) + CHARACTER*79 MESSAGE(9) + INTEGER VLO,VUP +CCRAY REAL*8 WORDS(3) + REAL*4 WORDS(6) + COMMON /LINDAT/WL,E,EP,LABEL(2),LABELP(2),OTHER1(2),OTHER2(2), + 1 WLVAC,CENTER,CONCEN, NELION,GAMMAR,GAMMAS,GAMMAW,REF, + 2 NBLO,NBUP,ISO1,X1,ISO2,X2,GFLOG,XJ,XJP,CODE,ELO,GF,GS,GR,GW, + 3 DWL,DGFLOG,DGAMMAR,DGAMMAS,DGAMMAW,EXTRA1,EXTRA2,EXTRA3 + REAL*8 LINDAT8(14) + REAL*4 LINDAT(28) + EQUIVALENCE (LINDAT8(1),WL),(LINDAT(1),NELION) + REAL*8 RATIOLG,SIGMA2,WLBEG,WLEND + REAL*8 WL,E,EP,WLVAC,CENTER,CONCEN + REAL*8 LABEL,LABELP,OTHER1,OTHER2 + DIMENSION IFPANL(80) + COMMON /HEADERDATA/USERID(2),FILENAME(2), + 1 IDATE(3),ITIME(2),JOBID(2) + REAL*8 USERID,FILENAME + CHARACTER*9 HEADERDATA(5) + CHARACTER*6 WW6,STRING6 + CHARACTER*9 STRING9 + CHARACTER*10 COLORCALC + DATA IFPANL/80*1/ +C CALL FILEREP +C CALL BEGTIME +C CALL RDYOUTF(6,0) + READ(5,1001)IFLABL,IFABSO,IFCONT,IFGRID,IFDLIN,IFLOG,JUST1,NOWAVE, + 1NOCALC,IFDUM1 + 1001 FORMAT(10I8) + WRITE(6,1002)IFLABL,IFABSO,IFCONT,IFGRID,IFDLIN,IFLOG,JUST1, + 1NOWAVE,NOCALC,IFDUM1 + 1002 FORMAT(1X,10I8/' IFLABL IFABSO IFCONT IFGRID IFDLIN', + 1' IFLOG JUST1 NOWAVE NOCALC IFDUM1') + READ(5,1001) + READ(5,1001)IFNOAX,IFMU,NOPRNT,IFKPNO,IFKPK,IFSACP,IFHAWA,IRNRL, + 1IFPROC,IFSIR + WRITE(6,1003)IFNOAX,IFMU,NOPRNT,IFKPNO,IFKPK,IFSACP,IFHAWA,IFNRL, + 1IFPROC,IFDUM2 + 1003 FORMAT(1X,10I8/' IFNOAX IFMU NOPRNT IFKPNO IFKPK' + 1' IFSACP IFHAWA IFNRL IFPROC IFDUM2') + READ(5,1001) + READ(5,1001)IFSIR,IFARC,IFSUNF,IFSOIR,IFHALL,IFENGV,IFOPAC,IFFTS, + 1IFFTS2,IFJUNG + WRITE(6,1004)IFSIR,IFARC,IFSUNF,IFSOIR,IFHALL,IFENGV,IFOPAC, + 1IFFTS,IFFTS2,IFJUNG + 1004 FORMAT(1X,10I8/' IFSIR IFARC IFSUNF IFSOIR IFHALL', + 1' IFENGV IFOPAC IFFTS IFFTS2 IFJUNG') + READ(5,1001) + READ(5,1005)YSCALE,XSCALE,WEAK,PANEL,CYCLES,OFFSET,RMIN,RMAX + 1005 FORMAT(8F10.3) + WRITE(6,1006)YSCALE,XSCALE,WEAK,PANEL,CYCLES,OFFSET,RMIN,RMAX + 1006 FORMAT(1X,8F10.3/75H YSCALE XSCALE WEAK PANEL CYCLE + 1S OFFSET RMIN RMAX) + READ(5,1001) + READ(5,1007)TOP,WNEW1,WNEW2,TICKTOP,TICKBOT,SMOOTH,DOPOBS,DOPCALC + 1007 FORMAT(E10.3,7F10.3) + WRITE(6,1008)TOP,WNEW1,WNEW2,TICKTOP,TICKBOT,SMOOTH,DOPOBS,DOPCALC + 1008 FORMAT(1PE10.3,0P7F10.3/79H TOP WNEW1 WNEW2 TICKTOP + 1 TICKBOT SMOOTH DOPOBS DOPCALC ) + READ(5,1001) + READ(5,1027)DOPTERR,SCALOBS,ZEROOBS,RMIN2,RMAX2,XOFFSET,SCALOB2, + 1COLORCALC + 1027 FORMAT(7F10.3,A10) + WRITE(6,1028)DOPTERR,SCALOBS,ZEROOBS,RMIN2,RMAX2,XOFFSET,SCALOB2, + 1COLORCALC + 1028 FORMAT(7F10.3,A10/'DOPTERR SCALOBS ZEROOBS RMIN2 RMAX2 + 1 XOFFSET SCALOB2 COLORCALC' ) + READ(5,1001) + READ(5,1009)IFPANL + 1009 FORMAT(80I1) + WRITE(6,1010)IFPANL + 1010 FORMAT(1X,80I1/81H 12345678901234567890123456789012345678901234567 + 1890123456789012345678901234567890) + READ(5,1001) + MU=IFMU + IF(IFMU.EQ.0)MU=1 + IF(JUST1.GT.0)GO TO 1020 + DO 1019 IPANEL=1,80 + 1019 IFPANL(IPANEL)=1 + 1020 CONTINUE + READ(5,2)MESSAGE + 2 FORMAT(1X,A79) + WRITE(6,2)MESSAGE + 5 CONTINUE + IF(RMAX.EQ.0.)RMAX=1. + IFRMAX2=0 + IF(RMIN2.NE.0.)IFRMAX2=1 + IF(RMAX2.NE.0.)IFRMAX2=1 + IF(RMAX2.EQ.0.)RMAX2=1. + Y=YSCALE + IF(XSCALE.EQ.0.)XSCALE=2. + YSCALE=2. + IF(XSCALE.LT.1.)YSCALE=1. + IF(Y.GT.0.)YSCALE=Y + IF(PANEL.EQ.0.)PANEL=5. + IF(SCALOBS.EQ.0.)SCALOBS=1. + IF(SCALOB2.EQ.0.)SCALOB2=SCALOBS +C OPEN(UNIT=55,READONLY,SHARED,TYPE='OLD',FORM='UNFORMATTED') + IF(NOCALC.EQ.1)GO TO 207 +C OPEN(UNIT=7,READONLY,SHARED,TYPE='OLD',FORM='UNFORMATTED') + REWIND 7 + IF(IFOPAC.NE.0)GO TO 205 + READ(7)TEFF,GLOG,TITLE,WBEGIN,RESOLU,NWL,IFSURF,NMU,XMU,NEDGE, + 1WLEDGE + NMU2=NMU+NMU + MUNMU=MU+NMU + WRITE(6,4)TEFF,GLOG,TITLE,WBEGIN,RESOLU,NWL,IFSURF + 4 FORMAT(F10.1,F10.3,3X,74A1/F12.4,F10.1,2I10) + IFVAC=1 + IF(TITLE(74).EQ.1HA)IFVAC=0 +C WBEGIN IS THE FIRST CALCULATED WAVELENGTH +C WSTART IS THE FIRST PLOTTED WAVELENGTH + WSTART=WBEGIN + RATIO=1.+1./RESOLU + WEND=WBEGIN*RATIO**(NWL-1) + IWEND=WEND*10.+.5 + WEND=FLOAT(IWEND)/10. + IWSTART=WBEGIN*10.+.5 + WSTART=FLOAT(IWSTART)/10. + IF(WNEW1.EQ.0.)WNEW1=WSTART + IF(WNEW2.EQ.0.)WNEW2=WEND + GO TO 207 + 205 CONTINUE + READ(7)WBEGIN,RESOLU,WLEND,NWL,NRHOX,LINOUT,TURBV,IFVAC + READ(7) + WRITE(6,214)WBEGIN,RESOLU,NWL,NRHOX,IFVAC + 214 FORMAT(F10.3,F10.1,3I10) + IWSTART=WBEGIN*10.+.5 + WSTART=FLOAT(IWSTART)/10. + RATIO=1.+1./RESOLU + WEND=WBEGIN*RATIO**(NWL-1) + IWEND=WEND*10.+.5 + WEND=FLOAT(IWEND)/10. + IF(WNEW1.EQ.0.)WNEW1=WBEGIN + IF(WNEW2.EQ.0.)WNEW2=WEND + 207 CONTINUE + IF(IFLABL.GT.0.AND.NOCALC.EQ.0)THEN + DO 2207 I=1,NWL + 2207 READ(7) + if(abs(dopobs).le.0.)go to 2217 + read(7)nlines,nlines1,nlines2 + write(93)nlines,nlines1,nlines2 + do 2218 i=1,nlines1 + read(7)lindat8,lindat +2218 write(93)lindat8,lindat + do 2219 i=1,nlines2 + read(7)lindat8,lindat +2219 write(93)lindat8,lindat + go to 2220 +2217 READ(7)NLINES + WRITE(93)NLINES + DO 2208 I=1,NLINES + READ(7)LINDAT8,LINDAT + 2208 WRITE(93)LINDAT8,LINDAT +2220 continue + ENDIF + CALL MAXLENGTH(500) + CALL INITPLT(70) +C CALL START AT (1.,.5) +C CALL START AT (0.,OFFSET) + if(ifdlin.eq.0)call weight(1) + if(ifdlin.eq.1)call weight(2) + END=0. + NPANEL=(WNEW2-WNEW1+PANEL-.001)/PANEL + IPAN1=0 + DO 100 IPANEL=1,NPANEL + W1=WNEW1+FLOAT(IPANEL-1)*PANEL + W2= MIN (W1+PANEL+.1,WNEW2) +C W2=AMIN1(W1+PANEL+.1,WNEW2) + WRITE(6,2990)IPANEL,W1,W2 + 2990 FORMAT(6H PANEL,I3,2F10.3) + IF(IFPANL(IPANEL).EQ.0)GO TO 100 + IF(IPAN1.GT.0)CALL PAGE +C IF(IPAN1.GT.0)CALL START AT (10.,0.) +C CALL START AT (4.85,.5+OFFSET) + CALL START AT (1.0+XOFFSET,.5+OFFSET) + IPAN1=1 + WW=W1 + ENCODE(6,2993,WW6)WW + 2993 FORMAT(F6.1) + ENCODE(9,2991,HEADERDATA(1))USERID + ENCODE(9,3992,HEADERDATA(2))JOBID + 3992 FORMAT(A4,A4) + ENCODE(9,3992,HEADERDATA(3))ITIME + ENCODE(9,3993,HEADERDATA(4))IDATE + 3993 FORMAT(A4,A4,A1) + ENCODE(9,2991,HEADERDATA(5))FILENAME + 2991 FORMAT(A8,A1) +c canon is 0.5 higher than xerox THESE ARE CANON + CANON=0. + CANON=.5 +c IF(NOWAVE.EQ.0)THEN +c CALL STRINGX10(WW6,0.,14.20-OFFSET+CANON) +c CALL STRINGX10(WW6,19.5,14.20-OFFSET+CANON) +c CALL STRINGX(HEADERDATA(1),4.0,14.85-OFFSET+CANON) +c CALL STRINGX(HEADERDATA(2),4.0,14.70-OFFSET+CANON) +c CALL STRINGX(HEADERDATA(3),4.0,14.55-OFFSET+CANON) +c CALL STRINGX(HEADERDATA(4),4.0,14.40-OFFSET+CANON) +c CALL STRINGX(HEADERDATA(5),4.0,14.25-OFFSET+CANON) +c ENDIF +C CALL STRINGX(MESSAGE(1),6.,14.85-OFFSET+CANON) +C CALL STRINGX(MESSAGE(2),6.,14.70-OFFSET+CANON) +C CALL STRINGX(MESSAGE(3),6.,14.55-OFFSET+CANON) +C CALL STRINGX(MESSAGE(4),6.,14.40-OFFSET+CANON) +C CALL STRINGX(MESSAGE(5),6.,14.25-OFFSET+CANON) +C CALL STRINGX(MESSAGE(6),12.,14.70-OFFSET+CANON) +C CALL STRINGX(MESSAGE(7),12.,14.55-OFFSET+CANON) +C CALL STRINGX(MESSAGE(8),12.,14.40-OFFSET+CANON) +C CALL STRINGX(MESSAGE(9),12.,14.25-OFFSET+CANON) + CALL STRINGX(MESSAGE(1),3.,10.20) + CALL STRINGX(MESSAGE(2),3.,9.95) + CALL STRINGX(MESSAGE(3),3.,9.70) + CALL STRINGX(MESSAGE(4),3.,9.45) + CALL STRINGX(MESSAGE(5),3.,9.20) + CALL STRINGX2(MESSAGE(6),0.25,0.1) + CALL STRINGX(MESSAGE(7),9.,9.70) + CALL STRINGX(MESSAGE(8),9.,9.45) + CALL STRINGX(MESSAGE(9),9.,9.20) + CALL COLOR BLACK +C +C DRAW BOX + END=(W2-W1)*10.*XSCALE + CALL JUMP TO (0.,0.) + CALL LINE TO (END,0.) + YTOP=3.125*YSCALE + CALL LINE TO (END,YTOP) + CALL LINE TO (0.,YTOP) + CALL LINE TO (0.,0.) +C +C X AXIS + CALL WEIGHT(2) + N=(W2-W1)*10.+1.5 + IF(TICKTOP.EQ.0.)TICKTOP=-.15 + IF(TICKBOT.EQ.0.)TICKBOT=.15 + DO 11 I=1,N + HALF=1. + IF(XSCALE.LT.1..AND.MOD(I,5).NE.1)HALF=.5 + IF(XSCALE.LT..05.AND.MOD(I,100).NE.1)HALF=.5 + IF(XSCALE.LT..01.AND.MOD(I,500).NE.1)HALF=.5 + IF(XSCALE.LT..05.AND.MOD(I,10).NE.1)GO TO 11 + IF(XSCALE.LT..01.AND.MOD(I,100).NE.1)GO TO 11 + X=FLOAT(I-1)*XSCALE + CALL JUMP TO (X,0.) + CALL LINE TO (X,TICKBOT*HALF) + CALL JUMP TO (X,YTOP+TICKTOP*HALF) + CALL LINE TO (X,YTOP) + WAVE=W1+FLOAT(I-1)/10. + IF(XSCALE.LT.1..AND.MOD(I,5).NE.1)GO TO 11 + IF(XSCALE.LT..2.AND.MOD(I,10).NE.1)GO TO 11 + IF(XSCALE.LT..05.AND.MOD(I,100).NE.1)GO TO 11 + IF(XSCALE.LT..01.AND.MOD(I,500).NE.1)GO TO 11 + IF(IFNOAX.NE.1.AND.XSCALE.GE..2)THEN + WRITE(WW6,'(F6.1)')WAVE + CALL STRINGX2(WW6,X-.4,-.3) + ENDIF + IF(IFNOAX.NE.1.AND.XSCALE.LT..2)THEN + IWAVE=WAVE + WRITE(WW6,'(I6)')IWAVE + CALL STRINGX2(WW6,X-.6,-.3) + ENDIF + IF(IFGRID.EQ.0)GO TO 11 + CALL JUMP TO (X,0.) + CALL WEIGHT(12) + CALL LINE TO (X,YTOP) + CALL WEIGHT(1) + 11 CONTINUE +C + IF(XSCALE.GT.10..AND.IFNOAX.NE.1)THEN + N=END*.1+.05 + DO 1611 I=1,N + WAVE=W1+FLOAT(I)/XSCALE + X=I*10 + WRITE(STRING9,'(F9.4)')WAVE + 1611 CALL STRINGX2(STRING9,X-.4,-.3) + ENDIF +c call stringx2('@l (nm)',x-1., 0.3) + If(ifnoax.ne.1)call stringx2('Wavelength (nm)',X/2-1.0, -.6) +C +C Y AXIS + nstep=(rmax-rmin+0.002)*10 + if(rmax.gt.1.)go to 17 +c DO 12 I=1,11 + DO 12 I=1,nstep+1 +c Y=FLOAT(I-1)*YTOP/10. + Y=FLOAT(I-1)*YTOP/nstep + CALL JUMP TO (0.,Y) + CALL LINE TO (.15,Y) + CALL JUMP TO (END-.15,Y) + CALL LINE TO (END,Y) + 12 CONTINUE + IF(IFLOG.EQ.1)GO TO 14 + ITWO=1 + IF(YTOP.LT.1.99)ITWO=2 + if(nstep.eq.2)itwo=1 + IF(IFNOAX.EQ.-1)THEN +C DO 613 I=1,10,ITWO +C Y=FLOAT(I-1)*YTOP/10. +C R=(RMAX-RMIN)/10.*FLOAT(I-1)+RMIN +C CALL WEIGHT(12) +C ENCODE(6,2994,STRING6)R +C 2994 FORMAT(F2.1) +C CALL STRINGX2(STRING6,-.23,Y) +CC CALL BCDX(1,R,2,6H(F2.1),.15,-.23,Y) +C CALL WEIGHT(1) +C ENCODE(6,2995,STRING6)R +C 2995 FORMAT(F3.2) +C 613 CALL STRINGX2(STRING6,-.6,Y) +CC 613 CALL BCDX(1,R/10.+.9,3,6H(F3.2),.15,-.6,Y) +C CALL WEIGHT(12) +C ENCODE(6,1313,STRING6)RMAX +C CALL STRINGX2(STRING6,-.9,Y-.05) +C CALL WEIGHT(1) + CALL WEIGHT(12) + CALL STRINGX2(' 1@ @ .@ @ @ @ 00',-.88,YTOP*1.) + CALL STRINGX2(' .@ @ @ @ 9',-.88,YTOP*.9) + CALL STRINGX2(' .@ @ @ @ 8',-.88,YTOP*.8) + CALL STRINGX2(' .@ @ @ @ 7',-.88,YTOP*.7) + CALL STRINGX2(' .@ @ @ @ 6',-.88,YTOP*.6) + CALL STRINGX2(' .@ @ @ @ 5',-.88,YTOP*.5) + CALL STRINGX2(' .@ @ @ @ 4',-.88,YTOP*.4) + CALL STRINGX2(' .@ @ @ @ 3',-.88,YTOP*.3) + CALL STRINGX2(' .@ @ @ @ 2',-.88,YTOP*.2) + CALL STRINGX2(' .@ @ @ @ 1',-.88,YTOP*.1) + CALL STRINGX2(' .@ @ @ @ 0',-.88,YTOP*.0) + CALL WEIGHT(1) + CALL STRINGX2(' .@ @ @ @ 99 ',-.88,YTOP*.9) + CALL STRINGX2(' .@ @ @ @ 98 ',-.88,YTOP*.8) + CALL STRINGX2(' .@ @ @ @ 97 ',-.88,YTOP*.7) + CALL STRINGX2(' .@ @ @ @ 96 ',-.88,YTOP*.6) + CALL STRINGX2(' .@ @ @ @ 95 ',-.88,YTOP*.5) + CALL STRINGX2(' .@ @ @ @ 94 ',-.88,YTOP*.4) + CALL STRINGX2(' .@ @ @ @ 93 ',-.88,YTOP*.3) + CALL STRINGX2(' .@ @ @ @ 92 ',-.88,YTOP*.2) + CALL STRINGX2(' .@ @ @ @ 91 ',-.88,YTOP*.1) + CALL STRINGX2(' .@ @ @ @ 90 ',-.88,YTOP*.0) + GO TO 17 + ENDIF +c DO 13 I=1,10,ITWO + DO 13 I=1,nstep,ITWO +c Y=FLOAT(I-1)*YTOP/10. + Y=FLOAT(I-1)*YTOP/nstep +c R=(RMAX-RMIN)/10.*FLOAT(I-1)+RMIN + R=(RMAX-RMIN)/nstep*FLOAT(I-1)+RMIN + CALL WEIGHT(2) + IF(IFNOAX.EQ.1)GO TO 13 +C IF(RMAX-RMIN.GE..5)ENCODE(6,1313,STRING6)R +C IF(RMAX-RMIN.LT..5)ENCODE(6,1314,STRING6)R + ENCODE(6,1313,STRING6)R + IF(RMAX-RMIN.LT.1.)ENCODE(6,1314,STRING6)R + IF(I.GT.1)Y=Y-.03 + IF(YSCALE.GT..5)CALL STRINGX2(STRING6,-.9,Y) +c IF(YSCALE.GT..5)CALL STRINGX(STRING6,-.9,Y) + 13 CONTINUE + if(ifsir.eq.-1)go to 1777 + if(ifsir.eq.0)call stringy2('normalized flux',-0.75, + 1 ytop/2-1.) + if(ifsir.eq.-2)call stringy2('normalized flux',-0.4, + 1 ytop/2-1.0) +1777 IF(IFNOAX.EQ.1)GO TO 17 + ENCODE(6,1313,STRING6)RMAX +C IF(RMAX-RMIN.GE..5)ENCODE(6,1313,STRING6)RMAX + 1313 FORMAT(F6.1) +C IF(RMAX-RMIN.LT..5)ENCODE(6,1314,STRING6)RMAX + IF(RMAX-RMIN.LT.1.)ENCODE(6,1314,STRING6)RMAX + 1314 FORMAT(F6.2) + IF(YSCALE.LE..5)CALL STRINGX(STRING6,-.5,YTOP-.08) + IF(YSCALE.GT..5)CALL STRINGX2(STRING6,-.9,YTOP-.16) +c IF(YSCALE.GT..5)CALL STRINGX(STRING6,-.9,YTOP-.16) + GO TO 17 + 14 IF(IFABSO.EQ.1)GO TO 17 + DO 15 I=1,11 + Y=FLOAT(I-1)*YTOP/10. + R=ALOG10(RMAX)-CYCLES+FLOAT(I-1)*CYCLES/10. + IF(IFNOAX.EQ.1)GO TO 15 + ENCODE(6,1314,STRING6)R + CALL STRINGX2(STRING6,-0.9,Y) + 15 CONTINUE + 17 IF(IFGRID.EQ.0)GO TO 20 +C + IF(IFGRID.EQ.1)THEN + IF(XSCALE.LT.1.)GO TO 20 +C PLOT GRID + XGRID=.1 + IF(XSCALE.EQ.4.)XGRID=.08 + IF(XSCALE.EQ.8.)XGRID=.08 + NGRID=END/XGRID + DO 18 I=1,NGRID + X=FLOAT(I)*XGRID + CALL JUMP TO (X,0.) + CALL WEIGHT(1) +C IF(MOD(I,10).EQ.0)CALL WEIGHT(12) +C CALL LINE TO (X,YTOP) + IF(MOD(I,10).EQ.0)CALL LINE TO (X,YTOP) + IF(MOD(I,10).NE.0)CALL DOTLINE(X,0.,X,YTOP,'E0E0'X) + 18 CONTINUE +C DO 1118 I=1,NGRID*2.5 +C X=NGRID/10. +C X=FLOAT(I)/10./2.5 +C CALL JUMP TO (X,0.) +C CALL WEIGHT(1) +C CALL LINE TO (X,-.07) +C 1118 CONTINUE + DO 19 I=1,49 + Y=FLOAT(I)*YTOP/50. + CALL JUMP TO (0.,Y) + CALL WEIGHT(1) +C IF(MOD(I,5).EQ.0)CALL WEIGHT(12) +C CALL LINE TO (END,Y) + IF(MOD(I,5).EQ.0)CALL LINE TO (END,Y) + IF(MOD(I,5).NE.0)CALL DOTLINE(0.,Y,END,Y,'E0E0'X) + 19 CONTINUE + CALL WEIGHT(1) + ENDIF +C + IF(IFGRID.EQ.2)THEN + N=(W2-W1)*10.*10.+.5 + DO 4019 I=1,N + X=FLOAT(I)*XSCALE*.1 + CALL JUMP TO (X,0.15) + CALL LINE TO (X,YTOP-.15) + 4019 CONTINUE + DO 4020 I=1,10 + Y=FLOAT(I)*YTOP*.1 + CALL JUMP TO (0.,Y) + CALL LINE TO (END,Y) + 4020 CONTINUE + ENDIF +C + IF(IFGRID.EQ.3)THEN + DO 4030 I=1,50 + Y=FLOAT(I)*YTOP*.02 + CALL JUMP TO (0.,Y) + CALL LINE TO (END,Y) + 4030 CONTINUE + ENDIF +C + 20 IF(NOCALC.EQ.0)THEN +C IF(IFLOG.EQ.0)CALL STRINGY2('LIN',END+.4,.2) +C IF(IFLOG.EQ.1)CALL STRINGY2('LOG',END+.4,.2) +c IF(IFABSO.EQ.0)CALL STRINGY2('RESIDUAL',END+.4,0.2) +c IF(IFABSO.EQ.0)CALL STRINGY('RESIDUAL',END+.4,0.2) +c IF(IFABSO.EQ.1)CALL STRINGY2('ABSOLUTE',END+.4,0.2) + IF(IFABSO.EQ.1)CALL STRINGY('ABSOLUTE',END+.4,0.2) + ENDIF + IF(IFABSO.EQ.0)GO TO 27 +C FIND MAX AND MIN + HMAX=0. + HMIN=1.E30 + IF(NOCALC.EQ.1)GO TO 270 + REWIND 7 + READ(7) + NSKIP= LOG(W1/WBEGIN)/ LOG(RATIO)-2. +C NSKIP=ALOG(W1/WBEGIN)/ALOG(RATIO)-2. + NSKIP=MAX0(NSKIP,0) + IF(NSKIP.EQ.0)GO TO 221 + DO 220 I=1,NSKIP + 220 READ(7) + 221 N1=NSKIP+1 + WBEGDOP=WBEGIN*(1.D0+DOPCALC/299792.458D0) + IF(IFOPAC.GT.0)THEN + READ(7) + DO 223 IWL=N1,NWL + READ(7)(ASYNTH(J),J=1,IFOPAC) + WAVE=WBEGDOP*RATIO**(IWL-1) + IF(WAVE.LT.W1)GO TO 223 + IF(WAVE.GT.W2+.0001)GO TO 24 + HMAX=AMAX1(HMAX,ASYNTH(IFOPAC)) + HMIN=AMIN1(HMIN,ASYNTH(IFOPAC)) + 223 CONTINUE + GO TO 24 + ENDIF +C + DO 23 IWL=N1,NWL + READ(7)(Q2(I),I=1,NMU2) + WAVE=WBEGDOP*RATIO**(IWL-1) + IF(WAVE.LT.W1)GO TO 23 + IF(WAVE.GT.W2+.0001)GO TO 24 + FREQ=2.997925E17/WAVE + HLAM=Q2(MU)*FREQ/WAVE + IF(Q2(MU).GT.Q2(MUNMU))HLAM=Q2(MUNMU)*FREQ/WAVE + HMAX=AMAX1(HMAX,HLAM) + HMIN=AMIN1(HMIN,HLAM) + IF(IFCONT.EQ.0)GO TO 23 + CONT=Q2(MUNMU)*FREQ/WAVE + HMAX=AMAX1(HMAX,CONT) + HMIN=AMIN1(HMIN,CONT) + 23 CONTINUE +C + 24 WRITE(6,25)HMIN,HMAX + 25 FORMAT(1P2E12.3) + ENCODE(9,3535,STRING9)HMAX +c CALL STRINGY2(STRING9,END+.6,YTOP-1.2) + ENCODE(9,3535,STRING9)HMIN +c CALL STRINGY2(STRING9,END+.6,YTOP-2.8) + 270 CONTINUE + IF(TOP.GT.0.)HMAX=TOP + IF(IFLOG.EQ.0)GO TO 30 + IF(HMAX.EQ.0.)GO TO 30 + HMAXL=ALOG10(HMAX) + N=(HMAXL+CYCLES/10.-.001)/(CYCLES/10.) + HMAXL=FLOAT(N)*CYCLES/10. + IF(TOP.GT.0.)HMAXL=ALOG10(TOP) + HMINL=HMAXL-CYCLES + HMAX=10.**HMAXL + DO 26 I=1,11 + Y=FLOAT(I-1)*YTOP/10. + H=HMINL+FLOAT(I-1)*CYCLES/10. + ENCODE(6,1314,STRING6)H + CALL STRINGX2(STRING6,-0.9,Y) + 26 CONTINUE + GO TO 30 + 27 IF(IFLOG.EQ.0)GO TO 30 + RMAXL=ALOG10(RMAX) + RMINL=RMAXL-CYCLES +C PLOT OBSERVED SPECTRUM +C READS FROM 55 + 30 CALL OBSERV +C READS FROM 56 + CALL OBSERV1 +C READS FROM 57 + CALL OBSERV2 +C READS FROM 60 + IF(IFKPNO.GT.0)CALL OBSKPNO(IFKPNO) +C READS FROM 61 + IF(IFKPK.GT.0)CALL OBSKPK(IFKPK) +C READS FROM 62 + IF(IFSACP.GT.0)CALL OBSSACP(IFSACP) +C READS FROM 63 + IF(IFHAWA.GT.0)CALL OBSHAWA(IFHAWA) +C READS FROM 64 + IF(IFNRL.GT.0)CALL OBSNRL(IFNRL) +C READS FROM 65 + IF(IFPROC.GT.0)CALL OBSPROC(IFPROC) +C READS FROM 66 +C IF(IFSIR.GT.0)CALL OBSSIR(IFSIR) +C READS FROM 67 + IF(IFARC.GT.0)CALL OBSARC(IFARC) +C READS FROM 68 +c IF(IFSUNF.GT.0)CALL OBSSUNF(IFSUNF) +C READS FROM 69 + IF(IFSOIR.GT.0)CALL OBSSOIR(IFSOIR) +C READS FROM 59 + IF(IFHALL.GT.0)CALL OBSHALL(IFHALL) +C READS FROM 58 + IF(IFENGV.GT.0)CALL OBSENGV(IFENGV) +C READS FROM 73 + IF(IFFTS.GT.0)CALL OBSFTS(IFFTS) +C READS FROM 71 AND 72 +C IF(IFFTS2.GT.0)CALL OBSENGV(IFFTS2) + IF(IFFTS2.GT.0)CALL OBSFTS2(IFFTS2) +C READS FROM 74 + IF(IFJUNG.GT.0)CALL OBSJUNG(IFJUNG) + CALL COLOR BLACK + IF(NOCALC.EQ.1)GO TO 50 + IF(COLORCALC.EQ.'RED ')CALL COLOR RED + IF(COLORCALC.EQ.'BLUE ')CALL COLOR BLUE + IF(COLORCALC.EQ.'ROYAL BLUE')CALL COLOR ROYAL BLUE + IF(COLORCALC.EQ.'CYAN ')CALL COLOR CYAN + IF(COLORCALC.EQ.'ORANGE ')CALL COLOR ORANGE + IF(COLORCALC.EQ.'LACQUER RE')CALL COLOR LACQUER RED + IF(COLORCALC.EQ.'GREEN ')CALL COLOR GREEN + IF(COLORCALC.EQ.'YELLOW ')CALL COLOR YELLOW + IF(COLORCALC.EQ.'MAGENTA ')CALL COLOR MAGENTA + IF(COLORCALC.EQ.'BLACK ')CALL COLOR BLACK + IF(COLORCALC.EQ.'GRAY ')CALL COLOR GRAY + IF(COLORCALC.EQ.'LIGHT GRAY')CALL COLOR LIGHT GRAY + IF(COLORCALC.EQ.'DARK GRAY ')CALL COLOR DARK GRAY + IF(COLORCALC.EQ.'BROWN ')CALL COLOR BROWN + IF(COLORCALC.EQ.'CRIMSON ')CALL COLOR CRIMSON + IF(COLORCALC.EQ.'AQUAMARINE')CALL COLOR AQUAMARINE + IF(COLORCALC.EQ.'LIME ')CALL COLOR LIME + IF(COLORCALC.EQ.'FIRE ')CALL COLOR FIRE + IF(COLORCALC.EQ.'YELLOW GRE')CALL COLOR YELLOW GREEN + IF(COLORCALC.EQ.'FOREST GRE')CALL COLOR FOREST GREEN + IF(COLORCALC.EQ.'BRITISH RA')CALL COLOR BRITISH RACING GREEN + IF(COLORCALC.EQ.'EVERGREEN ')CALL COLOR EVERGREEN + IF(COLORCALC.EQ.'MAROON ')CALL COLOR MAROON + IF(COLORCALC.EQ.'PURPLE ')CALL COLOR PURPLE + IF(COLORCALC.EQ.'PUMPKIN ')CALL COLOR PUMPKIN + IF(COLORCALC.EQ.'PLUM ')CALL COLOR PLUM + IF(COLORCALC.EQ.'COCOA ')CALL COLOR COCOA + IF(COLORCALC.EQ.'MULBERRY ')CALL COLOR MULBERRY + IF(IFCONT.EQ.3)GO TO 735 +C PLOT SPECTRUM + REWIND 7 + READ(7) + NSKIP= LOG(W1/WBEGIN)/ LOG(RATIO)-2. +C NSKIP=ALOG(W1/WBEGIN)/ALOG(RATIO)-2. + NSKIP=MAX0(NSKIP,0) + IF(NSKIP.EQ.0)GO TO 231 + DO 230 I=1,NSKIP + 230 READ(7) + 231 N1=NSKIP+1 + ISTART=0 + CALL WEIGHT(1) + IF(IFDLIN.EQ.1)CALL WEIGHT(2) + WBEGDOP=WBEGIN*(1.D0+DOPCALC/299792.458D0) +C + IF(IFOPAC.GT.0)THEN + READ(7) + DO 233 IWL=N1,NWL + READ(7)(ASYNTH(J),J=1,IFOPAC) + WAVE=WBEGDOP*RATIO**(IWL-1) + IF(WAVE.LT.W1)GO TO 233 + IF(WAVE.GT.W2+.0001)GO TO 734 + FREQ=2.99792458E17/WAVE + HLAM=MAX(ASYNTH(IFOPAC),1.E-30) + CONT=HMAX + IF(IFABSO.EQ.0.AND.IFLOG.EQ.0)Y=(HLAM/CONT-RMIN)/(RMAX-RMIN)*YTOP + IF(IFABSO.EQ.1.AND.IFLOG.EQ.0)Y=HLAM/HMAX*YTOP + IF(IFABSO.EQ.0.AND.IFLOG.EQ.1)Y=(ALOG10(HLAM/CONT)-RMINL)/CYCLES* + 1YTOP + IF(IFABSO.EQ.1.AND.IFLOG.EQ.1)Y=(ALOG10(HLAM)-HMINL)/CYCLES*YTOP + IF(Y.LT.0.)Y=0. + IF(Y.GT.YTOP)Y=YTOP + X=(WAVE-W1)*10.*XSCALE + IF(ISTART.EQ.0)CALL JUMP TO (X,Y) + ISTART=1 + CALL LINE TO (X,Y) + 233 CONTINUE + CALL WEIGHT(1) + NSKIP=0 + GO TO 735 + ENDIF +C + XOLD=0. + YOLD=0. + DO 33 IWL=N1,NWL + READ(7)(Q2(I),I=1,NMU2) + WAVE=WBEGDOP*RATIO**(IWL-1) + IF(WAVE.LT.W1)GO TO 33 + IF(WAVE.GT.W2+.0001)GO TO 34 + FREQ=2.997925E17/WAVE + HLAM=Q2(MU)*FREQ/WAVE + CONT=Q2(MUNMU)*FREQ/WAVE +C KEEPS EMISSION BELOW CONTINUUM +C IF(IFABSO.EQ.0.AND.HLAM.GT.CONT)HLAM=CONT + IF(IFABSO.EQ.0.AND.IFLOG.EQ.0)Y=(HLAM/CONT-RMIN)/(RMAX-RMIN)*YTOP + IF(IFABSO.EQ.1.AND.IFLOG.EQ.0)Y=HLAM/HMAX*YTOP + IF(IFABSO.EQ.0.AND.IFLOG.EQ.1)Y=(ALOG10(HLAM/CONT)-RMINL)/CYCLES* + 1YTOP + IF(IFABSO.EQ.1.AND.IFLOG.EQ.1)Y=(ALOG10(HLAM)-HMINL)/CYCLES*YTOP + X=(WAVE-W1)*10.*XSCALE + XNEW=X + YNEW=Y + IF(Y.LT.0.)YNEW=0. + IF(Y.GT.YTOP)YNEW=YTOP + IF(Y*YOLD.LT.0.)XNEW=XOLD+(X-XOLD)/(Y-YOLD)*(0.-YOLD) + IF((Y-YTOP)*(YOLD-YTOP).LT.0.)XNEW=XOLD+(X-XOLD)/(Y-YOLD)* + 1(YTOP-YOLD) + IF(ISTART.EQ.0)CALL JUMP TO (XNEW,YNEW) + ISTART=1 + if(ifsunf.eq.0)CALL LINE TO (XNEW,YNEW) + if(ifsunf.eq.1)CALL dplot (XNEW,YNEW,2) + XOLD=X + YOLD=Y + 33 CONTINUE + CALL WEIGHT(1) + IF(IFRMAX2.EQ.0)GO TO 732 + 34 IF(IFRMAX2.EQ.0)GO TO 735 +C + XOLD=0. + YOLD=0. + REWIND 7 + READ(7) + IF(NSKIP.EQ.0)GO TO 731 + DO 730 I=1,NSKIP + 730 READ(7) + 731 N1=NSKIP+1 + ISTART=0 + DO 733 IWL=N1,NWL + READ(7)(Q2(I),I=1,NMU2) + WAVE=WBEGDOP*RATIO**(IWL-1) + IF(WAVE.LT.W1)GO TO 733 + IF(WAVE.GT.W2+.0001)GO TO 734 + FREQ=2.997925E17/WAVE + HLAM=Q2(MU)*FREQ/WAVE + CONT=Q2(MUNMU)*FREQ/WAVE + IF(IFABSO.EQ.0.AND.HLAM.GT.CONT)HLAM=CONT + IF(IFABSO.EQ.0.AND.IFLOG.EQ.0)Y=(HLAM/CONT-RMIN2)/(RMAX2-RMIN2)* + 1YTOP + IF(IFABSO.EQ.1.AND.IFLOG.EQ.0)Y=HLAM/HMAX*YTOP + IF(IFABSO.EQ.0.AND.IFLOG.EQ.1)Y=(ALOG10(HLAM/CONT)-RMINL)/CYCLES* + 1YTOP + IF(IFABSO.EQ.1.AND.IFLOG.EQ.1)Y=(ALOG10(HLAM)-HMINL)/CYCLES*YTOP + X=(WAVE-W1)*10.*XSCALE + XNEW=X + YNEW=Y + IF(Y.LT.0.)YNEW=0. + IF(Y.GT.YTOP)YNEW=YTOP + IF(Y*YOLD.LT.0.)XNEW=XOLD+(X-XOLD)/(Y-YOLD)*(0.-YOLD) + IF((Y-YTOP)*(YOLD-YTOP).LT.0.)XNEW=XOLD+(X-XOLD)/(Y-YOLD)* + 1(YTOP-YOLD) + IF(ISTART.EQ.0)CALL JUMP TO (XNEW,YNEW) + ISTART=1 + if(ifsunf.eq.0)CALL LINE TO (XNEW,YNEW) + if(ifsunf.eq.1)CALL dplot (XNEW,YNEW,2) + XOLD=X + YOLD=Y + 733 CONTINUE + 732 CALL WEIGHT(1) + NSKIP=0 + GO TO 735 + 734 NSKIP=NWL-IWL + CALL WEIGHT(1) + 735 CONTINUE +C 35 IF(IFABSO.EQ.0)CALL BCDX(1,CONT,9,8H(1PE9.3),.15,END+.5,YTOP-.05) +C IF(IFABSO.EQ.0)CALL BCDY(1,CONT,9,8H(1PE9.3),.15,-.05,YTOP+.25) +C IF(IFABSO.EQ.1)CALL BCDX(1,HMAX,9,8H(1PE9.3),.15,END+.5,YTOP-.05) +C IF(IFABSO.EQ.1)CALL BCDY(1,HMAX,9,8H(1PE9.3),.15,-.05,YTOP+.25) + IF(IFABSO.EQ.0)ENCODE(9,3535,STRING9)CONT + IF(IFABSO.EQ.1)ENCODE(9,3535,STRING9)HMAX + 3535 FORMAT(1PE9.3) +c CALL STRINGY2(STRING9,END+.4,YTOP-1.2) +cccc CALL STRINGY(STRING9,END+.4,YTOP-1.2) +c CALL STRINGY2(STRING9,-.15,YTOP+.25) + IF(IFABSO.EQ.0)GO TO 50 + IF(IFCONT.EQ.0)GO TO 50 + IF(IFOPAC.GT.0)GO TO 50 +C PLOT CONTINUUM + REWIND 7 + READ(7) + NSKIP= LOG(W1/WBEGIN)/ LOG(RATIO)-2. +C NSKIP=ALOG(W1/WBEGIN)/ALOG(RATIO)-2. + NSKIP=MAX0(NSKIP,0) + IF(NSKIP.EQ.0)GO TO 37 + DO 36 I=1,NSKIP + 36 READ(7) + 37 N1=NSKIP+1 + ISTART=0 + CALL WEIGHT(1) + IF(IFDLIN.EQ.1)CALL WEIGHT(2) + WBEGDOP=WBEGIN*(1.D0+DOPCALC/299792.458D0) + XOLD=X + YOLD=Y + DO 43 IWL=N1,NWL + READ(7)(Q2(I),I=1,NMU2) + WAVE=WBEGDOP*RATIO**(IWL-1) + IF(WAVE.LT.W1)GO TO 43 + IF(WAVE.GT.W2+.0001)GO TO 44 + FREQ=2.997925E17/WAVE + CONT=Q2(MUNMU)*FREQ/WAVE + IF(IFLOG.EQ.0)Y=CONT/HMAX*YTOP + IF(IFLOG.EQ.1)Y=(ALOG10(CONT)-HMINL)/CYCLES*YTOP + X=(WAVE-W1)*10.*XSCALE + XNEW=X + YNEW=Y + IF(Y.LT.0.)YNEW=0. + IF(Y.GT.YTOP)YNEW=YTOP + IF(Y*YOLD.LT.0.)XNEW=XOLD+(X-XOLD)/(Y-YOLD)*(0.-YOLD) + IF((Y-YTOP)*(YOLD-YTOP).LT.0.)XNEW=XOLD+(X-XOLD)/(Y-YOLD)* + 1(YTOP-YOLD) + IF(ISTART.EQ.0)CALL JUMP TO (XNEW,YNEW) + ISTART=1 + if(ifsunf.eq.0)CALL LINE TO (XNEW,YNEW) + if(ifsunf.eq.1)CALL dplot (XNEW,YNEW,2) + XOLD=X + YOLD=Y + 43 CONTINUE + CALL WEIGHT(1) + NSKIP=0 + GO TO 50 + 44 NSKIP=NWL-IWL + CALL WEIGHT(1) + 50 IF(IFLABL.EQ.0)GO TO 100 + IF(NOCALC.EQ.1)GO TO 336 + PRINT 1111,NWL,NSKIP + 1111 FORMAT(2I10) +C IF(NSKIP.EQ.0)GO TO 336 +C DO 335 I=1,NSKIP +C 335 READ(7) + 336 CONTINUE + REWIND 93 + ILABL=MOD(IFLABL,10) + IF(ILABL.EQ.1)CALL LABEL1 + IF(ILABL.EQ.2)CALL LABEL2 + IF(ILABL.EQ.3)CALL LABEL3 + IF(ILABL.EQ.4)CALL LABEL4 + IF(ILABL.EQ.5)CALL LABEL5 + IF(ILABL.EQ.6)CALL LABEL6 + IF(ILABL.EQ.7)CALL LABEL7(IFOPAC) + IF(ILABL.EQ.8)CALL LABEL8 + IF(ILABL.EQ.9)CALL LABEL9 + 100 CONTINUE + CALL FIN(70) +C CALL ENDTIME + CALL EXIT + END + SUBROUTINE OBSERV + RETURN + END + SUBROUTINE OBSERV1 + RETURN + END + SUBROUTINE OBSERV2 + RETURN + END + SUBROUTINE OBSKPNO(IFKPNO) +C PRELIMINARY KPNO SOLAR ATLAS BY BRAULT AND TESTERMAN + +C IFKPNO=1 NORMAL PLOT WEIGHT 1 +C IFKPNO=2 NORMAL PLOT WEIGHT 12 +C IFKPNO=3 NORMAL PLOT WEIGHT 12 PLUS 10X WEIGHT 1 +C IFKPNO=10+ABOVE PLOT LIMB +C + COMMON /PARAMS/XSCALE, + 1 RMIN,WEAK,TOP,PANEL,CYCLES,WBEGIN,WEND,W1,W2,YTOP, + 2 HMAX,HMIN,YSCALE,OFFSET,RMAX, + 3 WNEW1,WNEW2,SMOOTH,DOPOBS,DOPCALC,DOPTERR, + 4 SCALOBS,ZEROOBS,RMIN2,RMAX2,XOFFSET,SCALOB2,DUMMY7 + 5 IFLABL,IFABSO,IFCONT,IFGRID,IFDLIN,IFLOG,IFMU,NOCALC + 6 IFVAC,NOPRNT + REAL*8 WBEGIN,WEND,W1,W2,RESOLU,RATIO,WNEW1,WNEW2,WAVEL + DATA IREAD/0/ + INTEGER*2 ISPECT(500),LAMBDA,NORD,NSET,NREC + IF(IREAD.EQ.1)GO TO 1 + OPEN(UNIT=60,SHARED,READONLY,TYPE='OLD',FORM='UNFORMATTED') + IREAD=1 + 1 CONTINUE + IF(IFKPNO.GT.10)GO TO 30 + IF(IFMU.GE.2)GO TO 30 +C CENTER + IF(W1.GT.1080.)RETURN + IF(W2.LT.294.2)RETURN + REWIND 60 + ISTART=0 + CALL WEIGHT(1) + NSKIP=W1*10.-2942. + IF(NSKIP.GT.0)THEN + DO 2 ISKIP=1,NSKIP + 2 READ(60) + ENDIF + IREAD=NSKIP + XSAVE=100000. + XSAVE1=100000. + LAST=0 + 3 READ(60)LAMBDA,NORD,NSET,NREC,ISPECT + IREAD=IREAD+1 + IF(LAMBDA.LE.LAST)GO TO 3 + LAST=LAMBDA + WAVE=FLOAT(LAMBDA)*.1 + ISTART=0 + IF(IFKPNO.GT.1)CALL WEIGHT(12) + DO 14 I=1,500 + W=WAVE+FLOAT(I-1)*.0002 + W=W*(1.D0+DOPOBS/299792.458D0) + IF(W.LT.W1)GO TO 14 + IF(W.GT.W2)GO TO 315 + X=(W-W1)*XSCALE*10. + IF(ISPECT(I).GT.11000)ISPECT(I)=0 + S=FLOAT(ISPECT(I))/10000. + S=(S-ZEROOBS)*SCALOBS + Y=(S-RMIN)/(RMAX-RMIN)*3.125*YSCALE + Y=AMAX1(Y,0.) + IF(ISTART.EQ.0)THEN + CALL JUMP TO (X,Y) + IF(XSAVE.LT.X)CALL JUMP TO (XSAVE,YSAVE) + ENDIF + ISTART=1 + CALL LINE TO (X,Y) + 14 CONTINUE + XSAVE=X + YSAVE=Y + 315 ISTART=0 + IF(IFKPNO.LT.3.)GO TO 333 + CALL WEIGHT(1) + DO 324 I=1,500 + W=WAVE+FLOAT(I-1)*.0002 + W=W*(1.D0+DOPOBS/299792.458D0) + IF(W.LT.W1)GO TO 324 + IF(W.GT.W2)GO TO 15 + X=(W-W1)*XSCALE*10. + XNEW=X + S=FLOAT(ISPECT(I))/10000. + S=(S-ZEROOBS)*SCALOBS + Y=(S-.9)/(1.0-.9)*3.125*YSCALE + YNEW=Y + IF(ISTART.EQ.0)THEN + IF(Y.LT.0.)Y=0. + GO TO 240 + ENDIF + IF(YNEW.GE.0..AND.YOLD.GE.0.)GO TO 240 + Y=0. + IF(YNEW.LT.0..AND.YOLD.LT.0.)GO TO 240 + IF(YOLD.LE.0.)GO TO 239 + X=XOLD+(XNEW-XOLD)/(YNEW-YOLD)*(0.-YOLD) + GO TO 240 + 239 X=XOLD+(XNEW-XOLD)/(YNEW-YOLD)*YNEW + 240 IF(ISTART.EQ.0)THEN + CALL JUMP TO (X,Y) + IF(XSAVE1.LT.X)CALL JUMP TO (XSAVE1,YSAVE1) + ENDIF + ISTART=1 + XOLD=XNEW + YOLD=YNEW + CALL LINE TO (X,Y) + 324 CONTINUE + XSAVE1=X + YSAVE1=Y + 333 IF(IREAD.LT.7950)GO TO 3 + 15 CALL WEIGHT(1) + RETURN +C LIMB + 30 IF(W1.GT.973.9)RETURN + IF(W2.LT.367.6)RETURN + REWIND 60 + ISTART=0 + CALL WEIGHT(1) + NSKIP=7950 + DO 21 ISKIP=1,NSKIP + 21 READ(60) + IREAD=NSKIP + NSKIP=W1*10.-3676.-10. + IF(NSKIP.GT.0)THEN + DO 22 ISKIP=1,NSKIP + 22 READ(60) + IREAD=IREAD+NSKIP + ENDIF + LAST=0 + 23 READ(60)LAMBDA,NORD,NSET,NREC,ISPECT + IREAD=IREAD+1 + IF(LAMBDA.LE.LAST)GO TO 23 + IF(LAMBDA.GT.LAST+1)ISTART=0 + LAST=LAMBDA + WAVE=FLOAT(LAMBDA)*.1 + DO 24 I=1,500 + W=WAVE+FLOAT(I-1)*.0002 + W=W*(1.D0+DOPOBS/299792.458D0) + IF(W.LT.W1)GO TO 24 + IF(W.GT.W2)GO TO 25 + X=(W-W1)*XSCALE*10. + S=FLOAT(ISPECT(I))/10000. + IF(S.GT.2.)S=0. + S=(S-ZEROOBS)*SCALOBS + Y=(S-RMIN)/(RMAX-RMIN)*3.125*YSCALE + Y=AMAX1(Y,0.) + IF(ISTART.EQ.0)CALL JUMP TO (X,Y) + ISTART=1 + CALL LINE TO (X,Y) + 24 CONTINUE + IF(IREAD.LT.13997)GO TO 23 + 25 CALL WEIGHT(1) + RETURN + END + SUBROUTINE OBSJUNG(IFJUNG) +C JUNGFRAUJOCH SOLAR ATLAS BY DELBOUILLE, ROLAND, AND NEVEN + +C IFJUNG=1 NORMAL PLOT WEIGHT 1 +C IFJUNG=2 NORMAL PLOT WEIGHT 12 +C IFJUNG=3 NORMAL PLOT WEIGHT 12 PLUS 10X WEIGHT 1 +C IFJUNG=4 NORMAL PLOT WEIGHT 12 PLUS 10X WEIGHT 12 +C + COMMON /PARAMS/XSCALE, + 1 RMIN,WEAK,TOP,PANEL,CYCLES,WBEGIN,WEND,W1,W2,YTOP, + 2 HMAX,HMIN,YSCALE,OFFSET,RMAX, + 3 WNEW1,WNEW2,SMOOTH,DOPOBS,DOPCALC,DOPTERR, + 4 SCALOBS,ZEROOBS,RMIN2,RMAX2,XOFFSET,SCALOB2,DUMMY7 + 5 IFLABL,IFABSO,IFCONT,IFGRID,IFDLIN,IFLOG,IFMU,NOCALC + 6 IFVAC,NOPRNT + REAL*8 WBEGIN,WEND,W1,W2,RESOLU,RATIO,WNEW1,WNEW2,WAVEL + DATA IREAD/0/ + INTEGER*2 ISPECT(500),LAMBDA,NORD,NSET,NREC + IF(IREAD.EQ.1)GO TO 1 + OPEN(UNIT=74,SHARED,READONLY,TYPE='OLD',FORM='UNFORMATTED') + IREAD=1 + 1 CONTINUE +C CENTER + IF(W1.GT.1000.4)RETURN + IF(W2.LT.299.1)RETURN + REWIND 74 + ISTART=0 + CALL WEIGHT(1) + NSKIP=W1*10.-2991. + IF(NSKIP.GT.0)THEN + DO 2 ISKIP=1,NSKIP + 2 READ(74) + ENDIF + IREAD=NSKIP+2990 + XSAVE=100000. + XSAVE1=100000. + LAST=0 + 3 READ(74)ISPECT + IREAD=IREAD+1 + WAVE=IREAD*.1 + ISTART=0 + IF(IFJUNG.GT.1)CALL WEIGHT(12) + DO 14 I=1,500 + W=WAVE+FLOAT(I-1)*.0002 +C REMOVE GRAVITATIONAL RED SHIFT + W=W*(1.D0-0.636D0/299792.458D0) + W=W*(1.D0+DOPOBS/299792.458D0) + IF(W.LT.W1)GO TO 14 + IF(W.GT.W2)GO TO 315 + X=(W-W1)*XSCALE*10. + S=FLOAT(ISPECT(I))/10000. + S=(S-ZEROOBS)*SCALOBS + Y=(S-RMIN)/(RMAX-RMIN)*3.125*YSCALE + Y=AMAX1(Y,0.) + IF(ISTART.EQ.0)THEN + CALL JUMP TO (X,Y) + IF(XSAVE.LT.X)CALL JUMP TO (XSAVE,YSAVE) + ENDIF + ISTART=1 + CALL LINE TO (X,Y) + 14 CONTINUE + XSAVE=X + YSAVE=Y + 315 ISTART=0 + IF(IFJUNG.LT.3.)GO TO 333 + CALL WEIGHT(1) + IF(IFJUNG.EQ.4)CALL WEIGHT(12) + DO 324 I=1,500 + W=WAVE+FLOAT(I-1)*.0002 +C REMOVE GRAVITATIONAL RED SHIFT + W=W*(1.D0-0.636D0/299792.458D0) + W=W*(1.D0+DOPOBS/299792.458D0) + IF(W.LT.W1)GO TO 324 + IF(W.GT.W2)GO TO 15 + X=(W-W1)*XSCALE*10. + XNEW=X + S=FLOAT(ISPECT(I))/10000. + S=(S-ZEROOBS)*SCALOBS + Y=(S-.9)/(1.0-.9)*3.125*YSCALE + YNEW=Y + IF(ISTART.EQ.0)THEN + IF(Y.LT.0.)Y=0. + GO TO 240 + ENDIF + IF(YNEW.GE.0..AND.YOLD.GE.0.)GO TO 240 + Y=0. + IF(YNEW.LT.0..AND.YOLD.LT.0.)GO TO 240 + IF(YOLD.LE.0.)GO TO 239 + X=XOLD+(XNEW-XOLD)/(YNEW-YOLD)*(0.-YOLD) + GO TO 240 + 239 X=XOLD+(XNEW-XOLD)/(YNEW-YOLD)*YNEW + 240 IF(ISTART.EQ.0)THEN + CALL JUMP TO (X,Y) + IF(XSAVE1.LT.X)CALL JUMP TO (XSAVE1,YSAVE1) + ENDIF + ISTART=1 + XOLD=XNEW + YOLD=YNEW + CALL LINE TO (X,Y) + 324 CONTINUE + XSAVE1=X + YSAVE1=Y + 333 IF(IREAD.LT.10003)GO TO 3 + 15 CALL WEIGHT(1) + RETURN + END + SUBROUTINE OBSKPK(IFKPK) +C HARVARD ROCKET SPECTRA KOHL,PARKINSON,KURUCZ + COMMON /PARAMS/XSCALE, + 1 RMIN,WEAK,TOP,PANEL,CYCLES,WBEGIN,WEND,W1,W2,YTOP, + 2 HMAX,HMIN,YSCALE,OFFSET,RMAX, + 3 WNEW1,WNEW2,SMOOTH,DOPOBS,DOPCALC,DOPTERR, + 4 SCALOBS,ZEROOBS,RMIN2,RMAX2,XOFFSET,SCALOB2,DUMMY7 + 5 IFLABL,IFABSO,IFCONT,IFGRID,IFDLIN,IFLOG,IFMU,NOCALC + 6 IFVAC,NOPRNT + REAL*8 WBEGIN,WEND,W1,W2,RESOLU,RATIO,WNEW1,WNEW2,WAVEL,WI + COMMON /WISI/WI(355707),SI(355707) + DATA IREAD/0/ + IF(IREAD.EQ.0)READ(61)WI,SI + IREAD=1 + ISTART=0 + CALL WEIGHT(2) + IF(IFMU.EQ.2)GO TO 30 +C SCAN 1A + IOFFSET=0 + DO 14 I=1,30047 + W=ABS(WI(I)) + IF(W.LT.W1)GO TO 14 + IF(W.GT.W2)GO TO 15 + IF(W.GT.255.)GO TO 14 + X=(W-W1)*XSCALE*10. + S=ABS(SI(I)) + Y=S/HMAX*3.125*YSCALE + IF(ISTART.EQ.0)CALL JUMP TO (X,Y) + ISTART=1 + CALL LINE TO (X,Y) + 14 CONTINUE + 15 ISTART=0 +C SCAN 1B + IOFFSET=30047 + DO 16 I=1,61500 + W=ABS(WI(I+IOFFSET)) + IF(W.LT.W1)GO TO 16 + IF(W.GT.W2)GO TO 17 + IF(W.LT.255.)GO TO 16 + X=(W-W1)*XSCALE*10. + S=ABS(SI(I+IOFFSET)) + Y=S/HMAX*3.125*YSCALE + IF(ISTART.EQ.0)CALL JUMP TO (X,Y) + ISTART=1 + CALL LINE TO (X,Y) + 16 CONTINUE + 17 ISTART=0 +C SCAN 2A + IOFFSET=IOFFSET+61500 + DO 24 I=1,29172 + W=ABS(WI(I+IOFFSET)) + IF(W.LT.W1)GO TO 24 + IF(W.GT.W2)GO TO 25 + IF(W.GT.255.)GO TO 24 + X=(W-W1)*XSCALE*10. + S=ABS(SI(I+IOFFSET)) + Y=S/HMAX*3.125*YSCALE + IF(ISTART.EQ.0)CALL JUMP TO (X,Y) + ISTART=1 + CALL LINE TO (X,Y) + 24 CONTINUE + 25 ISTART=0 +C SCAN 2B + IOFFSET=IOFFSET+29172 + DO 26 I=1,60572 + W=ABS(WI(I+IOFFSET)) + IF(W.LT.W1)GO TO 26 + IF(W.GT.W2)GO TO 27 + IF(W.LT.255.)GO TO 26 + X=(W-W1)*XSCALE*10. + S=ABS(SI(I+IOFFSET)) + Y=S/HMAX*3.125*YSCALE + IF(ISTART.EQ.0)CALL JUMP TO (X,Y) + ISTART=1 + CALL LINE TO (X,Y) + 26 CONTINUE + 27 CALL WEIGHT(1) + RETURN + 30 IOFFSET=181291 + ISTART=0 +C SCAN 3A + DO 34 I=1,28687 + W=ABS(WI(I+IOFFSET)) + IF(W.LT.W1)GO TO 34 + IF(W.GT.W2)GO TO 35 + IF(W.GT.255.)GO TO 34 + X=(W-W1)*XSCALE*10. + S=ABS(SI(I+IOFFSET)) + Y=S/HMAX*3.125*YSCALE + IF(ISTART.EQ.0)CALL JUMP TO (X,Y) + ISTART=1 + CALL LINE TO (X,Y) + 34 CONTINUE + 35 ISTART=0 +C SCAN 3B + IOFFSET=IOFFSET+28687 + DO 36 I=1,58100 + W=ABS(WI(I+IOFFSET)) + IF(W.LT.W1)GO TO 36 + IF(W.GT.W2)GO TO 37 + IF(W.LT.255.)GO TO 36 + IF(W.GT.306.2)GO TO 36 + X=(W-W1)*XSCALE*10. + S=ABS(SI(I+IOFFSET)) + Y=S/HMAX*3.125*YSCALE + IF(ISTART.EQ.0)CALL JUMP TO (X,Y) + ISTART=1 + CALL LINE TO (X,Y) + 36 CONTINUE + 37 ISTART=0 +C SCAN 4A + IOFFSET=IOFFSET+58100 + DO 44 I=1,29112 + W=ABS(WI(I+IOFFSET)) + IF(W.LT.W1)GO TO 44 + IF(W.GT.W2)GO TO 45 + IF(W.GT.255.)GO TO 44 + X=(W-W1)*XSCALE*10. + S=ABS(SI(I+IOFFSET)) + Y=S/HMAX*3.125*YSCALE + IF(ISTART.EQ.0)CALL JUMP TO (X,Y) + ISTART=1 + CALL LINE TO (X,Y) + 44 CONTINUE + 45 ISTART=0 +C SCAN 4B + IOFFSET=IOFFSET+29112 + DO 46 I=1,60517 + W=ABS(WI(I+IOFFSET)) + IF(W.LT.W1)GO TO 46 + IF(W.GT.W2)GO TO 47 + IF(W.LT.255.)GO TO 46 + IF(W.GT.312.0)GO TO 46 + X=(W-W1)*XSCALE*10. + S=ABS(SI(I+IOFFSET)) + Y=S/HMAX*3.125*YSCALE + IF(ISTART.EQ.0)CALL JUMP TO (X,Y) + ISTART=1 + CALL LINE TO (X,Y) + 46 CONTINUE + 47 CALL WEIGHT(1) + RETURN + END + SUBROUTINE OBSSACP(IFSACP) +C SAC PEAK SOLAR ATLAS BY BECKERS, BRIDGES, AND GILLIAM + COMMON /PARAMS/XSCALE, + 1 RMIN,WEAK,TOP,PANEL,CYCLES,WBEGIN,WEND,W1,W2,YTOP, + 2 HMAX,HMIN,YSCALE,OFFSET,RMAX, + 3 WNEW1,WNEW2,SMOOTH,DOPOBS,DOPCALC,DOPTERR, + 4 SCALOBS,ZEROOBS,RMIN2,RMAX2,XOFFSET,SCALOB2,DUMMY7 + 5 IFLABL,IFABSO,IFCONT,IFGRID,IFDLIN,IFLOG,IFMU,NOCALC + 6 IFVAC,NOPRNT + REAL*8 WBEGIN,WEND,W1,W2,RESOLU,RATIO,WNEW1,WNEW2,WAVEL + INTEGER*2 ISPECT(200),LAMBDA,NORM1,NORM2,IS + COMMON /WISI/IS(640000) + DATA IREAD/0/ + IF(IREAD.EQ.1)GO TO 2 + OPEN(UNIT=62,SHARED,READONLY,TYPE='OLD',FORM='UNFORMATTED') + IW=0 + DO 1 IREC=1,3200 + READ(62)ISPECT,LAMBDA,NORM1,NORM2 + DO 1 I=1,200 + IW=IW+1 + 1 IS(IW)=ISPECT(I) + IREAD=1 + CLOSE(UNIT=62) + 2 IF(W1.GE.700.)RETURN + IF(W2.LT.380.)RETURN + I1=(W1-380.)*2000.+1. + I2=(W2-380.)*2000.+1. + I1=MAX0(I1,0) + I2=MIN0(I2,640000) + ISTART=0 + CALL WEIGHT(2) + DO 14 I=I1,I2 + W=380.+FLOAT(I-1)*.0005 + X=(W-W1)*XSCALE*10. + Y=(FLOAT(IS(I))/900.-RMIN)/(RMAX-RMIN)*3.125*YSCALE + Y=AMAX1(Y,0.) + IF(ISTART.EQ.0)CALL JUMP TO (X,Y) + ISTART=1 + CALL LINE TO (X,Y) + 14 CONTINUE + CALL WEIGHT(1) + RETURN + END + SUBROUTINE OBSHAWA(IFHAWA) +C HAWAII ROCKET SPECTRA ALLEN, MCALLISTER, AND JEFFRIES +C IFHAWA=1 WEIGHT=2 +C IFHAWA=2 WEIGHT=1 + COMMON /PARAMS/XSCALE, + 1 RMIN,WEAK,TOP,PANEL,CYCLES,WBEGIN,WEND,W1,W2,YTOP, + 2 HMAX,HMIN,YSCALE,OFFSET,RMAX, + 3 WNEW1,WNEW2,SMOOTH,DOPOBS,DOPCALC,DOPTERR, + 4 SCALOBS,ZEROOBS,RMIN2,RMAX2,XOFFSET,SCALOB2,DUMMY7 + 5 IFLABL,IFABSO,IFCONT,IFGRID,IFDLIN,IFLOG,IFMU,NOCALC + 6 IFVAC,NOPRNT + REAL*8 WBEGIN,WEND,W1,W2,RESOLU,RATIO,WNEW1,WNEW2,WAVEL + REAL*8 WI,W +C THE DATA ARE REREAD EACH TIME TO SAVE STORAGE AND ALLOW PLOTTING +C WITH OTHER ATLASES + IF(W2.LT.268.)RETURN + IF(W1.GE.293.)RETURN + OPEN(UNIT=63,SHARED,READONLY,TYPE='OLD',FORM='UNFORMATTED') + SMAX=4.E7 + ISTART=0 + CALL WEIGHT(2) + IF(IFHAWA.EQ.2)CALL WEIGHT(1) + I1=(W1-268.)*2000.+1. + I2=(W2-268.)*2000.+1. + I1=MAX0(I1,1) + I2=MIN0(I2,50000) + IF(I1.GT.0)THEN + NSKIP=I1-1 + DO 13 ISKIP=1,NSKIP + 13 READ(63) + ENDIF + DO 14 I=I1,I2 + W=268.+FLOAT(I-1)*.0005 + X=(W-W1)*XSCALE*10. + READ(63)S + Y=S/SMAX*3.125*YSCALE + IF(ISTART.EQ.0)CALL JUMP TO (X,Y) + ISTART=1 + CALL LINE TO (X,Y) + 14 CONTINUE + CALL WEIGHT(1) + CLOSE(UNIT=63) + RETURN + END + SUBROUTINE OBSNRL(IFNRL) + RETURN + END + SUBROUTINE OBSPROC(IFPROC) + COMMON /PARAMS/XSCALE, + 1 RMIN,WEAK,TOP,PANEL,CYCLES,WBEGIN,WEND,W1,W2,YTOP, + 2 HMAX,HMIN,YSCALE,OFFSET,RMAX, + 3 WNEW1,WNEW2,SMOOTH,DOPOBS,DOPCALC,DOPTERR, + 4 SCALOBS,ZEROOBS,RMIN2,RMAX2,XOFFSET,SCALOB2,DUMMY7 + 5 IFLABL,IFABSO,IFCONT,IFGRID,IFDLIN,IFLOG,IFMU,NOCALC + 6 IFVAC,NOPRNT + REAL*8 WBEGIN,WEND,W1,W2,RESOLU,RATIO,WNEW1,WNEW2,WAVEL + REAL*8 WI,W + COMMON /WISI/SI(866000) +C COMMON MUST BE REMOVED TO PLOT TWO SPECTRA AT THE SAME TIME + DATA IREAD/0/ + IF(IREAD.EQ.1)GO TO 9 + IREAD=1 + OPEN(UNIT=65,SHARED,READONLY,TYPE='OLD',FORM='UNFORMATTED') + READ(65)SI + 9 CONTINUE + IF(W2.LT.314.)RETURN + IF(W1.GT.747.)RETURN + CALL WEIGHT(2) + ISTART=0 + I1=(W1-314.)*2000. + I1=MAX0(I1,1) + DO 14 I=I1,866000 + W=FLOAT(I-1)*.0005D0+314.D0 + IF(W.LT.W1)GO TO 14 + IF(W.GT.W2)GO TO 15 + X=(W-W1)*XSCALE*10. + Y=SI(I)/100.*3.125*YSCALE + IF(Y.EQ.0.)THEN + ISTART=0 + GO TO 14 + ENDIF + IF(ISTART.EQ.0)CALL JUMP TO (X,Y) + ISTART=1 + CALL LINE TO (X,Y) + 14 CONTINUE + 15 CALL WEIGHT(1) + RETURN + END + SUBROUTINE OBSARC(IFARC) + RETURN + END + SUBROUTINE OBSSUNF(IFSUNF) +C PLOTS KURUCZ, FURENLID, BRAULT, AND TESTERMAN SOLAR FLUX ATLAS +C IFSUNF=1 WEIGHT=2 +C IFSUNF=2 WEIGHT=1 +C IFSUNF=3 PLOT TWICE NORMAL WITH WEIGHT=2 AND 10 TIMES YSCALE WITH WEIGHT=1 +C IFSUNF=4 PLOT TWICE NORMAL WITH WEIGHT=1 AND 10 TIMES YSCALE WITH WEIGHT=1 +C IFSUNF=5 PLOT TWICE NORMAL WITH WEIGHT=2 AND 10 TIMES YSCALE WITH WEIGHT=2 + COMMON /PARAMS/XSCALE, + 1 RMIN,WEAK,TOP,PANEL,CYCLES,WBEGIN,WEND,W1,W2,YTOP, + 2 HMAX,HMIN,YSCALE,OFFSET,RMAX, + 3 WNEW1,WNEW2,SMOOTH,DOPOBS,DOPCALC,DOPTERR, + 4 SCALOBS,ZEROOBS,RMIN2,RMAX2,XOFFSET,SCALOB2,DUMMY7 + 5 IFLABL,IFABSO,IFCONT,IFGRID,IFDLIN,IFLOG,IFMU,NOCALC + 6 IFVAC,NOPRNT + REAL*8 WBEGIN,WEND,W1,W2,RESOLU,RATIO,WNEW1,WNEW2,WAVEL + REAL*8 WI,W,WCUT + DIMENSION WCUT(7) +CCRAY COMMON /WISI/WI(100000),SI(100000) +C COMMON /WISI/WI(450000),SI(450000) + COMMON /WISI/WI(400000),SI(400000) +C COMMON MUST BE REMOVED TO PLOT TWO SPECTRA AT THE SAME TIME + DATA WCUT/329.897,378.2914,401.965,473.8,576.5,753.9,999.7/ + DATA IREAD/0/ + IF(IREAD.EQ.1)GO TO 9 + IREAD=1 + OPEN(UNIT=68,SHARED,READONLY,TYPE='OLD',FORM='UNFORMATTED') + NIN=0 + DO 4 I=1,1137795 +C W IS THE SOLAR AIR WAVELENGTH INCLUDING THE GRAVITATIONAL REDSHIFT +C S IS THE PSEUDO-RESIDUAL FLUX + READ(68,END=5)W,S +C REMOVE GRAVITATIONAL RED SHIFT + W=W*(1.D0-0.636D0/299792.458D0) + W=W*(1.D0+DOPOBS/299792.458D0) + IF(W.LT.WNEW1)GO TO 4 + IF(W.GT.WNEW2)GO TO 5 + NIN=NIN+1 +CCRAY IF(NIN.GT.100000)CALL ABORT + IF(NIN.GT.450000)CALL ABORT + WI(NIN)=W + SI(NIN)=(S-ZEROOBS)*SCALOBS + 4 CONTINUE + 5 CONTINUE + 9 IF(NIN.EQ.0)RETURN + CALL WEIGHT(2) + IF(IFSUNF.EQ.2.OR.IFSUNF.EQ.12)CALL WEIGHT(1) + ISTART=0 + DO 14 I=1,NIN + W=WI(I) + IF(W.LT.W1)GO TO 14 + IF(W.GT.W2)GO TO 15 + X=(W-W1)*XSCALE*10. + Y=(SI(I)-RMIN)/(RMAX-RMIN)*3.125*YSCALE + Y=AMAX1(Y,0.) + IF(ISTART.EQ.0)CALL JUMP TO (X,Y) + ISTART=1 + CALL LINE TO (X,Y) + 14 CONTINUE + 15 CONTINUE + CALL WEIGHT(1) + IF(IFSUNF.LT.3)RETURN + IF(IFSUNF.EQ.5)CALL WEIGHT(2) + ISTART=0 + DO 24 I=1,NIN + W=WI(I) + IF(W.LT.W1)GO TO 24 + IF(W.GT.W2)GO TO 25 + X=(W-W1)*XSCALE*10. + XNEW=X + S=SI(I) + Y=(S-.9)/(1.0-.9)*3.125*YSCALE + YNEW=Y + IF(ISTART.EQ.0)THEN + IF(Y.LT.0.)Y=0. + GO TO 240 + ENDIF + IF(YNEW.GE.0..AND.YOLD.GE.0.)GO TO 240 + Y=0. + IF(YNEW.LT.0..AND.YOLD.LT.0.)GO TO 240 + IF(YOLD.LE.0.)GO TO 239 + X=XOLD+(XNEW-XOLD)/(YNEW-YOLD)*(0.-YOLD) + GO TO 240 + 239 X=XOLD+(XNEW-XOLD)/(YNEW-YOLD)*YNEW + 240 IF(ISTART.EQ.0)CALL JUMP TO (X,Y) + ISTART=1 + XOLD=XNEW + YOLD=YNEW + CALL LINE TO (X,Y) + 24 CONTINUE + 25 CONTINUE + RETURN + END + SUBROUTINE OBSSOIR(IFSOIR) +C PLOTS DELBOUILLE, ROLAND, BRAULT, AND TESTERMAN INFRARED SOLAR ATLAS +C IFSOIR=1 WEIGHT=2 +C IFSOIR=2 WEIGHT=1 +C IFSOIR=3 PLOT TWICE NORMAL WITH WEIGHT=2 AND 10 TIMES YSCALE WITH WEIGHT=1 +C IFSOIR=4 PLOT TWICE NORMAL WITH WEIGHT=1 AND 10 TIMES YSCALE WITH WEIGHT=1 +C IFSOIR=5 PLOT TWICE NORMAL WITH WEIGHT=2 AND 10 TIMES YSCALE WITH WEIGHT=2 + COMMON /PARAMS/XSCALE, + 1 RMIN,WEAK,TOP,PANEL,CYCLES,WBEGIN,WEND,W1,W2,YTOP, + 2 HMAX,HMIN,YSCALE,OFFSET,RMAX, + 3 WNEW1,WNEW2,SMOOTH,DOPOBS,DOPCALC,DOPTERR, + 4 SCALOBS,ZEROOBS,RMIN2,RMAX2,XOFFSET,SCALOB2,DUMMY7 + 5 IFLABL,IFABSO,IFCONT,IFGRID,IFDLIN,IFLOG,IFMU,NOCALC + 6 IFVAC,NOPRNT + REAL*8 WBEGIN,WEND,W1,W2,RESOLU,RATIO,WNEW1,WNEW2,WAVEL + REAL*8 WI,W,WCUT + DIMENSION WCUT(8) + COMMON /WISI/WI(450000),SI(450000) +C COMMON /WISI/WI(400000),SI(400000) +CCRAY COMMON /WISI/WI(300000) + DATA WCUT/8*0./ + DATA IREAD/0/ + IF(IREAD.EQ.1)GO TO 9 + IREAD=1 + OPEN(UNIT=69,SHARED,READONLY,TYPE='OLD',FORM='UNFORMATTED') + NIN=0 + DO 4 I=1,2037512 +C W IS THE SOLAR AIR WAVELENGTH INCLUDING THE GRAVITATIONAL REDSHIFT +C S IS THE PSEUDO-RESIDUAL INTENSITY + READ(69,END=5)W,S +C REMOVE GRAVITATIONAL RED SHIFT + W=W*(1.D0-0.636D0/299792.458D0) + W=W*(1.D0+DOPOBS/299792.458D0) + IF(W.LT.WNEW1)GO TO 4 + IF(W.GT.WNEW2)GO TO 5 + NIN=NIN+1 + IF(NIN.GT.450000)CALL ABORT +CCRAY IF(NIN.GT.300000)CALL ABORT +CCRAY IW=(W-WNEW1)*100000. +CCRAY S=AMIN1(AMAX1(S,0.),.999999) +CCRAY WI(NIN)=FLOAT(IW)+S + WI(NIN)=W +C SI(NIN)=S + SI(NIN)=(S-ZEROOBS)*SCALOBS + 4 CONTINUE + 5 CONTINUE + 9 IF(NIN.EQ.0)RETURN + CALL WEIGHT(2) + IF(IFSOIR.EQ.2.OR.IFSOIR.EQ.4)CALL WEIGHT(1) + ISTART=0 + DO 14 I=1,NIN + W=WI(I) +CCRAY IW=WI(I) +CCRAY W=WNEW1+FLOAT(IW)*.00001 + IF(W.LT.W1)GO TO 14 + IF(W.GT.W2)GO TO 15 + X=(W-W1)*XSCALE*10. +CCRAY S=WI(I)-FLOAT(IW) +CCRAY Y=(S-RMIN)/(RMAX-RMIN)*3.125*YSCALE + Y=(SI(I)-RMIN)/(RMAX-RMIN)*3.125*YSCALE + Y=AMAX1(Y,0.) + IF(ISTART.EQ.0)CALL JUMP TO (X,Y) + ISTART=1 + CALL LINE TO (X,Y) + 14 CONTINUE + 15 CONTINUE + CALL WEIGHT(1) + IF(IFSOIR.EQ.5)CALL WEIGHT(2) + IF(IFSOIR.LE.2)RETURN + ISTART=0 + DO 24 I=1,NIN + W=WI(I) + IF(W.LT.W1)GO TO 24 + IF(W.GT.W2)GO TO 25 + X=(W-W1)*XSCALE*10. + XNEW=X + S=SI(I) + Y=(S-.9)/(1.0-.9)*3.125*YSCALE + YNEW=Y + IF(ISTART.EQ.0)THEN + IF(Y.LT.0.)Y=0. + GO TO 240 + ENDIF + IF(YNEW.GE.0..AND.YOLD.GE.0.)GO TO 240 + Y=0. + IF(YNEW.LT.0..AND.YOLD.LT.0.)GO TO 240 + IF(YOLD.LE.0.)GO TO 239 + X=XOLD+(XNEW-XOLD)/(YNEW-YOLD)*(0.-YOLD) + GO TO 240 + 239 X=XOLD+(XNEW-XOLD)/(YNEW-YOLD)*YNEW + 240 IF(ISTART.EQ.0)CALL JUMP TO (X,Y) + ISTART=1 + XOLD=XNEW + YOLD=YNEW + CALL LINE TO (X,Y) + 24 CONTINUE + 25 CONTINUE + CALL WEIGHT(1) + RETURN + END + SUBROUTINE OBSHALL(IFHALL) +C PLOTS HALL INFRARED SUNSPOT ATLAS +C IFHALL=1 SPOT +C IFHALL=2 DISK +C IFHALL=3 RATIO SPOT/DISK + COMMON /PARAMS/XSCALE, + 1 RMIN,WEAK,TOP,PANEL,CYCLES,WBEGIN,WEND,W1,W2,YTOP, + 2 HMAX,HMIN,YSCALE,OFFSET,RMAX, + 3 WNEW1,WNEW2,SMOOTH,DOPOBS,DOPCALC,DOPTERR, + 4 SCALOBS,ZEROOBS,RMIN2,RMAX2,XOFFSET,SCALOB2,DUMMY7 + 5 IFLABL,IFABSO,IFCONT,IFGRID,IFDLIN,IFLOG,IFMU,NOCALC + 6 IFVAC,NOPRNT + REAL*8 WBEGIN,WEND,W1,W2,RESOLU,RATIO,WNEW1,WNEW2,WAVEL + REAL*8 WI,W + INTEGER*2 IDISK,ISPOT,IRATIO +CCRAY COMMON /WISI/WI(100000),SI(100000) + COMMON /WISI/WI(386000),SI(386000) +C COMMON MUST BE REMOVED TO PLOT TWO SPECTRA AT THE SAME TIME + DATA IREAD/0/ + IF(IREAD.EQ.1)GO TO 9 + IREAD=1 + OPEN(UNIT=59,SHARED,READONLY,TYPE='OLD',FORM='UNFORMATTED') + NIN=0 + DO 4 I=1,386000 + READ(59,END=5)W,IDISK,ISPOT,IRATIO + W=W*(1.D0+DOPOBS/299792.458D0) + IF(W.LT.WNEW1)GO TO 4 + IF(W.GT.WNEW2)GO TO 5 + NIN=NIN+1 + WI(NIN)=W + IF(IFHALL.EQ.1)THEN + SI(NIN)=(FLOAT(ISPOT)*.0001-ZEROOBS)*SCALOBS + GO TO 4 + ELSE IF(IFHALL.EQ.2)THEN + SI(NIN)=(FLOAT(IDISK)*.0001-ZEROOBS)*SCALOBS + GO TO 4 + ELSE IF(IFHALL.EQ.3)THEN + SI(NIN)=FLOAT(IRATIO)*.0001 + IF(IDISK.GT.0)SI(NIN)=FLOAT(ISPOT)/FLOAT(IDISK) + ELSE + CALL ABORT + ENDIF +CCRAY IF(NIN.GT.100000)CALL ABORT + 4 CONTINUE + 5 CONTINUE + 9 IF(NIN.EQ.0)RETURN + CALL WEIGHT(2) + ISTART=0 + DO 14 I=1,NIN + W=WI(I) + IF(W.LT.W1)GO TO 14 + IF(W.GT.W2)GO TO 15 + X=(W-W1)*XSCALE*10. + Y=(SI(I)-RMIN)/(RMAX-RMIN)*3.125*YSCALE +C Y=AMAX1(Y,0.) + IF(ISTART.EQ.0)CALL JUMP TO (X,Y) + ISTART=1 + CALL LINE TO (X,Y) + 14 CONTINUE + 15 CONTINUE + CALL WEIGHT(1) + RETURN + END + SUBROUTINE OBSENGV(IFENGV) +C PLOTS ENGVOLD SUNSPOT ATLAS +C IFENGV=1 SPOT BLUE MU=.90 +C IFENGV=2 DISK BLUE MU=.90 +C IFENGV=3 RATIO SPOT/DISK BLUE +C IFENGV=4 SPOT RED MU=.94 +C IFENGV=5 DISK RED MU=.94 +C IFENGV=6 RATIO SPOT/DISK RED +C ALL ABOVE HAVE WEIGHT=1 +C IFENGV +10 SAME AS ABOVE BUT WEIGHT=2 +C IFENGV +20 SAME AS ABOVE BUT ALSO PLOTS 10X TIMES YSCALE +C IFENGV +30 SAME AS ABOVE BUT WEIGHT=2 AND ALSO PLOTS 10X TIMES YSCALE + COMMON /PARAMS/XSCALE, + 1 RMIN,WEAK,TOP,PANEL,CYCLES,WBEGIN,WEND,W1,W2,YTOP, + 2 HMAX,HMIN,YSCALE,OFFSET,RMAX, + 3 WNEW1,WNEW2,SMOOTH,DOPOBS,DOPCALC,DOPTERR, + 4 SCALOBS,ZEROOBS,RMIN2,RMAX2,XOFFSET,SCALOB2,DUMMY7 + 5 IFLABL,IFABSO,IFCONT,IFGRID,IFDLIN,IFLOG,IFMU,NOCALC + 6 IFVAC,NOPRNT + REAL*8 WBEGIN,WEND,W1,W2,RESOLU,RATIO,WNEW1,WNEW2,WAVEL + REAL*8 WI,W,DOPRATIO +CCRAY COMMON /WISI/WI(100000),SS(110000) + COMMON /WISI/WI(400000),SS(410000) +C COMMON MUST BE REMOVED TO PLOT TWO SPECTRA AT THE SAME TIME + DIMENSION SI(400000) + EQUIVALENCE (SI(1),SS(10001)) + DIMENSION WTSMOO(10000) + REAL*8 WAVESTD(66) + DATA WAVESTD/ + 1 775.06585, 775.11146, 775.52666, 776.06611, 776.46590, 777.19615, + 2 777.41790, 777.53998, 778.05662, 778.89450, 779.75891, 779.92034, + 3 780.24764, 780.79131, 781.08178, 781.11496, 782.08077, 782.67650, + 4 783.22071, 783.26518, 783.53055, 783.61275, 783.96605, 784.45597, + 5 784.52997, 784.62974, 784.65223, 784.99732, + 6 530.04003, 530.07511, 530.10445, 530.13139, 530.18653, 530.23074, + 7 530.32257, 530.35452, 530.38423, 530.41823, 530.45604, 530.58647, + 8 530.73673, 530.84250, 530.86808, 530.89032, 531.02218, 531.04653, + 9 531.06919, 531.14506, 531.16311, 531.26480, 531.28574, 531.32391, + A 531.35829, 531.49199, 531.50738, 531.57749, 531.66172, 531.67823, + 1 531.75354, 531.83531, 531.87702, 531.90323, 531.92134, 531.93055, + 2 531.98171, 531.98203/ + DATA IREAD/0/ + IF(IREAD.EQ.1)GO TO 9 + IREAD=1 + OPEN(UNIT=58,SHARED,READONLY,TYPE='OLD',FORM='UNFORMATTED') +C CONVERT TO SOLAR FROM TERRESTRIAL + DOPSHIFT=-.734 + NIN=0 + NTOT=341914 + IFENG=MOD(IFENGV,10) + IF(IFENG.GT.3)THEN +C CONVERT TO SOLAR FROM TERRESTRIAL + DOPSHIFT=-.884 + DO 1 I=1,341914 + 1 READ(58) + NTOT=507261 + ENDIF + DOPRATIO=1.D0+DOPSHIFT/299792.458D0 + DOPRATIO=DOPRATIO*(1.D0+DOPOBS/299792.458D0) + IF(IFENG.EQ.1.OR.IFENG.EQ.4)THEN + DO 4 I=1,NTOT + READ(58)W,SPOT + IF(W.LT.WNEW1)GO TO 4 + IF(W.GT.WNEW2)GO TO 5 + NIN=NIN+1 + SI(NIN)=SPOT + WI(NIN)=W*DOPRATIO +CCRAY IF(NIN.GT.100000)CALL ABORT + 4 CONTINUE + ELSE IF(IFENG.EQ.2.OR.IFENG.EQ.5)THEN + DO 14 I=1,NTOT + READ(58)W,SPOT,DISK + IF(W.LT.WNEW1)GO TO 14 + IF(W.GT.WNEW2)GO TO 5 + NIN=NIN+1 + SI(NIN)=DISK + WI(NIN)=W*DOPRATIO +CCRAY IF(NIN.GT.100000)CALL ABORT + 14 CONTINUE + ELSE IF(IFENG.EQ.3.OR.IFENG.EQ.6)THEN + DO 24 I=1,NTOT + READ(58)W,SPOT,DISK + IF(W.LT.WNEW1)GO TO 24 + IF(W.GT.WNEW2)GO TO 5 + NIN=NIN+1 + RATIO=1. + IF(DISK.GT..01.AND.SPOT.GT..01)RATIO=SPOT/DISK + IF(RATIO.GT.2.)RATIO=2. + SI(NIN)=RATIO + WI(NIN)=W*DOPRATIO +CCRAY IF(NIN.GT.100000)CALL ABORT + 24 CONTINUE + ELSE + CALL ABORT + ENDIF + 5 CONTINUE + 9 IF(NIN.EQ.0)RETURN + IF(SMOOTH.GT.0.)THEN + NWT=3.*SMOOTH + NWT2=NWT*2+1 + SUMWT=1. + DO 333 I=1,NWT + WTSMOO(I)=EXP(-(2.*FLOAT(I)/SMOOTH*SQRT(ALOG(2.)))**2) + 333 SUMWT=SUMWT+WTSMOO(I)*2. + WTSMOO(NWT+1)=1./SUMWT + DO 334 I=1,NWT + 334 WTSMOO(NWT+1+I)=WTSMOO(I)/SUMWT + DO 335 I=1,NWT + 335 WTSMOO(I)=WTSMOO(NWT2+1-I) + DO 3330 I=1,NWT2 + 3330 PRINT 3333,I,WTSMOO(I) + 3333 FORMAT(I10,F10.7) + DO 337 I=1,NIN + I1=MAX0(I-NWT,1) + I2=MIN0(I+NWT,NIN) + SS(I)=0. + INWT1=I-NWT-1 + DO 336 II=I1,I2 + 336 SS(I)=SS(I)+WTSMOO(II-INWT1)*SI(II) + 337 CONTINUE + DO 338 I=1,NIN + NINI=NIN+1-I + 338 SI(NINI)=SS(NINI) + ENDIF + CALL WEIGHT(1) + IF(IFENGV.GE.10.AND.IFENGV.LE.19)CALL WEIGHT(2) + IF(IFENGV.GE.30.AND.IFENGV.LE.39)CALL WEIGHT(2) + ISTART=0 + DO 54 I=1,NIN + W=WI(I) + IF(W.LT.W1)GO TO 54 + IF(W.GT.W2)GO TO 55 + X=(W-W1)*XSCALE*10. + S=SI(I) + S=(S-ZEROOBS)*SCALOBS + Y=(S-RMIN)/(RMAX-RMIN)*3.125*YSCALE +C Y=(SI(I)-RMIN)/(RMAX-RMIN)*3.125*YSCALE +C Y=AMAX1(Y,0.) + IF(ISTART.EQ.0)CALL JUMP TO (X,Y) + ISTART=1 + CALL LINE TO (X,Y) + 54 CONTINUE + 55 CONTINUE + CALL WEIGHT(1) + IF(IFENGV.LT.20)RETURN + ISTART=0 + DO 124 I=1,NIN + W=WI(I) + IF(W.LT.W1)GO TO 124 + IF(W.GT.W2)GO TO 125 + X=(W-W1)*XSCALE*10. + XNEW=X + S=SI(I) + S=(S-ZEROOBS)*SCALOBS + Y=(S-RMIN)/(RMAX-RMIN)*3.125*YSCALE + Y=(S-.9)/(1.0-.9)*3.125*YSCALE + YNEW=Y + IF(ISTART.EQ.0)THEN + IF(Y.LT.0.)Y=0. + GO TO 240 + ENDIF + IF(YNEW.GE.0..AND.YOLD.GE.0.)GO TO 240 + Y=0. + IF(YNEW.LT.0..AND.YOLD.LT.0.)GO TO 240 + IF(YOLD.LE.0.)GO TO 239 + X=XOLD+(XNEW-XOLD)/(YNEW-YOLD)*(0.-YOLD) + GO TO 240 + 239 X=XOLD+(XNEW-XOLD)/(YNEW-YOLD)*YNEW + 240 IF(ISTART.EQ.0)CALL JUMP TO (X,Y) + ISTART=1 + XOLD=XNEW + YOLD=YNEW + CALL LINE TO (X,Y) + 124 CONTINUE + 125 CONTINUE +C DO 850 ISTD=1,66 +C W=WAVESTD(ISTD) +C IF(W.LT.W1)GO TO 850 +C IF(W.GT.W2)GO TO 850 +C X=(W-W1)*XSCALE*10. +C CALL JUMP TO (X,0) +C CALL LINE TO (X,YTOP) +C 850 CONTINUE + RETURN + END + SUBROUTINE OBSFTS(IFFTS) +C PLOTS A SPECTRUM FROM THE FTS AT KITT PEAK +C IFFTS=1 WEIGHT=2 +C IFFTS=2 WEIGHT=1 +C IFFTS=11 PLOT TWICE, NORMAL WITH WEIGHT=2 AND 10 TIMES YSCALE WITH WEIGHT=1 +C IFFTS=12 PLOT TWICE, NORMAL WITH WEIGHT=1 AND 10 TIMES YSCALE WITH WEIGHT=1 +C IFFTS=21 PLOT TWICE, NORMAL WITH WEIGHT=2 AND 10 TIMES YSCALE WITH WEIGHT=2 + COMMON /PARAMS/XSCALE, + 1 RMIN,WEAK,TOP,PANEL,CYCLES,WBEGIN,WEND,W1,W2,YTOP, + 2 HMAX,HMIN,YSCALE,OFFSET,RMAX, + 3 WNEW1,WNEW2,SMOOTH,DOPOBS,DOPCALC,DOPTERR, + 4 SCALOBS,ZEROOBS,RMIN2,RMAX2,XOFFSET,SCALOB2,DUMMY7 + 5 IFLABL,IFABSO,IFCONT,IFGRID,IFDLIN,IFLOG,IFMU,NOCALC + 6 IFVAC,NOPRNT + REAL*8 WBEGIN,WEND,W1,W2,RESOLU,RATIO,WNEW1,WNEW2,WAVEL + REAL*8 WI,W +C COMMON /WISI/WI(400000),SI(400000) + COMMON /WISI/WI(400000),SS(410000) +C COMMON MUST BE REMOVED TO PLOT TWO SPECTRA AT THE SAME TIME + DIMENSION SI(400000) + EQUIVALENCE (SI(1),SS(10001)) + DIMENSION WTSMOO(10000) + DATA IREAD/0/ + IF(IREAD.EQ.1)GO TO 9 + IREAD=1 + OPEN(UNIT=73,SHARED,READONLY,TYPE='OLD',FORM='UNFORMATTED', + 1BLOCKSIZE=12000,RECORDSIZE=3,RECORDTYPE='FIXED') + READ(73)WFTS1,WFTS2,NFTS + NIN=0 + DO 4 I=1,NFTS +C W IS THE AIR WAVELENGTH +C IF IT IS A SOLAR SPECTRUM W INCLUDES THE GRAVITATIONAL REDSHIFT +C S IS THE PSEUDO-RESIDUAL FLUX OR INTENSITY + READ(73)W,S +C REMOVE GRAVITATIONAL RED SHIFT +C W=W*(1.D0-0.636/299792.458D0) + W=W*(1.D0+DOPOBS/299792.458D0) + IF(W.LT.WNEW1)GO TO 4 + IF(W.GT.WNEW2)GO TO 5 + NIN=NIN+1 + IF(NIN.GT.450000)CALL ABORT + WI(NIN)=W + SCALOB=(W-WNEW1)/(WNEW2-WNEW1)*(SCALOB2-SCALOBS)+SCALOBS + SI(NIN)=(S-ZEROOBS)*SCALOB + 4 CONTINUE + 5 CONTINUE +C + IF(SMOOTH.EQ.0.)GO TO 9 + IF(SMOOTH.GT.0.)THEN + NWT=3.*SMOOTH + NWT2=NWT*2+1 + SUMWT=1. + DO 333 I=1,NWT + WTSMOO(I)=EXP(-(2.*FLOAT(I)/SMOOTH*SQRT(ALOG(2.)))**2) + 333 SUMWT=SUMWT+WTSMOO(I)*2. + WTSMOO(NWT+1)=1./SUMWT + DO 334 I=1,NWT + 334 WTSMOO(NWT+1+I)=WTSMOO(I)/SUMWT + DO 335 I=1,NWT + 335 WTSMOO(I)=WTSMOO(NWT2+1-I) + ELSE + NWT=1 + NWT2=3 + WTSMOO(2)=ABS(SMOOTH) + WTSMOO(1)=(1.-WTSMOO(2))*.5 + WTSMOO(3)=WTSMOO(1) + ENDIF + DO 3330 I=1,NWT2 + 3330 PRINT 3333,I,WTSMOO(I) + 3333 FORMAT(I10,F10.7) + DO 337 I=1,NIN + I1=MAX0(I-NWT,1) + I2=MIN0(I+NWT,NIN) + SS(I)=0. + INWT1=I-NWT-1 + DO 336 II=I1,I2 + 336 SS(I)=SS(I)+WTSMOO(II-INWT1)*SI(II) + 337 CONTINUE + DO 338 I=1,NIN + NINI=NIN+1-I + 338 SI(NINI)=SS(NINI) +C + 9 IF(NIN.EQ.0)RETURN + CALL WEIGHT(2) + IF(IFFTS.EQ.2.OR.IFFTS.EQ.12)CALL WEIGHT(1) + ISTART=0 + DO 14 I=1,NIN + W=WI(I) + IF(W.LT.W1)GO TO 14 + IF(W.GT.W2)GO TO 15 + X=(W-W1)*XSCALE*10. + Y=(SI(I)-RMIN)/(RMAX-RMIN)*3.125*YSCALE +C Y=AMAX1(Y,0.) + IF(ISTART.EQ.0)CALL JUMP TO (X,Y) + ISTART=1 + CALL LINE TO (X,Y) + 14 CONTINUE + 15 CONTINUE + CALL WEIGHT(1) + IF(IFFTS.EQ.21)CALL WEIGHT(2) + IF(IFFTS.LT.3)RETURN + ISTART=0 + DO 24 I=1,NIN + W=WI(I) + IF(W.LT.W1)GO TO 24 + IF(W.GT.W2)GO TO 25 + X=(W-W1)*XSCALE*10. + XNEW=X + S=SI(I) + Y=(S-.9)/(1.0-.9)*3.125*YSCALE + YNEW=Y + IF(ISTART.EQ.0)THEN + IF(Y.LT.0.)Y=0. + GO TO 240 + ENDIF + IF(YNEW.GE.0..AND.YOLD.GE.0.)GO TO 240 + Y=0. + IF(YNEW.LT.0..AND.YOLD.LT.0.)GO TO 240 + IF(YOLD.LE.0.)GO TO 239 + X=XOLD+(XNEW-XOLD)/(YNEW-YOLD)*(0.-YOLD) + GO TO 240 + 239 X=XOLD+(XNEW-XOLD)/(YNEW-YOLD)*YNEW + 240 IF(ISTART.EQ.0)CALL JUMP TO (X,Y) + ISTART=1 + XOLD=XNEW + YOLD=YNEW + CALL LINE TO (X,Y) + 24 CONTINUE + 25 CONTINUE + CALL WEIGHT(1) + RETURN + END + SUBROUTINE OBSFTS2(IFFTS2) +C PLOTS THE RATIO OF TWO SPECTRA FROM THE FTS AT KITT PEAK +C IFFTS=1 WEIGHT=2 +C IFFTS=2 WEIGHT=1 +C IFFTS=3 PLOT TWICE NORMAL WITH WEIGHT=2 AND 10 TIMES YSCALE WITH WEIGHT=1 +C IFFTS=4 PLOT TWICE NORMAL WITH WEIGHT=1 AND 10 TIMES YSCALE WITH WEIGHT=1 + COMMON /PARAMS/XSCALE, + 1 RMIN,WEAK,TOP,PANEL,CYCLES,WBEGIN,WEND,W1,W2,YTOP, + 2 HMAX,HMIN,YSCALE,OFFSET,RMAX, + 3 WNEW1,WNEW2,SMOOTH,DOPOBS,DOPCALC,DOPTERR, + 4 SCALOBS,ZEROOBS,RMIN2,RMAX2,XOFFSET,SCALOB2,DUMMY7 + 5 IFLABL,IFABSO,IFCONT,IFGRID,IFDLIN,IFLOG,IFMU,NOCALC + 6 IFVAC,NOPRNT + REAL*8 WBEGIN,WEND,W1,W2,RESOLU,RATIO,WNEW1,WNEW2,WAVEL + REAL*8 WI,W +C COMMON /WISI/WI(450000),SI(450000) + COMMON /WISI/WI(400000),SI(400000) +C COMMON MUST BE REMOVED TO PLOT TWO SPECTRA AT THE SAME TIME + DATA IREAD/0/ + IF(IREAD.EQ.1)GO TO 9 + IREAD=1 + OPEN(UNIT=71,SHARED,READONLY,TYPE='OLD',FORM='UNFORMATTED', + 1BLOCKSIZE=12000,RECORDSIZE=3,RECORDTYPE='FIXED') + OPEN(UNIT=72,SHARED,READONLY,TYPE='OLD',FORM='UNFORMATTED', + 1BLOCKSIZE=12000,RECORDSIZE=3,RECORDTYPE='FIXED') + READ(71)W,NFTS + READ(72)W,NFTS + NIN=0 + DO 4 I=1,NFTS +C W IS THE AIR WAVELENGTH +C IF IT IS A SOLAR SPECTRUM W INCLUDES THE GRAVITATIONAL REDSHIFT +C S IS THE PSEUDO-RESIDUAL FLUX OR INTENSITY + READ(71)W,S1 + READ(72)W,S2 +C REMOVE GRAVITATIONAL RED SHIFT +C W=W*(1.D0-0.636/299792.458D0) + W=W*(1.D0+DOPOBS/299792.458D0) + IF(W.LT.WNEW1)GO TO 4 + IF(W.GT.WNEW2)GO TO 5 + NIN=NIN+1 + IF(NIN.GT.450000)CALL ABORT + WI(NIN)=W + S2=S2-ZEROOBS + S1=S1-ZEROOBS + SI(NIN)=1. + IF(S1.GT.0.)SI(NIN)=S2/S1 + SI(NIN)=SI(NIN)*SCALOBS + 4 CONTINUE + 5 CONTINUE + 9 IF(NIN.EQ.0)RETURN + CALL WEIGHT(2) + IF(IFFTS.EQ.2.OR.IFFTS.EQ.12)CALL WEIGHT(1) + ISTART=0 + DO 14 I=1,NIN + W=WI(I) + IF(W.LT.W1)GO TO 14 + IF(W.GT.W2)GO TO 15 + X=(W-W1)*XSCALE*10. + Y=(SI(I)-RMIN)/(RMAX-RMIN)*3.125*YSCALE +C Y=AMAX1(Y,0.) + IF(ISTART.EQ.0)CALL JUMP TO (X,Y) + ISTART=1 + CALL LINE TO (X,Y) + 14 CONTINUE + 15 CONTINUE + CALL WEIGHT(1) + IF(IFFTS.LT.3)RETURN + ISTART=0 + DO 24 I=1,NIN + W=WI(I) + IF(W.LT.W1)GO TO 24 + IF(W.GT.W2)GO TO 25 + X=(W-W1)*XSCALE*10. + XNEW=X + S=SI(I) + Y=(S-.9)/(1.0-.9)*3.125*YSCALE + YNEW=Y + IF(ISTART.EQ.0)THEN + IF(Y.LT.0.)Y=0. + GO TO 240 + ENDIF + IF(YNEW.GE.0..AND.YOLD.GE.0.)GO TO 240 + Y=0. + IF(YNEW.LT.0..AND.YOLD.LT.0.)GO TO 240 + IF(YOLD.LE.0.)GO TO 239 + X=XOLD+(XNEW-XOLD)/(YNEW-YOLD)*(0.-YOLD) + GO TO 240 + 239 X=XOLD+(XNEW-XOLD)/(YNEW-YOLD)*YNEW + 240 IF(ISTART.EQ.0)CALL JUMP TO (X,Y) + ISTART=1 + XOLD=XNEW + YOLD=YNEW + CALL LINE TO (X,Y) + 24 CONTINUE + 25 CONTINUE + RETURN + END + SUBROUTINE LABEL1 +C LABELS COMPUTED SPECTRUM +C IFLABL=1 25/INCH TWO ROWS, ATMOSPHERIC LINES HAVE PARTIAL LABELS +C IFLABL=11 12.5/INCH ONE ROW, ATMOSPHERIC LINES HAVE PARTIAL LABELS +C IFLABL=21 12.5/INCH ONE ROW, ATMOSPHERIC LINES HAVE FULL LABELS +C IFLABL=31 12.5/INCH LOWER ROW ATOMS UPPER ROW MOLECULES + COMMON /PARAMS/XSCALE, + 1 RMIN,WEAK,TOP,PANEL,CYCLES,WBEGIN,WEND,W1,W2,YTOP, + 2 HMAX,HMIN,YSCALE,OFFSET,RMAX, + 3 WNEW1,WNEW2,SMOOTH,DOPOBS,DOPCALC,DOPTERR, + 4 SCALOBS,ZEROOBS,RMIN2,RMAX2,XOFFSET,SCALOB2,DUMMY7 + 5 IFLABL,IFABSO,IFCONT,IFGRID,IFDLIN,IFLOG,IFMU,NOCALC + 6 IFVAC,NOPRNT + REAL*8 WBEGIN,WEND,W1,W2,RESOLU,RATIO,WNEW1,WNEW2,WAVEL,WAVEI + REAL*8 TITLE(74),XMU(20),WLEDGE(200),TEFF,GLOG + COMMON /CELL/MAXCEL,IFCELL(40000,2) + REAL*8 Q2(40) + INTEGER VLO,VUP + COMMON /LINDAT/WL,E,EP,LABEL(2),LABELP(2),OTHER1(2),OTHER2(2), + 1 WLVAC,CENTER,CONCEN, NELION,GAMMAR,GAMMAS,GAMMAW,REF, + 2 NBLO,NBUP,ISO1,X1,ISO2,X2,GFLOG,XJ,XJP,CODE,ELO,GF,GS,GR,GW, + 3 DWL,DGFLOG,DGAMMAR,DGAMMAS,DGAMMAW,EXTRA1,EXTRA2,EXTRA3 + REAL*8 LINDAT8(14) + REAL*4 LINDAT(28) + EQUIVALENCE (LINDAT8(1),WL),(LINDAT(1),NELION) + REAL*8 RATIOLG,SIGMA2,WLBEG,WLEND + REAL*8 WL,E,EP,WLVAC,CENTER,CONCEN + REAL*8 LABEL,LABELP,OTHER1,OTHER2 + DIMENSION NAMEAF(999),MOLAF(999) + REAL*8 NAME,NAMEAF + CHARACTER*21 STRING21 + CHARACTER*25 STRING25 + CHARACTER*30 STRING30 + CHARACTER*1 COLON + CHARACTER*38 LABAF,L38 + CHARACTER*34 L34 + CHARACTER*53 STRING53 + CHARACTER*10 LABEL10,LABEL10P + CALL NAMEMOL(NAMEAF,MOLAF) +C CELLIN=12.5 + CELLIN=8. +C IF(IFLABL.EQ.1)CELLIN=25. + IF(IFLABL.EQ.1)CELLIN=16. + MAXCEL=40000 + DO 333 I=1,MAXCEL + IFCELL(I,2)=0 + 333 IFCELL(I,1)=0 + READ(93)NLINES + PRINT 334,NLINES,W1,W2 + 334 FORMAT(I10,2F10.4) + DO 70 ILINE=1,NLINES + READ(93)LINDAT8,LINDAT + WAVEL=WLVAC + IF(IFVAC.EQ.0)WAVEL=ABS(WL) + WAVEI=WAVEL + IF(REF.EQ.4HAFGL)THEN + VDOP=GS + WAVEL=WAVEL*(1.D0+VDOP/299792.458D0) + ENDIF + WAVEL=WAVEL*(1.D0+DOPCALC/299792.458D0) + IF(WAVEL.LT.W1)GO TO 70 + IF(WAVEL.GT.W2)GO TO 70 + RESID=CENTER/CONCEN + FREQ=2.997925E17/WLVAC + CENTER=CENTER*FREQ/WLVAC + CONCEN=CONCEN*FREQ/WLVAC + IF(NOPRNT.EQ.0) + 1WRITE(6,99)WL,GFLOG,XJ,E,XJP,EP,CODE,LABEL,LABELP,WLVAC,RESID, + 2CENTER,CONCEN, + 3WL,NELION,GR,GS,GW,REF,NBLO,NBUP,ISO1,X1,ISO2,X2,OTHER1,OTHER2, + 4DWL,DGFLOG,DGAMMAR,DGAMMAS,DGAMMAW + 99 FORMAT(1H0,F10.4,F7.3,F5.1,F12.3,F5.1,F12.3,F9.2,1X, A8,A2, A8,A2, + 1F12.4,F9.3,1P2E11.3/ + 2 1X,0PF10.4,I4,F6.2,F6.2,F6.2,A4,I2,I2,I3,F7.3,I3,F7.3,1X, + 3 A8,A2,A8,A2,F7.4,F7.3,3F6.2) + IF(RESID.GT.1.-WEAK.AND.RESID.LT.1.+WEAK)GO TO 70 +cc IF(CODE.EQ.14.00.AND.WLVAC.GT.152..AND.WLVAC.LT.154..AND. +cc 1RESID.GT..800)GO TO 70 +cc IF(CODE.EQ.12.00.AND.WLVAC.GT.251..AND.WLVAC.LT.253..AND. +cc 1RESID.GT..030)GO TO 70 +cc IF(CODE.EQ.13.00.AND.WLVAC.GT.207..AND.WLVAC.LT.208..AND. +cc 1RESID.GT..100)GO TO 70 + if(iso1.gt.0.and.iso2.eq.0)go to 70 + IF(IFABSO.EQ.0)GO TO 61 +C IF(IFLOG.EQ.0)Y=CENTER/HMAX*YTOP +C IF(IFLOG.EQ.1)Y=(ALOG10(CENTER)-HMINL)/CYCLES*YTOP +C RESID=Y/YTOP + 61 CONTINUE + MROW=1 + IF(CODE.GT.100.AND.IFLABL.EQ.31)MROW=2 + COLON=' ' + IF(WL.LT.0.)COLON=':' + IRESID=RESID*1000.+.5 +C NCELL=(WAVEL-W1)*10.*CELLIN*XSCALE+1.5 + NCELL=(WAVEL-W1)*10.*CELLIN*XSCALE+1. + I=NCELL-1 + IF(I.GT.0.AND.IFCELL(NCELL,MROW).EQ.1.AND.IFCELL(I,MROW).EQ.0.AND. + 1IFCELL(NCELL+1,MROW).EQ.1)GO TO 63 + DO 62 I=NCELL,MAXCEL + IF(IFCELL(I,MROW).EQ.0)GO TO 63 + 62 CONTINUE + 63 NCELL=I + IFCELL(NCELL,MROW)=1 + XCELL=FLOAT(NCELL)/CELLIN + IF(IFLABL.NE.1)XCELL=XCELL-.04 + YCELL=YTOP+.1 + IF(IFLABL.EQ.1.AND.MOD(NCELL,2).EQ.0)YCELL=YTOP+1.80 +C IF(IFLABL.EQ.31.AND.CODE.GT.100.)YCELL=YTOP+1.80 + IF(IFLABL.EQ.31.AND.CODE.GT.100.)YCELL=YTOP+2.40 + XWL=(WAVEL-W1)*10.*XSCALE + IELO=ELO + I=WAVEI*10. + RWL=WAVEI-FLOAT(I)*.1 + IF(CODE.EQ.6.00.AND.WLVAC.GT.110..AND.WLVAC.LT.111..AND. + 1RESID.GT..100)GO TO 70 + IWL=RWL*10000.+.5 + IF(IWL.EQ.1000)IWL=0 +C + IF(REF.EQ.4HAFGL)THEN + ISOAF=NELION + MOL=MOLAF(ISOAF) + NAME=NAMEAF(ISOAF) + WRITE(STRING21,'(I3,1X,A6,I5,I4,2X)')IWL,NAME,IELO,IRESID + IF(IFLABL.NE.21)GO TO 66 + WRITE(LABAF,'(A8,A2,A8,A2,A8,A2,A8)')LABEL,LABELP,OTHER1,OTHER2(1) +CCCCCCC + I38=2 + L38=LABAF(1:2) + DO 6100 I=3,38 + IF(LABAF(I-2:I).EQ.' ')GO TO 6100 + I38=I38+1 + L38=L38(1:I38-1)//LABAF(I:I) + 6100 CONTINUE + L34=L38(1:34) + GO TO 6800 +C +C +CCCCCCC +C GO TO (6100,6200,6300,6400,6500,6600,6700),MOL +CC H20 +CCSAMPLE FROM AFCRL TAPE +CC2345678901234567890123456789012345678901234567890123456789012345678901234567890 +CC17879.736 0.174E-26.0940 206.301 4 3 1 3 2 2 1 0 4 0 0 0 77 161 1 +CC JUP KAUPKCUP V1UPV2UPV3UP +CC JLO KALOKCLO V1LOV2LOV3LO +CC NEW HITRAN FORMAT +CC 12345678901234567890123456789012345678 +CC 4 3 1 3 2 2 104 000 +CC +CC READ(11,1,END=145)WAVENO,STRENGTH,WIDTH,E1,JUP,KAUP,KCUP,JLO, +CC 1KALO,KCLO,V1UP,V2UP,V3UP,V1LO,V2LO,V3LO,DATE,ISO,MOL +CC 1 FORMAT(F10.3,E10.3,F5.4,F10.3,3I3,1X,3I3,2X,3I2,1X,3I2,A4,I4,I3) +CC 6100 L34=LABAF(1:21)//LABAF(23:23)//LABAF(25:25)//LABAF(27:28)// +CC 1LABAF(30:30)//LABAF(32:32)//LABAF(34:34) +C 6100 L34=LABAF(7:7)//LABAF(1:6)//LABAF(10:16)//LABAF(24:28)// +C 1LABAF(33:36) +C GO TO 6800 +CC CO2 +C 6200 L34=LABAF(3:4)//LABAF(6:6)//LABAF(8:8)//LABAF(10:10)// +C 1LABAF(12:14)//LABAF(19:19)//LABAF(21:21)//LABAF(23:23)// +C 2LABAF(25:25)//LABAF(27:27)//LABAF(29:35) +C GO TO 6800 +CC O3 +C 6300 L34=LABAF(1:21)//LABAF(23:23)//LABAF(25:25)//LABAF(27:28)// +C 1LABAF(30:30)//LABAF(32:32)//LABAF(34:34) +C GO TO 6800 +CC N20 +C 6400 L34=LABAF(3:4)//LABAF(6:6)//LABAF(8:8)//LABAF(10:10)// +C 1LABAF(19:19)//LABAF(21:21)//LABAF(23:23)//LABAF(25:25)// +C 2LABAF(29:34) +C GO TO 6800 +CC CO +C 6500 L34=LABAF(7:8)//'-'//LABAF(16:16)//LABAF(30:34) +C GO TO 6800 +CC CH4 +C 6600 L34=LABAF(1:34) +C GO TO 6800 +CC O2 +CC 12345678901234567890123456789012345678 +CC R15Q16 B2 X0 +CC 6700 L34=LABAF(17:18)//LABAF(8:8)//'-'//LABAF(19:19)//LABAF(16:16)// +CC 1LABAF(28:34)//LABAF(20:25) +C 6700 L34=LABAF(25:28)//'-'//LABAF(35:36)//LABAF(10:16) + 6800 CONTINUE + STRING53=STRING21(1:19)//L34 + CALL STRINGY(STRING53,XCELL,YCELL) + CALL JUMP TO (XWL,-.03) + CALL LINE TO (XWL,0.) + CALL JUMP TO (XWL,YTOP) + CALL LINE TO (XCELL-.04,YTOP+.08) + IF(NOPRNT.EQ.2) + 1WRITE(6,99)WL,GFLOG,XJ,E,XJP,EP,CODE,LABEL,LABELP,WLVAC,RESID, + 2CENTER,CONCEN, + 3WL,NELION,GR,GS,GW,REF,NBLO,NBUP,ISO1,X1,ISO2,X2,OTHER1,OTHER2, + 4DWL,DGFLOG,DGAMMAR,DGAMMAS,DGAMMAW + IF(NOPRNT.NE.1.AND.NOPRNT.NE.7)WRITE(6,6802)STRING53 + 6802 FORMAT(79X,A53) + GO TO 70 + ENDIF +C + IF(CODE.LT.100.)GO TO 64 + PQR=1HP + IF(XJP.GT.XJ)PQR=1HR + IF(XJP.EQ.XJ)PQR=1HQ + ICODE=CODE + J=XJ + WRITE(LABEL10,'(A8,A2)')LABEL + WRITE(LABEL10P,'(A8,A2)')LABELP + READ(LABEL10,'(A1)')AMULT + IF(AMULT.NE.1H3.AND.AMULT.NE.1H1)THEN + READ(LABEL10,'(1X,I2)')VLO + READ(LABEL10P,'(1X,I2)')VUP + ELSE + READ(LABEL10,'(2X,I2)')VLO + READ(LABEL10P,'(2X,I2)')VUP + ENDIF + IDWL=NINT(DWL*10000.) + IDGFLOG=NINT(DGFLOG*1000.) + WRITE(STRING30,113)IWL,COLON,ICODE,VUP,VLO,J,PQR,IRESID,IDWL, + 1 IDGFLOG + 113 FORMAT(I3,A1,I3,I3,1H-,I2,I3,A1,I4,SPI4,SPI5) + CALL STRINGY(STRING30,XCELL,YCELL) + GO TO 67 + 64 CONTINUE + IF(IFLABL.EQ.31)THEN + IDWL=NINT(DWL*10000.) + IDGFLOG=NINT(DGFLOG*1000.) + WRITE(STRING30,7114)IWL,COLON,CODE,IELO,IRESID,IDWL,IDGFLOG + 7114 FORMAT(I3,A1,F6.2,I7,I4,SPI4,SPI5) + CALL STRINGY(STRING30,XCELL,YCELL) + GO TO 67 + ENDIF + WRITE(STRING21,114)IWL,COLON,CODE,IELO,IRESID + 114 FORMAT(I3,A1,F6.2,I7,I4) + 66 CONTINUE + CALL STRINGY(STRING21,XCELL,YCELL) + 67 CALL JUMP TO (XWL,-.03) + CALL LINE TO (XWL,0.) + CALL JUMP TO (XWL,YTOP) + CALL LINE TO (XCELL-.04,YTOP+.08) + IF(NOPRNT.EQ.2) + 1WRITE(6,99)WL,GFLOG,XJ,E,XJP,EP,CODE,LABEL,LABELP,WLVAC,RESID, + 2CENTER,CONCEN, + 3WL,NELION,GR,GS,GW,REF,NBLO,NBUP,ISO1,X1,ISO2,X2,OTHER1,OTHER2, + 4DWL,DGFLOG,DGAMMAR,DGAMMAS,DGAMMAW + IF(NOPRNT.NE.1.AND.NOPRNT.NE.7)WRITE(6,65)STRING21 + 65 FORMAT(107X,A21) + IF(NOPRNT.NE.7)GO TO 70 + IF(DWL.EQ.0..AND.DGFLOG.EQ.0..AND.DGAMMAR.EQ.0..AND. + 1DGAMMAS.EQ.0..AND.DGAMMAW.EQ.0.)GO TO 70 + + WRITE(6,99)WL,GFLOG,XJ,E,XJP,EP,CODE,LABEL,LABELP,WLVAC,RESID, + 1CENTER,CONCEN, + 2WL,NELION,GR,GS,GW,REF,NBLO,NBUP,ISO1,X1,ISO2,X2,OTHER1,OTHER2, + 3DWL,DGFLOG,DGAMMAR,DGAMMAS,DGAMMAW + WRITE(6,65)STRING21 + 70 CONTINUE + 80 CONTINUE + RETURN + END + SUBROUTINE LABEL2 + COMMON /PARAMS/XSCALE, + 1 RMIN,WEAK,TOP,PANEL,CYCLES,WBEGIN,WEND,W1,W2,YTOP, + 2 HMAX,HMIN,YSCALE,OFFSET,RMAX, + 3 WNEW1,WNEW2,SMOOTH,DOPOBS,DOPCALC,DOPTERR, + 4 SCALOBS,ZEROOBS,RMIN2,RMAX2,XOFFSET,SCALOB2,DUMMY7 + 5 IFLABL,IFABSO,IFCONT,IFGRID,IFDLIN,IFLOG,IFMU,NOCALC + 6 IFVAC,NOPRNT + REAL*8 WBEGIN,WEND,W1,W2,RESOLU,RATIO,WNEW1,WNEW2,WAVEL + REAL*8 TITLE(74),XMU(20),WLEDGE(200),TEFF,GLOG +CCRAY COMMON /CELL/MAXCEL,IFCELL(10000) + COMMON /CELL/MAXCEL,IFCELL(40000) + REAL*8 Q2(40) + INTEGER VLO,VUP + REAL*4 WORDS(6) +CCRAY REAL*8 WORDS(3) + COMMON /LINDAT/WL,E,EP,LABEL(2),LABELP(2),OTHER1(2),OTHER2(2), + 1 WLVAC,CENTER,CONCEN, NELION,GAMMAR,GAMMAS,GAMMAW,REF, + 2 NBLO,NBUP,ISO1,X1,ISO2,X2,GFLOG,XJ,XJP,CODE,ELO,GF,GS,GR,GW, + 3 DWL,DGFLOG,DGAMMAR,DGAMMAS,DGAMMAW,EXTRA1,EXTRA2,EXTRA3 + REAL*8 LINDAT8(14) + REAL*4 LINDAT(28) + EQUIVALENCE (LINDAT8(1),WL),(LINDAT(1),NELION) + REAL*8 RATIOLG,SIGMA2,WLBEG,WLEND + REAL*8 WL,E,EP,WLVAC,CENTER,CONCEN + REAL*8 LABEL,LABELP,OTHER1,OTHER2 +CCRAY MAXCEL=10000 + MAXCEL=40000 + cellin=12.5 + if(iflabl.eq.2)cellin=25. + DO 333 I=1,MAXCEL + 333 IFCELL(I)=0 + READ(93)NLINES + PRINT 334,NLINES,W1,W2 + 334 FORMAT(I10,2F10.4) + DO 70 ILINE=1,NLINES + READ(93)LINDAT8,LINDAT + WAVEL=WLVAC + IF(IFVAC.EQ.0)WAVEL=ABS(WL) + IF(WAVEL.LT.W1)GO TO 70 + IF(WAVEL.GT.W2)GO TO 70 + RESID=CENTER/CONCEN + FREQ=2.997925E17/WLVAC + CENTER=CENTER*FREQ/WLVAC + CONCEN=CONCEN*FREQ/WLVAC + IF(NOPRNT.EQ.0) + 1WRITE(6,99)WL,GFLOG,XJ,E,XJP,EP,CODE,LABEL,LABELP,WLVAC,RESID, + 2CENTER,CONCEN, + 3WL,NELION,GR,GS,GW,REF,NBLO,NBUP,ISO1,X1,ISO2,X2,OTHER1,OTHER2, + 4DWL,DGFLOG,DGAMMAR,DGAMMAS,DGAMMAW + 99 FORMAT(1H0,F10.4,F7.3,F5.1,F12.3,F5.1,F12.3,F9.2,1X, A8,A2, A8,A2, + 1F12.4,F9.3,1P2E11.3/ + 2 1X,0PF10.4,I4,F6.2,F6.2,F6.2,A4,I2,I2,I3,F7.3,I3,F7.3,1X, + 3 A8,A2,A8,A2,F7.4,F7.3,3F6.2) + IF(RESID.GT.1.-WEAK.AND.RESID.LT.1.+WEAK)GO TO 70 + IF(CODE.EQ.14.00.AND.WLVAC.GT.152..AND.WLVAC.LT.154..AND. + 1RESID.GT..800)GO TO 70 + IF(CODE.EQ.12.00.AND.WLVAC.GT.251..AND.WLVAC.LT.253..AND. + 1RESID.GT..030)GO TO 70 + IF(CODE.EQ.13.00.AND.WLVAC.GT.207..AND.WLVAC.LT.208..AND. + 1RESID.GT..100)GO TO 70 + IF(IFABSO.EQ.0)GO TO 61 +C IF(IFLOG.EQ.0)Y=CENTER/HMAX*YTOP +C IF(IFLOG.EQ.1)Y=(ALOG10(CENTER)-HMINL)/CYCLES*YTOP +C RESID=Y/YTOP + 61 CONTINUE + COLON=(1H ) + IF(WL.LT.0)COLON=1H: + IRESID=RESID*1000.+.5 +c NCELL=(WAVEL-W1)*10.*25.*XSCALE+1.5 + ncell=(wavel-w1)*10.*cellin*xscale+1.5 + DO 62 I=NCELL,MAXCEL + IF(IFCELL(I).EQ.0)GO TO 63 + 62 CONTINUE + 63 NCELL=I + IF(MOD(NCELL,2).EQ.1)GO TO 6666 + IF(IFCELL(NCELL-1).EQ.0)THEN + NCELL=NCELL-1 + GO TO 6666 + ELSE IF(IFCELL(NCELL+1).EQ.0)THEN + NCELL=NCELL+1 + ENDIF + 6666 CONTINUE + IFCELL(NCELL)=1 +c XCELL=FLOAT(NCELL)*.04 + xcell=float(ncell)/cellin + YCELL=YTOP+.1 +c IF(MOD(NCELL,2).EQ.0)YCELL=YTOP+1.29 + if(iflabl.eq.2.and.mod(ncell,2).eq.0)ycell=ytop+1.29 + XWL=(WAVEL-W1)*10.*XSCALE + IELO=ELO + I=WAVEL*10. + RWL=WAVEL-FLOAT(I)*.1 + IF(CODE.EQ.6.00.AND.WLVAC.GT.110..AND.WLVAC.LT.111..AND. + 1RESID.GT..100)GO TO 70 + IWL=RWL*10000.+.5 + IF(IWL.EQ.1000)IWL=0 + IF(CODE.LT.100.)GO TO 64 + PQR=1HP + IF(XJP.GT.XJ)PQR=1HR + IF(XJP.EQ.XJ)PQR=1HQ + ICODE=CODE + J=XJ +C IF(CODE.EQ.106.)THEN + IF(CODE.EQ.999.)THEN + DECODE(8,4445,LABEL)VLO + DECODE(8,4445,LABELP)VUP + 4445 FORMAT(1X,I1) + ELSE IF(CODE.EQ.606..OR.CODE.EQ.106.01)THEN + DECODE(8,4444,LABEL)VLO + DECODE(8,4444,LABELP)VUP + 4444 FORMAT(2X,I2) + ELSE + DECODE(8,4443,LABEL)VLO + DECODE(8,4443,LABELP)VUP + 4443 FORMAT(1X,I2) + ENDIF + ENCODE(21,113,WORDS)IWL,COLON,ICODE,VUP,VLO,J,PQR,IRESID + 113 FORMAT(I3,A1,I3,I3,1H-,I2,I3,A1,I4) + GO TO 66 + 64 ENCODE(21,114,WORDS)IWL,COLON,CODE,IELO,IRESID + 114 FORMAT(I3,A1,F6.2,I7,I4) + 66 IF(NOPRNT.EQ.2) + 1WRITE(6,99)WL,GFLOG,XJ,E,XJP,EP,CODE,LABEL,LABELP,WLVAC,RESID, + 2CENTER,CONCEN, + 3WL,NELION,GR,GS,GW,REF,NBLO,NBUP,ISO1,X1,ISO2,X2,OTHER1,OTHER2, + 4DWL,DGFLOG,DGAMMAR,DGAMMAS,DGAMMAW + IF(NOPRNT.NE.1)WRITE(6,65)WORDS +C 65 FORMAT(107X,2A8,A5) + 65 FORMAT(107X,5A4,A1) +CCRAY CALL BCDY(3,WORDS,21,8H(2A8,A5),.07,XCELL,YCELL) + CALL BCDY(6,WORDS,21,8H(5A4,A1),.07,XCELL,YCELL) + CALL JUMP TO (XWL,-.03) + CALL LINE TO (XWL,0.) + CALL JUMP TO (XWL,YTOP) + CALL LINE TO (XCELL-.04,YTOP+.08) + 70 CONTINUE + 80 CONTINUE + RETURN + END +C SUBROUTINE LABEL2 +C COMMON /PARAMS/XSCALE, +C 1 RMIN,WEAK,TOP,PANEL,CYCLES,WBEGIN,WEND,W1,W2,YTOP, +C 2 HMAX,HMIN,YSCALE,OFFSET,RMAX, +C 3 WNEW1,WNEW2,SMOOTH,DOPOBS,DOPCALC,DOPTERR, +C 4 SCALOBS,ZEROOBS,RMIN2,RMAX2,XOFFSET,SCALOB2,DUMMY7 +C 5 IFLABL,IFABSO,IFCONT,IFGRID,IFDLIN,IFLOG,IFMU,NOCALC +C 6 IFVAC,NOPRNT +C REAL*8 TITLE(74),XMU(20),WLEDGE(200),TEFF,GLOG +CCRAY COMMON /CELL/MAXCEL,IFCELL(10000) +C COMMON /CELL/MAXCEL,IFCELL(40000) +C REAL*8 Q2(40) +C INTEGER VLO,VUP +C REAL*4 WORDS(6) +CCRAY REAL*8 WORDS(3) +C COMMON /LINDAT/WL,E,EP,LABEL(2),LABELP(2),OTHER1(2),OTHER2(2), +C 1 WLVAC,CENTER,CONCEN, NELION,GAMMAR,GAMMAS,GAMMAW,REF, +C 2 NBLO,NBUP,ISO1,X1,ISO2,X2,GFLOG,XJ,XJP,CODE,ELO,GF,GS,GR,GW, +C 3 DWL,DGFLOG,DGAMMAR,DGAMMAS,DGAMMAW,EXTRA1,EXTRA2,EXTRA3 +C REAL*8 LINDAT8(14) +C REAL*4 LINDAT(28) +C EQUIVALENCE (LINDAT8(1),WL),(LINDAT(1),NELION) +C REAL*8 RATIOLG,SIGMA2,WLBEG,WLEND +C REAL*8 WL,E,EP,WLVAC,CENTER,CONCEN +C REAL*8 LABEL,LABELP,OTHER1,OTHER2 +CCRAY MAXCEL=10000 +C MAXCEL=40000 +C DO 333 I=1,MAXCEL +C 333 IFCELL(I)=0 +C READ(93)NLINES +C PRINT 334,NLINES,W1,W2 +C 334 FORMAT(I10,2F10.4) +C DO 70 ILINE=1,NLINES +C READ(93)LINDAT8,LINDAT +C WAVEL=WLVAC +C IF(IFVAC.EQ.0)WAVEL=ABS(WL) +C IF(WAVEL.LT.W1)GO TO 70 +C IF(WAVEL.GT.W2)GO TO 70 +C RESID=CENTER/CONCEN +C FREQ=2.997925E17/WLVAC +C CENTER=CENTER*FREQ/WLVAC +C CONCEN=CONCEN*FREQ/WLVAC +C IF(NOPRNT.EQ.0) +C 1WRITE(6,99)WL,GFLOG,XJ,E,XJP,EP,CODE,LABEL,LABELP,WLVAC,RESID, +C 2CENTER,CONCEN, +C 3WL,NELION,GR,GS,GW,REF,NBLO,NBUP,ISO1,X1,ISO2,X2,OTHER1,OTHER2, +C 4DWL,DGFLOG,DGAMMAR,DGAMMAS,DGAMMAW +C 99 FORMAT(1H0,F10.4,F7.3,F5.1,F12.3,F5.1,F12.3,F9.2,1X, A8,A2, A8,A2, +C 1F12.4,F9.3,1P2E11.3/ +C 2 1X,0PF10.4,I4,F6.2,F6.2,F6.2,A4,I2,I2,I3,F7.3,I3,F7.3,1X, +C 3 A8,A2,A8,A2,F7.4,F7.3,3F6.2) +C IF(RESID.GT.1.-WEAK.AND.RESID.LT.1.+WEAK)GO TO 70 +C IF(CODE.EQ.14.00.AND.WLVAC.GT.152..AND.WLVAC.LT.154..AND. +C 1RESID.GT..800)GO TO 70 +C IF(CODE.EQ.12.00.AND.WLVAC.GT.251..AND.WLVAC.LT.253..AND. +C 1RESID.GT..030)GO TO 70 +C IF(CODE.EQ.13.00.AND.WLVAC.GT.207..AND.WLVAC.LT.208..AND. +C 1RESID.GT..100)GO TO 70 +C IF(IFABSO.EQ.0)GO TO 61 +C IF(IFLOG.EQ.0)Y=CENTER/HMAX*YTOP +C IF(IFLOG.EQ.1)Y=(ALOG10(CENTER)-HMINL)/CYCLES*YTOP +C RESID=Y/YTOP +C 61 CONTINUE +C COLON=(1H ) +C IF(WL.LT.0)COLON=1H: +C IRESID=RESID*1000.+.5 +C NCELL=(WAVEL-W1)*10.*25.*XSCALE+1.5 +C DO 62 I=NCELL,MAXCEL +C IF(IFCELL(I).EQ.0)GO TO 63 +C 62 CONTINUE +C 63 NCELL=I +C IF(MOD(NCELL,2).EQ.1)GO TO 6666 +C IF(IFCELL(NCELL-1).EQ.0)THEN +C NCELL=NCELL-1 +C GO TO 6666 +C ELSE IF(IFCELL(NCELL+1).EQ.0)THEN +C NCELL=NCELL+1 +C ENDIF +C 6666 CONTINUE +C IFCELL(NCELL)=1 +C XCELL=FLOAT(NCELL)*.04 +C YCELL=YTOP+.1 +C IF(MOD(NCELL,2).EQ.0)YCELL=YTOP+1.29 +C XWL=(WAVEL-W1)*10.*XSCALE +C IELO=ELO +C I=WAVEL*10. +C RWL=WAVEL-FLOAT(I)*.1 +C IF(CODE.EQ.6.00.AND.WLVAC.GT.110..AND.WLVAC.LT.111..AND. +C 1RESID.GT..100)GO TO 70 +C IWL=RWL*10000.+.5 +C IF(IWL.EQ.1000)IWL=0 +C IF(CODE.LT.100.)GO TO 64 +C PQR=1HP +C IF(XJP.GT.XJ)PQR=1HR +C IF(XJP.EQ.XJ)PQR=1HQ +C ICODE=CODE +C J=XJ +C IF(CODE.EQ.106.)THEN +C IF(CODE.EQ.999.)THEN +C DECODE(8,4445,LABEL)VLO +C DECODE(8,4445,LABELP)VUP +C 4445 FORMAT(1X,I1) +C ELSE IF(CODE.EQ.606..OR.CODE.EQ.106.01)THEN +C DECODE(8,4444,LABEL)VLO +C DECODE(8,4444,LABELP)VUP +C 4444 FORMAT(2X,I2) +C ELSE +C DECODE(8,4443,LABEL)VLO +C DECODE(8,4443,LABELP)VUP +C 4443 FORMAT(1X,I2) +C ENDIF +C ENCODE(21,113,WORDS)IWL,COLON,ICODE,VUP,VLO,J,PQR,IRESID +C 113 FORMAT(I3,A1,I3,I3,1H-,I2,I3,A1,I4) +C GO TO 66 +C 64 ENCODE(21,114,WORDS)IWL,COLON,CODE,IELO,IRESID +C 114 FORMAT(I3,A1,F6.2,I7,I4) +C 66 IF(NOPRNT.EQ.2) +C 1WRITE(6,99)WL,GFLOG,XJ,E,XJP,EP,CODE,LABEL,LABELP,WLVAC,RESID, +C 2CENTER,CONCEN, +C 3WL,NELION,GR,GS,GW,REF,NBLO,NBUP,ISO1,X1,ISO2,X2,OTHER1,OTHER2, +C 4DWL,DGFLOG,DGAMMAR,DGAMMAS,DGAMMAW +C IF(NOPRNT.NE.1)WRITE(6,65)WORDS +C 65 FORMAT(107X,2A8,A5) +C 65 FORMAT(107X,5A4,A1) +CCRAY CALL BCDY(3,WORDS,21,8H(2A8,A5),.07,XCELL,YCELL) +C CALL BCDY(6,WORDS,21,8H(5A4,A1),.07,XCELL,YCELL) +C CALL JUMP TO (XWL,-.03) +C CALL LINE TO (XWL,0.) +C CALL JUMP TO (XWL,YTOP) +C CALL LINE TO (XCELL-.04,YTOP+.08) +C 70 CONTINUE +C 80 CONTINUE +C RETURN +C END + SUBROUTINE LABEL3 + COMMON /PARAMS/XSCALE, + 1 RMIN,WEAK,TOP,PANEL,CYCLES,WBEGIN,WEND,W1,W2,YTOP, + 2 HMAX,HMIN,YSCALE,OFFSET,RMAX, + 3 WNEW1,WNEW2,SMOOTH,DOPOBS,DOPCALC,DOPTERR, + 4 SCALOBS,ZEROOBS,RMIN2,RMAX2,XOFFSET,SCALOB2,DUMMY7 + 5 IFLABL,IFABSO,IFCONT,IFGRID,IFDLIN,IFLOG,IFMU,NOCALC + 6 IFVAC,NOPRNT + REAL*8 WBEGIN,WEND,W1,W2,RESOLU,RATIO,WNEW1,WNEW2,WAVEL + REAL*8 TITLE(74),XMU(20),WLEDGE(200),TEFF,GLOG +CCRAY COMMON /CELL/MAXCEL,IFCELL(10000) + COMMON /CELL/MAXCEL,IFCELL(40000) + REAL*8 Q2(40) + INTEGER VLO,VUP +CCRAY REAL*8 WORDS(3) + REAL*4 WORDS(6) + COMMON /LINDAT/WL,E,EP,LABEL(2),LABELP(2),OTHER1(2),OTHER2(2), + 1 WLVAC,CENTER,CONCEN, NELION,GAMMAR,GAMMAS,GAMMAW,REF, + 2 NBLO,NBUP,ISO1,X1,ISO2,X2,GFLOG,XJ,XJP,CODE,ELO,GF,GS,GR,GW, + 3 DWL,DGFLOG,DGAMMAR,DGAMMAS,DGAMMAW,EXTRA1,EXTRA2,EXTRA3 + REAL*8 LINDAT8(14) + REAL*4 LINDAT(28) + EQUIVALENCE (LINDAT8(1),WL),(LINDAT(1),NELION) + REAL*8 RATIOLG,SIGMA2,WLBEG,WLEND + REAL*8 WL,E,EP,WLVAC,CENTER,CONCEN + REAL*8 LABEL,LABELP,OTHER1,OTHER2 +CCRAY MAXCEL=10000 + MAXCEL=40000 + DO 333 I=1,MAXCEL + 333 IFCELL(I)=0 + READ(93)NLINES + PRINT 334,NLINES,W1,W2 + 334 FORMAT(I10,2F10.4) + DO 70 ILINE=1,NLINES + READ(93)LINDAT8,LINDAT + WAVEL=WLVAC + IF(IFVAC.EQ.0)WAVEL=ABS(WL) + IF(WAVEL.LT.W1)GO TO 70 + IF(WAVEL.GT.W2)GO TO 70 + RESID=CENTER/CONCEN + FREQ=2.997925E17/WLVAC + CENTER=CENTER*FREQ/WLVAC + CONCEN=CONCEN*FREQ/WLVAC + IF(NOPRNT.EQ.0) + 1WRITE(6,99)WL,GFLOG,XJ,E,XJP,EP,CODE,LABEL,LABELP,WLVAC,RESID, + 2CENTER,CONCEN, + 3WL,NELION,GR,GS,GW,REF,NBLO,NBUP,ISO1,X1,ISO2,X2,OTHER1,OTHER2, + 4DWL,DGFLOG,DGAMMAR,DGAMMAS,DGAMMAW + 99 FORMAT(1H0,F10.4,F7.3,F5.1,F12.3,F5.1,F12.3,F9.2,1X, A8,A2, A8,A2, + 1F12.4,F9.3,1P2E11.3/ + 2 1X,0PF10.4,I4,F6.2,F6.2,F6.2,A4,I2,I2,I3,F7.3,I3,F7.3,1X, + 3 A8,A2,A8,A2,F7.4,F7.3,3F6.2) + IF(RESID.GT.1.-WEAK.AND.RESID.LT.1.+WEAK)GO TO 70 + IF(CODE.EQ.14.00.AND.WLVAC.GT.152..AND.WLVAC.LT.154..AND. + 1RESID.GT..800)GO TO 70 + IF(CODE.EQ.12.00.AND.WLVAC.GT.251..AND.WLVAC.LT.253..AND. + 1RESID.GT..030)GO TO 70 + IF(CODE.EQ.13.00.AND.WLVAC.GT.207..AND.WLVAC.LT.208..AND. + 1RESID.GT..100)GO TO 70 + IF(IFABSO.EQ.0)GO TO 61 +C IF(IFLOG.EQ.0)Y=CENTER/HMAX*YTOP +C IF(IFLOG.EQ.1)Y=(ALOG10(CENTER)-HMINL)/CYCLES*YTOP +C RESID=Y/YTOP + 61 CONTINUE + COLON=(1H ) + IF(WL.LT.0.)COLON=1H: + IRESID=RESID*1000.+.5 + NCELL=(WAVEL-W1)*10.*25.*XSCALE+1.5 + DO 62 I=NCELL,MAXCEL + IF(IFCELL(I).EQ.0)GO TO 63 + 62 CONTINUE + 63 NCELL=I + IFCELL(NCELL)=1 + XCELL=FLOAT(NCELL)*.04 + YCELL=YTOP+.1 + IF(MOD(NCELL,2).EQ.0)YCELL=YTOP+1.29 + XWL=(WAVEL-W1)*10.*XSCALE + IELO=ELO + I=WAVEL*10. + RWL=WAVEL-FLOAT(I)*.1 + IF(CODE.EQ.6.00.AND.WLVAC.GT.110..AND.WLVAC.LT.111..AND. + 1RESID.GT..100)GO TO 70 + IWL=RWL*10000.+.5 + IF(IWL.EQ.1000)IWL=0 + IF(CODE.LT.100.)GO TO 64 + PQR=1HP + IF(XJP.GT.XJ)PQR=1HR + IF(XJP.EQ.XJ)PQR=1HQ + ICODE=CODE + J=XJ +C IF(CODE.EQ.106.)THEN + IF(CODE.EQ.999.)THEN + DECODE(8,4445,LABEL)VLO + DECODE(8,4445,LABELP)VUP + 4445 FORMAT(1X,I1) + ELSE IF(CODE.EQ.606..OR.CODE.EQ.106.01)THEN + DECODE(8,4444,LABEL)VLO + DECODE(8,4444,LABELP)VUP + 4444 FORMAT(2X,I2) + ELSE + DECODE(8,4443,LABEL)VLO + DECODE(8,4443,LABELP)VUP + 4443 FORMAT(1X,I2) + ENDIF + ENCODE(21,113,WORDS)IWL,COLON,ICODE,VUP,VLO,J,PQR,IRESID + 113 FORMAT(I3,A1,I3,I3,1H-,I2,I3,A1,I4) + GO TO 66 + 64 ENCODE(21,114,WORDS)IWL,COLON,CODE,IELO,IRESID + 114 FORMAT(I3,A1,F6.2,I7,I4) + 66 IF(NOPRNT.EQ.2) + 1WRITE(6,99)WL,GFLOG,XJ,E,XJP,EP,CODE,LABEL,LABELP,WLVAC,RESID, + 2CENTER,CONCEN, + 3WL,NELION,GR,GS,GW,REF,NBLO,NBUP,ISO1,X1,ISO2,X2,OTHER1,OTHER2, + 4DWL,DGFLOG,DGAMMAR,DGAMMAS,DGAMMAW + IF(NOPRNT.NE.1)WRITE(6,65)WORDS +C 65 FORMAT(107X,2A8,A5) + 65 FORMAT(107X,5A4,A1) + CALL BCDY(6,WORDS,21,8H(5A4,A1),.07,XCELL,YCELL) +CCRAY CALL BCDY(3,WORDS,21,8H(2A8,A5),.07,XCELL,YCELL) + CALL JUMP TO (XWL,-.03) + CALL LINE TO (XWL,0.) + CALL JUMP TO (XWL,YTOP) + CALL LINE TO (XCELL-.04,YTOP+.08) + 70 CONTINUE + 80 CONTINUE + RETURN + END + SUBROUTINE LABEL4 + RETURN + END + SUBROUTINE LABEL5 +C LABELS ATMOSPHERIC LINES FROM AFCRL LINE LIST +C IFLABL=5 25/INCH TWO ROWS +C IFLABL=15 12.5/INCH ONE ROW + COMMON /PARAMS/XSCALE, + 1 RMIN,WEAK,TOP,PANEL,CYCLES,WBEGIN,WEND,W1,W2,YTOP, + 2 HMAX,HMIN,YSCALE,OFFSET,RMAX, + 3 WNEW1,WNEW2,SMOOTH,DOPOBS,DOPCALC,DOPTERR, + 4 SCALOBS,ZEROOBS,RMIN2,RMAX2,XOFFSET,SCALOB2,DUMMY7 + 5 IFLABL,IFABSO,IFCONT,IFGRID,IFDLIN,IFLOG,IFMU,NOCALC + 6 IFVAC,NOPRNT + REAL*8 WBEGIN,WEND,W1,W2,RESOLU,RATIO,WNEW1,WNEW2,WAVEL,WAVEI + COMMON /CELL/MAXCEL,IFCELL(40000) + REAL*4 WORDS(13) +CCRAY REAL*8 WORDS(7) + CHARACTER*38 LABEL,LABELAF + CHARACTER*28 L28 + REAL*8 WAIR,W,E,NAME + COMMON /AFCRL/WAFCRL(25000),EAFCRL(25000),SAFCRL(25000), + 1 LABELAF(25000),MOLAF(25000),ISOAF(25000) + REAL*8 WAFCRL,EAFCRL + REAL*4 SAFCRL + DATA IREAD/0/ + IF(IREAD.EQ.1)GO TO 332 + IREAD=1 + OPEN(UNIT=76,SHARED,READONLY,TYPE='OLD') + IF(1.E7/17879.736.GT.WNEW2+.1)RETURN + WNEW11=WNEW1-1. + DO 310 ILINE=1,180956 + READ(76,331)W + IF(1.E7/W.GT.WNEW11)GO TO 311 + 310 CONTINUE + RETURN + 311 ILINE=ILINE+1 + NIN=0 + DO 330 I=ILINE,180956 + READ(76,331)W,S,WIDTH,E,LABEL,ISO,MOL + 331 FORMAT(F10.3,E10.3,F5.4,F10.3,A38,I4,I3) + WRITE(6,3331)I,W,S,WIDTH,E,LABEL,ISO,MOL + 3331 FORMAT(I10,F11.3,E10.3,F5.4,F10.3,A38,I4,I3) + WAIR=1.D7/W/ + 1(1.0000834213D0+2406030.D0/(1.30D10-W**2)+15997.D0/(3.89D9-W**2)) + IF(WAIR.LT.WNEW1)GO TO 330 + IF(WAIR.GT.WNEW2)GO TO 332 + NIN=NIN+1 + IF(NIN.GT.25000)CALL ABORT + WAFCRL(NIN)=WAIR + EAFCRL(NIN)=E + SAFCRL(NIN)=ALOG10(S) + LABELAF(NIN)=LABEL + ISOAF(NIN)=ISO + MOLAF(NIN)=MOL + 330 CONTINUE + 332 IF(NIN.EQ.0)RETURN + MAXCEL=40000 + DO 333 I=1,MAXCEL + 333 IFCELL(I)=0 + CELLIN=12.5 + IF(IFLABL.EQ.5)CELLIN=25. + PRINT 334,NIN,W1,W2 + 334 FORMAT(I10,2F10.4) + DO 70 ILINE=1,NIN + WAVEL=WAFCRL(ILINE)*(1.D0+DOPTERR/299792.458D0) + IF(WAVEL.LT.W1)GO TO 70 + IF(WAVEL.GT.W2)GO TO 70 + IE=EAFCRL(ILINE) + LABEL=LABELAF(ILINE) + GO TO (100,200,300,400,500,600,700),MOLAF(ILINE) +C H20 + 100 NAME=(6HH2O ) + IF(ISOAF(ILINE).EQ.171)NAME=(6HH2O17 ) + IF(ISOAF(ILINE).EQ.181)NAME=(6HH2O18 ) +C2345678901234567890123456789012345678901234567890123456789012345678901234567890 +C17879.736 0.174E-26.0940 206.301 4 3 1 3 2 2 1 0 4 0 0 0 77 161 1 +C JUP KAUPKCUP V1UPV2UPV3UP +C JLO KALOKCLO V1LOV2LOV3LO +C READ(11,1,END=145)WAVENO,STRENGTH,WIDTH,E1,JUP,KAUP,KCUP,JLO, +C 1KALO,KCLO,V1UP,V2UP,V3UP,V1LO,V2LO,V3LO,DATE,ISO,MOL +C 1 FORMAT(F10.3,E10.3,F5.4,F10.3,3I3,1X,3I3,2X,3I2,1X,3I2,A4,I4,I3) + L28=LABEL(1:21)//LABEL(23:23)//LABEL(25:25)//LABEL(27:28)// + 1LABEL(30:30)//LABEL(32:32)//LABEL(34:34) + GO TO 800 + 200 NAME=(6HCO2 ) + L28=LABEL(3:4)//LABEL(6:6)//LABEL(8:8)//LABEL(10:10)// + 1LABEL(12:14)//LABEL(19:19)//LABEL(21:21)//LABEL(23:23)// + 2LABEL(25:25)//LABEL(27:27)//LABEL(29:35) + IF(ISOAF(ILINE).EQ.626)GO TO 800 + ENCODE(6,201,NAME)ISOAF(ILINE) + 201 FORMAT(3HCO2,I3) + GO TO 800 + 300 NAME=(6HO3 ) + L28=LABEL(1:21)//LABEL(23:23)//LABEL(25:25)//LABEL(27:28)// + 1LABEL(30:30)//LABEL(32:32)//LABEL(34:34) + IF(ISOAF(ILINE).EQ.666)GO TO 800 + ENCODE(6,301,NAME)ISOAF(ILINE) + 301 FORMAT(3HO3 ,I3) + GO TO 800 + 400 NAME=(6HN2O ) + L28=LABEL(3:4)//LABEL(6:6)//LABEL(8:8)//LABEL(10:10)// + 1LABEL(19:19)//LABEL(21:21)//LABEL(23:23)//LABEL(25:25)// + 2LABEL(29:34) + IF(ISOAF(ILINE).EQ.446)GO TO 800 + ENCODE(6,401,NAME)ISOAF(ILINE) + 401 FORMAT(3HN2O,I3) + GO TO 800 + 500 NAME=(6HCO ) + L28=LABEL(7:8)//'-'//LABEL(16:16)//LABEL(30:34) + IF(ISOAF(ILINE).EQ.26)GO TO 800 + IF(ISOAF(ILINE).EQ.27)NAME=(6HCO17 ) + IF(ISOAF(ILINE).EQ.28)NAME=(6HCO18 ) + IF(ISOAF(ILINE).EQ.36)NAME=(6HCO13 ) + GO TO 800 + 600 NAME=(6HCH4 ) +C CANNOT FIT IN WHOLE LABEL. DROP LOWER QUANTUM NUMBERS. + L28=LABEL(1:10)//LABEL(20:34) + IF(ISOAF(ILINE).EQ.211)GO TO 800 + ENCODE(6,601,NAME)ISOAF(ILINE) + 601 FORMAT(3HCH4,I3) + GO TO 800 + 700 NAME=(6HO2 ) + L28=LABEL(17:18)//LABEL(8:8)//'-'//LABEL(19:19)//LABEL(16:16)// + 1LABEL(28:34)//LABEL(20:25) + IF(ISOAF(ILINE).EQ.66)GO TO 800 + IF(ISOAF(ILINE).EQ.67)NAME=(6HO217 ) + IF(ISOAF(ILINE).EQ.68)NAME=(6HO218 ) + 800 CONTINUE + NCELL=(WAVEL-W1)*10.*CELLIN*XSCALE+1.5 + DO 62 I=NCELL,MAXCEL + IF(IFCELL(I).EQ.0)GO TO 63 + 62 CONTINUE + 63 NCELL=I +C IF(MOD(NCELL,2).EQ.1)GO TO 163 +C IF(IFCELL(NCELL-1).EQ.0)THEN +C NCELL=NCELL-1 +C GO TO 163 +C ENDIF +C IF(IFCELL(NCELL+1).EQ.0)NCELL=NCELL+1 + 163 IFCELL(NCELL)=1 + XCELL=FLOAT(NCELL)/CELLIN + IF(IFLABL.NE.5)XCELL=XCELL-.04 + YCELL=YTOP+.1 + IF(IFLABL.EQ.5.AND.MOD(NCELL,2).EQ.0)YCELL=YTOP+2.98 + XWL=(WAVEL-W1)*10.*XSCALE + I=WAFCRL(ILINE) + RWL=WAFCRL(ILINE)-FLOAT(I) + IWL=RWL*10000.+.5 + IF(IWL.EQ.10000)IWL=0 + 64 ENCODE(50,114,WORDS)IWL,NAME,IE,SAFCRL(ILINE),L28 + 114 FORMAT(I4,1X,A6,I5,F6.2,A28) + 66 IF(NOPRNT.NE.1)WRITE(6,65)WAVEL,WAFCRL(ILINE),EAFCRL(ILINE),WORDS + 65 FORMAT(F12.4,F10.3,F10.3,2X,12A4,A2) +C 65 FORMAT(F12.4,F10.3,F10.3,2X,6A8,A2) + CALL BCDY(13,WORDS,50,9H(12A4,A2),.07,XCELL,YCELL) +CCRAY CALL BCDY(7,WORDS,50,8H(6A8,A2),.07,XCELL,YCELL) + CALL JUMP TO (XWL,-.03) + CALL LINE TO (XWL,0.) + CALL JUMP TO (XWL,YTOP) + CALL LINE TO (XCELL-.04,YTOP+.08) + 70 CONTINUE + 80 CONTINUE + RETURN + END + SUBROUTINE NAMEMOL(MOLNAME,MOLCODE) +C IDENTIFIES ISOTOPE CODES FOR AFCRL LINE LIST + DIMENSION MOLNAME(999),MOLCODE(999) + REAL*8 MOLNAME + DO 1 I=1,999 + MOLNAME(I)=6H + 1 MOLCODE(I)=0 +C H2O + MOLCODE(161)=1 + MOLCODE(162)=1 + MOLCODE(181)=1 + MOLCODE(171)=1 +C CO2 + MOLCODE(626)=2 + MOLCODE(636)=2 + MOLCODE(628)=2 + MOLCODE(627)=2 + MOLCODE(638)=2 + MOLCODE(637)=2 + MOLCODE(828)=2 +C O3 + MOLCODE(666)=3 + MOLCODE(668)=3 + MOLCODE(686)=3 +C N2O + MOLCODE(446)=4 + MOLCODE(456)=4 + MOLCODE(546)=4 + MOLCODE(448)=4 + MOLCODE(447)=4 +C CO + MOLCODE( 26)=5 + MOLCODE( 36)=5 + MOLCODE( 28)=5 + MOLCODE( 27)=5 +C CH4 + MOLCODE(211)=6 + MOLCODE(311)=6 + MOLCODE(212)=6 +C O2 + MOLCODE( 66)=7 + MOLCODE( 68)=7 + MOLCODE( 67)=7 +C +C H2O + MOLNAME(161)=6HH20 + MOLNAME(162)=6HHDO + MOLNAME(181)=6HH2O 18 + MOLNAME(171)=6HH2O 17 +C CO2 + MOLNAME(626)=6HCO2 + MOLNAME(636)=6HCO2 13 + MOLNAME(628)=6HCO2 18 + MOLNAME(627)=6HCO2 17 + MOLNAME(638)=6HCO2 38 + MOLNAME(637)=6HCO2 37 + MOLNAME(828)=6HCO2 88 +C O3 + MOLNAME(666)=6HO3 + MOLNAME(668)=6HO3 668 + MOLNAME(686)=6HO3 686 +C N2O + MOLNAME(446)=6HN2O + MOLNAME(456)=6HN2O456 + MOLNAME(546)=6HN2O546 + MOLNAME(448)=6HN2O 18 + MOLNAME(447)=6HN2O 17 +C CO + MOLNAME( 26)=6HCO + MOLNAME( 36)=6HCO 13 + MOLNAME( 28)=6HCO 18 + MOLNAME( 27)=6HCO 17 +C CH4 + MOLNAME(211)=6HCH4 + MOLNAME(311)=6HCH4 13 + MOLNAME(212)=6HCH3D +C O2 + MOLNAME( 66)=6HO2 + MOLNAME( 68)=6HO2 18 + MOLNAME( 67)=6HO2 17 + MOLNAME( 77)=6HO2 77 + MOLNAME( 78)=6HO2 78 + MOLNAME( 79)=6HO2 88 +C + RETURN + END + SUBROUTINE LABEL6 +C for binary stars +C LABELS COMPUTED SPECTRUM +C IFLABL=1 25/INCH TWO ROWS, ATMOSPHERIC LINES HAVE PARTIAL LABELS +C IFLABL=11 12.5/INCH ONE ROW, ATMOSPHERIC LINES HAVE PARTIAL LABELS +C IFLABL=21 12.5/INCH ONE ROW, ATMOSPHERIC LINES HAVE FULL LABELS +C IFLABL=31 12.5/INCH LOWER ROW ATOMS UPPER ROW MOLECULES + COMMON /PARAMS/XSCALE, + 1 RMIN,WEAK,TOP,PANEL,CYCLES,WBEGIN,WEND,W1,W2,YTOP, + 2 HMAX,HMIN,YSCALE,OFFSET,RMAX, + 3 WNEW1,WNEW2,SMOOTH,DOPOBS,DOPCALC,DOPTERR, + 4 SCALOBS,ZEROOBS,RMIN2,RMAX2,XOFFSET,SCALOB2,DUMMY7 + 5 IFLABL,IFABSO,IFCONT,IFGRID,IFDLIN,IFLOG,IFMU,NOCALC + 6 IFVAC,NOPRNT + REAL*8 WBEGIN,WEND,W1,W2,RESOLU,RATIO,WNEW1,WNEW2,WAVEL,WAVEI + REAL*8 TITLE(74),XMU(20),WLEDGE(200),TEFF,GLOG + COMMON /CELL/MAXCEL,IFCELL(40000,2) + REAL*8 Q2(40) + INTEGER VLO,VUP + COMMON /LINDAT/WL,E,EP,LABEL(2),LABELP(2),OTHER1(2),OTHER2(2), + 1 WLVAC,CENTER,CONCEN, NELION,GAMMAR,GAMMAS,GAMMAW,REF, + 2 NBLO,NBUP,ISO1,X1,ISO2,X2,GFLOG,XJ,XJP,CODE,ELO,GF,GS,GR,GW, + 3 DWL,DGFLOG,DGAMMAR,DGAMMAS,DGAMMAW,EXTRA1,EXTRA2,EXTRA3 + REAL*8 LINDAT8(14) + REAL*4 LINDAT(28) + EQUIVALENCE (LINDAT8(1),WL),(LINDAT(1),NELION) + REAL*8 RATIOLG,SIGMA2,WLBEG,WLEND + REAL*8 WL,E,EP,WLVAC,CENTER,CONCEN + REAL*8 LABEL,LABELP,OTHER1,OTHER2 + DIMENSION NAMEAF(999),MOLAF(999) + REAL*8 NAME,NAMEAF + CHARACTER*21 STRING21 + CHARACTER*25 STRING25 + CHARACTER*30 STRING30 + CHARACTER*1 COLON + CHARACTER*38 LABAF,L38 + CHARACTER*34 L34 + CHARACTER*53 STRING53 + CHARACTER*10 LABEL10,LABEL10P + CALL NAMEMOL(NAMEAF,MOLAF) +C CELLIN=12.5 + CELLIN=8. +C IF(IFLABL.EQ.1)CELLIN=25. + IF(IFLABL.EQ.1)CELLIN=16. + MAXCEL=40000 + DO 333 I=1,MAXCEL + IFCELL(I,2)=0 + 333 IFCELL(I,1)=0 + READ(93)NLINES,NLINES1,NLINES2 +c READ(93)NLINES + PRINT 334,NLINES,W1,W2 + 334 FORMAT(I10,2F10.4) + DO 70 ILINE=1,NLINES1 + READ(93)LINDAT8,LINDAT + WAVEL=WLVAC + IF(IFVAC.EQ.0)WAVEL=ABS(WL) + WAVEI=WAVEL + IF(REF.EQ.4HAFGL)THEN + VDOP=GS + WAVEL=WAVEL*(1.D0+VDOP/299792.458D0) + ENDIF + WAVEL=WAVEL*(1.D0+DOPterr/299792.458D0) + IF(WAVEL.LT.W1)GO TO 70 + IF(WAVEL.GT.W2)GO TO 70 + RESID=CENTER/CONCEN + FREQ=2.997925E17/WLVAC + CENTER=CENTER*FREQ/WLVAC + CONCEN=CONCEN*FREQ/WLVAC + IF(NOPRNT.EQ.0) + 1WRITE(6,99)WL,GFLOG,XJ,E,XJP,EP,CODE,LABEL,LABELP,WLVAC,RESID, + 2CENTER,CONCEN, + 3WL,NELION,GR,GS,GW,REF,NBLO,NBUP,ISO1,X1,ISO2,X2,OTHER1,OTHER2, + 4DWL,DGFLOG,DGAMMAR,DGAMMAS,DGAMMAW + 99 FORMAT(1H0,F10.4,F7.3,F5.1,F12.3,F5.1,F12.3,F9.2,1X, A8,A2, A8,A2, + 1F12.4,F9.3,1P2E11.3/ + 2 1X,0PF10.4,I4,F6.2,F6.2,F6.2,A4,I2,I2,I3,F7.3,I3,F7.3,1X, + 3 A8,A2,A8,A2,F7.4,F7.3,3F6.2) + IF(RESID.GT.1.-WEAK.AND.RESID.LT.1.+WEAK)GO TO 70 + IF(CODE.EQ.14.00.AND.WLVAC.GT.152..AND.WLVAC.LT.154..AND. + 1RESID.GT..800)GO TO 70 + IF(CODE.EQ.12.00.AND.WLVAC.GT.251..AND.WLVAC.LT.253..AND. + 1RESID.GT..030)GO TO 70 + IF(CODE.EQ.13.00.AND.WLVAC.GT.207..AND.WLVAC.LT.208..AND. + 1RESID.GT..100)GO TO 70 + IF(IFABSO.EQ.0)GO TO 61 +C IF(IFLOG.EQ.0)Y=CENTER/HMAX*YTOP +C IF(IFLOG.EQ.1)Y=(ALOG10(CENTER)-HMINL)/CYCLES*YTOP +C RESID=Y/YTOP + 61 CONTINUE + MROW=1 + IF(CODE.GT.100.AND.IFLABL.EQ.31)MROW=2 + COLON=' ' + IF(WL.LT.0.)COLON=':' + IRESID=RESID*1000.+.5 +C NCELL=(WAVEL-W1)*10.*CELLIN*XSCALE+1.5 + NCELL=(WAVEL-W1)*10.*CELLIN*XSCALE+1. + I=NCELL-1 + IF(I.GT.0.AND.IFCELL(NCELL,MROW).EQ.1.AND.IFCELL(I,MROW).EQ.0.AND. + 1IFCELL(NCELL+1,MROW).EQ.1)GO TO 63 + DO 62 I=NCELL,MAXCEL + IF(IFCELL(I,MROW).EQ.0)GO TO 63 + 62 CONTINUE + 63 NCELL=I + IFCELL(NCELL,MROW)=1 + XCELL=FLOAT(NCELL)/CELLIN + IF(IFLABL.NE.1)XCELL=XCELL-.04 + YCELL=YTOP+.1 + IF(IFLABL.EQ.1.AND.MOD(NCELL,2).EQ.0)YCELL=YTOP+1.80 +C IF(IFLABL.EQ.31.AND.CODE.GT.100.)YCELL=YTOP+1.80 + IF(IFLABL.EQ.31.AND.CODE.GT.100.)YCELL=YTOP+2.40 + XWL=(WAVEL-W1)*10.*XSCALE + IELO=ELO + I=WAVEI*10. + RWL=WAVEI-FLOAT(I)*.1 + IF(CODE.EQ.6.00.AND.WLVAC.GT.110..AND.WLVAC.LT.111..AND. + 1RESID.GT..100)GO TO 70 + IWL=RWL*10000.+.5 + IF(IWL.EQ.1000)IWL=0 +C + IF(REF.EQ.4HAFGL)THEN + ISOAF=NELION + MOL=MOLAF(ISOAF) + NAME=NAMEAF(ISOAF) + WRITE(STRING21,'(I3,1X,A6,I5,I4,2X)')IWL,NAME,IELO,IRESID + IF(IFLABL.NE.21)GO TO 66 + WRITE(LABAF,'(A8,A2,A8,A2,A8,A2,A8)')LABEL,LABELP,OTHER1,OTHER2(1) +CCCCCCC + I38=2 + L38=LABAF(1:2) + DO 6100 I=3,38 + IF(LABAF(I-2:I).EQ.' ')GO TO 6100 + I38=I38+1 + L38=L38(1:I38-1)//LABAF(I:I) + 6100 CONTINUE + L34=L38(1:34) + GO TO 6800 +C +C +CCCCCCC + 6800 CONTINUE + STRING53=STRING21(1:19)//L34 + CALL STRINGY(STRING53,XCELL,YCELL) + CALL JUMP TO (XWL,-.03) + CALL LINE TO (XWL,0.) + CALL JUMP TO (XWL,YTOP) + CALL LINE TO (XCELL-.04,YTOP+.08) + IF(NOPRNT.EQ.2) + 1WRITE(6,99)WL,GFLOG,XJ,E,XJP,EP,CODE,LABEL,LABELP,WLVAC,RESID, + 2CENTER,CONCEN, + 3WL,NELION,GR,GS,GW,REF,NBLO,NBUP,ISO1,X1,ISO2,X2,OTHER1,OTHER2, + 4DWL,DGFLOG,DGAMMAR,DGAMMAS,DGAMMAW + IF(NOPRNT.NE.1.AND.NOPRNT.NE.7)WRITE(6,6802)STRING53 + 6802 FORMAT(79X,A53) + GO TO 70 + ENDIF +C + IF(CODE.LT.100.)GO TO 64 + PQR=1HP + IF(XJP.GT.XJ)PQR=1HR + IF(XJP.EQ.XJ)PQR=1HQ + ICODE=CODE + J=XJ + WRITE(LABEL10,'(A8,A2)')LABEL + WRITE(LABEL10P,'(A8,A2)')LABELP + READ(LABEL10,'(A1)')AMULT + IF(AMULT.NE.1H3.AND.AMULT.NE.1H1)THEN + READ(LABEL10,'(1X,I2)')VLO + READ(LABEL10P,'(1X,I2)')VUP + ELSE + READ(LABEL10,'(2X,I2)')VLO + READ(LABEL10P,'(2X,I2)')VUP + ENDIF + IDWL=NINT(DWL*10000.) + IDGFLOG=NINT(DGFLOG*1000.) + WRITE(STRING30,113)IWL,COLON,ICODE,VUP,VLO,J,PQR,IRESID,IDWL, + 1 IDGFLOG + 113 FORMAT(I3,A1,I3,I3,1H-,I2,I3,A1,I4,SPI4,SPI5) + CALL STRINGY(STRING30,XCELL,YCELL) + GO TO 67 + 64 CONTINUE + IF(IFLABL.EQ.31)THEN + IDWL=NINT(DWL*10000.) + IDGFLOG=NINT(DGFLOG*1000.) + WRITE(STRING30,7114)IWL,COLON,CODE,IELO,IRESID,IDWL,IDGFLOG + 7114 FORMAT(I3,A1,F6.2,I7,I4,SPI4,SPI5) + CALL STRINGY(STRING30,XCELL,YCELL) + GO TO 67 + ENDIF + WRITE(STRING21,114)IWL,COLON,CODE,IELO,IRESID + 114 FORMAT(I3,A1,F6.2,I7,I4) + 66 CONTINUE + CALL STRINGY(STRING21,XCELL,YCELL) + 67 CALL JUMP TO (XWL,-.03) + CALL LINE TO (XWL,0.) + CALL JUMP TO (XWL,YTOP) + CALL LINE TO (XCELL-.04,YTOP+.08) + IF(NOPRNT.EQ.2) + 1WRITE(6,99)WL,GFLOG,XJ,E,XJP,EP,CODE,LABEL,LABELP,WLVAC,RESID, + 2CENTER,CONCEN, + 3WL,NELION,GR,GS,GW,REF,NBLO,NBUP,ISO1,X1,ISO2,X2,OTHER1,OTHER2, + 4DWL,DGFLOG,DGAMMAR,DGAMMAS,DGAMMAW + IF(NOPRNT.NE.1.AND.NOPRNT.NE.7)WRITE(6,65)STRING21 + 65 FORMAT(107X,A21) + IF(NOPRNT.NE.7)GO TO 70 + IF(DWL.EQ.0..AND.DGFLOG.EQ.0..AND.DGAMMAR.EQ.0..AND. + 1DGAMMAS.EQ.0..AND.DGAMMAW.EQ.0.)GO TO 70 + + WRITE(6,99)WL,GFLOG,XJ,E,XJP,EP,CODE,LABEL,LABELP,WLVAC,RESID, + 1CENTER,CONCEN, + 2WL,NELION,GR,GS,GW,REF,NBLO,NBUP,ISO1,X1,ISO2,X2,OTHER1,OTHER2, + 3DWL,DGFLOG,DGAMMAR,DGAMMAS,DGAMMAW + WRITE(6,65)STRING21 + 70 CONTINUE + call weight(2) + DO 71 ILINE=1,NLINES2 + READ(93)LINDAT8,LINDAT + WAVEL=WLVAC + IF(IFVAC.EQ.0)WAVEL=ABS(WL) + WAVEI=WAVEL + IF(REF.EQ.4HAFGL)THEN + VDOP=GS + WAVEL=WAVEL*(1.D0+VDOP/299792.458D0) + ENDIF + WAVEL=WAVEL*(1.D0+DOPobs/299792.458D0) + IF(WAVEL.LT.W1)GO TO 71 + IF(WAVEL.GT.W2)GO TO 71 + RESID=CENTER/CONCEN + FREQ=2.997925E17/WLVAC + CENTER=CENTER*FREQ/WLVAC + CONCEN=CONCEN*FREQ/WLVAC + IF(NOPRNT.EQ.0) + 1WRITE(6,99)WL,GFLOG,XJ,E,XJP,EP,CODE,LABEL,LABELP,WLVAC,RESID, + 2CENTER,CONCEN, + 3WL,NELION,GR,GS,GW,REF,NBLO,NBUP,ISO1,X1,ISO2,X2,OTHER1,OTHER2, + 4DWL,DGFLOG,DGAMMAR,DGAMMAS,DGAMMAW + IF(RESID.GT.1.-WEAK.AND.RESID.LT.1.+WEAK)GO TO 71 + IF(CODE.EQ.14.00.AND.WLVAC.GT.152..AND.WLVAC.LT.154..AND. + 1RESID.GT..800)GO TO 71 + IF(CODE.EQ.12.00.AND.WLVAC.GT.251..AND.WLVAC.LT.253..AND. + 1RESID.GT..030)GO TO 71 + IF(CODE.EQ.13.00.AND.WLVAC.GT.207..AND.WLVAC.LT.208..AND. + 1RESID.GT..100)GO TO 71 + IF(IFABSO.EQ.0)GO TO 661 +C IF(IFLOG.EQ.0)Y=CENTER/HMAX*YTOP +C IF(IFLOG.EQ.1)Y=(ALOG10(CENTER)-HMINL)/CYCLES*YTOP +C RESID=Y/YTOP + 661 CONTINUE + MROW=1 + IF(CODE.GT.100.AND.IFLABL.EQ.31)MROW=2 + COLON=' ' + IF(WL.LT.0.)COLON=':' + IRESID=RESID*1000.+.5 +C NCELL=(WAVEL-W1)*10.*CELLIN*XSCALE+1.5 + NCELL=(WAVEL-W1)*10.*CELLIN*XSCALE+1. + I=NCELL-1 + IF(I.GT.0.AND.IFCELL(NCELL,MROW).EQ.1.AND.IFCELL(I,MROW).EQ.0.AND. + 1IFCELL(NCELL+1,MROW).EQ.1)GO TO 663 + DO 662 I=NCELL,MAXCEL + IF(IFCELL(I,MROW).EQ.0)GO TO 663 + 662 CONTINUE + 663 NCELL=I + IFCELL(NCELL,MROW)=1 + XCELL=FLOAT(NCELL)/CELLIN + IF(IFLABL.NE.1)XCELL=XCELL-.04 + YCELL=YTOP+.1 + IF(IFLABL.EQ.1.AND.MOD(NCELL,2).EQ.0)YCELL=YTOP+1.80 +C IF(IFLABL.EQ.31.AND.CODE.GT.100.)YCELL=YTOP+1.80 + IF(IFLABL.EQ.31.AND.CODE.GT.100.)YCELL=YTOP+2.40 + XWL=(WAVEL-W1)*10.*XSCALE + IELO=ELO + I=WAVEI*10. + RWL=WAVEI-FLOAT(I)*.1 + IF(CODE.EQ.6.00.AND.WLVAC.GT.110..AND.WLVAC.LT.111..AND. + 1RESID.GT..100)GO TO 71 + IWL=RWL*10000.+.5 + IF(IWL.EQ.1000)IWL=0 +C + IF(REF.EQ.4HAFGL)THEN + ISOAF=NELION + MOL=MOLAF(ISOAF) + NAME=NAMEAF(ISOAF) + WRITE(STRING21,'(I3,1X,A6,I5,I4,2X)')IWL,NAME,IELO,IRESID + IF(IFLABL.NE.21)GO TO 666 + WRITE(LABAF,'(A8,A2,A8,A2,A8,A2,A8)')LABEL,LABELP,OTHER1,OTHER2(1) +CCCCCCC + I38=2 + L38=LABAF(1:2) + DO 6101 I=3,38 + IF(LABAF(I-2:I).EQ.' ')GO TO 6101 + I38=I38+1 + L38=L38(1:I38-1)//LABAF(I:I) + 6101 CONTINUE + L34=L38(1:34) + GO TO 6801 +C +C +CCCCCCC + 6801 CONTINUE + STRING53=STRING21(1:19)//L34 + CALL STRINGY(STRING53,XCELL,YCELL) + CALL JUMP TO (XWL,-.03) + CALL LINE TO (XWL,0.) + CALL JUMP TO (XWL,YTOP) + CALL LINE TO (XCELL-.04,YTOP+.08) + IF(NOPRNT.EQ.2) + 1WRITE(6,99)WL,GFLOG,XJ,E,XJP,EP,CODE,LABEL,LABELP,WLVAC,RESID, + 2CENTER,CONCEN, + 3WL,NELION,GR,GS,GW,REF,NBLO,NBUP,ISO1,X1,ISO2,X2,OTHER1,OTHER2, + 4DWL,DGFLOG,DGAMMAR,DGAMMAS,DGAMMAW + IF(NOPRNT.NE.1.AND.NOPRNT.NE.7)WRITE(6,6802)STRING53 + GO TO 71 + ENDIF +C + IF(CODE.LT.100.)GO TO 664 + PQR=1HP + IF(XJP.GT.XJ)PQR=1HR + IF(XJP.EQ.XJ)PQR=1HQ + ICODE=CODE + J=XJ + WRITE(LABEL10,'(A8,A2)')LABEL + WRITE(LABEL10P,'(A8,A2)')LABELP + READ(LABEL10,'(A1)')AMULT + IF(AMULT.NE.1H3.AND.AMULT.NE.1H1)THEN + READ(LABEL10,'(1X,I2)')VLO + READ(LABEL10P,'(1X,I2)')VUP + ELSE + READ(LABEL10,'(2X,I2)')VLO + READ(LABEL10P,'(2X,I2)')VUP + ENDIF + IDWL=NINT(DWL*10000.) + IDGFLOG=NINT(DGFLOG*1000.) + WRITE(STRING30,113)IWL,COLON,ICODE,VUP,VLO,J,PQR,IRESID,IDWL, + 1 IDGFLOG + CALL STRINGY(STRING30,XCELL,YCELL) + GO TO 667 + 664 CONTINUE + IF(IFLABL.EQ.31)THEN + IDWL=NINT(DWL*10000.) + IDGFLOG=NINT(DGFLOG*1000.) + WRITE(STRING30,7114)IWL,COLON,CODE,IELO,IRESID,IDWL,IDGFLOG + CALL STRINGY(STRING30,XCELL,YCELL) + GO TO 667 + ENDIF + WRITE(STRING21,114)IWL,COLON,CODE,IELO,IRESID + 666 CONTINUE + CALL STRINGY(STRING21,XCELL,YCELL) + 667 CALL JUMP TO (XWL,-.03) + CALL LINE TO (XWL,0.) + CALL JUMP TO (XWL,YTOP) + CALL LINE TO (XCELL-.04,YTOP+.08) + IF(NOPRNT.EQ.2) + 1WRITE(6,99)WL,GFLOG,XJ,E,XJP,EP,CODE,LABEL,LABELP,WLVAC,RESID, + 2CENTER,CONCEN, + 3WL,NELION,GR,GS,GW,REF,NBLO,NBUP,ISO1,X1,ISO2,X2,OTHER1,OTHER2, + 4DWL,DGFLOG,DGAMMAR,DGAMMAS,DGAMMAW + IF(NOPRNT.NE.1.AND.NOPRNT.NE.7)WRITE(6,65)STRING21 + IF(NOPRNT.NE.7)GO TO 71 + IF(DWL.EQ.0..AND.DGFLOG.EQ.0..AND.DGAMMAR.EQ.0..AND. + 1DGAMMAS.EQ.0..AND.DGAMMAW.EQ.0.)GO TO 71 + + WRITE(6,99)WL,GFLOG,XJ,E,XJP,EP,CODE,LABEL,LABELP,WLVAC,RESID, + 1CENTER,CONCEN, + 2WL,NELION,GR,GS,GW,REF,NBLO,NBUP,ISO1,X1,ISO2,X2,OTHER1,OTHER2, + 3DWL,DGFLOG,DGAMMAR,DGAMMAS,DGAMMAW + WRITE(6,65)STRING21 + 71 CONTINUE + call weight(1) + 80 CONTINUE + RETURN + END + SUBROUTINE LABEL7(IFOPAC) + COMMON /PARAMS/XSCALE, + 1 RMIN,WEAK,TOP,PANEL,CYCLES,WBEGIN,WEND,W1,W2,YTOP, + 2 HMAX,HMIN,YSCALE,OFFSET,RMAX, + 3 WNEW1,WNEW2,SMOOTH,DOPOBS,DOPCALC,DOPTERR, + 4 SCALOBS,ZEROOBS,RMIN2,RMAX2,XOFFSET,SCALOB2,DUMMY7 + 5 IFLABL,IFABSO,IFCONT,IFGRID,IFDLIN,IFLOG,IFMU,NOCALC + 6 IFVAC,NOPRNT + REAL*8 WBEGIN,WEND,W1,W2,RESOLU,RATIO,WNEW1,WNEW2,WAVEL,WAVEI + REAL*8 TITLE(74),XMU(20),WLEDGE(200),TEFF,GLOG + COMMON /CELL/MAXCEL,IFCELL(40000) + REAL*8 Q2(40) + REAL*4 ALINEC(64) + INTEGER VLO,VUP + REAL*4 WORDS(6) +CCRAY REAL*8 WORDS(3) + COMMON /LINDAT/WL,E,EP,LABEL(2),LABELP(2),OTHER1(2),OTHER2(2), + 1 WLVAC,CENTER,CONCEN, NELION,GAMMAR,GAMMAS,GAMMAW,REF, + 2 NBLO,NBUP,ISO1,X1,ISO2,X2,GFLOG,XJ,XJP,CODE,ELO,GF,GS,GR,GW, + 3 DWL,DGFLOG,DGAMMAR,DGAMMAS,DGAMMAW,EXTRA1,EXTRA2,EXTRA3 + REAL*8 LINDAT8(14) + REAL*4 LINDAT(28) + EQUIVALENCE (LINDAT8(1),WL),(LINDAT(1),NELION) + REAL*8 RATIOLG,SIGMA2,WLBEG,WLEND + REAL*8 WL,E,EP,WLVAC,CENTER,CONCEN + REAL*8 LABEL,LABELP,OTHER1,OTHER2 + MAXCEL=40000 + DO 333 I=1,MAXCEL + 333 IFCELL(I)=0 + PRINT 334,W1,W2 + 334 FORMAT(2F10.4) + DO 70 ILINE=1,1000000 + READ(7,END=80)LINDAT8,LINDAT,(ALINEC(J),J=1,IFOPAC) + WAVEL=WLVAC + IF(IFVAC.EQ.0)WAVEL=ABS(WL) + WAVEI=WAVEL + IF(REF.EQ.4HAFGL)THEN + VDOP=GS + WAVEL=WAVEL*(1.D0+VDOP/299792.458D0) + ENDIF + WAVEL=WAVEL*(1.D0+DOPCALC/299792.458D0) + IF(WAVEL.LT.W1)GO TO 70 + IF(WAVEL.GT.W2)GO TO 70 + CENTER=ALINEC(IFOPAC) + CONCEN=HMAX + RESID=CENTER/CONCEN + FREQ=2.997925E17/WLVAC +C CENTER=CENTER*FREQ/WLVAC +C CONCEN=CONCEN*FREQ/WLVAC + IF(NOPRNT.EQ.0) + 1WRITE(6,99)WL,GFLOG,XJ,E,XJP,EP,CODE,LABEL,LABELP,WLVAC,RESID, + 2CENTER,CONCEN, + 3WL,NELION,GR,GS,GW,REF,NBLO,NBUP,ISO1,X1,ISO2,X2,OTHER1,OTHER2, + 4DWL,DGFLOG,DGAMMAR,DGAMMAS,DGAMMAW + 99 FORMAT(1H0,F10.4,F7.3,F5.1,F12.3,F5.1,F12.3,F9.2,1X, A8,A2, A8,A2, + 1F12.4,F9.3,1P2E11.3/ + 2 1X,0PF10.4,I4,F6.2,F6.2,F6.2,A4,I2,I2,I3,F7.3,I3,F7.3,1X, + 3 A8,A2,A8,A2,F7.4,F7.3,3F6.2) +C IF(RESID.GT.1.-WEAK.AND.RESID.LT.1.+WEAK)GO TO 70 + IF(RESID.LT.WEAK)GO TO 70 + IF(CODE.EQ.14.00.AND.WLVAC.GT.152..AND.WLVAC.LT.154..AND. + 1RESID.GT..800)GO TO 70 + IF(CODE.EQ.12.00.AND.WLVAC.GT.251..AND.WLVAC.LT.253..AND. + 1RESID.GT..030)GO TO 70 + IF(CODE.EQ.13.00.AND.WLVAC.GT.207..AND.WLVAC.LT.208..AND. + 1RESID.GT..100)GO TO 70 + IF(IFABSO.EQ.0)GO TO 61 +C IF(IFLOG.EQ.0)Y=CENTER/HMAX*YTOP +C IF(IFLOG.EQ.1)Y=(ALOG10(CENTER)-HMINL)/CYCLES*YTOP +C RESID=Y/YTOP + 61 CONTINUE + COLON=(1H ) + IF(WL.LT.0.)COLON=1H: + IRESID=RESID*1000.+.5 + NCELL=(WAVEL-W1)*10.*25.*XSCALE+1.5 + DO 62 I=NCELL,MAXCEL + IF(IFCELL(I).EQ.0)GO TO 63 + 62 CONTINUE + 63 NCELL=I + IFCELL(NCELL)=1 + XCELL=FLOAT(NCELL)*.04 + YCELL=YTOP+.1 + IF(MOD(NCELL,2).EQ.0)YCELL=YTOP+1.29 + XWL=(WAVEL-W1)*10.*XSCALE + IELO=ELO + I=WAVEI*10. + RWL=WAVEI-FLOAT(I)*.1 + IF(CODE.EQ.6.00.AND.WLVAC.GT.110..AND.WLVAC.LT.111..AND. + 1RESID.GT..100)GO TO 70 + IWL=RWL*10000.+.5 + IF(IWL.EQ.1000)IWL=0 + IF(CODE.LT.100.)GO TO 64 + PQR=1HP + IF(XJP.GT.XJ)PQR=1HR + IF(XJP.EQ.XJ)PQR=1HQ + ICODE=CODE + J=XJ + IF(REF.EQ.4HAFGL)THEN + DECODE(10,4466,LABELP)VUP,AISO + 4466 FORMAT(1X,I1,7X,A1) + DECODE(4,4465,LABEL)VLO,IF + 4465 FORMAT(1X,I1,I2) + IF(CODE.EQ.808.)ACODE=2HO2 + ENCODE(21,4467,WORDS)IWL,COLON,ACODE,VUP,VLO,J,PQR,IF,IRESID,AISO + 4467 FORMAT(I3,A1,A2,I2,1H-,I1,I3,A1,I1,I4,1X,A1) + GO TO 66 + ENDIF + DECODE(1,4443,LABEL)AMULT + 4443 FORMAT(A1) + IF(AMULT.NE.1H3.AND.AMULT.NE.1H1)THEN + DECODE(3,4445,LABEL)VLO + DECODE(3,4445,LABELP)VUP + 4445 FORMAT(1X,I2) + ELSE + DECODE(3,4444,LABEL)VLO + DECODE(3,4444,LABELP)VUP + 4444 FORMAT(2X,I2) + ENDIF + ENCODE(21,113,WORDS)IWL,COLON,ICODE,VUP,VLO,J,PQR,IRESID + 113 FORMAT(I3,A1,I3,I3,1H-,I2,I3,A1,I4) + GO TO 66 + 64 ENCODE(21,114,WORDS)IWL,COLON,CODE,IELO,IRESID + 114 FORMAT(I3,A1,F6.2,I7,I4) + 66 IF(NOPRNT.EQ.2) + 1WRITE(6,99)WL,GFLOG,XJ,E,XJP,EP,CODE,LABEL,LABELP,WLVAC,RESID, + 2CENTER,CONCEN, + 3WL,NELION,GR,GS,GW,REF,NBLO,NBUP,ISO1,X1,ISO2,X2,OTHER1,OTHER2, + 4DWL,DGFLOG,DGAMMAR,DGAMMAS,DGAMMAW + IF(NOPRNT.NE.1)WRITE(6,65)WORDS + 65 FORMAT(107X,5A4,A1) +C 65 FORMAT(107X,2A8,A5) + CALL BCDY(6,WORDS,21,8H(5A4,A1),.07,XCELL,YCELL) +CCRAY CALL BCDY(3,WORDS,21,8H(2A8,A5),.07,XCELL,YCELL) + CALL JUMP TO (XWL,-.03) + CALL LINE TO (XWL,0.) + CALL JUMP TO (XWL,YTOP) + CALL LINE TO (XCELL-.04,YTOP+.08) + 70 CONTINUE + 80 CONTINUE + RETURN + END + SUBROUTINE LABEL8 + RETURN + END + SUBROUTINE LABEL9 +C PIERCE AND BRECKENRIDGE LINE LIST FOR SOLAR CENTRAL INTENSITY + COMMON /PARAMS/XSCALE, + 1 RMIN,WEAK,TOP,PANEL,CYCLES,WBEGIN,WEND,W1,W2,YTOP, + 2 HMAX,HMIN,YSCALE,OFFSET,RMAX, + 3 WNEW1,WNEW2,SMOOTH,DOPOBS,DOPCALC,DOPTERR, + 4 SCALOBS,ZEROOBS,RMIN2,RMAX2,XOFFSET,SCALOB2,DUMMY7 + 5 IFLABL,IFABSO,IFCONT,IFGRID,IFDLIN,IFLOG,IFMU,NOCALC + 6 IFVAC,NOPRNT + REAL*8 WBEGIN,WEND,W1,W2,RESOLU,RATIO,WNEW1,WNEW2,WAVEL,WAVEI + COMMON /CELL/MAXCEL,IFCELL(40000) + REAL*4 WORDS(7) + CHARACTER STRING*26 +CCRAY REAL*8 WORDS(4) + REAL*8 WPIERCE(15000) + REAL*4 LABELPI(4,15000),EWPIERCE(15000),STPIERCE(15000) + DATA IREAD/0/ + IF(IREAD.EQ.1)GO TO 332 + IREAD=1 + OPEN(UNIT=77,SHARED,READONLY,TYPE='OLD') + DO 330 I=1,15000 + READ(77,331,END=329)WPIERCE(I),STPIERCE(I),ISIGMA,WAVENO,NUMBER, + 1DELTAW,NOTE,EWPIERCE(I),(LABELPI(K,I),K=1,4) + 331 FORMAT(F11.4,A1,I3,F11.3,I4,F7.3,A1,F8.1,3A4,A2) + 330 CONTINUE + 329 NPIERCE=I-1 + 332 CONTINUE + CELLIN=8. + MAXCEL=40000 + DO 333 I=1,MAXCEL + 333 IFCELL(I)=0 + PRINT 334,NPIERCE,W1,W2 + 334 FORMAT(I10,2F10.4) + DO 70 ILINE=1,NPIERCE + WAVEL=WPIERCE(ILINE)/10.D0 + WAVEL=WAVEL*(1.D0+DOPCALC/299792.458D0) + IF(WAVEL.LT.W1)GO TO 70 + IF(WAVEL.GT.W2)GO TO 70 + NCELL=(WAVEL-W1)*10.*CELLIN*XSCALE+1.5 +C NCELL=(WAVEL-W1)*10.*25.*XSCALE+1.5 + DO 62 I=NCELL,MAXCEL + IF(IFCELL(I).EQ.0)GO TO 63 + 62 CONTINUE + 63 NCELL=I + IFCELL(NCELL)=1 +C XCELL=FLOAT(NCELL)*.04 +C XCELL=FLOAT(NCELL)*.08 + XCELL=FLOAT(NCELL)/CELLIN-.0625 !*.08-.04 + YCELL=YTOP+.1 +C IF(MOD(NCELL,2).EQ.0)YCELL=YTOP+1.29 + XWL=(WAVEL-W1)*10.*XSCALE + I=WPIERCE(ILINE) + RWL=WPIERCE(ILINE)-FLOAT(I) + IWL=RWL*10000.+.5 + IF(IWL.EQ.10000)IWL=0 + 64 WRITE(STRING,114)IWL,STPIERCE(ILINE),EWPIERCE(ILINE), + 1(LABELPI(K,ILINE),K=1,4) + 114 FORMAT(I4,A1,F6.1,1X,3A4,A2) + 66 IF(NOPRNT.NE.1)WRITE(6,65)WPIERCE(ILINE),EWPIERCE(ILINE),WORDS + 65 FORMAT(F12.4,F10.1,3X,6A4,A2) +C 65 FORMAT(F12.4,F10.1,3X,3A8,A2) + CALL STRINGY1(STRING,XCELL,YCELL) +C CALL BCDY(7,WORDS,26,8H(6A4,A2),.07,XCELL,YCELL) +CCRAY CALL BCDY(4,WORDS,26,8H(3A8,A2),.07,XCELL,YCELL) + CALL JUMP TO (XWL,-.03) + CALL LINE TO (XWL,0.) + CALL JUMP TO (XWL,YTOP) + CALL LINE TO (XCELL-.0625,YTOP+.08) !.04 + 70 CONTINUE + 80 CONTINUE + RETURN + END diff --git a/synthe/psplotcol.for b/synthe/psplotcol.for new file mode 100644 index 0000000..e9243f5 --- /dev/null +++ b/synthe/psplotcol.for @@ -0,0 +1,75 @@ + PROGRAM PSPLOT +C CONVERTS KURUCZ PLOT FILES TO POSTSCRIPT PLOT FILES + COMMON /BUFF/BUFFER(512),NBUFF + INTEGER*4 X,Y,DX,Y2,PAGE + REAL*8 PLOTOUT,USERID(2),FILENAME(2),BUFFER + READ(1)BUFFER + PLOTOUT=BUFFER(1) + IF(PLOTOUT.NE.8HPLOTFILE)STOP 'NOT A VAXPLOT FILE' + USERID(1)=BUFFER(2) + USERID(2)=BUFFER(3) + FILENAME(1)=BUFFER(4) + FILENAME(2)=BUFFER(5) + PRINT 44,USERID,FILENAME + 44 FORMAT(1H0,A8,A1,A8,A1) + NBUFF=5 + OPEN(UNIT=2,STATUS='NEW',CARRIAGECONTROL='LIST') + WRITE(2,'(A)')'%!PS-Adobe' +c WRITE(2,'(A)')'<< /Pagesize [792 1224] >> setpagedevice' + WRITE(2,'(A)')'/M /moveto load def' + WRITE(2,'(A)')'/L /lineto load def' + WRITE(2,'(A)')'/S /stroke load def' + WRITE(2,'(A)')'/F {gsave eofill grestore stroke} def' + WRITE(2,'(A)')'/C /closepath load def' + WRITE(2,'(A)')'/G /setgray load def' + WRITE(2,'(A)')'/W /setlinewidth load def' +c WRITE(2,'(A)')'.24 .24 scale' +c 0.24*1.5=0.36 + WRITE(2,'(A)')'.36 .36 scale' +c WRITE(2,'(A)')'.5 W' +c WRITE(2,'(A)')'4. W' + WRITE(2,'(A)')'2. W' + DO 500 PAGE=0,1111 + DO 100 IVECT=1,10000000 + CALL READBUF(X,Y,DX,Y2) + if(x.lt.0)type*,page,ivect,x,y,dy,y2 +C X = -1 MARKS END OF PAGE +C X = -2 MARKS END OF PLOT +C X = -3 MARKS CHANGE OF COLOR + IF(X.EQ.-1)GO TO 400 + IF(X.EQ.-2)GO TO 600 + IF(X.EQ.-3)THEN + WRITE(2,80)Y/100.,DX/100.,Y2/100. +80 FORMAT(F5.2,F5.2,F5.2,' setrgbcolor') + GO TO 100 + ENDIF + IF(PAGE.EQ.0)GO TO 100 +c WRITE(2,90)X,Y,X+DX,Y2 +c WRITE(2,90)Y,1150+2550-X,Y2,1150+2550-X-DX +c WRITE(2,90)Y, 3200-X,Y2,3200-X-DX + WRITE(2,90)Y, 2300-X,Y2,2300-X-DX + 90 FORMAT(2I6,' M',2I6,' L S') + 100 CONTINUE + 400 IF(PAGE.EQ.0)GO TO 500 + WRITE(2,401) + 401 FORMAT('showpage') + 500 CONTINUE + 600 CALL EXIT + END + SUBROUTINE READBUF(I,J,K,L) + COMMON /BUFF/BUFFER(4,512),NBUFF + INTEGER*2 BUFFER + NBUFF=NBUFF+1 + I=BUFFER(1,NBUFF) + J=BUFFER(2,NBUFF) + K=BUFFER(3,NBUFF) + L=BUFFER(4,NBUFF) + I30000=K/1000 + K=K-I30000*1000 + I=I+I30000*30000 + IF(NBUFF.LT.512)RETURN + READ(1)BUFFER + NBUFF=0 + RETURN + END + diff --git a/synthe/rgfall.for b/synthe/rgfall.for new file mode 100644 index 0000000..6d248ba --- /dev/null +++ b/synthe/rgfall.for @@ -0,0 +1,637 @@ + PROGRAM RGFALL +c revised 4nov14 constants given D exponents +c revised 14nov13 GS can be too big for high series members +c revised 18may11 John Lester error in ion pot lookup for high ions +c revised 28oct09 error in isotope shift in vacuum +c revised 25jun05 isoshift is now wavelength shift in mA instead of mK +c revised 25may97 +c this program is a quick and dirty demonstration of replacing programs +c RNLTE and RLINE while keeping all the other SYNTHE programs the same. +C READS LINES FROM UNIT 11 AND WRITES THEM ON UNIT 19 IF THE LINE +C WAS ORIGINALLY FROM THE FILE NLTELINES.DAT OR TO UNIT 12 IF NOT, +C IF IFNLTE=0 UNIT 19 IS READ BY SYNTHE AND THE LINES ARE +C TREATED IN LTE. IF IFNLTE=1 UNIT 19 IS READ BY SPECTR AND THE +C LINES ARE TREATED IN NLTE IF THE MODEL IS NLTE. +C THESE LINES ARE TREATED WITH EXACT VOIGT OR FANO PROFILES +C WL IS THE AIR WAVELENGTH IF WL .GT. 200 NM +C IF THE SWITCH IFVAC=1 THE WAVELENGTH USED BY THE PROGRAM WILL +C BE THE VACUUM WAVELENGTH OBTAINED FROM THE DIFFERENCE OF +C THE ENERGY LEVELS +C A SUFFIX P STANDS FOR PRIME INDICATING THE SECOND CONFIGURATION +C J IS ANGULAR MOMENTUM +C E IS ENERGY IN WAVENUMBERS +C LABEL IS A LABEL FOR THE CONFIGURATION +C THE GF TAPE DOES NOT KEEP LABEL AND LABELP DISTINCT +C CODE FOR ATOM OR MOLECULE +C NELION IS THE STORAGE LOCATION OF ELEM IN ARRAYS XNFPEL AND DOPPLE +C GAMMAR IS THE RADIATIVE DAMPING CONSTANT +C GAMMAW IS THE DAMPING CONSTANT PER HYDROGEN ATOM FOR VAN DER WAALS +C BROADENING BY HYDROGEN AT T=10000K. +C FOR HELIUM MULTIPLY BY .42 +C FOR H2 MULTIPLY BY .85 +C GAMMAS IS THE STARK DAMPING CONSTANT PER ELECTRON ASSUMED TO BE +C TEMPERATURE INDEPENDENT +C TO CONVERT GRIEM"S HALF WIDTH TO GAMMAS FOR DLAM AND LAM IN A +C GAMMAS=3767.*DLAM/LAM**2 +C LOG(GAMMA) IS READ IN +C IF NOT READ IN GAMMAR IS CLASSICAL, GAMMAW IS FROM ALLER, AND +C GAMMAS IS FROM PEYTREMANN +C REF ARE A REFERENCE OR REFERENCES FOR GF AND DAMPING CONSTANTS +C NBLO AND NBUP REFER TO DEPARTURE COEFFICIENT ARRAYS FOR THE LOWER +C AND UPPER LEVELS (NOT FIRST AND SECOND) +C ISO1 AND ISO2 ARE ISOTOPE NUMBERS FOR UP TO 2 COMPONENTS +C X1 AND X2 ARE LOG FRACTIONAL ISOTOPIC ABUNDANCES THAT ARE ADDED TO +C LOG GF TO OBTAIN AN ISOTOPIC ABUNDANCE +C OTHER1 AND 2 ARE ADDITIONAL LABEL FIELDS OR QUANTUM NUMBERS OR +C WHATEVER +C OTHER1 IS NOW USED TO STORE LANDE G VALUES AS 2 I5 INTEGERS IN UNITS +C OF .001 . EXAMPLE GLANDE=-.007 GLANDEP=2.499 OTHER1= -7 2499 +C DWL CORRECTION TO WL +C DLOGGF CORRECTION TO LOGGF +C DGAMMAR LOG CORRECTION TO GAMMAR +C DGAMMAS LOG CORRECTION TO GAMMAS +C DGAMMAW LOG CORRECTION TO GAMMAW +C ISOSHIFT IS ISOTOPE SHIFT OF WAVELENGTH IN MK = 0.001 CM-1 changed to mA +C ISOSHIFT IS ISOTOPE SHIFT OF WAVELENGTH IN MA = 0.001 Angstrom = 0.0001 nm +CC SAMPLE CARDS +C 396.8470 -0.162 0.5 0.000 1.5 25191.541 20.01 4S 4P +C 396.8470 116 8.24 -4.44 -7.80 REF + PARAMETER (kw=99) + COMMON /LINDAT/WL,E,EP,LABEL(2),LABELP(2),OTHER1(2),OTHER2(2), + 1 WLVAC,CENTER,CONCEN, NELION,GAMMAR,GAMMAS,GAMMAW,REF, + 2 NBLO,NBUP,ISO1,X1,ISO2,X2,GFLOG,XJ,XJP,CODE,ELO,GF,GS,GR,GW, + 3 DWL,DGFLOG,DGAMMAR,DGAMMAS,DGAMMAW,DWLISO,ISOSHIFT,EXTRA3 + REAL*8 LINDAT8(14) + REAL*4 LINDAT4(28) + EQUIVALENCE (LINDAT8(1),WL),(LINDAT4(1),NELION) + REAL*8 RESOLU,RATIO,RATIOLG,SIGMA2,WLBEG,WLEND + REAL*8 WL,E,EP,WLVAC,CENTER,CONCEN + REAL*8 LABEL,LABELP,OTHER1,OTHER2 + CHARACTER*20 NOTES + CHARACTER*10 COTHER1,COTHER2 + EQUIVALENCE (COTHER1,OTHER1(1)),(COTHER2,OTHER2(1)) + CHARACTER*3 AUTO + CHARACTER*6 IXFIXFP + DIMENSION DECKJ(7,kw) + INTEGER TYPE + EQUIVALENCE (GAMMAS,ASHORE),(GAMMAW,BSHORE) + EQUIVALENCE (GF,G,CGF),(TYPE,NLAST),(GAMMAR,XSECT,GAUNT) +C correction 18 May 2011 plus new version of subroutine ionpots. + COMMON /POTION/POTION(999) +C COMMON /POTION/POTION(594) + DIMENSION CODEX(17) + DIMENSION DELLIM(7) + DIMENSION NTENS(10) + DATA NTENS/1,10,100,1000,10000,100000,1000000,10000000, + 1 100000000,1000000000/ + DATA CODEX/1.,2.,2.01,6.,6.01,12.,12.01,13.,13.01,14.,14.01, + 1 20.,20.01,8.,11.,5.,19./ + DATA DELLIM/100.,30.,10.,3.,1.,.3,.1/ + READ(93)NLINES,LENGTH,IFVAC,IFNLTE,N19,TURBV,DECKJ,IFPRED, + 1WLBEG,WLEND,RESOLU,RATIO,RATIOLG,CUTOFF,LINOUT + IXWLBEG=DLOG(WLBEG)/RATIOLG + IF(DEXP(IXWLBEG*RATIOLG).LT.WLBEG)IXWLBEG=IXWLBEG+1 + DELFACTOR=1. + IF(WLBEG.GT.500.)DELFACTOR=WLBEG/500. + N14=0 + OPEN(UNIT=11,STATUS='OLD',READONLY,SHARED,RECL=160) + OPEN(UNIT=12,STATUS='OLD',FORM='UNFORMATTED',ACCESS='APPEND') + OPEN(UNIT=14,STATUS='OLD',FORM='UNFORMATTED',ACCESS='APPEND') + OPEN(UNIT=19,STATUS='OLD',FORM='UNFORMATTED',ACCESS='APPEND') + OPEN(UNIT=20,STATUS='OLD',FORM='UNFORMATTED',ACCESS='APPEND') + OTHER1(2)=(8H ) + OTHER2(1)=(8H ) + OTHER2(2)=(8H ) + DWL=0. + DLOGGF=0. + DGAMMAR=0. + DGAMMAS=0. + DGAMMAW=0. + DWLISO=0. + DO 900 ILINE=1,10000000 + READ(11,140,END=145)WL,GFLOG,CODE,E,XJ,LABEL,EP,XJP,LABELP, + 1 GR,GS,GW,REF,NBLO,NBUP,ISO1,X1,ISO2,X2,OTHER1, + 2 OTHER2,LANDE,LANDEP,ISOSHIFT +C 1234567 123456789012 1 +C12345678901 123456 12345 1234567890 1234567890 +C 234.0154 -3.888 3.00 0.000 0.5 2s 2S 42719.141 0.5 12p 2P more +C +C continuing 12345678901234567890 +C 5.21 0.00 0.00LN 0 0 0 0.000 0 0.000 1234 5678 -7 + 140 FORMAT(F11.4,F7.3,F6.2,F12.3,F5.1,1X,A8,A2,F12.3,F5.1,1X,A8,A2, + 1 F6.2,F6.2,F6.2,A4,I2,I2,I3,F6.3,I3,F6.3,A8,A2,A8,A2,2I5,I6) +C OTHER1 IS HYPERFINE SHIFTS +C IXFIXFP IS HYPERFINE NOTATION + READ(COTHER1,'(2I5)')ISHIFT,ISHIFTP + READ(COTHER2,'(A6,I1,A3)')IXFIXFP,LINESIZE,AUTO + ESHIFT=ISHIFT*.001 + ESHIFTP=ISHIFTP*.001 +c +c definition of dwliso changed, now in mA and WL aleady includes dwliso +c DWLISO=-ISOSHIFT*.001*ABS(WL)**2/1.D7 wrong +c DWLISO=-ISOSHIFT*.0001*ABS(WL)**2/1.D7 +c WLVAC=ABS(WL)+DWL+DWLISO +c error in isotope shift 28oct09 +c DWLISO=ISOSHIFT*.001 +c 1 mA = 0.0001 nm + DWLISO=ISOSHIFT*.0001 + WLVAC=ABS(WL)+DWL + IF(IFVAC.EQ.1.OR.LABELP(1).EQ.8HCONTINUU)WLVAC= + 1 1.D7/DABS(DABS(EP)+ESHIFTP-DABS(E)+ESHIFT)+DWL+DWLISO + IF(WLVAC.GT.WLEND+DELLIM(1))GO TO 145 + IXWL=DLOG(WLVAC)/RATIOLG+.5D0 + NBUFF=IXWL-IXWLBEG+1 + LIM=MIN(8-LINESIZE,7) + IF(CODE.EQ.1.)LIM=1 + IF(WLVAC.LT.WLBEG-DELLIM(LIM)*DELFACTOR)GO TO 900 + IF(WLVAC.GT.WLEND+DELLIM(LIM)*DELFACTOR)GO TO 900 +C CORONAL APPROXIMATION LINE + IF(AUTO.EQ.'COR')GO TO 900 +C +C 14NOV13 Stark width GS is sometimes too large for high series members + IF(GS.NE.0.)GS=MIN(GS,-3.) +C +C + + WRITE(6,140)WL,GFLOG,CODE,E,XJ,LABEL,EP,XJP,LABELP, + 1 GR,GS,GW,REF + + GF=10.**(GFLOG+DGFLOG+X1+X2) + ELO=DMIN1(DABS(E),DABS(EP)) +c 11sep05 changed exponention style and corrected for negative asymmetry +c 22oct04 changed exponention style and corrected for negative asymmetry +C GAMMAS=ASHORE for autoionizing lines +C GAMMAW=BSHORE for autoionizing lines + GAMMAR=10.**(GR+DGAMMAR) + GAMMAS=10.**(GS+DGAMMAS) + GAMMAW=10.**(GW+DGAMMAW) +C IF ASYMMETRY PARAMETER ASHORE IS NEGATIVE, INPUT GAMMAS IS POSITIVE LOG + IF(AUTO.EQ.'AUT'.AND.GS.GT.0.)GAMMAS=-10.**(-GS+DGAMMAS) + IF(GR.EQ.0.)THEN + GAMMAR=2.223D13/WLVAC**2 + GR=ALOG10(GAMMAR) + ENDIF + NELEM=CODE + ICHARGE=(CODE-FLOAT(NELEM))*100.+.1 + ZEFF=ICHARGE+1 + NELION=NELEM*6-6+IFIX(ZEFF) + IF(NELEM.GT.19.AND.NELEM.LT.29.AND.ICHARGE.GT.5)NELION= + 1 6*(NELEM+ICHARGE*10-30)-1 + IF(GS.NE.0.)GO TO 138 + IF(CODE.GE.100.)GO TO 137 + EUP=DMAX1(DABS(E),DABS(EP)) + EFFNSQ=25. +c bug found by John Lester 18 May 2011 + IZ=CODE + IF(IZ.LE.30)INDEX=IZ*(IZ+1)/2+ICHARGE + IF(IZ.GT.30)INDEX=IZ*5+341+ICHARGE + DELEUP=POTION(INDEX)-EUP +C DELEUP=POTION(NELION)-EUP +c + IF(DELEUP.GT.0.)EFFNSQ=109737.31*ZEFF**2/DELEUP + GAMMAS=1.0D-8*EFFNSQ**2*SQRT(EFFNSQ) + GS=ALOG10(GAMMAS) +C +C 14NOV13 Stark width GS is sometimes too large for high series members + GS=MIN(GS,-3.) +C +C + GO TO 138 + 137 GAMMAS=1.0D-5 + GS=-5. + 138 IF(GW.NE.0.)GO TO 141 + IF(CODE.GE.100.)GO TO 139 + EUP=DMAX1(DABS(E),DABS(EP)) + EFFNSQ=25. +c bug found by John Lester 18 May 2011 + IZ=CODE + IF(IZ.LE.30)INDEX=IZ*(IZ+1)/2+ICHARGE + IF(IZ.GT.30)INDEX=IZ*5+341+ICHARGE + DELEUP=POTION(INDEX)-EUP +C DELEUP=POTION(NELION)-EUP + IF(DELEUP.GT.0.)EFFNSQ=109737.31D0*ZEFF**2/DELEUP + EFFNSQ=AMIN1(EFFNSQ,1000.) + RSQUP=2.5*(EFFNSQ/ZEFF)**2 + DELELO=POTION(INDEX)-ELO +C DELELO=POTION(NELION)-ELO + EFFNSQ=109737.31D0*ZEFF**2/DELELO + EFFNSQ=AMIN1(EFFNSQ,1000.) + RSQLO=2.5*(EFFNSQ/ZEFF)**2 + NSEQ=CODE-ZEFF+1. + IF(NSEQ.GT.20.AND.NSEQ.LT.29)THEN + RSQUP=(45.-FLOAT(NSEQ))/ZEFF + RSQLO=0. + ENDIF + IF(LABELP(1).EQ.8HCONTINUU)RSQLO=0. + IF(RSQUP.LT.RSQLO)RSQUP=2.*RSQLO + GAMMAW=4.5D-9*(RSQUP-RSQLO)**.4 + GW=ALOG10(GAMMAW) + GO TO 141 + 139 GAMMAW=1.E-7/ZEFF + GW=ALOG10(GAMMAW) + 141 CONTINUE + WRITE(6,144)WL,GFLOG,CODE,E,XJ,LABEL,EP,XJP,LABELP,GR,GS,GW,REF +c 1GAMMAR,GAMMAS,GAMMAW,REF,NBLO,NBUP,ISO1,X1,ISO2,X2,OTHER1,OTHER2 + 144 FORMAT(F11.4,F7.3,F6.2,F12.3,F5.1,1X,A8,A2,F12.3,F5.1,1X,A8,A2, + 1 F6.2,F6.2,F6.2,A4,I2,I2,I3,F7.3,I3,F7.3,A8,A2,A8,A2) + write(6,*)gammar,gammas,gammaw +C TYPE=-6 3HE II LINE +C TYPE=-5 4HE I LINE +C TYPE=-4 3HE I LINE +C TYPE=-3 4HE I LINE +C TYPE=-2 DEUTERIUM LINE +C TYPE=-1 HYDROGEN LINE +C TYPE=0 NORMAL LINE +C TYPE=1 AUTOIONIZING LINE +C TYPE=2 CORONAL APPROXIMATION LINE +C TYPE=3 PRD LINE +C TYPE.GT.3 = NLAST CONTINUUM + TYPE=0 + IF(CODE.EQ.1.00)TYPE=-1 + IF(CODE.EQ.1.00.AND.ISO1.EQ.2)TYPE=-2 + IF(CODE.EQ.2.00)TYPE=-3 + IF(CODE.EQ.2.00.AND.ISO1.EQ.3)TYPE=-4 + IF(CODE.EQ.2.01)TYPE=-6 + IF(CODE.EQ.2.01.AND.ISO1.EQ.3)TYPE=-6 + IF(AUTO.EQ.'COR')TYPE=2 + IF(AUTO.EQ.'AUT')TYPE=1 + IF(AUTO.EQ.'PRD')TYPE=3 + IF(LABELP(1).EQ.8HCONTINUU)NLAST=XJP + IF(LABELP(1).EQ.8HCONTINUU)GF=GF*(XJ+XJ+1.) + NCON=0 + IF(ISO1.EQ.0.AND.ISO2.GT.0)NCON=ISO2 + IF(TYPE.EQ.1)GO TO 17 + IF(TYPE.GT.3)GO TO 17 + FRELIN=2.99792458D17/WLVAC + CGF=.026538D0/1.77245D0*GF/FRELIN +C GR IS GAUNT FACTOR FOR CORONAL LINES + IF(TYPE.EQ.2)GAMMAR=GR + IF(TYPE.EQ.2)GO TO 1253 + GAMMAR=GAMMAR/12.5664D0/FRELIN + GAMMAS=GAMMAS/12.5664D0/FRELIN + GAMMAW=GAMMAW/12.5664D0/FRELIN + 17 NBUP=IABS(NBUP) + NBLO=IABS(NBLO) + NELIONX=0 + IF(TYPE.EQ.1)GO TO 1253 + IF(NBLO+NBUP.EQ.0)GO TO 1260 + DO 1250 I=1,17 + IF(CODE.EQ.CODEX(I))GO TO 1252 + 1250 CONTINUE + IF(TYPE.EQ.1)GO TO 1253 + WRITE(6,1251)CODE + 1251 FORMAT(9H BAD CODE,F10.2) + CALL EXIT + 1252 NELIONX=I + 1253 WRITE(19)WLVAC,ELO,GF,NBLO,NBUP,NELION,TYPE,NCON,NELIONX, + 1GAMMAR,GAMMAS,GAMMAW,NBUFF,LIM + IF(LINOUT.GE.0)WRITE(20)LINDAT8,LINDAT4 + N19=N19+1 + WRITE(6,*)WLVAC,gammar +C WRITE(6,5555)WLVAC,ILINE + 5555 FORMAT(112X,F10.4,I10) + GO TO 900 +C PLAIN LINE + 1260 WRITE(12)NBUFF,CGF,NELION,ELO,GAMMAR,GAMMAS,GAMMAW + IF(LINOUT.GE.0)WRITE(14)LINDAT8,LINDAT4 + N14=N14+1 + NLINES=NLINES+1 + 900 CONTINUE + 145 WRITE(6,1118)N14 + 1118 FORMAT(I10,' LINES ADDED TO TAPE 12') + WRITE(6,1120)NLINES + 1120 FORMAT(I10,' LINES TOTAL ON TAPE 12') + WRITE(6,1119)N19 + 1119 FORMAT(I10,' LINES TOTAL ON TAPE 19') +C IF(LINOUT.LT.0.)GO TO 1125 +C IF(N19.GT.0)THEN +C REWIND 20 +C DO 1121 I=1,N19 +C READ(20)LINDAT8,LINDAT +C 1121 WRITE(13)LINDAT8,LINDAT +C ENDIF +C IF(NLINES.GT.0)THEN +C REWIND 14 +C DO 1122 I=1,NLINES +C READ(14)LINDAT8,LINDAT +C 1122 WRITE(13)LINDAT8,LINDAT +C ENDIF +C 1125 CONTINUE +C IF(IFNLTE.EQ.1)N19=0 + REWIND 93 + WRITE(93)NLINES,LENGTH,IFVAC,IFNLTE,N19,TURBV,DECKJ,IFPRED, + 1WLBEG,WLEND,RESOLU,RATIO,RATIOLG,CUTOFF,LINOUT + CALL EXIT + END + SUBROUTINE IONPOTS +C +C Kramida, A., Ralchenko, Yu., Reader, J., and NIST ASD Team (2014). +C NIST Atomic Spectra Database (ver. 5.2). physics.nist.gov/asd +C 2014, November 4. +C + IMPLICIT REAL*8 (A-H,O-Z) + COMMON /POTION/POTION(999) + DIMENSION POTH ( 2),POTHe( 3),POTLi( 4),POTBe( 5),POTB ( 6) + DIMENSION POTC ( 7),POTN ( 8),POTO ( 9),POTF( 10),POTNe(11) + DIMENSION POTNa(12),POTMg(13),POTAl(14),POTSi(15),POTP (16) + DIMENSION POTS (17),POTCl(18),POTAr(19),POTK (20),POTCa(21) + DIMENSION POTSc(22),POTTi(23),POTV (24),POTCr(25),POTMn(26) + DIMENSION POTFe(27),POTCo(28),POTNi(29),POTCu(30),POTZn(31) + DIMENSION POTGa(5),POTGe(5),POTAs(5),POTSe(5),POTBr(5) + DIMENSION POTKr(5),POTRb(5),POTSr(5),POTY (5),POTZr(5) + DIMENSION POTNb(5),POTMo(5),POTTc(5),POTRu(5),POTRh(5) + DIMENSION POTPd(5),POTAg(5),POTCd(5),POTIn(5),POTSn(5) + DIMENSION POTSb(5),POTTe(5),POTI (5),POTXe(5),POTCs(5) + DIMENSION POTBa(5),POTLa(5),POTCe(5),POTPr(5),POTNd(5) + DIMENSION POTPm(5),POTSm(5),POTEu(5),POTGd(5),POTTb(5) + DIMENSION POTDy(5),POTHo(5),POTEr(5),POTTm(5),POTYb(5) + DIMENSION POTLu(5),POTHf(5),POTTa(5),POTW (5),POTRe(5) + DIMENSION POTOs(5),POTIr(5),POTPt(5),POTAu(5),POTHg(5) + DIMENSION POTTl(5),POTPb(5),POTBi(5),POTPo(5),POTAt(5) + DIMENSION POTRn(5),POTFr(5),POTRa(5),POTAc(5),POTTh(5) + DIMENSION POTPa(5),POTU (5),POTNp(5),POTPu(5),POTAm(5) + DIMENSION POTCm(5),POTBk(5),POTCf(5),POTEs(5) + EQUIVALENCE (POTION( 1),POTH (1)) + EQUIVALENCE (POTION( 3),POTHe(1)) + EQUIVALENCE (POTION( 6),POTLi(1)) + EQUIVALENCE (POTION( 10),POTBe(1)) + EQUIVALENCE (POTION( 15),POTB (1)) + EQUIVALENCE (POTION( 21),POTC (1)) + EQUIVALENCE (POTION( 28),POTN (1)) + EQUIVALENCE (POTION( 36),POTO (1)) + EQUIVALENCE (POTION( 45),POTF (1)) + EQUIVALENCE (POTION( 55),POTNe(1)) + EQUIVALENCE (POTION( 66),POTNa(1)) + EQUIVALENCE (POTION( 78),POTMg(1)) + EQUIVALENCE (POTION( 91),POTAl(1)) + EQUIVALENCE (POTION(105),POTSi(1)) + EQUIVALENCE (POTION(120),POTP (1)) + EQUIVALENCE (POTION(136),POTS (1)) + EQUIVALENCE (POTION(153),POTCl(1)) + EQUIVALENCE (POTION(171),POTAr(1)) + EQUIVALENCE (POTION(190),POTK (1)) + EQUIVALENCE (POTION(210),POTCa(1)) + EQUIVALENCE (POTION(231),POTSc(1)) + EQUIVALENCE (POTION(253),POTTi(1)) + EQUIVALENCE (POTION(276),POTV (1)) + EQUIVALENCE (POTION(300),POTCr(1)) + EQUIVALENCE (POTION(325),POTMn(1)) + EQUIVALENCE (POTION(351),POTFe(1)) + EQUIVALENCE (POTION(378),POTCo(1)) + EQUIVALENCE (POTION(406),POTNi(1)) + EQUIVALENCE (POTION(435),POTCu(1)) + EQUIVALENCE (POTION(465),POTZn(1)) + EQUIVALENCE (POTION(496),POTGa(1)) + EQUIVALENCE (POTION(501),POTGe(1)) + EQUIVALENCE (POTION(506),POTAs(1)) + EQUIVALENCE (POTION(511),POTSe(1)) + EQUIVALENCE (POTION(516),POTBr(1)) + EQUIVALENCE (POTION(521),POTKr(1)) + EQUIVALENCE (POTION(526),POTRb(1)) + EQUIVALENCE (POTION(531),POTSr(1)) + EQUIVALENCE (POTION(536),POTY (1)) + EQUIVALENCE (POTION(541),POTZr(1)) + EQUIVALENCE (POTION(546),POTNb(1)) + EQUIVALENCE (POTION(551),POTMo(1)) + EQUIVALENCE (POTION(556),POTTc(1)) + EQUIVALENCE (POTION(561),POTRu(1)) + EQUIVALENCE (POTION(566),POTRh(1)) + EQUIVALENCE (POTION(571),POTPd(1)) + EQUIVALENCE (POTION(576),POTAg(1)) + EQUIVALENCE (POTION(581),POTCd(1)) + EQUIVALENCE (POTION(586),POTIn(1)) + EQUIVALENCE (POTION(591),POTSn(1)) + EQUIVALENCE (POTION(596),POTSb(1)) + EQUIVALENCE (POTION(601),POTTe(1)) + EQUIVALENCE (POTION(606),POTI (1)) + EQUIVALENCE (POTION(611),POTXe(1)) + EQUIVALENCE (POTION(616),POTCs(1)) + EQUIVALENCE (POTION(621),POTBa(1)) + EQUIVALENCE (POTION(626),POTLa(1)) + EQUIVALENCE (POTION(631),POTCe(1)) + EQUIVALENCE (POTION(636),POTPr(1)) + EQUIVALENCE (POTION(641),POTNd(1)) + EQUIVALENCE (POTION(646),POTPm(1)) + EQUIVALENCE (POTION(651),POTSm(1)) + EQUIVALENCE (POTION(656),POTEu(1)) + EQUIVALENCE (POTION(661),POTGd(1)) + EQUIVALENCE (POTION(666),POTTb(1)) + EQUIVALENCE (POTION(671),POTDy(1)) + EQUIVALENCE (POTION(676),POTHo(1)) + EQUIVALENCE (POTION(681),POTEr(1)) + EQUIVALENCE (POTION(686),POTTm(1)) + EQUIVALENCE (POTION(691),POTYb(1)) + EQUIVALENCE (POTION(696),POTLu(1)) + EQUIVALENCE (POTION(701),POTHf(1)) + EQUIVALENCE (POTION(706),POTTa(1)) + EQUIVALENCE (POTION(711),POTW (1)) + EQUIVALENCE (POTION(716),POTRe(1)) + EQUIVALENCE (POTION(721),POTOs(1)) + EQUIVALENCE (POTION(726),POTIr(1)) + EQUIVALENCE (POTION(731),POTPt(1)) + EQUIVALENCE (POTION(736),POTAu(1)) + EQUIVALENCE (POTION(741),POTHg(1)) + EQUIVALENCE (POTION(746),POTTl(1)) + EQUIVALENCE (POTION(751),POTPb(1)) + EQUIVALENCE (POTION(756),POTBi(1)) + EQUIVALENCE (POTION(761),POTPo(1)) + EQUIVALENCE (POTION(766),POTAt(1)) + EQUIVALENCE (POTION(771),POTRn(1)) + EQUIVALENCE (POTION(776),POTFr(1)) + EQUIVALENCE (POTION(781),POTRa(1)) + EQUIVALENCE (POTION(786),POTAc(1)) + EQUIVALENCE (POTION(791),POTTh(1)) + EQUIVALENCE (POTION(796),POTPa(1)) + EQUIVALENCE (POTION(801),POTU (1)) + EQUIVALENCE (POTION(806),POTNp(1)) + EQUIVALENCE (POTION(811),POTPu(1)) + EQUIVALENCE (POTION(816),POTAm(1)) + EQUIVALENCE (POTION(821),POTCm(1)) + EQUIVALENCE (POTION(826),POTBk(1)) + EQUIVALENCE (POTION(831),POTCf(1)) + EQUIVALENCE (POTION(836),POTEs(1)) + DATA POTH / 109678.772D0,0./ + DATA POTHe/ 198310.666D0, 438908.879D0,0./ + DATA POTLi/ 43487.114D0, 610078.526D0, 987661.014D0,0./ + DATA POTBe/ 75192.640D0, 146882.86D0,1241256.600D0, + 1 1756018.822D0, 0./ + DATA POTB /66928.040D0,202887.40D0,305930.80D0,2091972.D0, + 1 2744107.936D0, 0./ + DATA POTC /90820.42D0,196674.D0,386241.0D0,520175.8D0, + 1 3162423.30D0,3952061.670D0, 0./ + DATA POTN / 117225.70D0,238750.20D0,382672.D0,624866.D0, + 1 789537.D0,4452723.30D0,5380089.80D0, 0./ + DATA POTO / 109837.02D0,283270.90D0,443085.0D0,624382.0D0, + 1 918657.D0,1114004.D0,5963073.00D0,7028394.70D0, 0./ + DATA POTF / 140524.50D0,282058.6D0,505774.0D0,703110.D0,921480.D0, + 1 1267606.0D0,1493632.D0,7693706.60D0,8897242.50D0, 0./ + DATA POTNe/173929.750D0,330388.60D0,511544.D0,783890.D0, + 1 1018250.D0,1273820.D0,1671750.D0,1928447.D0,9644840.7D0, + 2 10986877.20D0,0./ + DATA POTNa/ 41449.451D0,381390.2D0,577654.D0,797970.D0,1116300.D0, + 1 1389100.D0,1681700.D0, 2130850.D0, 2418500.D0, + 2 11817106.70D0,13297680.0D0,0./ + DATA POTMg/61671.050D0,121267.61D0,646402.D0,881285.D0,1139900.D0, + 1 1506300.D0, 1814900.D0, 2144820.D0, 2645400.D0, + 2 2964000.D0,14209914.7D0, 15829950.D0, 0./ + DATA POTAl/48278.48D0,151862.50D0,229445.70D0,967804.D0, + 1 1240684.D0,1536400.D0, 1949900.D0, 2295800.D0, + 2 2663300.D0, 3215300.D0,3565010.D0, 16824539.3D0, + 3 18584143.0D0, 0./ + DATA POTSi/65747.76D0,131838.14D0,270139.30D0,364093.10D0, + 1 1345070.D0,1655590.D0, 1986700.D0, 2449200.D0, + 2 2831800.D0, 3237400.D0,3840600.D0, 4221630.D0, + 3 19661038.9D0, 21560631.0D0, 0./ + DATA POTP / 84580.83D0,159451.70D0,243600.70D0,414922.8D0, + 1 524462.9D0,1777890.D0, 2125800.D0, 2497100.D0, + 2 3002900.D0, 3423000.D0,3867000.D0, 4521700.D0, + 3 4934020.D0, 22719901.6D0,24759942.D0,0./ + DATA POTS / 83559.1D0,188232.7D0,281100.D0,380870.D0,585514.D0, + 1 710195.D0, 2266050.D0, 2651900.D0, 3063600.D0, 3611300.D0, + 2 4069500.D0, 4552200.D0, 5258400.D0, 5702290.D0,26001545.1D0, + 3 28182526.D0, 0./ + DATA POTCl/ 104591.00D0,192070.0D0,321000.D0,429400.D0,545800.D0, + 1 781900.D0, 921096.D0, 2809280.D0, 3233080.D0, 3683000.D0, + 2 4274000.D0, 4771400.D0, 5293400.D0, 6051000.D0, 6526620.D0, + 3 29506532.5D0, 31828983.D0, 0./ + DATA POTAr/ 127109.842D0,222848.3D0,328550.D0,480600.D0,603700.D0, + 1 736300.D0, 1003400.D0, 1157056.D0, 3408500.D0, 3869500.D0, + 2 4359000.D0, 4992000.D0, 5528700.D0, 6090500.D0, 6899800.D0, + 3 7407190.D0, 33235410.D0, 35699895.D0, 0./ + DATA POTK / 35009.814D0,255072.8D0,369427.D0,491330.D0,666700.D0, + 1 802000.D0, 948200.D0, 1249100.D0, 1418063.D0, 4062400.D0, + 2 4562000.D0, 5090000.D0, 5764000.D0, 6342000.D0, 6943800.D0, + 3 7805000.D0, 8344140.D0, 37189176.0D0,39795784.D0, 0./ + DATA POTCa/ 49305.924D0,95751.870D0,410642.3D0,542595.D0, + 1 680200.D0,877400.D0, 1026000.D0, 1187600.D0, 1520600.D0, + 2 1704050.D0,4771600.D0, 5309000.D0, 5877000.D0, 6591000.D0, + 3 7210000.D0,7853000.D0, 8766000.D0, 9337690.D0,41367028.D0, + 4 44117409.D0,0./ + DATA POTSc/52922.00D0,103237.1D0,199677.37D0,592732.D0,741600.D0, + 1 892700.D0, 1113000.D0, 1275000.D0, 1452000.D0, 1816200.D0, + 2 2014760.D0, 5543900.D0, 6111000.D0, 6720000.D0, 7473000.D0, + 3 8135000.D0, 8820000.D0, 9784000.D0,10388070.D0,45771185.D0, + 4 48665510.D0, 0./ + DATA POTTi/ 55072.50D0,109494.D0,221735.6D0,348973.3D0,800900.D0, + 1 964100.D0, 1134700.D0, 1375000.D0, 1549000.D0,1741500.D0, + 2 2137900.D0, 2351110.D0, 6353000.D0, 6969000.D0,7618000.D0, + 3 8408000.D0, 9116000.D0, 9842000.D0,10859000.D0,11495470.D0, + 4 50401766.D0, 53440740.D0, 0./ + DATA POTV / 54411.67D0,117900.D0, 236410.D0, 376730.D0,526532.0D0, + 1 1033400.D0, 1215700.D0, 1399800.D0, 1661000.D0, 1859000.D0, + 2 2055000.D0, 2488200.D0, 2712230.D0, 7227000.D0, 7882000.D0, + 3 8573000.D0, 9398000.D0, 10153000.D0,10922000.D0,11991000.D0, + 4 12660130.D0, 55259549.D0, 58443920.D0, 0./ + DATA POTCr/ 54575.6D0,132971.02D0,249700.D0, 396500.D0,560200.D0, + 1 731020.D0,1292800.D0, 1490200.D0, 1690100.D0, 1972000.D0, + 2 2184000.D0,2393000.D0, 2860500.D0, 3098480.D0, 8159000.D0, + 3 8850000.D0,9582000.D0,10443000.D0,11247000.D0,12059000.D0, + 4 13180000.D0,13882280.D0, 60345293.D0,63675850.D0, 0./ + DATA POTMn/ 59959.4D0,126145.00D0,271550.D0,413000.D0, 584000.D0, + 1 771100.D0, 961440.D0, 1577000.D0, 1789600.D0, 2005400.D0, + 2 2308000.D0, 2536000.D0, 2771000.D0, 3250000.D0, 3509900.D0, + 3 9144000.D0, 9873000.D0, 10649000.D0,11541000.D0,12398000.D0, + 4 13253000.D0,14427000.D0, 15162200.D0,65659877.D0,69137430.D0, + 5 0./ + DATA POTFe/ 63737.704D0,130655.40D0,247220.D0,442900.D0,604900.D0, + 1 798370.D0, 1008000.D0, 1218380.D0, 1884000.D0, 2114000.D0, + 2 2346000.D0, 2668000.D0, 2912000.D0, 3163000.D0, 3680000.D0, + 3 3946570.D0,10184000.D0,10951000.D0,11770000.D0,12708000.D0, + 4 13607000.D0,14505000.D0,15731000.D0,16500160.D0,71204137.D0, + 5 74829550.D0, 0./ + DATA POTCo/ 63564.6D0,137795.D0, 270200.D0, 413500.D0, 641200.D0, + 1 822700.D0, 1040000.D0, 1273000.D0, 1501300.D0, 2221000.D0, + 2 2462600.D0, 2711000.D0, 3053000.D0, 3307000.D0, 3558000.D0, + 3 4129200.D0, 4408530.D0,11269000.D0,12135000.D0,12950000.D0, + 4 13900000.D0,14873000.D0,15815000.D0,17094000.D0,17896440.D0, + 5 76979030.D0,80753210.D0, 0./ + DATA POTNi/ 61619.77D0,146541.56D0,283800.D0,443000.D0,613500.D0, + 1 871000.D0,1065000.D0,1307000.D0,1558000.D0,1812000.D0, + 2 2577000.D0,2836100.D0,3102000.D0,3463000.D0,3732000.D0, + 3 3995000.D0,4606000.D0,4895950.D0,12429000.D0,13274000.D0, + 4 14180000.D0, 15170000.D0, 16196000.D0,1718300.D0,18515000.D0, + 5 19351330.D0, 82985464.D0, 86909350.D0, 0./ + DATA POTCu/ 62317.460D0,163669.20D0,297140.D0,462800.D0,644000.D0, + 1 831000.D0,1121000.D0,1339000.D0,1597000.D0,1873000.D0, + 2 2140000.D0,2960000.D0,3234000.D0,3517000.D0,3897000.D0, + 3 4184000.D0,4458000.D0,5101000.D0,5408820.D0,13635000.D0, + 4 14518000.D0,15470000.D0,16480000.D0,17578000.D0,18610000.D0, + 5 19995000.D0,20865190.D0,89224526.D0,93299090.D0, 0./ + DATA POTZn/75769.328D0,144892.6D0,320390.0D0,480490.D0,666000.D0, + 1 871000.D0,1080000.D0,1403000.D0,1637000.D0,1920000.D0, + 2 2213000.D0,2507000.D0,3368000.D0,3657000.D0,3957000.D0, + 3 4355000.D0,4660000.D0,4946000.D0,5626000.D0,5947260.D0, + 4 14896000.D0,15820000.D0,16820000.D0,17860000.D0,19019000.D0, + 5 20095000.D0,21534000.D0,22438310.D0,95697194.D0,99923450.D0, + 6 0./ + DATA POTGa/ 48387.634D0,165465.8D0,247820.0D0,510070.D0,693700.D0/ + DATA POTGe/ 63713.24D0, 128521.30D0,274693.D0,368720.D0,729930.D0/ + DATA POTAs/ 78950.0D0, 149932.D0, 228650.D0, 404500.D0, 506200.D0/ + DATA POTSe/ 78658.35D0,170960.D0, 255650.D0, 346390.D0, 550900.D0/ + DATA POTBr/ 95284.80D0,174140.D0, 282000.D0, 385400.D0, 480670.D0/ + DATA POTKr/112914.433D0,196475.4D0,287700.D0, 410100.D0,521800.D0/ + DATA POTRb/ 33690.81D0,220105.00D0,316550.D0, 421000.D0,552000.D0/ + DATA POTSr/45932.204D0,88965.180D0,345879.0D0,453930.D0,570000.D0/ + DATA POTY / 50145.60D0, 98590.D0,165540.5D0, 488830.D0,604700.D0/ + DATA POTZr/ 53506.00D0,105900.D0, 186880.D0,277602.80D0,648050.D0/ + DATA POTNb/ 54513.80D0,115500.D0, 202000.D0, 303350.D0, 407897.D0/ + DATA POTMo/ 57204.30D0,130300.D0, 218800.D0, 325300.D0, 439450.D0/ + DATA POTTc/ 57421.68D0,123100.D0, 238300.D0, 331000.D0, 460000.D0/ + DATA POTRu/ 59366.40D0,135200.D0, 229600.D0, 363000.D0, 476000.D0/ + DATA POTRh/ 60160.10D0,145800.D0, 250500.D0, 339000.D0, 508000.D0/ + DATA POTPd/ 67241.30D0,156700.D0, 265600.D0, 371000.D0, 492000.D0/ + DATA POTAg/ 61106.45D0,173283.D0, 280900.D0, 395000.D0, 524000.D0/ + DATA POTCd/ 72540.07D0,136374.74D0,302200.D0,411000.D0, 548000.D0/ + DATA POTIn/46670.104D0,152200.10D0,226191.3D0,447200.D0,559000.D0/ + DATA POTSn/ 59232.69D0,118017.0D0,246020.0D0,328600.D0, 621300.D0/ + DATA POTSb/ 69431.34D0, 134100.D0,204248.D0, 353300.D0, 443600.D0/ + DATA POTTe/ 72667.80D0, 150000.D0,224500.D0, 301776.D0, 478000.D0/ + DATA POTI / 84295.10D0,154304.0D0,238500.D0, 325500.D0, 415500.D0/ + DATA POTXe/ 97833.787D0,169180.D0,250400.D0, 340400.D0, 437000.D0/ + DATA POTCs/ 31406.468D0,186777.40D0,267740.D0,347000.D0,452000.D0/ + DATA POTBa/ 42034.91D0,80686.30D0,289100.D0, 379000.D0, 468000.D0/ + DATA POTLa/ 44981.D0, 90212.50D0, 154675.D0,402900.D0, 497000.D0/ + DATA POTCe/ 44672.D0, 87500.D0, 162903.D0, 297670.D0, 528700.D0/ + DATA POTPr/ 44140.D0, 85100.D0, 174407.D0, 314400.D0, 464000.D0/ + DATA POTNd/ 44562.D0, 86500.D0, 178600.D0, 326000.D0, 483900.D0/ + DATA POTPm/ 45020.D0, 87900.D0, 180000.D0, 331000.D0, 498000.D0/ + DATA POTSm/ 45519.6D0, 89300.D0, 189000.D0, 334000.D0, 505000.D0/ + DATA POTEu/ 45734.740D0,90660.D0, 201000.D0, 344000.D0, 510000.D0/ + DATA POTGd/ 49601.45D0, 97500.D0, 166400.D0, 355000.D0, 522000.D0/ + DATA POTTb/ 47295.D0, 92900.D0, 176700.D0, 317500.D0, 536000.D0/ + DATA POTDy/ 47901.70D0, 94100.D0, 185000.D0, 334000.D0, 501000.D0/ + DATA POTHo/ 48567.D0, 95200.D0, 184200.D0, 343000.D0, 516000.D0/ + DATA POTEr/ 49262.D0, 96200.D0, 183400.D0, 344000.D0, 525000.D0/ + DATA POTTm/ 49879.80D0, 97200.D0, 191000.D0, 344000.D0, 528000.D0/ + DATA POTYb/ 50443.20D0,98231.75D0,202070.D0, 351300.D0, 529000.D0/ + DATA POTLu/ 43762.60D0,112000.D0, 169010.D0, 364960.D0, 539000.D0/ + DATA POTHf/ 55047.90D0,120000.D0, 188000.D0, 269150.D0, 551500.D0/ + DATA POTTa/ 60891.40D0,131000.D0, 186000.D0, 282000.D0, 389340.D0/ + DATA POTW / 63427.70D0,132000.D0, 210000.D0, 308000.D0, 416000.D0/ + DATA POTRe/ 63181.60D0,134000.D0, 218000.D0, 315000.D0, 419000.D0/ + DATA POTOs/ 68058.9D0, 137000.D0, 202000.D0, 331000.D0, 444000.D0/ + DATA POTIr/ 72323.9D0, 137100.D0, 226000.D0, 323000.D0, 460000.D0/ + DATA POTPt/ 72257.80D0,149700.D0, 234000.D0, 347000.D0, 452000.D0/ + DATA POTAu/ 74409.11D0,162950.D0, 242000.D0, 363000.D0, 484000.D0/ + DATA POTHg/ 84184.150D0,151284.40D0,277900.D0,391600.D0,493600.D0/ + DATA POTTl/ 49266.660D0,164765.D0, 240773.D0, 412500.D0,505000.D0/ + DATA POTPb/59819.558D0,121245.28D0,257592.D0,341435.1D0,555000.D0/ + DATA POTBi/ 58761.650D0,134720.D0, 206180.D0, 365900.D0,442400.D0/ + DATA POTPo/ 67860.D0, 156000.D0, 220000.D0, 290000.D0, 460000.D0/ + DATA POTAt/ 75150.80D0,144210.D0, 214400.D0, 319800.D0, 406400.D0/ + DATA POTRn/ 86692.5D0, 173000.D0, 237000.D0, 298000.D0, 427000.D0/ + DATA POTFr/ 32848.872D0,181000.D0,270000.D0, 315000.D0, 403000.D0/ + DATA POTRa/ 42573.36D0,81842.31D0,250000.D0, 331000.D0, 427000.D0/ + DATA POTAc/ 43394.45D0, 94800.D0, 140590.D0, 361000.D0, 444000.D0/ + DATA POTTh/ 50867.0D0, 96000.D0, 147800.D0, 231060.D0, 468000.D0/ + DATA POTPa/ 47500.D0, 96000.D0, 150000.D0, 249000.D0, 357000.D0/ + DATA POTU / 49958.40D0, 94000.D0, 159700.D0, 296000.D0, 371000.D0/ + DATA POTNp/ 50535.0D0, 93000.D0, 159000.D0, 273000.D0, 387000.D0/ + DATA POTPu/ 48601.0D0, 93000.D0, 170000.D0, 282000.D0, 395000.D0/ + DATA POTAm/ 48182.0D0, 94000.D0, 175000.D0, 297000.D0, 403000.D0/ + DATA POTCm/ 48324.0D0, 100000.D0, 162000.D0, 304000.D0, 411000.D0/ + DATA POTBk/ 49989.0D0, 96000.D0, 174000.D0, 290000.D0, 452000.D0/ + DATA POTCf/ 50665.0D0, 97000.D0, 181000.D0, 304000.D0, 419000.D0/ + DATA POTEs/ 51358.0D0, 98000.D0, 183000.D0, 313000.D0, 436000.D0/ + RETURN + END diff --git a/synthe/rgfalllinesnew.for b/synthe/rgfalllinesnew.for new file mode 100644 index 0000000..28bd52c --- /dev/null +++ b/synthe/rgfalllinesnew.for @@ -0,0 +1,414 @@ + PROGRAM RGFALL +c revised 25may97 +c this program is a quick and dirty demonstration of replacing programs +c RNLTE and RLINE while keeping all the other SYNTHE programs the same. +C READS LINES FROM UNIT 11 AND WRITES THEM ON UNIT 19 IF THE LINE +C WAS ORIGINALLY FROM THE FILE NLTELINES.DAT OR TO UNIT 12 IF NOT, +C IF IFNLTE=0 UNIT 19 IS READ BY SYNTHE AND THE LINES ARE +C TREATED IN LTE. IF IFNLTE=1 UNIT 19 IS READ BY SPECTR AND THE +C LINES ARE TREATED IN NLTE IF THE MODEL IS NLTE. +C THESE LINES ARE TREATED WITH EXACT VOIGT OR FANO PROFILES +C WL IS THE AIR WAVELENGTH IF WL .GT. 200 NM +C IF THE SWITCH IFVAC=1 THE WAVELENGTH USED BY THE PROGRAM WILL +C BE THE VACUUM WAVELENGTH OBTAINED FROM THE DIFFERENCE OF +C THE ENERGY LEVELS +C A SUFFIX P STANDS FOR PRIME INDICATING THE SECOND CONFIGURATION +C J IS ANGULAR MOMENTUM +C E IS ENERGY IN WAVENUMBERS +C LABEL IS A LABEL FOR THE CONFIGURATION +C THE GF TAPE DOES NOT KEEP LABEL AND LABELP DISTINCT +C CODE FOR ATOM OR MOLECULE +C NELION IS THE STORAGE LOCATION OF ELEM IN ARRAYS XNFPEL AND DOPPLE +C GAMMAR IS THE RADIATIVE DAMPING CONSTANT +C GAMMAW IS THE DAMPING CONSTANT PER HYDROGEN ATOM FOR VAN DER WAALS +C BROADENING BY HYDROGEN AT T=10000K. +C FOR HELIUM MULTIPLY BY .42 +C FOR H2 MULTIPLY BY .85 +C GAMMAS IS THE STARK DAMPING CONSTANT PER ELECTRON ASSUMED TO BE +C TEMPERATURE INDEPENDENT +C TO CONVERT GRIEM"S HALF WIDTH TO GAMMAS FOR DLAM AND LAM IN A +C GAMMAS=3767.*DLAM/LAM**2 +C LOG(GAMMA) IS READ IN +C IF NOT READ IN GAMMAR IS CLASSICAL, GAMMAW IS FROM ALLER, AND +C GAMMAS IS FROM PEYTREMANN +C REF ARE A REFERENCE OR REFERENCES FOR GF AND DAMPING CONSTANTS +C NBLO AND NBUP REFER TO DEPARTURE COEFFICIENT ARRAYS FOR THE LOWER +C AND UPPER LEVELS (NOT FIRST AND SECOND) +C ISO1 AND ISO2 ARE ISOTOPE NUMBERS FOR UP TO 2 COMPONENTS +C X1 AND X2 ARE LOG FRACTIONAL ISOTOPIC ABUNDANCES THAT ARE ADDED TO +C LOG GF TO OBTAIN AN ISOTOPIC ABUNDANCE +C OTHER1 AND 2 ARE ADDITIONAL LABEL FIELDS OR QUANTUM NUMBERS OR +C WHATEVER +C OTHER1 IS NOW USED TO STORE LANDE G VALUES AS 2 I5 INTEGERS IN UNITS +C OF .001 . EXAMPLE GLANDE=-.007 GLANDEP=2.499 OTHER1= -7 2499 +C DWL CORRECTION TO WL +C DLOGGF CORRECTION TO LOGGF +C DGAMMAR LOG CORRECTION TO GAMMAR +C DGAMMAS LOG CORRECTION TO GAMMAS +C DGAMMAW LOG CORRECTION TO GAMMAW +C ISOSHIFT IS ISOTOPE SHIFT OF WAVELENGTH IN MK = 0.001 CM-1 +CC SAMPLE CARDS +C 396.8470 -0.162 0.5 0.000 1.5 25191.541 20.01 4S 4P +C 396.8470 116 8.24 -4.44 -7.80 REF + PARAMETER (kw=99) + COMMON /LINDAT/WL,E,EP,LABEL(2),LABELP(2),OTHER1(2),OTHER2(2), + 1 WLVAC,CENTER,CONCEN, NELION,GAMMAR,GAMMAS,GAMMAW,REF, + 2 NBLO,NBUP,ISO1,X1,ISO2,X2,GFLOG,XJ,XJP,CODE,ELO,GF,GS,GR,GW, + 3 DWL,DGFLOG,DGAMMAR,DGAMMAS,DGAMMAW,DWLISO,ISOSHIFT,EXTRA3 + REAL*8 LINDAT8(14) + REAL*4 LINDAT4(28) + EQUIVALENCE (LINDAT8(1),WL),(LINDAT4(1),NELION) + REAL*8 RESOLU,RATIO,RATIOLG,SIGMA2,WLBEG,WLEND + REAL*8 WL,E,EP,WLVAC,CENTER,CONCEN + REAL*8 LABEL,LABELP,OTHER1,OTHER2 + CHARACTER*20 NOTES + CHARACTER*10 COTHER1,COTHER2 + EQUIVALENCE (COTHER1,OTHER1(1)),(COTHER2,OTHER2(1)) + CHARACTER*3 AUTO + CHARACTER*6 IXFIXFP + DIMENSION DECKJ(7,kw) + INTEGER TYPE + EQUIVALENCE (GAMMAS,ASHORE),(GAMMAW,BSHORE) + EQUIVALENCE (GF,G,CGF),(TYPE,NLAST),(GAMMAR,XSECT,GAUNT) + COMMON /POTION/POTION(594) + DIMENSION CODEX(17) + DIMENSION DELLIM(7) + DIMENSION NTENS(10) + DATA NTENS/1,10,100,1000,10000,100000,1000000,10000000, + 1 100000000,1000000000/ + DATA CODEX/1.,2.,2.01,6.,6.01,12.,12.01,13.,13.01,14.,14.01, + 1 20.,20.01,8.,11.,5.,19./ + DATA DELLIM/100.,30.,10.,3.,1.,.3,.1/ +C CALL BEGTIME + READ(93)NLINES,LENGTH,IFVAC,IFNLTE,N19,TURBV,DECKJ,IFPRED, + 1WLBEG,WLEND,RESOLU,RATIO,RATIOLG,CUTOFF,LINOUT + IXWLBEG=DLOG(WLBEG)/RATIOLG + IF(DEXP(IXWLBEG*RATIOLG).LT.WLBEG)IXWLBEG=IXWLBEG+1 + DELFACTOR=1. + IF(WLBEG.GT.500.)DELFACTOR=WLBEG/500. + N14=0 + OPEN(UNIT=11,STATUS='OLD',READONLY,SHARED,RECL=160) + OPEN(UNIT=12,STATUS='OLD',FORM='UNFORMATTED',ACCESS='APPEND') + OPEN(UNIT=14,STATUS='OLD',FORM='UNFORMATTED',ACCESS='APPEND') + OPEN(UNIT=19,STATUS='OLD',FORM='UNFORMATTED',ACCESS='APPEND') + OPEN(UNIT=20,STATUS='OLD',FORM='UNFORMATTED',ACCESS='APPEND') + OTHER1(2)=(8H ) + OTHER2(1)=(8H ) + OTHER2(2)=(8H ) + DWL=0. + DLOGGF=0. + DGAMMAR=0. + DGAMMAS=0. + DGAMMAW=0. + DWLISO=0. + alpha=0. + DO 900 ILINE=1,50000000 + READ(11,140,END=145)WL,GFLOG,CODE,E,XJ,LABEL,EP,XJP,LABELP, + 1 GAMMAR,GAMMAS,GAMMAW,REF,NBLO,NBUP,ISO1,X1,ISO2,X2,OTHER1, + 2 OTHER2,LANDE,LANDEG,ISOSHIFT,alpha +c type*,wl +c if(alpha.ne.0)type*,wl,alpha +C 1234567 123456789012 1 +C12345678901 123456 12345 1234567890 1234567890 +C 234.0154 -3.888 3.00 0.000 0.5 2s 2S 42719.141 0.5 12p 2P more +C +C continuing 12345678901234567890 +C 5.21 0.00 0.00LN 0 0 0 0.000 0 0.000 1234 5678 -7 + 140 FORMAT(F11.4,F7.3,F6.2,F12.3,F5.1,1X,A8,A2,F12.3,F5.1,1X,A8,A2, + 1 F6.2,F6.2,F6.2,A4,I2,I2,I3,F6.3,I3,F6.3,A8,A2,A8,A2,2I5,I6,f6.3) +c if(wl.gt.621.5) type*,wl,gflog,code +C OTHER1 IS HYPERFINE SHIFTS +C IXFIXFP IS HYPERFINE NOTATION +c READ(COTHER1,'(2I5)')ISHIFT,ISHIFTP +c READ(COTHER1,'(1x,I1,1x,I1,6x)')ISHIFT,ISHIFTP + READ(COTHER2,'(A6,I1,A3)')IXFIXFP,LINESIZE,AUTO + ishift=0 + ishiftp=0 + ESHIFT=ISHIFT*.001 + ESHIFTP=ISHIFTP*.001 + DWLISO=-ISOSHIFT*.001*ABS(WL)**2/1.D7 + WLVAC=ABS(WL)+DWL+DWLISO + IF(IFVAC.EQ.1.OR.LABELP(1).EQ.8HCONTINUU)WLVAC= + 1 1.D7/DABS(DABS(EP)+ESHIFTP-DABS(E)+ESHIFT)+DWL+DWLISO + IF(WLVAC.GT.WLEND+DELLIM(1))GO TO 145 + IXWL=DLOG(WLVAC)/RATIOLG+.5D0 + NBUFF=IXWL-IXWLBEG+1 + LIM=MIN(8-LINESIZE,7) + IF(CODE.EQ.1.)LIM=1 + IF(WLVAC.LT.WLBEG-DELLIM(LIM)*DELFACTOR)GO TO 900 +C IF(WLVAC.GT.WLEND+DELLIM(LIM)*DELFACTOR)GO TO 900 + IF(WLVAC.GT.WLEND+DELLIM(LIM)*DELFACTOR)GO TO 145 +C CORONAL APPROXIMATION LINE + IF(AUTO.EQ.'COR')GO TO 900 +C WRITE(6,140)WL,GFLOG,CODE,E,XJ,LABEL,EP,XJP,LABELP + GR=GAMMAR + GS=GAMMAS + GW=GAMMAW + GF=EXP((GFLOG+DGFLOG+X1+X2)*2.30258509299405E0) + ELO=DMIN1(DABS(E),DABS(EP)) + GAMMAR=EXP((GAMMAR+DGAMMAR)*2.30258509299405E0) + GAMMAS=EXP((GAMMAS+DGAMMAS)*2.30258509299405E0) + GAMMAW=EXP((GAMMAW+DGAMMAW)*2.30258509299405E0) + IF(GAMMAR.EQ.1)THEN + GAMMAR=2.223E13/WLVAC**2 + GR=ALOG10(GAMMAR) + ENDIF + NELEM=CODE + ICHARGE=(CODE-FLOAT(NELEM))*100.+.1 + ZEFF=ICHARGE+1 + NELION=NELEM*6-6+IFIX(ZEFF) + IF(NELEM.GT.19.AND.NELEM.LT.29.AND.ICHARGE.GT.5)NELION= + 1 6*(NELEM+ICHARGE*10-30)-1 + IF(GAMMAS.NE.1..AND.GAMMAW.NE.1.)GO TO 141 + IF(GAMMAS.NE.1.)GO TO 138 + IF(CODE.GE.100.)GO TO 137 + EUP=DMAX1(DABS(E),DABS(EP)) + EFFNSQ=25. + DELEUP=POTION(NELION)-EUP + IF(DELEUP.GT.0.)EFFNSQ=109737.31*ZEFF**2/DELEUP + GAMMAS=1.0E-8*EFFNSQ**2*SQRT(EFFNSQ) + GS=ALOG10(GAMMAS) + GO TO 138 + 137 GAMMAS=1.0E-5 + GS=-5. + 138 IF(GAMMAW.NE.1.)GO TO 141 + IF(CODE.GE.100.)GO TO 139 + EUP=DMAX1(DABS(E),DABS(EP)) + EFFNSQ=25. + DELEUP=POTION(NELION)-EUP + IF(DELEUP.GT.0.)EFFNSQ=109737.31*ZEFF**2/DELEUP + EFFNSQ=AMIN1(EFFNSQ,1000.) + RSQUP=2.5*(EFFNSQ/ZEFF)**2 + DELELO=POTION(NELION)-ELO + EFFNSQ=109737.31*ZEFF**2/DELELO + EFFNSQ=AMIN1(EFFNSQ,1000.) + RSQLO=2.5*(EFFNSQ/ZEFF)**2 + NSEQ=CODE-ZEFF+1. + IF(NSEQ.GT.20.AND.NSEQ.LT.29)THEN + RSQUP=(45.-FLOAT(NSEQ))/ZEFF + RSQLO=0. + ENDIF + IF(LABELP(1).EQ.8HCONTINUU)RSQLO=0. + IF(RSQUP.LT.RSQLO)RSQUP=2.*RSQLO + GAMMAW=4.5E-9*(RSQUP-RSQLO)**.4 + GW=ALOG10(GAMMAW) + GO TO 141 + 139 GAMMAW=1.E-7/ZEFF + GW=ALOG10(GAMMAW) + 141 CONTINUE +c 1WRITE(6,144)WL,GFLOG,CODE,E,XJ,LABEL,EP,XJP,LABELP, +c type*,WL,GFLOG,CODE,E,XJ,EP,XJP +c 1GAMMAR,GAMMAS,GAMMAW,REF,NBLO,NBUP,ISO1,X1,ISO2,X2,OTHER1,OTHER2 + 144 FORMAT(F11.4,F7.3,F6.2,F12.3,F5.1,1X,A8,A2,F12.3,F5.1,1X,A8,A2, + 1 F6.2,F6.2,F6.2,A4,I2,I2,I3,F7.3,I3,F7.3,A8,A2,A8,A2) +C TYPE=-6 3HE II LINE +C TYPE=-5 4HE I LINE +C TYPE=-4 3HE I LINE +C TYPE=-3 4HE I LINE +C TYPE=-2 DEUTERIUM LINE +C TYPE=-1 HYDROGEN LINE +C TYPE=0 NORMAL LINE +C TYPE=1 AUTOIONIZING LINE +C TYPE=2 CORONAL APPROXIMATION LINE +C TYPE=3 PRD LINE +C TYPE.GT.3 = NLAST CONTINUUM + TYPE=0 + IF(CODE.EQ.1.00)TYPE=-1 + IF(CODE.EQ.1.00.AND.ISO1.EQ.2)TYPE=-2 + IF(CODE.EQ.2.00)TYPE=-3 + IF(CODE.EQ.2.00.AND.ISO1.EQ.3)TYPE=-4 + IF(CODE.EQ.2.01)TYPE=-6 + IF(CODE.EQ.2.01.AND.ISO1.EQ.3)TYPE=-6 + IF(AUTO.EQ.'COR')TYPE=2 + IF(AUTO.EQ.'AUT')TYPE=1 + IF(AUTO.EQ.'PRD') TYPE=3 + IF(LABELP(1).EQ.8HCONTINUU)NLAST=XJP + IF(LABELP(1).EQ.8HCONTINUU)GF=GF*(XJ+XJ+1.) + NCON=0 + IF(ISO1.EQ.0.AND.ISO2.GT.0)NCON=ISO2 + IF(TYPE.EQ.1)GO TO 17 + IF(TYPE.GT.3)GO TO 17 + FRELIN=2.99792458E17/WLVAC + CGF=.026538/1.77245*GF/FRELIN +C GR IS GAUNT FACTOR FOR CORONAL LINES + IF(TYPE.EQ.2)GAMMAR=GR + IF(TYPE.EQ.2)GO TO 1253 + GAMMAR=GAMMAR/12.5664/FRELIN + GAMMAS=GAMMAS/12.5664/FRELIN + GAMMAW=GAMMAW/12.5664/FRELIN + 17 NBUP=IABS(NBUP) + NBLO=IABS(NBLO) + IF(NBLO+NBUP.EQ.0)GO TO 1260 + DO 1250 I=1,17 + IF(CODE.EQ.CODEX(I))GO TO 1252 + 1250 CONTINUE + WRITE(6,1251)CODE + 1251 FORMAT(9H BAD CODE,F10.2) + CALL EXIT + 1252 NELIONX=I + 1253 WRITE(19)WLVAC,ELO,GF,NBLO,NBUP,NELION,TYPE,NCON,NELIONX, + 1GAMMAR,GAMMAS,GAMMAW,alpha,NBUFF,LIM + IF(LINOUT.GE.0)WRITE(20)LINDAT8,LINDAT4 + N19=N19+1 +C WRITE(6,5555)WLVAC,ILINE + 5555 FORMAT(112X,F10.4,I10) + GO TO 900 +C PLAIN LINE + 1260 WRITE(12)NBUFF,CGF,NELION,ELO,GAMMAR,GAMMAS,GAMMAW,alpha +c type*,n14,nbuff,wlvac,alpha + IF(LINOUT.GE.0)WRITE(14)LINDAT8,LINDAT4 + N14=N14+1 + NLINES=NLINES+1 + 900 CONTINUE + 145 WRITE(6,1118)N14 + 1118 FORMAT(I10,' LINES ADDED TO TAPE 12') + WRITE(6,1120)NLINES + 1120 FORMAT(I10,' LINES TOTAL ON TAPE 12') + WRITE(6,1119)N19 + 1119 FORMAT(I10,' LINES TOTAL ON TAPE 19') +C IF(LINOUT.LT.0.)GO TO 1125 +C IF(N19.GT.0)THEN +C REWIND 20 +C DO 1121 I=1,N19 +C READ(20)LINDAT8,LINDAT +C 1121 WRITE(13)LINDAT8,LINDAT +C ENDIF +C IF(NLINES.GT.0)THEN +C REWIND 14 +C DO 1122 I=1,NLINES +C READ(14)LINDAT8,LINDAT +C 1122 WRITE(13)LINDAT8,LINDAT +C ENDIF +C 1125 CONTINUE +C IF(IFNLTE.EQ.1)N19=0 + REWIND 93 + WRITE(93)NLINES,LENGTH,IFVAC,IFNLTE,N19,TURBV,DECKJ,IFPRED, + 1WLBEG,WLEND,RESOLU,RATIO,RATIOLG,CUTOFF,LINOUT +C CALL ENDTIME + CALL EXIT + END + SUBROUTINE IONPOTS +C +C Moore, C.E., NSRDS-NBS 34,1970,22pp. +C AEL, rare-earth elements, 1978,NSRDS-NBS 60,411pp. +C Kelley,R.L. and Harrison, D.E, Atomic Data 3,177-193,1971. Ga V,VI,Ge VI +C Martin,W.C. et al. ,JPCRDa,3,771-780,1974. Ac I-Es I +C Guess 55.02 56.02 73.01 73.02 74.01 74.02 75.01 75.02 76.01 76.01 +C Guess 77.01 77.02 78.02 79.02 84.01 84.02 85.00 85.01 85.02 86.01 86.02 +C Guess 87.00 87.01 87.02 88.02 89.02 91.01 91.02 92.01 92.02 93.01 93.02 +C Guess 94.01 94.02 95.01 95.02 96.01 96.02 97.01 97.02 98.01 98.02 +C Guess 99.01 99.02 +C + COMMON /POTION/POTION(594) + DIMENSION POTA(114),POTB(114),POTC(114),POTD(114),POTE(114) + DIMENSION POTF(24) + EQUIVALENCE (POTION(1),POTA(1)),(POTION(115),POTB(1)) + EQUIVALENCE (POTION(229),POTC(1)),(POTION(343),POTD(1)) + EQUIVALENCE (POTION(457),POTE(1)),(POTION(571),POTF(1)) + DATA POTA/ + 1 109678.764, 0. , 0. , 0. , 0. , 0. , 1 + 2 198310.76 , 438908.85 , 0. , 0. , 0. , 0. , 2 + 3 43487.150, 610079.0 , 987660.1 , 0. , 0. , 0. , 3 + 4 75192.07 , 146882.86 ,1241259.4 ,1756018.7, 0. , 0. , 4 + 5 66928.10 , 202887.4 , 305931.1 ,2092001.4,2744105.1, 0. , 5 + 6 90820.42 , 196664.7 , 386241.0 , 520178.4,3162395. ,3952061.4, 6 + 7 117225.4 , 238750.5 , 382704. , 624866. , 789537.2,4452758. , 7 + 8 109837.02 , 283240. , 443086. , 624383.8, 918657. ,1114008. , 8 + 9 140524.5 , 282058.6 , 505777. , 702830. , 921430. ,1267622. , 9 + T 173929.70 , 330391.0 , 511800. , 783300. ,1018000. ,1273800. , 10 + 1 41449.44 , 381395. , 577800. , 797800. ,1116200. ,1388500. , 11 + 2 61671.02 , 121267.61 , 646410. , 881100. ,1139400. ,1504300. , 12 + 3 48278.37 , 151860.4 , 229445.71, 967800. ,1239800. ,1536300. , 13 + 4 65747.5 , 131838.4 , 270139.3 , 364093.1,1345100. ,1653900. , 14 + 5 84580. , 159100. , 243400. , 414312.4, 524460. ,1777900. , 15 + 6 83558.0 , 188200. , 280900. , 381541.4, 586200. , 710184. , 16 + 7 104591.0 , 192070. , 319500. , 431226. , 547000. , 782600. , 17 + 8 127109.9 , 222848.2 , 328600. , 482400. , 605100. , 734040. , 18 + 9 35009.77 , 255076. , 368800. , 491300. , 666700. , 806600. / 19 + DATA POTB/ + 1 49305.72 , 95751.87 , 410614.1 , 541200. , 680800. , 877400. , 20 + 2 52750. , 103240. , 199700. , 592600. , 739300. , 896000. , 21 + 3 55010. , 109506. , 221735. , 348973. , 800300. , 962700. , 22 + 4 54400. , 118200. , 236400. , 376730. , 526100. ,1033400. , 23 + 5 54570. , 133060. , 249700. , 396000. , 559000. , 730400. , 24 + 6 59970. , 126145. , 271550. , 413000. , 584000. , 766000. , 25 + 7 63480. , 130524. , 247221. , 442000. , 604900. , 798500. , 26 + 8 63430. , 137572. , 270200. , 413800. , 641200. , 823000. , 27 + 9 61579. , 146541.56 , 283700. , 442800. , 609000. , 871000. , 28 + T 62317.2 , 163669.2 , 297100. , 445124. , 644500. , 831000. , 29 + 1 75768.10 , 144892.6 , 320390. , 479100. , 666000. , 871000. , 30 + 2 48387.63 , 165458. , 247700. , 517600. , 726000. , 944000. , 31 + 3 63715. , 128521.3 , 276036. , 368701. , 753800. , 968000. , 32 + 4 79165. , 150290. , 228670. , 404369. , 505136. ,1028800. , 33 + 5 78658.22 , 170900. , 248583. , 346375. , 551000. , 658994. , 34 + 6 95284.8 , 175870. , 289529. , 381600. , 481600. , 714800. , 35 + 7 112914.5 , 196474.8 , 298020. , 423600. , 522000. , 633300. , 36 + 8 33690.81 , 220048. , 320000. , 424400. , 572800. , 680900. , 37 + 9 45932.0 , 88964.0 , 351800. , 460000. , 577700. , 732600. / 38 + DATA POTC/ + 1 51447. , 98690. , 165500. , 498600. , 621200. , 750300. , 39 + 2 55145. , 105900. , 185400. , 276970. , 657600. , 0. , 40 + 3 55511. , 115500. , 202000. , 308600. , 407700. , 827300. , 41 + 4 57260. , 130300. , 219100. , 374180. , 493360. , 549000. , 42 + 5 58700. , 123100. , 238300. , 0. , 0. , 0. , 43 + 6 59410. , 135200. , 229600. , 0. , 0. , 0. , 44 + 7 60197. , 145800. , 250500. , 0. , 0. , 0. , 45 + 8 67236. , 156700. , 265600. , 0. , 0. , 0. , 46 + 9 61106.50 , 173300. , 280900. , 0. , 0. , 0. , 47 + T 72538.8 , 136374.74 , 302300. , 0. , 0. , 0. , 48 + 1 46670.11 , 152195. , 226100. , 439000. , 0. , 0. , 49 + 2 59231.8 , 118017.0 , 246020.0 , 328550. , 583000. , 0. , 50 + 3 69700. , 133327.5 , 204248. , 356156. , 449300. , 868000. , 51 + 4 72667. , 150000. , 225500. , 301776. , 473900. , 570000. , 52 + 5 84295.1 , 154304. , 266000. , 0. , 0. , 0. , 53 + 6 97834.0 , 171068.4 , 259089. , 0. , 0. , 0. , 54 + 7 31406.432, 202263. , 280000. , 0. , 0. , 0. , 55 + 8 42035.14 , 80686.87 , 300000. , 0. , 0. , 0. , 56 + 9 44981. , 89200. , 154675. , 402900. , 497000. , 0. / 57 + DATA POTD/ + 1 44672. , 87500. , 162903. , 296470. , 528700. , 626000. , 58 + 2 44070. , 85100. , 174407. , 314400. , 464000. , 0. , 59 + 3 44562. , 86500. , 178600. , 326000. , 0. , 0. , 60 + 4 44800. , 87900. , 180000. , 331000. , 0. , 0. , 61 + 5 45519. , 89300. , 189000. , 334000. , 0. , 0. , 62 + 6 45734.9 , 90665. , 201000. , 344000. , 0. , 0. , 63 + 7 49603. , 97500. , 166400. , 355000. , 0. , 0. , 64 + 8 47295. , 92900. , 176700. , 317500. , 0. , 0. , 65 + 9 47900. , 94100. , 183800. , 334000. , 0. , 0. , 66 + T 48567. , 95200. , 184200. , 343000. , 0. , 0. , 67 + 1 49262. , 96200. , 183400. , 344000. , 0. , 0. , 68 + 2 49879.8 , 97200. , 191000. , 344000. , 0. , 0. , 69 + 3 50441.0 , 98269. , 202070. , 351300. , 0. , 0. , 70 + 4 43762.39 , 112000. , 169049. , 364960. , 538700. , 0. , 71 + 5 56600. , 120000. , 187800. , 268500. , 0. , 0. , 72 + 6 63600. , 131000. , 194000. , 0. , 0. , 0. , 73 + 7 64400. , 143000. , 202000. , 0. , 0. , 0. , 74 + 8 63530. , 134000. , 210000. , 0. , 0. , 0. , 75 + 9 70450. , 137000. , 218000. , 0. , 0. , 0. / 76 + DATA POTE/ + 1 73000. , 161000. , 226000. , 0. , 0. , 0. , 77 + 2 72300. , 149723. , 234000. , 0. , 0. , 0. , 78 + 3 74410. , 165000. , 242000. , 0. , 0. , 0. , 79 + 4 84184.1 , 151280. , 276000. , 0. , 0. , 0. , 80 + 5 49266.7 , 164765. , 240600. , 0. , 0. , 0. , 81 + 6 59819.4 , 121243. , 257592. , 341350. , 555000. , 0. , 82 + 7 58790. , 134600. , 206180. , 365500. , 451700. , 712000. , 83 + 8 67885.3 , 153000. , 218000. , 0. , 0. , 0. , 84 + 9 75000. , 161000. , 242000. , 0. , 0. , 0. , 85 + T 86692.5 , 161000. , 242000. , 0. , 0. , 0. , 86 + 1 32000. , 177000. , 266000. , 0. , 0. , 0. , 87 + 2 42577.35 , 81842.31 , 274000. , 0. , 0. , 0. , 88 + 3 41700. , 97300. , 161000. , 0. , 0. , 0. , 89 + 4 49000. , 93000. , 161000. , 231900. , 0. , 0. , 90 + 5 47500. , 95000. , 161000. , 0. , 0. , 0. , 91 + 6 48800. , 95000. , 161000. , 0. , 0. , 0. , 92 + 7 49900. , 95000. , 161000. , 0. , 0. , 0. , 93 + 8 48900. , 95000. , 161000. , 0. , 0. , 0. , 94 + 9 48300. , 95000. , 161000. , 0. , 0. , 0. / 95 + DATA POTF/ + 1 48600. , 95000. , 161000. , 0. , 0. , 0. , 96 + 2 50200. , 95000. , 161000. , 0. , 0. , 0. , 97 + 3 50800. , 95000. , 161000. , 0. , 0. , 0. , 98 + 4 51800. , 95000. , 161000. , 0. , 0. , 0. / 99 + RETURN + END diff --git a/synthe/rh2ofast.for b/synthe/rh2ofast.for new file mode 100644 index 0000000..ae3f5ee --- /dev/null +++ b/synthe/rh2ofast.for @@ -0,0 +1,190 @@ + PROGRAM RH2OFAST +C FAST VERSION, NO ENERGY LEVEL INFORMATION +C READS PACKED BINARY VERSION OF PARTRIDGE AND SCHWENKE'S H2O LINELIST + PARAMETER (kw=99) + COMMON /LINDAT/WL,E,EP,LABEL(2),LABELP(2),OTHER1(2),OTHER2(2), + 1 WLVAC,CENTER,CONCEN, NELION,GAMMAR,GAMMAS,GAMMAW,REF, + 2 NBLO,NBUP,ISO1,X1,ISO2,X2,GFLOG,XJ,XJP,CODE,ELO,GF,GS,GR,GW, + 3 DWL,DGFLOG,DGAMMAR,DGAMMAS,DGAMMAW,DWLISO,ISOSHIFT,EXTRA3 + REAL*8 LINDAT8(14) + REAL*4 LINDAT4(28) + EQUIVALENCE (LINDAT8(1),WL),(LINDAT4(1),NELION) + REAL*8 WL,E,EP,WLVAC,CENTER,CONCEN,UNPACKWL,WLVAC1 + REAL*8 LABEL,LABELP,OTHER1,OTHER2,LABELISO(4) + CHARACTER*10 COTHER1,COTHER2,CLABEL,CLABELP + EQUIVALENCE (COTHER1,OTHER1(1)),(COTHER2,OTHER2(1)) + EQUIVALENCE (CLABEL,LABEL(1)),(CLABELP,LABELP(1)) + INTEGER TYPE + EQUIVALENCE (GF,G,CGF),(TYPE,NLAST) + REAL*8 RESOLU,RATIO,RATIOLG,WLBEG,WLEND,RATIOLOG,WLBEG1,WLEND1 + REAL*8 RATIORATIO,VACAIR + REAL*4 DECKJ(7,kw),XISO(4),X2ISO(4) + REAL*4 TABLOG(32768),AIRSHIFT(100000) + INTEGER*2 IELO,IGFLOG + EQUIVALENCE (IWL,IWLBYTES(1)) + BYTE IWLBYTES(4),IELOBYTES(2),IGFLOGBYTES(2),ONEBYTE + EQUIVALENCE (IELOBYTES(1),IELO),(IGFLOGBYTES(1),IGFLOG) +C 1H1H16O 1H1H17O 1H1H18O 1H2H16O + DATA XISO/ .9976, .0004, .0020, .00001/ + DATA X2ISO/-0.001, -3.398, -2.690, -5.000/ + DATA LABELISO/2H16,2H17,2H18,2H26/ + data alpha/0./ +C + DO 1 I=1,32768 + 1 TABLOG(I)=10.**((I-16384)*.001) + IF(IFPRED.NE.1)CALL TABVACAIR(AIRSHIFT) + OPEN(UNIT=11,STATUS='OLD',READONLY,SHARED,FORM='UNFORMATTED', + 1RECORDTYPE='FIXED',RECORDSIZE=2,ACCESS='DIRECT') + OPEN(UNIT=12,TYPE='OLD',FORM='UNFORMATTED',ACCESS='APPEND') + OPEN(UNIT=14,TYPE='OLD',FORM='UNFORMATTED',ACCESS='APPEND') + READ(93)NLINES,LENGTH,IFVAC,IFNLTE,N19,TURBV,DECKJ,IFPRED, + 1WLBEG,WLEND,RESOLU,RATIO,RATIOLG,CUTOFF,LINOUT + RATIOLOG=LOG(1.D0+1.D0/2000000.D0) + RATIORATIO=RATIOLOG/RATIOLG + IXWLBEG=DLOG(WLBEG)/RATIOLG + IF(DEXP(IXWLBEG*RATIOLG).LT.WLBEG)IXWLBEG=IXWLBEG+1 +C + WLBEG1=WLBEG-1. + WLEND1=WLEND+1. + N=0 + READ(11,REC=1)IWL +c on some computers need byte rotation +c onebyte=iwlbytes(1) +c iwlbytes(1)=iwlbytes(4) +c iwlbytes(4)=onebyte +c onebyte=iwlbytes(2) +c iwlbytes(2)=iwlbytes(3) +c iwlbytes(3)=onebyte + WLVAC=EXP(IWL*RATIOLOG) + IF(IFVAC.NE.1)THEN + KWL=WLVAC*10.+.5 + WLVAC=WLVAC+AIRSHIFT(KWL) + ENDIF + PRINT 3334,WLVAC + 3334 FORMAT(' FIRST LINE IS 1',' WL',F12.4) + IF(WLVAC.GT.WLEND1)GO TO 21 + LENGTHFILE=65912356 + READ(11,REC=LENGTHFILE)IWL +c on some computers need byte rotation +c onebyte=iwlbytes(1) +c iwlbytes(1)=iwlbytes(4) +c iwlbytes(4)=onebyte +c onebyte=iwlbytes(2) +c iwlbytes(2)=iwlbytes(3) +c iwlbytes(3)=onebyte + WLVAC=EXP(IWL*RATIOLOG) + IF(IFVAC.NE.1)WLVAC=VACAIR(WLVAC) + PRINT 3335,LENGTHFILE,WLVAC + 3335 FORMAT(' LAST LINE IS ',I9,' WL',F12.4) + IF(WLBEG1.GT.WLVAC)GO TO 21 +C FIND THE FIRST LINE AFTER ISTART + LIMITBLUE=1 + LIMITRED=LENGTHFILE + 12 NEWLIMIT=(LIMITRED+LIMITBLUE)/2 + PRINT 3333,LIMITBLUE,NEWLIMIT,LIMITRED + 3333 FORMAT(3I10) + READ(11,REC=NEWLIMIT)IWL +c on some computers need byte rotation +c onebyte=iwlbytes(1) +c iwlbytes(1)=iwlbytes(4) +c iwlbytes(4)=onebyte +c onebyte=iwlbytes(2) +c iwlbytes(2)=iwlbytes(3) +c iwlbytes(3)=onebyte + WLVAC=EXP(IWL*RATIOLOG) + IF(IFVAC.NE.1)WLVAC=VACAIR(WLVAC) + IF(WLVAC.LT.WLBEG1)GO TO 13 + LIMITRED=NEWLIMIT + IF(LIMITRED-LIMITBLUE.LE.1)GO TO 14 + GO TO 12 + 13 LIMITBLUE=NEWLIMIT + IF(LIMITRED-LIMITBLUE.LE.1)GO TO 14 + GO TO 12 + 14 ISTART=NEWLIMIT + PRINT 3333,LIMITBLUE,LIMITRED,NEWLIMIT + WRITE(6,6)ISTART + 6 FORMAT(I10,14H IS FIRST LINE) +C + DO 20 ILINE=ISTART,LENGTHFILE + READ(11,REC=ILINE)IWL,IELO,IGFLOG +c on some computers need byte rotation +c onebyte=iwlbytes(1) +c iwlbytes(1)=iwlbytes(4) +c iwlbytes(4)=onebyte +c onebyte=iwlbytes(2) +c iwlbytes(2)=iwlbytes(3) +c iwlbytes(3)=onebyte +c onebyte=ielobytes(1) +c ielobytes(1)=ielobytes(2) +c ielobytes(2)=onebyte +c onebyte=igflogbytes(1) +c igflogbytes(1)=igflogbytes(2) +c igflogbytes(2)=onebyte +c + WLVAC=EXP(IWL*RATIOLOG) + FREQ=2.99792458E17/WLVAC + IF(IFVAC.NE.1)THEN + KWL=WLVAC*10.+.5 + WLVAC=WLVAC+AIRSHIFT(KWL) + ENDIF + IF(WLVAC.GT.WLEND1)GO TO 21 + IXWL=DLOG(WLVAC)/RATIOLG+.5D0 + ISO=1 + IF(IELO.GT.0.AND.IGFLOG.GT.0)GO TO 19 + ISO=2 + IF(IELO.GT.0)GO TO 19 + ISO=3 + IF(IGFLOG.GT.0)GO TO 19 + ISO=4 + 19 NELION=534 + ELO=ABS(IELO) + IGFLOG=ABS(IGFLOG) + NBUFF=IXWL-IXWLBEG+1 + CONGF=.01502*TABLOG(IGFLOG)/FREQ*XISO(ISO) + FRQ4PI=FREQ*12.5664 +C GAMMAS=0 +C LOG GAMMAW=-7 +C IGR= + IGS=1 + IGW=9384 + GAMMAR=2.223E13/WLVAC**2*.001 + GAMRF=GAMMAR/FRQ4PI +C GAMRF=TABLOG(IGR)/FRQ4PI + GAMSF=TABLOG(IGS)/FRQ4PI + GAMWF=TABLOG(IGW)/FRQ4PI + WRITE(12)NBUFF,CONGF,NELION,ELO,GAMRF,GAMSF,GAMWF,alpha + NLINES=NLINES+1 + IF(N.EQ.0)WRITE(6,1919)WLVAC + 1919 FORMAT(F12.4) + N=N+1 + 20 CONTINUE + 21 LINOUT=-ABS(LINOUT) + WRITE(6,22)N + 22 FORMAT(I10,13H IS LAST LINE) + WRITE(6,1919)WLVAC + 25 WRITE(6,26)NLINES + 26 FORMAT(I10,25H LINES WRITTEN ON TAPE 12) + REWIND 93 + WRITE(93)NLINES,LENGTH,IFVAC,IFNLTE,N19,TURBV,DECKJ,IFPRED, + 1WLBEG,WLEND,RESOLU,RATIO,RATIOLG,CUTOFF,LINOUT + CALL EXIT + END + SUBROUTINE TABVACAIR(AIRSHIFT) + REAL*4 AIRSHIFT(100000) + REAL*8 WLVAC,VACAIR + DO 1 IWL=1,1999 + 1 AIRSHIFT(IWL)=0. + DO 2 IWL=2000,100000 + WLVAC=IWL*.1 + 2 AIRSHIFT(IWL)=VACAIR(WLVAC)-WLVAC + RETURN + END + FUNCTION VACAIR(W) + IMPLICIT REAL*8 (A-H,O-Z) +C W IS VACUUM WAVELENGTH IN NM + WAVEN=1.D7/W + VACAIR=W/(1.0000834213D0+ + 1 2406030.D0/(1.30D10-WAVEN**2)+15997.D0/(3.89D9-WAVEN**2)) +C 1(1.000064328+2949810./(1.46E10-WAVEN**2)+25540./(4.1E9-WAVEN**2)) + RETURN + END diff --git a/synthe/rmolecasc.for b/synthe/rmolecasc.for new file mode 100644 index 0000000..5f01393 --- /dev/null +++ b/synthe/rmolecasc.for @@ -0,0 +1,569 @@ + PROGRAM RMOLECASC +c revised 4nov14 cosntatns given D exponents +c revised 27jul13 CaH and CrH added + IMPLICIT REAL*4 (A-H,O-Z) + PARAMETER (kw=99) + COMMON /LINDAT/WL,E,EP,LABEL(2),LABELP(2),OTHER1(2),OTHER2(2), + 1 WLVAC,CENTER,CONCEN, NELION,GAMMAR,GAMMAS,GAMMAW,REF, + 2 NBLO,NBUP,ISO1,X1,ISO2,X2,GFLOG,XJ,XJP,CODE,ELO,GF,GS,GR,GW, + 3 DWL,DGFLOG,DGAMMAR,DGAMMAS,DGAMMAW,EXTRA1,EXTRA2,EXTRA3 + REAL*8 LINDAT8(14) + REAL*4 LINDAT4(28) + EQUIVALENCE (LINDAT8(1),WL),(LINDAT4(1),NELION) + REAL*8 RESOLU,RATIO,RATIOLG,SIGMA2,WLBEG,WLEND + REAL*8 WL,E,EP,WLVAC,CENTER,CONCEN + REAL*8 LABEL,LABELP,OTHER1,OTHER2 + CHARACTER*8 CLABELP + EQUIVALENCE (CLABELP,LABELP(1)) + CHARACTER*4 CREF + EQUIVALENCE (CREF,REF) + DIMENSION DECKJ(7,kw) +C REAL*4 LOGGR CHANGE TO INTEGER + REAL*8 START,STOP + REAL*8 ISOLAB(60) + DATA ISOLAB/2H 1,2H 2,2H 3,2H 4,2H 5,2H 6,2H 7,2H 8,2H 9,2H10, + 1 2H11,2H12,2H13,2H14,2H15,2H16,2H17,2H18,2H19,2H20, + 2 2H21,2H22,2H23,2H24,2H25,2H26,2H27,2H28,2H29,2H30, + 3 2H31,2H32,2H33,2H34,2H35,2H36,2H37,2H38,2H39,2H40, + 4 2H41,2H42,2H43,2H44,2H45,2H46,2H47,2H48,2H49,2H50, + 5 2H51,2H52,2H53,2H54,2H55,2H56,2H57,2H58,2H59,2H60/ +C OPEN(UNIT=11,TYPE='OLD',FORM='UNFORMATTED',RECORDTYPE='FIXED', +C 1ACCESS='DIRECT',RECL=16,READONLY,SHARED) + OPEN(UNIT=12,STATUS='OLD',FORM='UNFORMATTED',ACCESS='APPEND') + OPEN(UNIT=14,STATUS='OLD',FORM='UNFORMATTED',ACCESS='APPEND') + READ(93)NLINES,LENGTH,IFVAC,IFNLTE,N19,TURBV,DECKJ,IFPRED, + 1WLBEG,WLEND,RESOLU,RATIO,RATIOLG,CUTOFF,LINOUT + IXWLBEG=DLOG(WLBEG)/RATIOLG + IF(DEXP(IXWLBEG*RATIOLG).LT.WLBEG)IXWLBEG=IXWLBEG+1 + NBLO=0 + NBUP=0 + OTHER1(1)=(8H ) + OTHER1(2)=(2H ) + OTHER2(1)=(8H ) + OTHER2(2)=(2H ) + LABEL(2)=(2H ) + REF=(2HK ) + ION=1 + ZEFF=ION + START=WLBEG-.1 + STOP=WLEND+1. + STOP1=STOP+1. + N=0 +C READ(11,REC=1)WL +C IF(ABS(WL).GT.STOP1)GO TO 21 +CC FIND NUMBER OF LINES +C LIMITBLUE=1 +C LIMITRED=10000000 +C 8 NEWLIMIT=(LIMITRED+LIMITBLUE)/2 +C READ(11,REC=NEWLIMIT,ERR=9)WL +C LIMITBLUE=NEWLIMIT +C IF(LIMITRED-LIMITBLUE.EQ.1)GO TO 11 +C GO TO 8 +C 9 LIMITRED=NEWLIMIT +C IF(LIMITRED-LIMITBLUE.EQ.1)GO TO 11 +C GO TO 8 +C 11 LENGTHFILE=LIMITBLUE +C READ(11,REC=1)WL +C PRINT 3334,WL +C 3334 FORMAT(' FIRST LINE IS 1',' WL',F11.4) +C READ(11,REC=LENGTHFILE)WL +C PRINT 3335,LENGTHFILE,WL +C 3335 FORMAT(' LAST LINE IS ',I7,' WL',F11.4) +C IF(ABS(WL).LT.START)GO TO 21 +CC FIND THE FIRST LINE AFTER START +C LIMITBLUE=1 +C LIMITRED=LENGTHFILE +C 12 NEWLIMIT=(LIMITRED+LIMITBLUE)/2 +C PRINT 3333,LIMITBLUE,NEWLIMIT,LIMITRED +C 3333 FORMAT(3I10) +C READ(11,REC=NEWLIMIT)WL +C IF(ABS(WL).LT.START)GO TO 13 +C LIMITRED=NEWLIMIT +C IF(LIMITRED-LIMITBLUE.LE.1)GO TO 14 +C GO TO 12 +C 13 LIMITBLUE=NEWLIMIT +C IF(LIMITRED-LIMITBLUE.LE.1)GO TO 14 +C GO TO 12 +C 14 ISTART=NEWLIMIT +C PRINT 3333,LIMITBLUE,LIMITRED,NEWLIMIT +C DO 20 ILINE=ISTART,LENGTHFILE +C READ(11,REC=ILINE)WL,E,EP,LABEL(1),LABELP(1),GFLOG,XJ,XJP,CODE, +C 1 ISO,LOGGR +C +C + print *,'NO FUDGES' +c example +c print *, 'FUDGE 12C12C=+0.30 12C13C=+0.30 13C13C=+0.30 +c +c +c +C +C + DO 2000 ILINE=1,99999999 + READ(11,1111,END=2001)WL,GFLOG,XJ,E,XJP,EP,ICODE,LABEL(1), + 1 LABELP(1),ISO,LOGGR + 1111 FORMAT(F10.4,F7.3,F5.1,F10.3,F5.1,F11.3,I4,A8,A8,I2,I4) + IF(ABS(WL).GT.STOP1)GO TO 2001 + IF(IFPRED.EQ.0.AND.E.LT.0.)GO TO 2000 + IF(IFPRED.EQ.0.AND.EP.LT.0.)GO TO 2000 + CODE=ICODE + WLVAC=ABS(WL) + IF(IFVAC.EQ.1)WLVAC=1.E7/ABS(ABS(EP)-ABS(E)) + IF(WLVAC.LT.START)GO TO 2000 + IF(N.EQ.0)THEN + WRITE(6,6)ILINE + 6 FORMAT(I10,19H IS FIRST LINE READ) + PRINT 3,ILINE,WL,GFLOG,XJ,E,XJP,EP,CODE,LABEL(1),LABELP(1),ISO + ENDIF + IF(WLVAC.GT.STOP)GO TO 2001 + GO TO (10,20,99,99,99,99,99,99,99,99,99,120,130,140,150,160,170, + 1 180,99,99,99,99,99,240,250,260,99,280,290,300,99,99,330, + 2 99,99,99,99,99,99,400,99,420,430,440,99,460,470,480,490, 500, + 3 510,520,530,540,99,560,570,580,99,99,99),ISO +C H2 + 10 NELION=240 + FUDGE=0.00 + IS01=1 + IS02=1 + X1=0. + X2=-5. + GO TO 5000 +C HD + 20 NELION=240 + FUDGE=0.00 + IS01=1 + IS02=2 + X1=0. + X2=-4.469 + GO TO 5000 + 120 IF(CODE.EQ.606.)GO TO 1200 + IF(CODE.EQ.608.)GO TO 1210 + IF(CODE.EQ.106.)GO TO 1220 +C CN + NELION=270 + FUDGE=0.00 + ISO1=12 + ISO2=14 + X1=-.005 + X2=-.002 + GO TO 5000 + 130 IF(CODE.EQ.606.)GO TO 1300 + IF(CODE.EQ.608.)GO TO 1310 + IF(CODE.EQ.106.)GO TO 1320 +C CN + NELION=270 + FUDGE=0.00 + ISO1=13 + ISO2=14 + X1=-1.955 + X2=-.002 + GO TO 5000 +C NH + 140 NELION=252 + FUDGE=0.00 + ISO1=1 + ISO2=14 + X1=0. + X2=-.002 + GO TO 5000 +C NH + 150 IF(CODE.EQ.607.)GO TO 1500 + NELION=252 + FUDGE=0.00 + ISO1=1 + ISO2=15 + X1=0. + X2=-2.444 + GO TO 5000 +C OH + 160 NELION=258 + FUDGE=0.00 + ISO1=1 + ISO2=16 + X1=0. + X2=-.001 + GO TO 5000 +C CO + 170 NELION=276 + FUDGE=0.00 + ISO1=12 + ISO2=17 + X1=-.005 + X2=-3.398 + GO TO 5000 + 180 IF(CODE.EQ.814.)GO TO 1800 + IF(CODE.EQ.608.)GO TO 1810 +C OH + NELION=258 + FUDGE=0.00 + ISO1=1 + ISO2=18 + X1=0. + X2=-2.690 + GO TO 5000 +C MgH + 240 NELION=300 + FUDGE=0.00 + ISO1=1 + ISO2=24 + X1=0. + X2=-.105 + GO TO 5000 +C MgH + 250 NELION=300 + FUDGE=0.00 + ISO1=1 + ISO2=25 + X1=0. + X2=-.996 + GO TO 5000 +C MgH + 260 NELION=300 + FUDGE=0.00 + ISO1=1 + ISO2=26 + X1=0. + X2=-.947 + GO TO 5000 + 280 IF(CODE.EQ.814.)GO TO 2800 +C SiH + ISO1=1 + ISO2=28 + NELION=312 + FUDGE=0.00 + X1=0. + X2=-.035 + GO TO 5000 + 290 IF(CODE.EQ.814.)GO TO 2900 +C SiH + NELION=312 + FUDGE=0.00 + ISO1=1 + ISO2=29 + X1=0. + X2=-1.331 + GO TO 5000 + 300 IF(CODE.EQ.814.)GO TO 3000 +C SiH + NELION=312 + FUDGE=0.00 + ISO1=1 + ISO2=30 + X1=0. + X2=-1.516 + GO TO 5000 +C C2 + 330 NELION=264 + FUDGE=0.00 + ISO1=13 + ISO2=13 + X1=-1.955 + X2=-1.955 + GO TO 5000 +C C2 + 1200 NELION=264 + FUDGE=0.00 + ISO1=12 + ISO2=12 + X1=-.005 + X2=-.005 + GO TO 5000 +C CaH + 400 NELION=342 + FUDGE=0.00 + ISO1=40 + ISO2=1 + X1=-0.013 + X2=0. + GO TO 5000 +C CaH + 420 NELION=342 + FUDGE=0.00 + ISO1=42 + ISO2=1 + X1=-2.189 + X2=0. + GO TO 5000 +C CaH + 430 NELION=342 + FUDGE=0.00 + ISO1=43 + ISO2=1 + X1=-2.870 + X2=0. + GO TO 5000 +C CaH + 440 NELION=342 + FUDGE=0.00 + ISO1=44 + ISO2=1 + X1=-1.681 + X2=0. + GO TO 5000 +C CaH + 4600 NELION=342 + FUDGE=0.00 + ISO1=46 + ISO2=1 + X1=-4.398 + X2=0. + GO TO 5000 +C CaH + 4800 NELION=342 + FUDGE=0.00 + ISO1=48 + ISO2=1 + X1=-2.728 + X2=0. + GO TO 5000 + 460 IF(CODE.EQ.120.)GO TO 4600 +C TiO + NELION=366 + FUDGE=0.00 + ISO1=16 + ISO2=46 + X1=0. + X2=-1.101 + GO TO 5000 +C TiO + 470 NELION=366 + FUDGE=0.00 + ISO1=16 + ISO2=47 + X1=0. + X2=-1.138 + GO TO 5000 + 480 IF(CODE.EQ.120.)GO TO 4800 +C TiO + NELION=366 + FUDGE=0.00 + ISO1=16 + ISO2=48 + X1=0. + X2=-0.131 + GO TO 5000 +C TiO + 490 NELION=366 + FUDGE=0.00 + ISO1=16 + ISO2=49 + X1=0. + X2=-1.259 + GO TO 5000 + 500 IF(CODE.EQ.124.)GO TO 5010 +C TiO + NELION=366 + FUDGE=0.00 + ISO1=16 + ISO2=50 + X1=0. + X2=-1.272 + GO TO 5000 +C VO + 510 NELION=372 + FUDGE=0.00 + ISO1=16 + ISO2=51 + X1=0. + X2=-0.001 + GO TO 5000 +C CrH + 5010 NELION=432 + FUDGE=0.00 + ISO1=50 + ISO2=1 + X1=-1.362 + X2=0. + GO TO 5000 +C CrH + 520 NELION=432 + FUDGE=0.00 + ISO1=52 + ISO2=1 + X1=-0.077 + X2=0. + GO TO 5000 +C CrH + 530 NELION=432 + FUDGE=0.00 + ISO1=53 + ISO2=1 + X1=-1.022 + X2=0. + GO TO 5000 +C CrH + 5400 NELION=432 + FUDGE=0.00 + ISO1=54 + ISO2=1 + X1=-1.626 + X2=0. + GO TO 5000 + 540 IF(CODE.EQ.124.)GO TO 5400 +C FeH + NELION=444 + FUDGE=0.00 + ISO1=54 + ISO2=1 + X1=-1.237 + X2=0. + GO TO 5000 +C FeH + 560 NELION=444 + FUDGE=0.00 + ISO1=56 + ISO2=1 + X1=-0.038 + X2=0. + GO TO 5000 +C FeH + 570 NELION=444 + FUDGE=0.00 + ISO1=57 + ISO2=1 + X1=-1.658 + X2=0. + GO TO 5000 +C FeH + 580 NEILON=444 + ISO1=58 + ISO2=1 + X1=-2.553 + X2=0. + GO TO 5000 +C CO + 1210 NELION=276 + FUDGE=0.00 + ISO1=12 + ISO2=16 + X1=-.005 + X2=-.001 + GO TO 5000 +C CH + 1220 NELION=246 + FUDGE=0.00 + ISO1=1 + ISO2=12 + X1=0. + X2=-.005 + GO TO 5000 +C C2 + 1300 NELION=264 + FUDGE=0.00 + ISO1=12 + ISO2=13 + X1=-.005 + X2=-1.955 + GO TO 5000 +C CO + 1310 NELION=276 + FUDGE=0.00 + ISO1=13 + ISO2=16 + X1=-1.955 + X2=-.001 + GO TO 5000 +C CH + 1320 NELION=246 + FUDGE=0.00 + ISO1=1 + ISO2=13 + X1=0. + X2=-1.955 + GO TO 5000 +C CN + 1500 NELION=270 + FUDGE=0.00 + ISO1=12 + ISO2=15 + X1=-.005 + X2=-2.444 + GO TO 5000 +C SiO + 1800 NELION=330 + FUDGE=0.00 + ISO1=28 + ISO2=18 + X1=-.035 + X2=-2.690 + GO TO 5000 +C CO + 1810 NELION=276 + FUDGE=0.00 + ISO1=12 + ISO2=18 + X1=-.005 + X2=-2.690 + GO TO 5000 +C SiO + 2800 NELION=330 + FUDGE=0.00 + ISO1=28 + ISO2=16 + X1=-.035 + X2=-.001 + GO TO 5000 +C SiO + 2900 NELION=330 + FUDGE=0.00 + ISO1=29 + ISO2=16 + X1=-1.328 + X2=-.001 + GO TO 5000 +C SiO + 3000 NELION=330 + FUDGE=0.00 + ISO1=30 + ISO2=16 + X1=-1.510 + X2=-.001 + GO TO 5000 + 5000 GF=EXP((GFLOG+X1+X2+FUDGE)*2.30258509299405D0) + ELO=DMIN1(ABS(E),ABS(EP)) + IXWL=DLOG(WLVAC)/RATIOLG+.5D0 + NBUFF=IXWL-IXWLBEG+1 + FREQ=2.99792458D17/WLVAC + CONGF=.01502D0*GF/FREQ + FRQ4PI=FREQ*12.5664D0 + GAMMAR=10.**(LOGGR*.01) +C GUESSES +C ELECTRON + GAMMAS=3.D-5 + GAMMAW=1.D-7 +C VIBRATION-ROTATIONAL + IF(CLABELP(1:1).EQ.'X')THEN + GAMMAS=3.D-8 + GAMMAW=1.D-8 + ENDIF + GR=LOG10(GAMMAR) + GS=LOG10(GAMMAS) + GW=LOG10(GAMMAW) + GAMRF=GAMMAR/FRQ4PI + GAMSF=GAMMAS/FRQ4PI + GAMWF=GAMMAW/FRQ4PI + WRITE(12)NBUFF,CONGF,NELION,ELO,GAMRF,GAMSF,GAMWF + 17 FORMAT(I10) + IF(NELION.EQ.270)THEN +C FIX REFERENCE + CREF='K'//CLABELP(7:8) + CLABELP=CLABELP(1:6) + ENDIF + LABELP(2)=ISOLAB(ISO) + IF(LINOUT.GE.0)WRITE(14)LINDAT8,LINDAT4 + N=N+1 + NLINES=NLINES+1 + 2000 CONTINUE + 2001 WRITE(6,2002)ILINE + 2002 FORMAT(I10,18H IS LAST LINE READ) + 2005 WRITE(6,2006)N + 2006 FORMAT(I10,' LINES ADDED TO TAPE 12') + WRITE(6,2007)NLINES + 2007 FORMAT(I10,' LINES TOTAL ON TAPE 12') + REWIND 93 + WRITE(93)NLINES,LENGTH,IFVAC,IFNLTE,N19,TURBV,DECKJ,IFPRED, + 1WLBEG,WLEND,RESOLU,RATIO,RATIOLG,CUTOFF,LINOUT + 99 PRINT 3,ILINE,WL,GFLOG,XJ,E,XJP,EP,CODE,LABEL(1),LABELP(1),ISO + 3 FORMAT(I10,1X,F10.4,F7.3,F5.1,F12.3,F5.1,F12.3,F9.2,A8,2X,A8,I2) + CALL EXIT + END diff --git a/synthe/rotate.for b/synthe/rotate.for new file mode 100644 index 0000000..fee679f --- /dev/null +++ b/synthe/rotate.for @@ -0,0 +1,378 @@ + PROGRAM ROTATE +c revised 4nov14 constants given D exponents +c revised 18jan05 +c default radius is 100 pixels instead of 50 +c differential rotation put in using solar expression +c VROT(LAT2)=(462-75*SIN(LAT)**2)-50*SIN(LAT)**4)*2*PI*RSUN/1.E9/1.E5 KM/S +c VROT(0)= 2.020 km/s equator +c VROT(1)= 1.474 km/s pole +c VROT(LAT)/VROT(0) = (1-75./462.*SIN(LAT)**2)-50./462.*SIN(LAT)**4) +c from Libbrecht, K.G. and Morrow, C.A. The solar rotation. pp. 479-500 in +c The Solar Interior and Atmosphere, eds. A.N. Cox, W.C. Livingston, and +c M. Matthews, Tucson: University of Arizona Press, 1991. +c All input rotation velocities are equitorial. Differential rotation +c velocities are specified by making the velocity negative. +c Thus 2 produces the approximate solar rotation, -2 produces the +c approximate solar differential rotation, and -2.020 +c matches the solar differential rotation expression above. +c + parameter (npiece=2000,npiece2=npiece*2,npiece3=npiece*3) + COMMON /HROT/H(500),HROT(npiece3) + COMMON /WT/MUNWT(10000),IVNWT(10000),WTNWT(10000) + DIMENSION CONT(npiece2) + DIMENSION WTMU(100) + DIMENSION XMU100(100),INT100(102) + EQUIVALENCE (INT100(101),FLUX),(INT100(102),CONTIN) + DIMENSION R(25),INTEN(26),XX(26) + REAL*8 TEFF,GLOG,TITLE(74),WBEGIN,RESOLU,XMU(20),WLEDGE(377) + REAL*8 QMU(40),Q2(2) + REAL*8 LINDAT8(14) + REAL*4 LINDAT(28) + REAL INT100 + REAL INTEN +C REAL*8 WEND + REAL*8 WEND,RATIO + DIMENSION VROT(25) + EQUIVALENCE (DUMMY,IDUMMY) + CHARACTER*5 ROTNAME(25) + DIMENSION APLOT(101) + DATA APLOT/101*1H / + DATA ROTNAME/'ROT1','ROT2','ROT3','ROT4','ROT5','ROT6','ROT7', + 1'ROT8','ROT9','ROT10','ROT11','ROT12','ROT13','ROT14','ROT15', + 2'ROT16','ROT17','ROT18','ROT19','ROT20','ROT21','ROT22', + 3'ROT23','ROT24','ROT25'/ + DO 7 I=1,100 + 7 XMU100(I)=FLOAT(I)*.01-.005 + LINOUT=30000 + LINOUT=300 + READ(5,1001)NROT,NRADIUS,(VROT(IROT),IROT=1,NROT) + 1001 FORMAT(I5,I5/(8F10.1)) +C IF(NRADIUS.EQ.0)NRADIUS=50 + IF(NRADIUS.EQ.0)NRADIUS=100 + WRITE(6,1002)NROT,NRADIUS,(VROT(IROT),IROT=1,NROT) + 1002 FORMAT(18H1ROTATION ,I3,I5,10F6.1/(10F6.1)) + REWIND 1 + READ(1)TEFF,GLOG,TITLE,WBEGIN,RESOLU,NWL,IFSURF,NMU,XMU,NEDGE,WLEDGE +C IFSURF=3 FOR ROTATED SPECTRUM + IFSURF=3 + WRITE(6,1010)TEFF,GLOG,TITLE + 1010 FORMAT( 5H TEFF,F7.0,7H GRAV,F7.3/7H TITLE ,74A1) + WRITE(6,1007)NMU,(XMU(IMU),IMU=1,NMU) + 1007 FORMAT(18H SURFACE INTENSITY,I3,10F6.3/10F6.3) + RATIO=1.+1./RESOLU + WEND=WBEGIN*RATIO**(NWL-1) + VSTEP=299792.458D0/RESOLU + WRITE(6,1005)WBEGIN,WEND,RESOLU,VSTEP + 1005 FORMAT(2F12.5,F12.1,F12.5) + NMU2=NMU+NMU +C + XX(1)=0. + NM1=NMU+1 + DO 11 MU=1,NMU + NN=NMU-MU+2 + 11 XX(NN)=XMU(MU) + CALL WTROT(0.,0.,0,NWT,WTMU,NRADIUS) + WRITE(6,777)WTMU + 777 FORMAT(1P10E12.3) + INTEN(1)=0. + DO 19 IWL=1,NWL + READ(1)(QMU(I),I=1,NMU2) + FLUX=0. + CONTIN=0. + DO 13 MU=1,NMU + NN=NMU-MU+2 + 13 INTEN(NN)=QMU(MU+NMU) + IDUMMY=MAP1(XX,INTEN,NM1,XMU100,INT100,100) + DO 14 I=1,100 + 14 CONTIN=CONTIN+INT100(I)*WTMU(I) + DO 15 MU=1,NMU + NN=NMU-MU+2 + 15 INTEN(NN)=QMU(MU) + IDUMMY=MAP1(XX,INTEN,NM1,XMU100,INT100,100) + DO 16 I=1,100 + 16 FLUX=FLUX+INT100(I)*WTMU(I) + WRITE(19)INT100 + 19 CONTINUE + NMU=1 +C + DO 500 IROT=1,NROT + OPEN(UNIT=9,NAME=ROTNAME(IROT),FORM='UNFORMATTED',STATUS='NEW') + REWIND 19 + VEL=ABS(VROT(IROT)) + NV=VEL/VSTEP+1.5 + NAV=NV/5+1 + NAVWT=NAV + ENDWT=0. + IF(MOD(NAV,2).EQ.0)ENDWT=.5 + IF(MOD(NAV,2).EQ.0)NAV=NAV+1 + NAV100=500-NAV/2 + NAVNAV=NAV100+NAV-1 + WRITE(6,1011)VEL,NV + 1011 FORMAT(5H1VROT,F10.1,I5) + write(6,778)NAV,NAV100,NAVNAV + 778 FORMAT(10I10) + IF(VEL.EQ.0.)GO TO 50 + CALL WTROT(VEL,VSTEP,NV,NWT,WTMU,NRADIUS) + WRITE(6,1013)NWT + 1013 FORMAT(4H NWT,I6) + DO 29 IWL=1,npiece3 + 29 HROT(IWL)=0. +C + WRITE(6,1117) + 1117 FORMAT(1H1) + WRITE(9)TEFF,GLOG,TITLE,WBEGIN,RESOLU,NWL,IFSURF,NMU,XMU, + 1NEDGE,WLEDGE,VEL,NV + REWIND 1 + DO 40 IWL=npiece+1,NWL+npiece,npiece + MAX=MIN0(npiece2,NWL+npiece2-IWL+1) + DO 30 J=npiece+1,MAX + KWL=IWL+J-npiece2-1 + READ(19)INT100 + CONT(J)=CONTIN + DO 25 I=1,NWT + MU=MUNWT(I) + IV=IVNWT(I) + W=WTNWT(I)*INT100(MU) + HROT(J-IV)=HROT(J-IV)+W + 25 HROT(J+IV)=HROT(J+IV)+W + 30 CONTINUE + IF(IWL.EQ.npiece+1)GO TO 37 + DO 33 J=1,npiece + QH=-(H(J+NAV100)+H(J+NAVNAV))*ENDWT + DO 330 K=NAV100,NAVNAV + 330 QH=QH+H(J+K) + Q2(1)=QH/FLOAT(NAVWT) + Q2(2)=CONT(J) + WRITE(9)Q2 + JWL=IWL+J-npiece2-1 + IF(JWL.GT.LINOUT)GO TO 33 + WAVE=WBEGIN*RATIO**(JWL-1) + RESID=Q2(1)/Q2(2) + IRESID=RESID*1000.+.5 + IPLOT=RESID*100.+1.5 + IPLOT=MAX0(1,MIN0(101,IPLOT)) + APLOT(IPLOT)=1HX + WRITE(6,2300)JWL,WAVE,IRESID,APLOT + 2300 FORMAT(1H ,I5,F11.4,I7,101A1) + APLOT(IPLOT)=(1H ) + 33 CONTINUE + 37 DO 34 J=1,npiece + 34 CONT(J)=CONT(J+npiece) + DO 350 J=1,500 + 350 H(J)=HROT(J+npiece-500) + DO 35 J=1,npiece2 + 35 HROT(J)=HROT(J+npiece) + DO 36 J=npiece2+1,npiece3 + 36 HROT(J)=0. + IF(KWL.LT.NWL)GO TO 40 + MAX=MIN0(npiece,NWL+npiece-IWL+1) + DO 38 J=1,MAX + QH=-(H(J+NAV100)+H(J+NAVNAV))*ENDWT + DO 380 K=NAV100,NAVNAV + 380 QH=QH+H(J+K) + Q2(1)=QH/FLOAT(NAVWT) + Q2(2)=CONT(J) + WRITE(9)Q2 + JWL=IWL+J-npiece-1 + IF(JWL.GT.LINOUT)GO TO 38 + WAVE=WBEGIN*RATIO**(JWL-1) + RESID=Q2(1)/Q2(2) + IRESID=RESID*1000.+.5 + IPLOT=RESID*100.+1.5 + IPLOT=MAX0(1,MIN0(101,IPLOT)) + APLOT(IPLOT)=1HX + WRITE(6,2300)JWL,WAVE,IRESID,APLOT + APLOT(IPLOT)=(1H ) + 38 CONTINUE + 40 CONTINUE + GO TO 400 + 50 WRITE(9)TEFF,GLOG,TITLE,WBEGIN,RESOLU,NWL,IFSURF,NMU,XMU, + 1NEDGE,WLEDGE,VEL,NV + WRITE(6,1117) + DO 55 IWL=1,NWL + READ(19)INT100 + Q2(1)=FLUX + Q2(2)=CONTIN + WRITE(9)Q2 + IF(IWL.GT.LINOUT)GO TO 55 + WAVE=WBEGIN*RATIO**(IWL-1) + RESID=FLUX/CONTIN + IRESID=RESID*1000.+.5 + IPLOT=RESID*100.+1.5 + IPLOT=MAX0(1,MIN0(101,IPLOT)) + APLOT(IPLOT)=1HX + WRITE(6,2300)IWL,WAVE,IRESID,APLOT + APLOT(IPLOT)=(1H ) + 55 CONTINUE + 400 REWIND 1 + READ(1) + DO 42 I=1,NWL + 42 READ(1) + READ(1)NLINES + WRITE(9)NLINES + DO 41 I=1,NLINES + READ(1)LINDAT8,LINDAT + WRITE(9)LINDAT8,LINDAT + 41 CONTINUE + 500 CLOSE(UNIT=9) + CLOSE(UNIT=2,DISPOSE='DELETE') + CALL EXIT + END + SUBROUTINE WTROT(VEL,VSTEP,NV,NWT,WTMU,NRAD) + COMMON /WT/MUNWT(10000),IVNWT(10000),WTNWT(10000) + DIMENSION WTMU(100) + REAL*4 LAT + DO 1 MU=1,100 + 1 WTMU(MU)=0. +C SYMMETRY ABOUT THE EQUATOR AND AXIS +C NRAD=100 +C NRAD=50 + RADIUS=NRAD +C CHOSEN TO YIELD HNU + W=4./4./3.14159/RADIUS**2 +C CENTER + CX=.5 + CY=.5 + N3=0 + DO 100 IX=1,NRAD + DO 100 IY=1,NRAD +C R IS THE PROJECTED RADIUS + R=SQRT((IX-CX)**2+(IY-CY)**2) + IF(R.GT.RADIUS)GO TO 100 + XMU=SQRT(RADIUS**2-R**2)/RADIUS + MU=XMU*100.+.9999999 + IF(MU.EQ.0)GO TO 100 + WTMU(MU)=WTMU(MU)+W + IF(VEL.EQ.0.)GO TO 100 +C RX IS THE RADIUS OF THE LATITUDE CIRCLE + RX=SQRT(RADIUS**2-(IY-CY)**2) +C VLAT IS THE VELOCITY AT THE LATITUDE + VLAT=RX/RADIUS*ABS(VEL) + IF(VEL.LT.0.)THEN + LAT=ACOS(RX/RADIUS) + VLAT=VLAT*(1.-75./462.*SIN(LAT)**2-50./462.*SIN(LAT)**4) + ENDIF +C VX IS THE PROJECTED VELOCITY + VX=(IX-CX)/RX*VLAT + IV=VX/VSTEP+.5 + IVMU=IV*1000+MU + N3=N3+1 + MUNWT(N3)=IVMU + 100 CONTINUE + IF(VEL.EQ.0.)RETURN + CALL INTSORT(MUNWT,N3) + ISAVE=-1 + NWT=0 +C POSITIVE AND NEGATIVE DOPPLER SHIFTS + W=W*.5 + DO 300 I=1,N3 + IVMU=MUNWT(I) + IF(IVMU.EQ.ISAVE)GO TO 310 + ISAVE=IVMU + IV=IVMU/1000 + MU=IVMU-IV*1000 + NWT=NWT+1 + IF(NWT.GT.10000)STOP 'MORE THAN 10000 POINTS' + MUNWT(NWT)=MU + IVNWT(NWT)=IV + WTNWT(NWT)=W + GO TO 300 + 310 WTNWT(NWT)=WTNWT(NWT)+W + 300 CONTINUE + RETURN + END + FUNCTION MAP1(XOLD,FOLD,NOLD,XNEW,FNEW,NNEW) + DIMENSION XOLD(1),FOLD(1),XNEW(1),FNEW(1) + L=2 + LL=0 + DO 50 K=1,NNEW + 10 IF(XNEW(K).LT.XOLD(L))GO TO 20 + L=L+1 + IF(L.GT.NOLD)GO TO 30 + GO TO 10 + 20 IF(L.EQ.LL)GO TO 50 + IF(L.EQ.2)GO TO 30 + IF(L.EQ.3)GO TO 30 + L1=L-1 + IF(L.GT.LL+1.OR.L.EQ.3)GO TO 21 + IF(L.GT.LL+1.OR.L.EQ.4)GO TO 21 + CBAC=CFOR + BBAC=BFOR + ABAC=AFOR + IF(L.EQ.NOLD)GO TO 22 + GO TO 25 + 21 L2=L-2 + D=(FOLD(L1)-FOLD(L2))/(XOLD(L1)-XOLD(L2)) + CBAC=FOLD(L)/((XOLD(L)-XOLD(L1))*(XOLD(L)-XOLD(L2)))+ + 1(FOLD(L2)/(XOLD(L)-XOLD(L2))-FOLD(L1)/(XOLD(L)-XOLD(L1)))/ + 2(XOLD(L1)-XOLD(L2)) + BBAC=D-(XOLD(L1)+XOLD(L2))*CBAC + ABAC=FOLD(L2)-XOLD(L2)*D+XOLD(L1)*XOLD(L2)*CBAC + IF(L.LT.NOLD)GO TO 25 + 22 C=CBAC + B=BBAC + A=ABAC + LL=L + GO TO 50 + 25 D=(FOLD(L)-FOLD(L1))/(XOLD(L)-XOLD(L1)) + CFOR=FOLD(L+1)/((XOLD(L+1)-XOLD(L))*(XOLD(L+1)-XOLD(L1)))+ + 1(FOLD(L1)/(XOLD(L+1)-XOLD(L1))-FOLD(L)/(XOLD(L+1)-XOLD(L)))/ + 2(XOLD(L)-XOLD(L1)) + BFOR=D-(XOLD(L)+XOLD(L1))*CFOR + AFOR=FOLD(L1)-XOLD(L1)*D+XOLD(L)*XOLD(L1)*CFOR + WT=0. + IF(ABS(CFOR).NE.0.)WT=ABS(CFOR)/(ABS(CFOR)+ABS(CBAC)) + A=AFOR+WT*(ABAC-AFOR) + B=BFOR+WT*(BBAC-BFOR) + C=CFOR+WT*(CBAC-CFOR) + LL=L + GO TO 50 + 30 IF(L.EQ.LL)GO TO 50 + L=AMIN0(NOLD,L) + C=0. + B=(FOLD(L)-FOLD(L-1))/(XOLD(L)-XOLD(L-1)) + A=FOLD(L)-XOLD(L)*B + LL=L + 50 FNEW(K)=A+(B+C*XNEW(K))*XNEW(K) + MAP1=LL-1 + RETURN + END + SUBROUTINE INTSORT(DATA,N) + INTEGER X,Z,DATA(1) + NTRY=0 + N1=2 + 15 DO 1 J=N1,N + Z=DATA(J) + IF(J-2)1,2,3 + 2 IF(Z-DATA(1))4,1,1 + 4 DATA(2)=DATA(1) + DATA(1)=Z + GO TO 1 + 3 K7=J-1 + IF(Z-DATA(K7))5,1,1 + 5 LFST=1 + LAST=K7 + 6 MID=(LFST+LAST)/2 + IF(Z-DATA(MID))7,8,9 + 7 IF(MID-LAST)10,8,8 + 10 LAST=MID + GO TO 6 + 8 NSTART=MID + GO TO 11 + 9 IF(LFST-MID)12,13,13 + 12 LFST=MID + GO TO 6 + 13 NSTART=MID+1 + 11 DO 14 I=NSTART,K7 + K9=J+NSTART-I + 14 DATA(K9)=DATA(K9-1) + DATA(NSTART)=Z + 1 CONTINUE + NTRY=NTRY+1 + DO 16 I=2,N + IF(DATA(I)-DATA(I-1))17,16,16 + 17 N1=I + IF(NTRY-5)15,15,18 + 16 CONTINUE + 18 RETURN + END diff --git a/synthe/rpredict.for b/synthe/rpredict.for new file mode 100644 index 0000000..70ca164 --- /dev/null +++ b/synthe/rpredict.for @@ -0,0 +1,450 @@ + PROGRAM RPREDICT +c Fior-1jun04 +C eguale a RLOWLINES.FOR salvo che skippa le rigke con ielion.gt.0 +C si usa con le files gf100 + PARAMETER (kw=99) + COMMON /LINDAT/WL,E,EP,LABEL(2),LABELP(2),OTHER1(2),OTHER2(2), + 1 WLVAC,CENTER,CONCEN, NELION,GAMMAR,GAMMAS,GAMMAW,REF, + 2 NBLO,NBUP,ISO1,X1,ISO2,X2,GFLOG,XJ,XJP,CODE,ELO,GF,GS,GR,GW, + 3 DWL,DGFLOG,DGAMMAR,DGAMMAS,DGAMMAW,EXTRA1,EXTRA2,EXTRA3 + REAL*8 LINDAT8(14) + REAL*4 LINDAT4(28) + EQUIVALENCE (LINDAT8(1),WL),(LINDAT4(1),NELION) + REAL*8 RESOLU,RATIO,RATIOLG,WLBEG,WLEND,RATIOLOG + REAL*8 WL,E,EP,WLVAC,START,STOP + REAL*8 CENTER,CONCEN,LABEL,LABELP,OTHER1,OTHER2 + REAL*4 DECKJ(7,kw) + REAL*4 TABLOG(32768) + real*8 vacair + INTEGER*2 IELION,IELO,IGFLOG,IGR,IGS,IGW + COMMON /IIIIIII/IWL,IELION,IELO,IGFLOG,IGR,IGS,IGW + INTEGER*4 IIIIIII(4) + EQUIVALENCE (IIIIIII(1),IWL) + DIMENSION NELIONOLD(1005) + DIMENSION NELIONOLDA(209),NELIONOLDB(286),NELIONOLDC(95) + DIMENSION NELIONOLDD( 95),NELIONOLDE( 95),NELIONOLDF(60) + DIMENSION NELIONOLDG(165) + EQUIVALENCE (NELIONOLD( 1),NELIONOLDA(1)) + EQUIVALENCE (NELIONOLD(210),NELIONOLDB(1)) + EQUIVALENCE (NELIONOLD(496),NELIONOLDC(1)) + EQUIVALENCE (NELIONOLD(591),NELIONOLDD(1)) + EQUIVALENCE (NELIONOLD(686),NELIONOLDE(1)) + EQUIVALENCE (NELIONOLD(781),NELIONOLDF(1)) + EQUIVALENCE (NELIONOLD(841),NELIONOLDG(1)) + DATA NELIONOLDA/ + 1 1, 2, + 2 7, 8, 9, + 3 13, 14, 15, 16, + 4 19, 20, 21, 22, 23, + 5 25, 26, 27, 28, 29, 30, + 6 31, 32, 33, 34, 35, 36,0, + 7 37, 38, 39, 40, 41, 42,0,0, + 8 43, 44, 45, 46, 47, 48,0,0,0, + 9 49, 50, 51, 52, 53, 54,0,0,0,0, + A 55, 56, 57, 58, 59, 60,0,0,0,0,0, + 1 61, 62, 63, 64, 65, 66,0,0,0,0,0,0, + 2 67, 68, 69, 70, 71, 72,0,0,0,0,0,0,0, + 3 73, 74, 75, 76, 77, 78,0,0,0,0,0,0,0,0, + 4 79, 80, 81, 82, 83, 84,0,0,0,0,0,0,0,0,0, + 5 85, 86, 87, 88, 89, 90,0,0,0,0,0,0,0,0,0,0, + 6 91, 92, 93, 94, 95, 96,0,0,0,0,0,0,0,0,0,0,0, + 7 97, 98, 99,100,101, 0,0,0,0,0,0,0,0,0,0,0,0,0, + 8 103,104,105,106,107, 0,0,0,0,0,0,0,0,0,0,0,0,0,0, + 9 109,110,111,112,113, 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0/ + DATA NELIONOLDB/ + A 115,116,117,118,119,120,299,359,419,479, 11*0, + 1 121,122,123,124,125,126,305,365,425,485, 12*0, + 2 127,128,129,130,131,132,311,371,431,491, 13*0, + 3 133,134,135,136,137,138,317,377,437,497, 14*0, + 4 139,140,141,142,143,144,323,383,443,503, 15*0, + 5 145,146,147,148,149,150,329,389,449,509, 16*0, + 6 151,152,153,154,155,156,335,395,455,515, 17*0, + 7 157,158,159,160,161,162,341,401,461,521, 18*0, + 8 163,164,165,166,167,168,347,407,467,527, 19*0, + 9 169,170,171, 27*0, + A 175,176,177, 28*0/ + DATA NELIONOLDC/ + 1 181,182,183, 0, 0, + 2 187,188,189, 0, 0, + 3 193,194,195, 0, 0, + 4 199,200,201, 0, 0, + 5 205,206,207, 0, 0, + 6 211,212,213, 0, 0, + 7 217,218,219, 0, 0, + 8 223,224,225, 0, 0, + 9 229,230,231, 0, 0, + A 235,236,237, 0, 0, + 1 241,242,243, 0, 0, + 2 247,248,249, 0, 0, + 3 253,254,255, 0, 0, + 4 259,260,261, 0, 0, + 5 265,266,267, 0, 0, + 6 271,272,273, 0, 0, + 7 277,278,279, 0, 0, + 8 283,284,285, 0, 0, + 9 289,290,291, 0, 0/ + DATA NELIONOLDD/ + A 295,296,297, 0, 0, + 1 301,302,303, 0, 0, + 2 307,308,309, 0, 0, + 3 313,314,315, 0, 0, + 4 319,320,321, 0, 0, + 5 325,326,327, 0, 0, + 6 331,332,333, 0, 0, + 7 337,338,339, 0, 0, + 8 343,344,345, 0, 0, + 9 349,350,351, 0, 0, + A 355,356,357, 0, 0, + 1 361,362,363, 0, 0, + 2 367,368,369, 0, 0, + 3 373,374,375, 0, 0, + 4 379,380,381, 0, 0, + 5 385,386,387, 0, 0, + 6 391,392,393, 0, 0, + 7 397,398,399, 0, 0, + 8 403,404,405, 0, 0/ + DATA NELIONOLDE/ + 9 409,410,411, 0, 0, + A 415,416,417, 0, 0, + 1 421,422,423, 0, 0, + 2 427,428,429, 0, 0, + 3 433,434,435, 0, 0, + 4 439,440,441, 0, 0, + 5 445,446,447, 0, 0, + 6 451,452,453, 0, 0, + 7 457,458,459, 0, 0, + 8 463,464,465, 0, 0, + 9 469,470,471, 0, 0, + A 475,476,477, 0, 0, + 1 481,482,483, 0, 0, + 2 487,488,489, 0, 0, + 3 493,494,495, 0, 0, + 4 499,500,501, 0, 0, + 5 505,506,507, 0, 0, + 6 511,512,513, 0, 0, + 7 517,518,519, 0, 0/ + DATA NELIONOLDF/ + 8 523,524,525, 0, 0, + 9 529,530,531, 0, 0, + A 535,536,537, 0, 0, + 1 541,542,543, 0, 0, + 2 547,548,549, 0, 0, + 3 553,554,555, 0, 0, + 4 559,560,561, 0, 0, + 5 565,566,567, 0, 0, + 6 571,572,573, 0, 0, + 7 577,578,579, 0, 0, + 8 583,584,585, 0, 0, + 9 589,590,591, 0, 0/ +c H2 841 240 +c HeH 842 +c LiH 843 378 +c BeH 844 384 +c BH 845 390 +c CH 846 246 +c NH 847 252 +c OH 848 258 +c HF 849 396 +c NaH 850 +c MgH 851 300 +c AlH 852 306 +c SiH 853 312 +c PH 854 402 +c HS 855 336 +c HCl 856 408 +c KH 857 +c CaH 858 342 +c ScH 859 414 +c TiH 860 420 +c VH 861 426 +c CrH 862 432 +c MnH 863 438 +c FeH 864 444 +c CoH 865 558 +c NiH 866 564 +c CuH 867 570 +c C2 868 264 +c CN 869 270 +c CO 870 276 +c CF 871 +c SiC 872 +c CP 873 +c CS 874 +c N2 875 282 +c NO 876 288 +c NF 877 +c SiN 878 +c PN 879 +c NS 880 +c LiO 881 +c BeO 882 492 +c BO 883 498 +c O2 884 294 +c FO 885 +c NaO 886 +c MgO 887 318 +c AlO 888 324 +c SiO 889 330 +c PO 890 504 +c SO 891 348 +c ClO 892 510 +c CaO 893 354 +c ScO 894 360 +c TiO 895 366 +c VO 896 372 +c CrO 897 516 +c MnO 898 522 +c FeO 899 528 +c CoO 900 576 +c NiO 901 582 +c CuO 902 588 +c GeO 903 +c SrO 904 +c YO 905 +c ZrO 906 +c NbO 907 +c Si2 908 +c SiS 909 +c S2 910 +c TiS 911 +c ZrS 912 +c H2+ 913 +c HeH+ 914 +c LiH+ 915 +c CH+ 916 450 +c NH+ 917 456 +c OH+ 918 462 +c HF+ 919 +c NeH+ 920 +c MgH+ 921 468 +c AlH+ 922 474 +c SiH+ 923 480 +c PH+ 924 +c SH+ 925 +c HCl+ 926 +c CaH+ 927 486 +c He2+ 928 +c C2+ 929 +c CN+ 930 +c CO+ 931 594 +c N2+ 932 +c NO+ 933 +c NS+ 934 +c O2+ 935 +c SiO+ 936 +c PO+ 937 +c SO+ 938 +c S2+ 939 +c H2O 940 534 +c CO2 941 540 +c CH2 942 546 +c C2H 943 +c C2N 944 +c C3 945 552 +c O3 946 +c NO2 947 +c N2O 948 +c NH2 949 +c HCO 950 +c HCN 951 +c HNO 952 +c SiC2 953 +c NaOH 954 +c MgOH 955 +c AlOH 956 +c KOH 957 +c CaOH 958 +c AlOF 959 +c AlOCl 960 +c Al2O 961 +c SH2 962 +c CaF2 963 +c CaCl2 964 +c COS 965 +c SiO2 966 +c SO2 967 +c TiO2 968 +c VO2 969 +c NH3 970 +c CH3 971 +c C2H2 972 +c C3H 973 +c C2N2 974 +c CH4 975 +c H- 976 +c Li- 977 +c C- 978 +c O- 979 +c F- 980 +c Na- 981 +c Al- 982 +c Si- 983 +c P- 984 +c S- 985 +c Cl- 986 +c K- 987 +c Sc- 988 +c Ti- 989 +c V- 990 +c Cr- 991 +c Fe- 992 +c Co- 993 +c Ni- 994 +c Cu- 995 +c C2- 996 +c CH- 997 +c CN- 998 +c CO- 999 +c N2- 1000 +c NO- 1001 +c OH- 1002 +c O2- 1003 +c S2- 1004 +c SH- 1005 +C + DATA NELIONOLDG/ + 1 240, 0,378,384,390,246,252,258,396, 0, + 2 300,306,312,402,336,408, 0,342,414,420, + 3 426,432,438,444,558,564,570,264,270,276, + 4 0, 0, 0, 0,282,288, 0, 0, 0, 0, + 5 0,492,498,294, 0, 0,318,324,330,504, + 6 348,510,354,360,366,372,516,522,528,576, + 7 582,588, 0, 0, 0, 0, 0, 0, 0, 0, + 8 0, 0, 0, 0, 0,450,456,462, 0, 0, + 9 468,474,480, 0, 0, 0,486, 0, 0, 0, + A 594, 0, 0, 0, 0, 0, 0, 0, 0,534, + 1 540,546, 0, 0,552, 0, 0, 0, 0, 0, + 2 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, + 3 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, + 4 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, + 5 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, + 6 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, + 7 0, 0, 0, 0, 0/ + DO 1 I=1,32768 + 1 TABLOG(I)=10.**((I-16384)*.001) + RATIOLOG=LOG(1.D0+1.D0/2000000.D0) + OPEN(UNIT=11,STATUS='OLD',READONLY,SHARED,FORM='UNFORMATTED', + 1RECORDTYPE='FIXED',BLOCKSIZE=8000,RECORDSIZE=4,ACCESS='DIRECT') + OPEN(UNIT=12,TYPE='OLD',FORM='UNFORMATTED',ACCESS='APPEND') + OPEN(UNIT=14,TYPE='OLD',FORM='UNFORMATTED',ACCESS='APPEND') + READ(93)NLINES,LENGTH,IFVAC,IFNLTE,N19,TURBV,DECKJ,IFPRED, + 1WLBEG,WLEND,RESOLU,RATIO,RATIOLG,CUTOFF,LINOUT + IXWLBEG=DLOG(WLBEG)/RATIOLG + IF(DEXP(IXWLBEG*RATIOLG).LT.WLBEG)IXWLBEG=IXWLBEG+1 +C + REF=2HK + NBLO=0 + NBUP=0 + ISO1=0 + X1=0. + ISO2=0 + X2=0. + XJ=0. + XJP=0. + OTHER1(1)=(8H ) + OTHER1(2)=(2H ) + OTHER2(1)=(8H ) + OTHER2(2)=(2H ) + LABEL(1)=(8H ) + LABEL(2)=(2H ) + LABELP(1)=(8H ) + LABELP(2)=(2H ) + ISTART=DLOG(WLBEG-1.)/RATIOLOG+.5 + ISTOP=DLOG(WLEND+1.)/RATIOLOG+.5 + N=0 + READ(11,REC=1)IWL1 + IF(IWL1.GT.ISTOP)GO TO 21 +C FIND NUMBER OF LINES + LIMITBLUE=1 + LIMITRED=50000000 + 8 NEWLIMIT=(LIMITRED+LIMITBLUE)/2 + READ(11,REC=NEWLIMIT,ERR=9)IWL + LIMITBLUE=NEWLIMIT + IF(LIMITRED-LIMITBLUE.EQ.1)GO TO 11 + GO TO 8 + 9 LIMITRED=NEWLIMIT + IF(LIMITRED-LIMITBLUE.EQ.1)GO TO 11 + GO TO 8 + 11 LENGTHFILE=LIMITBLUE + PRINT 3334,IWL1 + 3334 FORMAT(' FIRST LINE IS 1',' IWL',I10) + READ(11,REC=LENGTHFILE)IWL + PRINT 3335,LENGTHFILE,IWL + 3335 FORMAT(' LAST LINE IS ',I9,' IWL',I10) + IF(IWL.LT.ISTART)GO TO 21 +C FIND THE FIRST LINE AFTER ISTART + LIMITBLUE=1 + LIMITRED=LENGTHFILE + 12 NEWLIMIT=(LIMITRED+LIMITBLUE)/2 + PRINT 3333,LIMITBLUE,NEWLIMIT,LIMITRED + 3333 FORMAT(3I10) + READ(11,REC=NEWLIMIT)IWL + IF(IWL.LT.ISTART)GO TO 13 + LIMITRED=NEWLIMIT + IF(LIMITRED-LIMITBLUE.LE.1)GO TO 14 + GO TO 12 + 13 LIMITBLUE=NEWLIMIT + IF(LIMITRED-LIMITBLUE.LE.1)GO TO 14 + GO TO 12 + 14 NSTART=NEWLIMIT + PRINT 3333,LIMITBLUE,LIMITRED,NEWLIMIT + WRITE(6,6)NSTART + 6 FORMAT(I10,14H IS FIRST LINE) + DO 20 N=NSTART,LENGTHFILE + READ(11,rec=n)IIIIIII + IF(IWL.GT.ISTOP)GO TO 21 +C REMOVE POSITIVE LINES WHICH ARE ALSO IN OTHER FILES + IF(IELION.GT.0)GO TO 20 + NELIONNEW=ABS(IELION)/10 + NELION=NELIONOLD(NELIONNEW) + IF(NELION.EQ.0)GO TO 20 + NELEM=INT(NELION/6)+1 + IZ=NELION-(NELEM-1)*6 + ICHARGE=IZ-1 + CHARGE=FLOAT(ICHARGE) + CODE=FLOAT(NELEM)+CHARGE*0.01 + WLVAC=EXP(IWL*RATIOLOG) + WL=WLVAC + IF(IFVAC.EQ.0)WL=VACAIR(WL) + GF=TABLOG(IGFLOG) + GFLOG=ALOG10(GF) + FREQ=2.99792458E17/WLVAC +C CONGF=.026538/1.77245*GF/FREQ + CONGF=.01502*GF/FREQ + ELO=TABLOG(IELO) + E=ELO + EP=E+1.D7/WLVAC + GAMMAR=TABLOG(IGR) + GAMMAS=TABLOG(IGS) + GAMMAW=TABLOG(IGW) + FRQ4PI=FREQ*12.5664 + GAMRF=TABLOG(IGR)/FRQ4PI + GAMSF=TABLOG(IGS)/FRQ4PI + GAMWF=TABLOG(IGW)/FRQ4PI + alpha=0. + IXWL=DLOG(WLVAC)/RATIOLG+.5D0 + if(ifvac.eq.0)ixwl=dlog(wl)/ratiolg+.5D0 + NBUFF=IXWL-IXWLBEG+1 + WRITE(12)NBUFF,CONGF,NELION,ELO,GAMRF,GAMSF,GAMWF,alpha + WRITE(14)LINDAT8,LINDAT4 + NLINES=NLINES+1 + 20 CONTINUE + 21 N=N-1 + WRITE(6,22)N + 22 FORMAT(I10,13H IS LAST LINE) + 25 WRITE(6,26)NLINES + 26 FORMAT(I10,25H LINES WRITTEN ON TAPE 12) + REWIND 93 + WRITE(93)NLINES,LENGTH,IFVAC,IFNLTE,N19,TURBV,DECKJ,IFPRED, + 1WLBEG,WLEND,RESOLU,RATIO,RATIOLG,CUTOFF,LINOUT,NDELET,NELDLT + CALL EXIT + END + FUNCTION VACAIR(W) +c IMPLICIT REAL*8 (A-H,O-Z) +C W IS VACUUM WAVELENGTH IN NM + real*8 vacair,w,waven + WAVEN=1.D7/W + VACAIR=W/(1.0000834213D0+ + 1 2406030.D0/(1.30D10-WAVEN**2)+15997.D0/(3.89D9-WAVEN**2)) + RETURN + END diff --git a/synthe/rschwenk.for b/synthe/rschwenk.for new file mode 100644 index 0000000..0cc0665 --- /dev/null +++ b/synthe/rschwenk.for @@ -0,0 +1,222 @@ + PROGRAM RTIOSCHWENKE +C READS PACKED BINARY VERSION OF SCHWENKE'S TIO LINELIST +C THROWS AWAY LEVEL INFORMATION IF LINOUT < 0 + PARAMETER (kw=99) + REAL*4 XJTIO(269300) + REAL*8 ETIO(269300,5),STATETIO(269300,5) + COMMON /LINDAT/WL,E,EP,LABEL(2),LABELP(2),OTHER1(2),OTHER2(2), + 1 WLVAC,CENTER,CONCEN, NELION,GAMMAR,GAMMAS,GAMMAW,REF, + 2 NBLO,NBUP,ISO1,X1,ISO2,X2,GFLOG,XJ,XJP,CODE,ELO,GF,GS,GR,GW, + 3 DWL,DGFLOG,DGAMMAR,DGAMMAS,DGAMMAW,DWLISO,ISOSHIFT,EXTRA3 + REAL*8 LINDAT8(14) + REAL*4 LINDAT4(28) + EQUIVALENCE (LINDAT8(1),WL),(LINDAT4(1),NELION) + REAL*8 WL,E,EP,WLVAC,CENTER,CONCEN + REAL*8 LABEL,LABELP,OTHER1,OTHER2,LABELISO(5) + CHARACTER*10 COTHER1,COTHER2 + EQUIVALENCE (COTHER1,OTHER1(1)),(COTHER2,OTHER2(1)) + INTEGER TYPE + EQUIVALENCE (GF,G,CGF),(TYPE,NLAST) + REAL*8 RESOLU,RATIO,RATIOLG,WLBEG,WLEND,RATIOLOG + REAL*4 DECKJ(7,kw),XISO(5),X2ISO(5) + REAL*4 TABLOG(32768),AIRSHIFT(60000) + INTEGER*2 IELION,IELO,IGFLOG,IGR,IGS,IGW + COMMON /IIIIIII/IWL,IELION,IELO,IGFLOG,IGR,IGS,IGW + INTEGER*4 IIIIIII(4) + EQUIVALENCE (IIIIIII(1),IWL) + BYTE IIBYTE(16),ONEBYTE + EQUIVALENCE (IIIIIII(1),IIBYTE(1)) +C 46TiO 47TiO 48TiO 49TiO 50TiO + DATA XISO/.0793,.0728,.7394,.0551,.0534/ + DATA X2ISO/-1.101,-1.138,-0.131,-1.259,-1.272/ + DATA LABELISO/2H46,2H47,2H48,2H49,2H50/ +C + data alpha/0./ + DO 1 I=1,32768 + 1 TABLOG(I)=10.**((I-16384)*.001) + IF(IFPRED.NE.1)CALL TABVACAIR(AIRSHIFT) + RATIOLOG=LOG(1.D0+1.D0/2000000.D0) + OPEN(UNIT=11,STATUS='OLD',READONLY,SHARED,FORM='UNFORMATTED', + 1RECORDTYPE='FIXED',BLOCKSIZE=8000,RECORDSIZE=4,ACCESS='DIRECT') + OPEN(UNIT=12,TYPE='OLD',FORM='UNFORMATTED',ACCESS='APPEND') + OPEN(UNIT=14,TYPE='OLD',FORM='UNFORMATTED',ACCESS='APPEND') + READ(93)NLINES,LENGTH,IFVAC,IFNLTE,N19,TURBV,DECKJ,IFPRED, + 1WLBEG,WLEND,RESOLU,RATIO,RATIOLG,CUTOFF,LINOUT + IXWLBEG=DLOG(WLBEG)/RATIOLG + IF(DEXP(IXWLBEG*RATIOLG).LT.WLBEG)IXWLBEG=IXWLBEG+1 +C + open(unit=48,type='old',form='unformatted',readonly) + READ(48)ETIO,XJTIO,STATETIO + CLOSE(UNIT=48) + N14=0 + NBLO=0 + NBUP=0 + OTHER1(1)=(8H ) + OTHER1(2)=(2H ) + OTHER2(1)=(8H ) + OTHER2(2)=(2H ) + LABEL(2)=(2H ) + LABELP(2)=(2H ) + REF=(4HSCHW) + ISO1=16 + X1=0. + CODE=822. + DWL=0. + DGFLOG=0. + DGAMMAR=0. + DGAMMAS=0. + DGAMMAW=0. + DWLISO=0. + ISOSHIFT=0 +C +cc ISTART=DLOG(WLBEG-1.)/RATIOLOG+.5 +cc ISTOP=DLOG(WLEND+1.)/RATIOLOG+.5 + ISTART=DLOG(WLBEG)/RATIOLOG+.5 + ISTOP=DLOG(WLEND)/RATIOLOG+.5 + N=0 + READ(11,REC=1)IWL1 + IF(IWL1.GT.ISTOP)GO TO 21 +C FIND NUMBER OF LINES + LIMITBLUE=1 + LIMITRED=50000000 + 8 NEWLIMIT=(LIMITRED+LIMITBLUE)/2 + READ(11,REC=NEWLIMIT,ERR=9)IWL + LIMITBLUE=NEWLIMIT + IF(LIMITRED-LIMITBLUE.EQ.1)GO TO 11 + GO TO 8 + 9 LIMITRED=NEWLIMIT + IF(LIMITRED-LIMITBLUE.EQ.1)GO TO 11 + GO TO 8 + 11 LENGTHFILE=LIMITBLUE + WLVAC=EXP(IWL1*RATIOLOG) + PRINT 3334,IWL1,WLVAC + 3334 FORMAT(' FIRST LINE IS 1',' IWL',I10,' WL',F12.4) + READ(11,REC=LENGTHFILE)IWL + WLVAC=EXP(IWL*RATIOLOG) + PRINT 3335,LENGTHFILE,IWL,WLVAC + 3335 FORMAT(' LAST LINE IS ',I9,' IWL',I10,' WL',F12.4) + IF(IWL.LT.ISTART)GO TO 21 +C FIND THE FIRST LINE AFTER ISTART + LIMITBLUE=1 + LIMITRED=LENGTHFILE + 12 NEWLIMIT=(LIMITRED+LIMITBLUE)/2 + PRINT 3333,LIMITBLUE,NEWLIMIT,LIMITRED + 3333 FORMAT(3I10) + READ(11,REC=NEWLIMIT)IWL +C IF COMPUTER REQUIRES BYTE ROTATION +C DO 17 I=1,4,2 +C ONEBYTE=IIBYTE(I) +C IIBYTE(I)=IIBYTE(I+1) +C 17 IIBYTE(I+1)=ONEBYTE +C ONEBYTE=IIBYTE(1) +C IIBYTE(1)=IIBYTE(3) +C IIBYTE(3)=ONEBYTE +C ONEBYTE=IIBYTE(2) +C IIBYTE(2)=IIBYTE(4) +C IIBYTE(4)=ONEBYTE + IF(IWL.LT.ISTART)GO TO 13 + LIMITRED=NEWLIMIT + IF(LIMITRED-LIMITBLUE.LE.1)GO TO 14 + GO TO 12 + 13 LIMITBLUE=NEWLIMIT + IF(LIMITRED-LIMITBLUE.LE.1)GO TO 14 + GO TO 12 + 14 ISTART=NEWLIMIT + PRINT 3333,LIMITBLUE,LIMITRED,NEWLIMIT + WRITE(6,6)ISTART + 6 FORMAT(I10,14H IS FIRST LINE) + DO 20 ILINE=ISTART,LENGTHFILE + READ(11,REC=ILINE)IIIIIII +C IF COMPUTER REQUIRES BYTE ROTATION +C DO 18 I=1,16,2 +C ONEBYTE=IIBYTE(I) +C IIBYTE(I)=IIBYTE(I+1) +C 18 IIBYTE(I+1)=ONEBYTE +C ONEBYTE=IIBYTE(1) +C IIBYTE(1)=IIBYTE(3) +C IIBYTE(3)=ONEBYTE +C ONEBYTE=IIBYTE(2) +C IIBYTE(2)=IIBYTE(4) +C IIBYTE(4)=ONEBYTE + IF(IWL.GT.ISTOP)GO TO 21 + ISO=ABS(IELION)-8949 + ISO2=ISO+45 + X2=X2ISO(ISO) +C NELIONNEW=ABS(IELION)/10 +C NELION=NELIONOLD(NELIONNEW) +C IF(NELION.EQ.0)GO TO 20 + NELION=366 + WLVAC=EXP(IWL*RATIOLOG) + KWL=WLVAC*10.+.5 + WL=WLVAC+AIRSHIFT(KWL) + IF(IFVAC.NE.1)WLVAC=WL + ELO=TABLOG(IELO) + IXWL=DLOG(WLVAC)/RATIOLG+.5D0 + NBUFF=IXWL-IXWLBEG+1 + FREQ=2.99792458E17/WLVAC + CONGF=.01502*TABLOG(IGFLOG)/FREQ*XISO(ISO) + FRQ4PI=FREQ*12.5664 + KGW=IGW + KGS=IGS + LEVELLO=KGS*10+MOD(ABS(KGW),10) + LEVELUP=KGW/10+LEVELLO +C GAMMAS=0 +C LOG GAMMAW=-7 + IGS=1 + IGW=9384 + GAMRF=TABLOG(IGR)/FRQ4PI + GAMSF=TABLOG(IGS)/FRQ4PI + GAMWF=TABLOG(IGW)/FRQ4PI + WRITE(12)NBUFF,CONGF,NELION,ELO,GAMRF,GAMSF,GAMWF,alpha + NLINES=NLINES+1 + IF(N.EQ.0)WRITE(6,19)WLVAC + 19 FORMAT(F12.4) + N=N+1 + IF(LINOUT.LT.0)GO TO 20 + E=ETIO(LEVELLO,ISO) + EP=ETIO(LEVELUP,ISO) + XJ=XJTIO(LEVELLO) + XJP=XJTIO(LEVELUP) + LABEL(1)=STATETIO(LEVELLO,ISO) + LABELP(1)=STATETIO(LEVELUP,ISO) + LABELP(2)=LABELISO(ISO) + GFLOG=(IGFLOG-16384)*.001 + GF=TABLOG(IGFLOG) + GR=(IGR-16384)*.001 +C GS=-16.383 + GS=-9.99 + GW=-7. + WRITE(14)LINDAT8,LINDAT4 + N14=N14+1 + 20 CONTINUE + 21 N=N-1 + print *,n14 + WRITE(6,22)N + 22 FORMAT(I10,13H IS LAST LINE) + WRITE(6,19)WLVAC + 25 WRITE(6,26)NLINES + 26 FORMAT(I10,25H LINES WRITTEN ON TAPE 12) + REWIND 93 + WRITE(93)NLINES,LENGTH,IFVAC,IFNLTE,N19,TURBV,DECKJ,IFPRED, + 1WLBEG,WLEND,RESOLU,RATIO,RATIOLG,CUTOFF,LINOUT + CALL EXIT + END + SUBROUTINE TABVACAIR(AIRSHIFT) + REAL*4 AIRSHIFT(60000) + REAL*8 WLVAC,VACAIR + DO 1 IWL=1,1999 + 1 AIRSHIFT(IWL)=0. + DO 2 IWL=2000,60000 + WLVAC=IWL*.1 + 2 AIRSHIFT(IWL)=VACAIR(WLVAC)-WLVAC + RETURN + END + FUNCTION VACAIR(W) + IMPLICIT REAL*8 (A-H,O-Z) +C W IS VACUUM WAVELENGTH IN NM + WAVEN=1.D7/W + VACAIR=W/(1.0000834213D0+ + 1 2406030.D0/(1.30D10-WAVEN**2)+15997.D0/(3.89D9-WAVEN**2)) +C 1(1.000064328+2949810./(1.46E10-WAVEN**2)+25540./(4.1E9-WAVEN**2)) + RETURN + END diff --git a/synthe/spectrv.for b/synthe/spectrv.for new file mode 100644 index 0000000..d59837e --- /dev/null +++ b/synthe/spectrv.for @@ -0,0 +1,438 @@ + PROGRAM SPECTRV +c revised 4nov14 constants given D exponents +c revised 16dec97 + IMPLICIT REAL*8 (A-H,O-Z) + PARAMETER (kw=99) + COMMON /ABROSS/ABROSS(kw),TAUROS(kw) + COMMON /ABTOT/ABTOT(kw),ALPHA(kw) + COMMON /BAL/BAL1(kw,9),AAL1(kw),SAL1(kw),XNFPAL(kw,2),BAL2(kw,1) + COMMON /BB/BB1(kw,7),XNFPB(kw,1) + COMMON /BC/BC1(kw,14),AC1(kw),SC1(kw),XNFPC(kw,2),BC2(kw,6) + COMMON /BCA/BCA1(kw,8),BCA2(kw,5),XNFPCA(kw,2) + COMMON /BFE/BFE1(kw,15),AFE1(kw),SFE1(kw),XNFPFE(kw,1) + COMMON /BHE/BHE1(kw,29),AHE1(kw),SHE1(kw),BHE2(kw,6),AHE2(kw), + 1 SHE2(kw),AHEMIN(kw),SIGHE(kw),XNFPHE(kw,3),XNFHE(kw,2) + COMMON /BHYD/BHYD(kw,8),AHYD(kw),SHYD(kw),AH2P(kw),BMIN(kw), + 1 AHMIN(kw),SHMIN(kw),SIGH(kw),SIGH2(kw),AHLINE(kw), + 2 SHLINE(kw),XNFPH(kw,2),XNFH(kw) + COMMON /BK/BK1(kw,8),XNFPK(kw,1) + COMMON /BMG/BMG1(kw,11),AMG1(kw),SMG1(kw),XNFPMG(kw,2),BMG2(kw,6) + COMMON /BNA/BNA1(kw,8),XNFPNA(kw,1) + COMMON /BO/BO1(kw,13),XNFPO(kw,1),BO2(kw,4) + COMMON /BSI/BSI1(kw,11),ASI1(kw),SSI1(kw),XNFPSI(kw,2),BSI2(kw,10) + COMMON /CONV/DLTDLP(kw),HEATCP(kw),DLRDLT(kw),VELSND(kw), + 1 GRDADB(kw),HSCALE(kw),FLXCNV(kw),VCONV(kw),MIXLTH, + 2 IFCONV + REAL*8 MIXLTH + COMMON /ELEM/ABUND(99),ATMASS(99),ELEM(99),XABUND(99),WTMOLE + COMMON /FLUX/FLUX,FLXERR(kw),FLXDRV(kw),FLXRAD(kw) + COMMON /FREQ/FREQ,FREQLG,EHVKT(kw),STIM(kw),BNU(kw),WAVENO + COMMON /FRESET/FRESET(500),RCOSET(500),NULO,NUHI,NUMNU,IFWAVE, + 1 WBEGIN,DELTAW + COMMON /HEIGHT/HEIGHT(kw) + COMMON /IF/IFCORR,IFPRES,IFSURF,IFSCAT,IFMOL,NLTEON,IFOP(20) + COMMON /ITER/ITER,IFPRNT(15),IFPNCH(15),NUMITS + COMMON /JUNK/TITLE(74),FREQID(6),WLTE,XSCALE + COMMON /MUS/ANGLE(20),SURFI(20),NMU + COMMON /OPS/ACOOL(kw),ALUKE(kw),AHOT(kw),SIGEL(kw),ALINES(kw), + 1 SIGLIN(kw),AXLINE(kw),SIGXL(kw),AXCONT(kw),SIGX(kw), + 2 SXLINE(kw),SXCONT(kw) + COMMON /OPTOT/ACONT(kw),SCONT(kw),ALINE(kw),SLINE(kw),SIGMAC(kw), + 1 SIGMAL(kw) + COMMON /PUT/PUT,IPUT + COMMON /PZERO/PZERO,PCON,PRADK0,PTURB0,KNU(kw),PRADK(kw),EDENS(kw) + REAL*8 KNU + COMMON /RAD/ACCRAD(kw),PRAD(kw) + COMMON /RHOX/RHOX(kw),NRHOX + COMMON /STATE/P(kw),XNE(kw),XNATOM(kw),RHO(kw),PTOTAL(kw) + COMMON /TAUSHJ/TAUNU(kw),SNU(kw),HNU(kw),JNU(kw),JMINS(kw) + REAL*8 JNU,JMINS + COMMON /TEFF/TEFF,GRAV,GLOG + COMMON /TEMP/T(kw),TKEV(kw),TK(kw),HKT(kw),TLOG(kw),HCKT(kw),ITEMP + COMMON /TURBPR/VTURB(kw),PTURB(kw),TRBFDG,TRBCON,TRBPOW,TRBSND, + 1 IFTURB +C + COMMON /LINDAT/WL,E,EP,LABEL(2),LABELP(2),OTHER1(2),OTHER2(2), + 1 WLVAC,CENTER,CONCEN, NELION,GAMMAR,GAMMAS,GAMMAW,REF, + 2 NBLO,NBUP,ISO1,X1,ISO2,X2,GFLOG,XJ,XJP,CODE,ELO,GF,GS,GR,GW, + 3 DWL,DGFLOG,DGAMMAR,DGAMMAS,DGAMMAW,EXTRA1,EXTRA2,EXTRA3 + 4,ALINEC(kw) + REAL*8 LINDAT8(14) + REAL*4 LINDAT(28) + EQUIVALENCE (LINDAT8(1),WL),(LINDAT(1),NELION) + REAL*8 RESOLU,RATIO,RATIOLG,SIGMA2,WLBEG,WLEND + REAL*8 WL,E,EP,WLVAC,CENTER,CONCEN + REAL*8 LABEL,LABELP,OTHER1,OTHER2 + REAL*4 GFLOG,XJ,XJP,CODE,GAMMAR,GAMMAS,GAMMAW + REAL*4 REF,X1,X2,ELO,GF,GS,GR,GW + REAL*4 DWL,DGFLOG,DGAMMAR,DGAMMAS,DGAMMAW,EXTRA1,EXTRA2,EXTRA3 + REAL*4 ALINEC + COMMON /TRASH/WLBEG,WLEND,VT,AIR,N10,IFVAC,NMU2 + COMMON /CORONO/RHOXCO(42),TCO(42),XNECO(42),SCO(42),TCOLOG(42), + 1 VCO(42),ACORON(42),SCORON(42),IFCORO,NCORO + COMMON /BONE/BONE(kw) + COMMON /PRD/PRDDOP,PRDPOW,ITPRD,NITPRD,SIGPRD(kw),NUPRD,LINPRD + REAL*4 TURBV +C DIMENSION FSCAT(kw),ASYNTH(kw) + DIMENSION FSCAT(kw) + REAL*4 ASYNTH(kw) + DIMENSION FRQEDG(377),WLEDGE(377),CMEDGE(377),CONFRQ(377) + DIMENSION DELEDGE(377),HALFEDGE(377) + REAL*8 CONTABS(3,377,kw),CONTSCAT(3,377,kw) + REAL*8 QCONTABS(1131),QCONTSCAT(1131) + DIMENSION BFUDGE(kw) +C 41=2*20+1 SO NOT EQUAL 40 + DIMENSION Q(41) + DIMENSION SURF(20) + DIMENSION APLOT(101) + DATA APLOT/101*1H / +C RHOXJ IS THE DEPTH ABOVE WHICH THE LINE SOURCE FUNCTION IS J +C R1 IS THE RESIDUAL INTENSITY AT THE BOTTOM OF THE PLOT +C R2 IS THE RESIDUAL INTENSITY AT THE TOP +C PRDPOW AND PRDDOP ARE PARTIAL REDISTRIBUTION PARAMETERS + READ(25,1)RHOXJ,R1,R101,PH1,PC1,PSI1,PRDDOP,PRDPOW + 1 FORMAT(8F10.5) + WRITE(6,1)RHOXJ,R1,R101,PH1,PC1,PSI1,PRDDOP,PRDPOW + SLOPE=100./(R101-R1) + ORIGIN=1.5-R1*SLOPE + OPEN(UNIT=5,SHARED,READONLY,TYPE='OLD') + CALL READIN(20) +C IF(IFSURF.EQ.0)THEN +C WRITE(6,*)' SURFACE FLUX OR SURFACE INTENSITY?' +C CALL ABORT +C ENDIF +C + OPEN(UNIT=10,TYPE='OLD',FORM='UNFORMATTED',READONLY,SHARED) + READ(10) + READ(10)NEDGE,(FRQEDG(IEDGE),WLEDGE(IEDGE),CMEDGE(IEDGE), + 1IEDGE=1,NEDGE) + READ(10)NCON,(CONFRQ(NU),NU=1,NCON) + WLEDGE(1)=ABS(WLEDGE(1)) + DO 2001 IEDGE=2,NEDGE + WLEDGE(IEDGE)=ABS(WLEDGE(IEDGE)) + HALFEDGE(IEDGE-1)=(WLEDGE(IEDGE-1)+WLEDGE(IEDGE))*.5 + 2001 DELEDGE(IEDGE-1)=(WLEDGE(IEDGE)-WLEDGE(IEDGE-1))**2*.5 + READ(10) + IREC=0 + DO 2003 J=1,NRHOX + READ(10) + READ(10)QCONTABS + READ(10)QCONTSCAT + READ(10) + NU=0 + DO 2002 IEDGE=1,NEDGE-1 + NU=NU+1 + CONTABS(1,IEDGE,J)=QCONTABS(NU) + CONTSCAT(1,IEDGE,J)=QCONTSCAT(NU) + NU=NU+1 + CONTABS(2,IEDGE,J)=QCONTABS(NU) + CONTSCAT(2,IEDGE,J)=QCONTSCAT(NU) + NU=NU+1 + CONTABS(3,IEDGE,J)=QCONTABS(NU) + 2002 CONTSCAT(3,IEDGE,J)=QCONTSCAT(NU) + 2003 CONTINUE + CLOSE(UNIT=10) +C + IFPRES=0 + ITEMP=1 +C CALL POPS(1.00D0,12,XNFH) +C CALL POPS(2.01D0,12,XNFHE) +C CALL POPS(1.01D0,11,XNFPH) +C CALL POPS(2.02D0,11,XNFPHE) +C CALL POPS(5.00D0,11,XNFPB) +C CALL POPS(6.01D0,11,XNFPC) +C CALL POPS(8.00D0,11,XNFPO) +C CALL POPS(11.00D0,11,XNFPNA) +C CALL POPS(12.01D0,11,XNFPMG) +C CALL POPS(13.01D0,11,XNFPAL) +C CALL POPS(14.01D0,11,XNFPSI) +C CALL POPS(20.01D0,11,XNFPCA) +C CALL POPS(26.00D0,11,XNFPFE) + CLOSE(UNIT=5) +C IF(IFMOL.EQ.0.)GO TO 445 +CC PATCH TO GET NUMBER DENSITIES BY MULTIPLYING BY PARTITION FUNCTION +C DO 444 J=1,NRHOX +C CALL PFSAHA(J,1,1,3,XNFH) +C XNFH(J)=XNFPH(J,1)*XNFH(J) +C CALL PFSAHA(J,2,2,13,XNFHE) +C XNFHE(J,1)=XNFPHE(J,1)*XNFHE(J,1) +C XNFHE(J,2)=XNFPHE(J,2)*XNFHE(J,2) +C 444 CONTINUE +C 445 CONTINUE +CC CALL W(6HXNFPH ,XNFPH ,80) +CC CALL W(6HXNFPHE,XNFPHE,120) +CC CALL W(6HXNFPC ,XNFPC ,80) +CC CALL W(6HXNFPMG,XNFPMG,80) +CC CALL W(6HXNFPAL,XNFPAL,80) +CC CALL W(6HXNFPSI,XNFPSI,80) + DO 4 J=1,NRHOX + BONE(J)=1. + BFUDGE(J)=BHYD(J,1)**PH1*(BC1(J,1)/BC2(J,1))**PC1* + 1(BSI1(J,1)/BSI2(J,1))**PSI1 + IF(RHOXJ.EQ.0.)GO TO 4 + FSCAT(J)=0. + IF(RHOX(J)/RHOXJ.LT.100.)FSCAT(J)=EXP(-RHOX(J)/RHOXJ) + 4 CONTINUE + CALL W(6HFSCAT ,FSCAT,NRHOX) + CALL W(6HBFUDGE,BFUDGE,NRHOX) + 5 CONTINUE + IFPRES=0 + ITEMP=1 + REWIND 7 + REWIND 9 + READ(9)WLBEG,RESOLU,WLEND,LENGTH,N,LINOUT,TURBV,IFVAC + READ (9)NEDGE,(FRQEDG(IEDGE),WLEDGE(IEDGE),CMEDGE(IEDGE), + 1IEDGE=1,NEDGE) +C PATCH TO PASS IFVAC TO PLOTSY + TITLE(74)=1HA + IF(IFVAC.EQ.1)TITLE(74)=1HV + N30=N+30 + WRITE(6,11)WLBEG,RESOLU,WLEND,LENGTH,N + 11 FORMAT(7H WLBEG=,F10.4,10H RESOLU=,F10.1,9H WLEND=,F10.4, + 110H LENGTH=,I7,9H NRHOX=,I2) + N10=0 + DO 6 J=1,NRHOX + 6 VTURB(J)=VTURB(J)+TURBV*1.E5 + RATIO=1.+1./RESOLU + RATIOLG=DLOG(RATIO) + IXWL=DLOG(WLBEG)/RATIOLG + WBEGIN=DEXP(IXWL*RATIOLG) + IF(WBEGIN.LT.WLBEG)THEN + IXWL=IXWL+1 + WBEGIN=DEXP(IXWL*RATIOLG) + ENDIF + DELTAW=RESOLU + NULO=1 + NUHI=LENGTH + NUMNU=LENGTH + WLBEG=WBEGIN + WLEND=WBEGIN*RATIO**(NUHI-1) + WRITE(6,31)NUMNU,DELTAW,WLBEG,WLEND + 31 FORMAT(I10,3F13.4) + IF(IFSURF.EQ.1)WRITE(6,41) + 41 FORMAT(13H SURFACE FLUX) + IF(IFSURF.EQ.2)WRITE(6,42)NMU,(ANGLE(MU),MU=1,NMU) + 42 FORMAT(18H SURFACE INTENSITY,I3/20F6.3) + NMU2=NMU*2 +C IF(PRDDOP.GT.0.)CALL PRDJNU(RHOXJ) + IEDGE=1 + DO 25 NU=NULO,NUHI +C NUPRD=NU + WAVE=WBEGIN*RATIO**(NU-1) + 2004 IF(WAVE.LT.WLEDGE(IEDGE+1))GO TO 2005 + IEDGE=IEDGE+1 + GO TO 2004 +C C1=(WAVE-WAVE2)*(WAVE-WAVE3)/(WAVE1-WAVE2)/(WAVE1-WAVE3) +C C2=(WAVE-WAVE1)*(WAVE-WAVE3)/(WAVE2-WAVE1)/(WAVE2-WAVE3) +C C3=(WAVE-WAVE1)*(WAVE-WAVE2)/(WAVE3-WAVE1)/(WAVE3-WAVE2) + 2005 C1=(WAVE-HALFEDGE(IEDGE))*(WAVE-WLEDGE(IEDGE+1))/DELEDGE(IEDGE) + C2=(WLEDGE(IEDGE)-WAVE)*(WAVE-WLEDGE(IEDGE+1))*2./DELEDGE(IEDGE) + C3=(WAVE-WLEDGE(IEDGE))*(WAVE-HALFEDGE(IEDGE))/DELEDGE(IEDGE) + DO 2006 J=1,NRHOX + ACONT(J)=10.**(C1*CONTABS(1,IEDGE,J)+C2*CONTABS(2,IEDGE,J)+ + 1 C3*CONTABS(3,IEDGE,J)) + 2006 SIGMAC(J)=10.**(C1*CONTSCAT(1,IEDGE,J)+C2*CONTSCAT(2,IEDGE,J)+ + 1 C3*CONTSCAT(3,IEDGE,J)) +C + FREQ=2.99792458D17/WAVE + FREQ15=FREQ/1.D15 + FREQLG= LOG(FREQ) + DO 20 J=1,NRHOX + EHVKT(J)=EXP(-FREQ*HKT(J)) + STIM(J)=1.-EHVKT(J) + BNU(J)=1.47439D-02*FREQ15**3*EHVKT(J)/STIM(J) + ALINE(J)=0. + SIGMAL(J)=0. + SLINE(J)=BNU(J) + 20 SCONT(J)=BNU(J) + CALL JOSH(IFSCAT,IFSURF) + DO 21 MU=1,NMU + IF(IFSURF.EQ.1)SURF(MU)=HNU(1) + IF(IFSURF.EQ.2)SURF(MU)=SURFI(MU) + 21 CONTINUE +C IF(IFOP(14).EQ.1)CALL HLINOP +C IF(IFOP(17).EQ.1)CALL XLINOP + IF(NU.EQ.1)WRITE(6,33) + 33 FORMAT(1H1) + READ(9)ASYNTH + DO 241 J=1,NRHOX +C ALINE(J)=AHLINE(J)+ASYNTH(J)*(1.-FSCAT(J))+AXLINE(J) + ALINE(J)=ASYNTH(J)*(1.-FSCAT(J)) +C SLINE(J)=BNU(J) +C ASSUMES BUP=1 +C SSYNTH=BNU(J)*STIM(J)/(BFUDGE(J)-EHVKT(J)) + SLINE(J)=BNU(J)*STIM(J)/(BFUDGE(J)-EHVKT(J)) +C IF(ALINE(J).GT.0.)SLINE(J)=(AHLINE(J)*SHLINE(J)+ASYNTH(J)*SSYNTH* +C 1(1.-FSCAT(J))+AXLINE(J)*SXLINE(J))/ALINE(J) + 241 SIGMAL(J)=ASYNTH(J)*FSCAT(J) + CALL JOSH(1,IFSURF) + + 24 DO 250 MU=1,NMU + IF(IFSURF.EQ.1)RESID=HNU(1)/SURF(MU) + IF(IFCORO.EQ.1)CALL CORINT + IF(IFSURF.EQ.2)RESID=SURFI(MU)/SURF(MU) + IF(NU.GT.ABS(LINOUT))GO TO 230 + IF(MU.GT.1)GO TO 230 + IRESID=RESID*1000.+.5 + IPLOT=RESID*SLOPE+ORIGIN + IPLOT=MAX0(1,MIN0(101,IPLOT)) + APLOT(IPLOT)=1HX + WRITE(6,2300)NU,WAVE,IRESID,APLOT + 2300 FORMAT(1H ,I5,F11.4,I7,101A1) + APLOT(IPLOT)=(1H ) + 230 CONTINUE + Q(MU)=RESID*SURF(MU) + Q(MU+NMU)=SURF(MU) + 250 CONTINUE + IF(NU.GT.1)GO TO 251 + REWIND 7 + WRITE(7)TEFF,GLOG,TITLE,WBEGIN,DELTAW,NUMNU,IFSURF,NMU,ANGLE, + 1NEDGE,WLEDGE + 251 CONTINUE + WRITE(7)(Q(I),I=1,NMU2) + 25 CONTINUE +C + IF(NMU.GT.10)IFSURF=1 + NMU=1 + MU=1 + READ(9)NLINES + N910=NLINES+N10 + WRITE(7)N910 + WRITE(6,80)NLINES,N10,N910 + 80 FORMAT(3I10) + IF(NLINES.EQ.0)GO TO 100 + WAVOLD=0. + IEDGE=1 + DO 90 ILINE=1,NLINES + READ(9)LINDAT8,LINDAT,ALINEC + WAVE=WLVAC + IF(WAVE.LT.WAVOLD)IEDGE=1 + WAVOLD=WAVE + 3003 IF(WAVE.LT.WLEDGE(IEDGE+1))GO TO 3005 + IEDGE=IEDGE+1 + GO TO 3003 + 3005 C1=(WAVE-HALFEDGE(IEDGE))*(WAVE-WLEDGE(IEDGE+1))/DELEDGE(IEDGE) + C2=(WLEDGE(IEDGE)-WAVE)*(WAVE-WLEDGE(IEDGE+1))*2./DELEDGE(IEDGE) + C3=(WAVE-WLEDGE(IEDGE))*(WAVE-HALFEDGE(IEDGE))/DELEDGE(IEDGE) + DO 3006 J=1,NRHOX + ACONT(J)=10.**(C1*CONTABS(1,IEDGE,J)+C2*CONTABS(2,IEDGE,J)+ + 1 C3*CONTABS(3,IEDGE,J)) + 3006 SIGMAC(J)=10.**(C1*CONTSCAT(1,IEDGE,J)+C2*CONTSCAT(2,IEDGE,J)+ + 1 C3*CONTSCAT(3,IEDGE,J)) +C + FREQ=2.99792458D17/WAVE + FREQ15=FREQ/1.D15 + FREQLG= LOG(FREQ) + DO 81 J=1,NRHOX + EHVKT(J)=EXP(-FREQ*HKT(J)) + STIM(J)=1.-EHVKT(J) + SIGPRD(J)=0. + BNU(J)=1.47439D-02*FREQ15**3*EHVKT(J)/STIM(J) + ALINE(J)=0. + SIGMAL(J)=0. + SLINE(J)=BNU(J) + 81 SCONT(J)=BNU(J) + CALL JOSH(1,IFSURF) + IF(IFSURF.EQ.1)CONCEN=HNU(1) + IF(IFSURF.EQ.2)CONCEN=SURFI(MU) + DO 82 J=1,NRHOX + ALINE(J)=AHLINE(J)+ALINEC(J)*(1.-FSCAT(J))+AXLINE(J) + SLINE(J)=BNU(J) +C ASSUMES BUP=1 + SLINEC=BNU(J)*STIM(J)/(BFUDGE(J)-EHVKT(J)) + IF(ALINE(J).GT.0.)SLINE(J)=(AHLINE(J)*SHLINE(J)+ALINEC(J)*SLINEC* + 1(1.-FSCAT(J))+AXLINE(J)*SXLINE(J))/ALINE(J) + 82 SIGMAL(J)=ALINEC(J)*FSCAT(J) + CALL JOSH(1,IFSURF) + IF(IFSURF.EQ.1)CENTER=HNU(1) + IF(IFSURF.EQ.2)CENTER=SURFI(MU) + RESID=CENTER/CONCEN +C WRITE(6,99)WL,GFLOG,XJ,E,XJP,EP,CODE,LABEL,LABELP,WLVAC,RESID, +C BCENTER,CONCEN, +C 1WL,NELION,GR,GS,GW,REF,NBLO,NBUP,ISO1,X1,ISO2,X2,OTHER1,OTHER2, +C 2DWL,DGFLOG,GAMMAR,GAMMAS,GAMMAW + 99 FORMAT(1H0,F10.4,F7.3,F5.1,F12.3,F5.1,F12.3,F9.2,1X,A8,A2,A8,A2, + 1F12.4,F9.3,1P2E11.3/ + 2 1X,0PF10.4,I4,F6.2,F6.2,F6.2,A4,I2,I2,I3,F7.3,I3,F7.3,1X, + 3A8,A2,A8,A2,F7.4,F7.3,3F6.2) + IF(WL.GT.0.)WRITE(17,98)WL,GFLOG,XJ,E,XJP,EP,CODE,LABEL,LABELP, + 1WL,NELION,GR,GS,GW,REF,NBLO,NBUP,ISO1,X1,ISO2,X2,OTHER1,OTHER2, + 2DWL,DGFLOG,DGAMMAR,DGAMMAS,DGAMMAW + IF(WL.LT.0.)WRITE(17,98)WL,GFLOG,XJ,E,XJP,EP,CODE,LABEL,LABELP, + 1WL,NELION,GR,GS,GW,REF,NBLO,NBUP,ISO1,X1,ISO2,X2,OTHER1,OTHER2, + 2DWL,DGFLOG,DGAMMAR,DGAMMAS,DGAMMAW,WL + 98 FORMAT(F10.4,F7.3,F5.1,F12.3,F5.1,F12.3,F9.2,A8,A2,A8,A2/ + 1 0PF10.4,I4,F6.2,F6.2,F6.2,A4,I2,I2,I3,F7.3,I3,F7.3, + 2A8,A2,A8,A2,F7.4,F7.3,3F6.2,F10.4) + WRITE(7)LINDAT8,LINDAT + 90 CONTINUE + 100 CONTINUE + CLOSE(UNIT=9,DISPOSE='DELETE') + IF(N10.EQ.0)GO TO 111 +C N20=N10 + REWIND 20 + WAVOLD=0. + IEDGE=1 + DO 110 ILINE=1,N10 + READ(20)LINDAT8,LINDAT + WAVE=WLVAC + IF(WAVE.LT.WAVOLD)IEDGE=1 + WAVOLD=WAVE + 4003 IF(WAVE.LT.WLEDGE(IEDGE+1))GO TO 4005 + IEDGE=IEDGE+1 + GO TO 4003 + 4005 C1=(WAVE-HALFEDGE(IEDGE))*(WAVE-WLEDGE(IEDGE+1))/DELEDGE(IEDGE) + C2=(WLEDGE(IEDGE)-WAVE)*(WAVE-WLEDGE(IEDGE+1))*2./DELEDGE(IEDGE) + C3=(WAVE-WLEDGE(IEDGE))*(WAVE-HALFEDGE(IEDGE))/DELEDGE(IEDGE) + DO 4006 J=1,NRHOX + ACONT(J)=10.**(C1*CONTABS(1,IEDGE,J)+C2*CONTABS(2,IEDGE,J)+ + 1 C3*CONTABS(3,IEDGE,J)) + 4006 SIGMAC(J)=10.**(C1*CONTSCAT(1,IEDGE,J)+C2*CONTSCAT(2,IEDGE,J)+ + 1 C3*CONTSCAT(3,IEDGE,J)) +C + FREQ=2.99792458D17/WAVE + FREQ15=FREQ/1.D15 + FREQLG= LOG(FREQ) + DO 101 J=1,NRHOX + EHVKT(J)=EXP(-FREQ*HKT(J)) + STIM(J)=1.-EHVKT(J) + ALINE(J)=0. + SIGMAL(J)=0. + BNU(J)=1.47439D-02*FREQ15**3*EHVKT(J)/STIM(J) + SLINE(J)=BNU(J) + 101 SCONT(J)=BNU(J) + CALL JOSH(1,IFSURF) + IF(IFSURF.EQ.1)CONCEN=HNU(1) + IF(IFSURF.EQ.2)CONCEN=SURFI(MU) + CALL LINCEN + IF(IFCORO.EQ.1)GO TO 102 + CALL JOSH(1,IFSURF) + IF(IFSURF.EQ.1)CENTER=HNU(1) + IF(IFSURF.EQ.2)CENTER=SURFI(MU) + GO TO 103 + 102 SURFI(MU)=SURF(MU) + CALL CORINT + CENTER=SURFI(MU) + 103 CONCEN=SURF(MU) + RESID=CENTER/CONCEN +c 29oct07 replaced missing comma after OTHER2 + WRITE(6,99)WL,GFLOG,XJ,E,XJP,EP,CODE,LABEL,LABELP,WLVAC,RESID, + BCENTER,CONCEN, + 1WL,NELION,GR,GS,GW,REF,NBLO,NBUP,ISO1,X1,ISO2,X2,OTHER1,OTHER2, + 2DWL,DGFLOG,DGAMMAR,DGAMMAS,DGAMMAW + WRITE(7)LINDAT8,LINDAT + 110 CONTINUE + CLOSE(UNIT=20,DISPOSE='DELETE') + 111 CALL EXIT + END + SUBROUTINE LINCEN + RETURN + END + SUBROUTINE CORINT + RETURN + END + SUBROUTINE ATLAS7 + END + SUBROUTINE PRDJNU + RETURN + END diff --git a/synthe/synbeg.for b/synthe/synbeg.for new file mode 100644 index 0000000..3ab1597 --- /dev/null +++ b/synthe/synbeg.for @@ -0,0 +1,131 @@ + PROGRAM SYNBEG +c revised 18oct99 +C +C SYNBEG IS THE FIRST PROGRAM IN THE SYNTHE SERIES. +C IT READS THE INPUT PARAMETERS AND INITIALIZES TAPES 12 AND 13. +C SUBSEQUENT PROGRAMS READ THE ATOMIC AND MOLECULAR LINE DATA +C AND WRITE DATA ON TAPES 12 AND 13 FOR LINES FALLING IN +C THE WAVELENGTH INTERVAL. SYNTHE READS TAPES 12 AND 13. +C PARAMETERS ARE PASSED FROM PROGRAM TO PROGRAM VIA TAPE 93. +C LINES ARE INCLUDED OR LEFT OUT BY INCLUDING OR LEAVING OUT THE +C PROGRAM THAT READS THEM. THE NAMES OF ALL THE READING PROGRAMS +C BEGIN WITH R. A SUFFIX P MEANS THAT THE PROGRAM READS BOTH +C PREDICTED AND REAL WAVELENGTHS. THE P PROGRAMS SHOULD NOT BE USED +C FOR MAKING DETAILED LINE BY LINE COMPARISONS WITH OBSERVATIONS. +C THE ORDER OF THESE READING PROGRAMS DOES NOT MATTER +CCC EXCEPT FOR RNLTE, RLINE, RKP, AND RKPP, WHICH MUST +C EXCEPT FOR RNLTE, RLINE, AND RGFIRON WHICH MUST +C COME FIRST AND IN RELATIVE ORDER IF THEY ARE USED. +C +C RNLTE READS THE NLTE LINE LIST AND SENDS THE DATA EITHER TO SPECTR +C (IFNLTE=1, N19=0) OR TO SYNTHE (IFNLTE=0, N19=NUMBER OF LINES IN +C LTE) IF THE LINES ARE TO BE TREATED IN LTE. IN EITHER CASE THE +C LINES ARE WRITTEN ON TAPE 19. +C +CCC RLINE READS ADDITIONS AND CORRECTIONS TO KP. +C RLINE READS ADDITIONS AND CORRECTIONS TO GFIRON. +C +CCCC RKP READS KP. IT ALSO READS A FILE DELETEKP OF LINE NUMBERS +CCCC OF LINES THAT ARE TO BE DELETED AND STORES THEM IN ARRAY +CCCC NDELET. RNLTE AND RLINE WRITE IN THIS ARRAY IF THEY HAVE A +CCCC LINE THAT IS ALSO IN KP. A LIST OF IONS TO BE TOTALLY DELETED +CCCC FROM KP IS ALSO INCLUDED ON DELETEKP AND IS STORED IN ARRAY NELDLT. +C RGFIRON READS GFIRON. IT ALSO READS A FILE DELETEGFIRON OF LINE NUMBERS +C OF LINES THAT ARE TO BE DELETED AND STORES THEM IN ARRAY +C NDELET. RNLTE AND RLINE WRITE IN THIS ARRAY IF THEY HAVE A +C LINE THAT IS ALSO IN GFIRON. A LIST OF IONS TO BE TOTALLY DELETED +C FROM GFIRON IS ALSO INCLUDED ON DELETEGFIRON AND IS STORED IN ARRAY NELDLT. +C THE PRESENT TIME ATLAS7 CANNOT TREAT THE LINES ABOVE THE FIFTH STAGE OF +C IONIZATION BECAUSE PFSAHA HAS NOT YET BEEN REWRITTEN. +C +CCCC RKPP READS PREDICTED KP LINES FROM THE MILLION LINE TAPE. +C +C RBELL READS BELLLIGHT.DAT AND BELLHEAVY.DAT. THESE ARE THE LIGHT AND +C HEAVY ELEMENTS, I.E., NOT IRON GROUP, FROM KP AND VARIOUS LABORATORY +C SOURCES. THE LISTS WERE PREPARED BY BARBARA BELL. SOME OF THE LINES ARE +C GUESSED SO THAT A LINE WILL APPEAR IN THE RIGHT POSITION EVEN IF IT HAS +C THE WRONG LOG GF. +C +C DO NOT USE THESE DATA BLINDLY FOR AN ABUNDANCE ANALYSIS. +C + PARAMETER (kw=99) + DIMENSION DECKJ(7,kw) + REAL*8 WLBEG,WLEND,RESOLU,RATIO,RATIOLG + REAL*8 WBEGIN,WLLAST + DATA DECKJ/kw*0.,kw*0.,kw*0.,kw*0.,kw*0.,kw*0.,kw*0./ + READ(5,1)AIRVAC,WLBEG,WLEND,RESOLU,TURBV,IFNLTE,LINOUT, + 1CUTOFF,IFPRED,NREAD + 1 FORMAT(A3,7X,4F10.4,I3,I7,F10.5,2I5) + WRITE(6,2)AIRVAC,WLBEG,WLEND,RESOLU,TURBV,IFNLTE,LINOUT, + 1CUTOFF,IFPRED,NREAD + 2 FORMAT(1H0,A3,9H WLBEG=,F10.4,9H WLEND=,F10.4, + 1 10H RESOLU=,F10.1,9H TURBV=,F5.2,10H IFNLTE=,I1, + 2 10H LINOUT=,I6,10H CUTOFF=,F7.5,10H IFPRED=,I1/ + 3 8H NREAD,I3) +C RESOLU IS THE RESOLUTION OF THE POINT SPACING IN WL/DELTA WL +C THUS .001 NM AT 500 NM IS 500000. +C TURBV IS ADDED TO ANY MICROTURBULENCE ALREADY PRESENT IN THE MODEL +C IFNLTE=0 SYNTHE COMPUTES NLTELINES IN LTE +C IFNLTE=1 SPECTR COMPUTES NLTELINES IN NLTE +C LINOUT IS LIMIT ON PRINTOUT OF SPECTRUM +C +C LINOUT IS ALSO A SWITCH THAT TURNS OFF SAVING LINE DATA IN ORDER TO +C SPEED UP THE PROGRAMS AND SAVE ON STORAGE. IF LINOUT.LT.0 LINE +C DATA ARE NOT SAVED. IF LINOUT.GE.0 LINE DATA ARE SAVED. +C +C IFVAC DOES NOT WORK PROPERLY FOR ALL LINES ON THE KP TAPE +C CUTOFF IS THE FRACTION OF THE CONTINUUM OPACITY BELOW WHICH +C WINGS OF LINES ARE NOT COMPUTED +C IFPRED=0 LEAVE OUT LINES WITH PREDICTED WAVELENGTHS +C IFPRED=1 USE ALL LINES +C IF NREAD GT 0 READ NREAD CARDS CONTAINING DEPTH DEPENDENT +C VARIABLES FOR THE MODEL SUCH AS DEPTH DEPENDENT DOPPLER +C SHIFTS AND MAGNETIC FIELDS. UP TO SEVEN VARIABLES ARE PASSED. + IFVAC=1 + IF(AIRVAC.EQ.3HAIR)IFVAC=0 + IF(AIRVAC.EQ.3HVAC)IFVAC=1 + RATIO=1.+1./RESOLU + RATIOLG=DLOG(RATIO) + IXWLBEG=DLOG(WLBEG)/RATIOLG + WBEGIN=DEXP(IXWLBEG*RATIOLG) + IF(WBEGIN.LT.WLBEG)THEN + IXWLBEG=IXWLBEG+1 + WBEGIN=DEXP(IXWLBEG*RATIOLG) + ENDIF + IXWLEND=DLOG(WLEND)/RATIOLG + WLLAST=DEXP(IXWLEND*RATIOLG) + IF(WLLAST.GE.WLEND)THEN + IXWLEND=IXWLEND-1 + WLLAST=DEXP(IXWLEND*RATIOLG) + ENDIF + LENGTH=IXWLEND-IXWLBEG+1 + DWLBEG=WBEGIN*RATIO-WBEGIN + DWLLAST=WLLAST-WLLAST/RATIO + WRITE(6,3)LENGTH,RATIO,WBEGIN,DWLBEG,WLLAST,DWLLAST + 3 FORMAT('0LENGTH=',I6,' RATIO=',F12.10,' WBEGIN=',F11.5, + 1 ' DWLBEG=',F7.5,' WLLAST=',F11.5,' DWLLAST=',F7.5) + N19=0 +C DO 5 ILINE=1,50000 +C 5 NDELET(ILINE)=0 +C DO 6 NELION=1,594 +C 6 NELDLT(NELION)=1 + NLINES=0 + IF(NREAD.GT.0)THEN + READ(5,7) + DO 9 I=1,NREAD + READ(5,7)J,(DECKJ(K,J),K=1,7) + 7 FORMAT(I3,7X,7F10.3) + 9 WRITE(6,7)J,(DECKJ(K,J),K=1,7) + ENDIF + OPEN(UNIT=12,STATUS='NEW',FORM='UNFORMATTED') + CLOSE(UNIT=12) + OPEN(UNIT=14,STATUS='NEW',FORM='UNFORMATTED') + CLOSE(UNIT=14) + OPEN(UNIT=19,STATUS='NEW',FORM='UNFORMATTED') + CLOSE(UNIT=19) + OPEN(UNIT=20,STATUS='NEW',FORM='UNFORMATTED') + CLOSE(UNIT=20) + WRITE(93)NLINES,LENGTH,IFVAC,IFNLTE,N19,TURBV,DECKJ,IFPRED, + 1WLBEG,WLEND,RESOLU,RATIO,RATIOLG,CUTOFF,LINOUT + CALL EXIT + END diff --git a/synthe/synthe.for b/synthe/synthe.for new file mode 100644 index 0000000..73a15bc --- /dev/null +++ b/synthe/synthe.for @@ -0,0 +1,2978 @@ + PROGRAM SYNTHE +c revised 11nov14 modified to agree with Fiorella Castelli's Linux version +c including He I lines and reverting to her HPROF +c revised 4nov14 constants given D exponents +c revised 5mar02 Jo Bruls found dimensions of CONTX too small, now 26 +c revised 20jul01 John Lester found dimensions of CONTX too small, now 25 +c revised 14nov99 +C THIS PROGRAM IS REAL*4 EXCEPT FOR WAVELENGTHS AND ENERGY LEVELS +C REAL*8 INPUT ON TAPE10 IS CONVERTED TO REAL*4 +C +C TAPE5 INPUT +C TAPE6 OUTPUT +C TAPE7 temporary file for line identifications +C TAPE8 file that passes the number of lines to SPECTRV +C TAPE9 output opacity vectors and line data +C TAPE10 input from XNFPELSYN +C TAPE12 input line data needed for calculation +C TAPE13 input line data, all data for each line +C TAPE14 temporary file of opacity spectra +C TAPE15 temporary file of opacity vectors for each line +C TAPE19 input line data from RNLTE +C TAPE93 parameters for this run from SYNBEG + PARAMETER (kw=99) + PARAMETER (LENREC=8000,MAXLEN=2000001,MAXPROF=10000, + 1 MAXBUFF=MAXLEN+MAXPROF,MAXLIN=MAXBUFF+MAXPROF*2) +C LENREC transposition is done in blocks of LENRECxkw +C MAXLEN number of points in the spectrum +C MAXPROF number of points in either wing of a line with a Voigt profile + COMMON /BUFFER/BUFFER(MAXBUFF),PROFILE(MAXPROF) + DIMENSION LINE(MAXLIN) + DIMENSION TRANSP(kw,LENREC),RECORD(LENREC),INDEXR(5000) + EQUIVALENCE (BUFFER(1),LINE(1),TRANSP(1)) +C DIMENSION TRANSP(55000,kw) + COMMON /CONTIN/CONTINUUM(MAXBUFF) + COMMON /BHE/BHE1(kw,29),AHE1(kw),SHE1(kw),BHE2(kw,6),AHE2(kw), + 1 SHE2(kw),AHEMIN(kw),SIGHE(kw),XNFPHE(kw,3),XNFHE(kw,2) + COMMON /BHYD/BHYD(kw,8),AHYD(kw),SHYD(kw),AH2P(kw),BMIN(kw), + 1 AHMIN(kw),SHMIN(kw),SIGH(kw),SIGH2(kw),AHLINE(kw), + 2 SHLINE(kw),XNFPH(kw,2),XNFH(kw) + COMMON /EXTAB/EXTAB(1001),EXTABF(1001),E1TAB(2000) + COMMON /H1TAB/H0TAB(2001),H1TAB(2001),H2TAB(2001) + COMMON /LINDAT/WL,E,EP,LABEL(2),LABELP(2),OTHER1(2),OTHER2(2), + 1 WLVAC,CENTER,CONCEN, NELION,GAMMAR,GAMMAS,GAMMAW,REF, + 2 NBLO,NBUP,ISO1,X1,ISO2,X2,GFLOG,XJ,XJP,CODE,ELO,GF,GS,GR,GW, + 3 DWL,DGFLOG,DGAMMAR,DGAMMAS,DGAMMAW,EXTRA1,EXTRA2,EXTRA3 + COMMON /NLINES/WLBEG,WLEND,RESOLU,RATIO,RATIOLG,WBEGIN, + 1 LENGTH,MLINES,IXWLBEG + COMMON /RHOX/RHOX(kw),NRHOX + COMMON /STATE/P(kw),XNE(kw),XNATOM(kw),RHO(kw),PTOTAL(kw) + COMMON /TEMP/T(kw),TKEV(kw),TK(kw),HKT(kw),TLOG(kw),HCKT(kw),ITEMP + COMMON /TURBPR/VTURB(kw),PTURB(kw),TRBFDG,TRBCON,TRBPOW,TRBSND, + 1 IFTURB + COMMON /TXNXN/EMERGE(kw),TXNXN(kw),BSTIM(kw),XNFH2(kw) + COMMON /XNFDOP/XNFPEL(594),DOPPLE(594),XNFDOP(594) + common /elem/abund(99),atmass(99),elem(99) + DIMENSION ABLOG(3,377),IFTP(kw),ABMIN(kw),MLINEJ(kw) + DIMENSION ASYNTH(kw),ALINEC(kw),ASYNCONT(kw),ALINECONT(kw) + DIMENSION DECKJ(7,kw) + DIMENSION VELSHIFT(kw),HFIELD(kw) + DIMENSION TITLE(74),IDMOL(60),MOMASS(60) + REAL*8 FRQEDG(377),WLEDGE(377),CMEDGE(377),CONFRQ(1131) + REAL*8 DELEDGE(377),HALFEDGE(377) + REAL KAPPA0,KAPPA,KAPCEN,KAPMIN + REAL*8 QT(kw),QTKEV(kw),QTK(kw),QHKT(kw),QTLOG(kw),QHCKT(kw) + REAL*8 QP(kw),QXNE(kw),QXNATOM(kw),QRHO(kw),QRHOX(kw),QVTURB(kw) + REAL*8 QXNFH(kw),QXNFHE(kw,2),QXNFH2(kw),QDOPPLE(594),QXNFPEL(594) + REAL*8 QABLOG(1131),QXNFDOP(594),QCONGF +C REAL*8 ASYNTH,ALINEC,TITLE,TEFF,GLOG,IDMOL,MOMASS + REAL*8 TITLE,TEFF,GLOG,IDMOL,MOMASS + dimension hfactor(kw),hefactor(kw),h2factor(kw) + REAL*8 CONWAV,CONCM,WAVE + REAL*8 LINDAT8(14) + REAL*4 LINDAT4(28) + EQUIVALENCE (LINDAT8(1),WL),(LINDAT4(1),NELION) + REAL*8 RESOLU,RATIO,RATIOLG,SIGMA2,WLBEG,WLEND,WBEGIN + REAL*8 EMERGE + REAL*8 WL,E,EP,WLVAC,CENTER,CONCEN + REAL*8 LABEL,LABELP,OTHER1,OTHER2 + real*8 wavel +C + FASTEX(X)=EXTAB(IFIX(X)+1)* + 1EXTABF(IFIX((X-FLOAT(IFIX(X)))*1000.+1.5)) +C + READ(93)NLINES,LENGTH,IFVAC,IFNLTE,N19,TURBV,DECKJ,IFPRED, + 1WLBEG,WLEND,RESOLU,RATIO,RATIOLG,CUTOFF,LINOUT + IXWLBEG=DLOG(WLBEG)/RATIOLG + WBEGIN=DEXP(IXWLBEG*RATIOLG) + IF(WBEGIN.LT.WLBEG)THEN + IXWLBEG=IXWLBEG+1 + WBEGIN=DEXP(IXWLBEG*RATIOLG) + ENDIF + CLOSE(UNIT=93,DISP='DELETE') + OPEN(UNIT=10,STATUS='OLD',FORM='UNFORMATTED',READONLY,SHARED) + OPEN(UNIT=12,STATUS='OLD',FORM='UNFORMATTED',ACCESS='APPEND') + OPEN(UNIT=13,STATUS='NEW',FORM='UNFORMATTED') + OPEN(UNIT=14,STATUS='OLD',FORM='UNFORMATTED',ACCESS='APPEND') + OPEN(UNIT=19,STATUS='OLD',FORM='UNFORMATTED',ACCESS='APPEND') + OPEN(UNIT=20,STATUS='OLD',FORM='UNFORMATTED',ACCESS='APPEND') + IF(LINOUT.LT.0.)GO TO 3442 + IF(N19.GT.0)THEN + REWIND 20 + DO 3440 I=1,N19 + READ(20)LINDAT8,LINDAT4 + 3440 WRITE(13)LINDAT8,LINDAT4 + ENDIF + IF(NLINES.GT.0)THEN + REWIND 14 + DO 3441 I=1,NLINES + READ(14)LINDAT8,LINDAT4 + 3441 WRITE(13)LINDAT8,LINDAT4 + ENDIF + 3442 CLOSE(UNIT=20,DISP='DELETE') + CLOSE(UNIT=14,DISP='DELETE') + OPEN(UNIT=14,TYPE='NEW',FORM='UNFORMATTED',RECORDTYPE='FIXED', + 1ACCESS='DIRECT',BLOCKSIZE=LENREC*4,RECORDSIZE=LENREC) +C + DO 3456 I=1,1001 + EXTAB(I)=EXP(-FLOAT(I-1)) + 3456 EXTABF(I)=EXP(-FLOAT(I-1)*.001) + DO 3457 I=1,2000 + 3457 E1TAB(I)=EXPI(1,FLOAT(I)*.01) +C PRETABULATE VOIGT FUNCTION +C 200 STEPS PER DOPPLER WIDTH + VSTEPS=200. + CALL TABVOIGT(VSTEPS,2001) +C + READ(10)NRHOX,TEFF,GLOG,TITLE + WRITE(6,2000)TEFF,GLOG,TITLE + 2000 FORMAT(6H TEFF=,F10.1,3X,5HGRAV=,F6.3,3X,74A1) + READ(10)NEDGE,(FRQEDG(IEDGE),WLEDGE(IEDGE),CMEDGE(IEDGE), + 1IEDGE=1,NEDGE),IDMOL,MOMASS + READ(10)NCON,(CONFRQ(NU),NU=1,NCON) + WLEDGE(1)=ABS(WLEDGE(1)) + DO 2001 IEDGE=2,NEDGE + WLEDGE(IEDGE)=ABS(WLEDGE(IEDGE)) + HALFEDGE(IEDGE-1)=(WLEDGE(IEDGE-1)+WLEDGE(IEDGE))*.5 + 2001 DELEDGE(IEDGE-1)=(WLEDGE(IEDGE)-WLEDGE(IEDGE-1))**2*.5 +C + ITEMP=1 +C READ(10)T,TKEV,TK,HKT,TLOG,HCKT,P,XNE,XNATOM,RHO,RHOX,VTURB, +C 1XNFH,XNFHE,XNFH2 +C ON VAX VARIABLES ARE READ REAL*8 AND CONVERTED TO REAL*4 + READ(10)QT,QTKEV,QTK,QHKT,QTLOG,QHCKT,QP,QXNE,QXNATOM,QRHO, + 1QRHOX,QVTURB,QXNFH,QXNFHE,QXNFH2 + DO 2010 J=1,NRHOX + T(J)=QT(J) + TKEV(J)=QTKEV(J) + TK(J)=QTK(J) + HKT(J)=QHKT(J) + TLOG(J)=QTLOG(J) + HCKT(J)=QHCKT(J) + P(J)=QP(J) + XNE(J)=QXNE(J) + XNATOM(J)=QXNATOM(J) + RHO(J)=QRHO(J) + RHOX(J)=QRHOX(J) + VTURB(J)=QVTURB(J) + XNFH(J)=QXNFH(J) + XNFHE(J,1)=QXNFHE(J,1) + XNFHE(J,2)=QXNFHE(J,2) + 2010 XNFH2(J)=QXNFH2(J) +C + DO 2011 J=1,kw + VELSHIFT(J)=DECKJ(1,J) + HFIELD(J)=DECKJ(2,J) + 2011 CONTINUE +C + WRITE(9)WLBEG,RESOLU,WLEND,LENGTH,NRHOX,LINOUT,TURBV,IFVAC + WRITE(9)NEDGE,(FRQEDG(IEDGE),WLEDGE(IEDGE),CMEDGE(IEDGE), + 1IEDGE=1,NEDGE),IDMOL,MOMASS +C + ILINES=0 + N12=NLINES + NLINES=NLINES+N19 + IREC=0 + DO 500 J=1,NRHOX + REWIND 12 +C INITIALIZE BUFFER + DO 210 NBUFF=1,LENGTH + 210 BUFFER(NBUFF)=0. + READ(10)QABLOG + READ(10) + READ(10) + NU=0 + DO 2002 IEDGE=1,NEDGE-1 + NU=NU+1 + ABLOG(1,IEDGE)=QABLOG(NU) + NU=NU+1 + ABLOG(2,IEDGE)=QABLOG(NU) + NU=NU+1 + 2002 ABLOG(3,IEDGE)=QABLOG(NU) + IEDGE=1 + DO 2005 NBUFF=1,LENGTH + WAVE=WBEGIN*RATIO**(NBUFF-1) + 2003 IF(WAVE.LT.WLEDGE(IEDGE+1))GO TO 2005 + IEDGE=IEDGE+1 + GO TO 2003 + 2005 CONTINUUM(NBUFF)= + 1((WAVE-HALFEDGE(IEDGE))*(WAVE-WLEDGE(IEDGE+1))*ABLOG(1,IEDGE)+ + 2 (WLEDGE(IEDGE)-WAVE)*(WAVE-WLEDGE(IEDGE+1))*2.*ABLOG(2,IEDGE)+ + 3 (WAVE-WLEDGE(IEDGE))*(WAVE-HALFEDGE(IEDGE))*ABLOG(3,IEDGE))/ + 4 DELEDGE(IEDGE) + DO 2006 NBUFF=1,LENGTH + 2006 CONTINUUM(NBUFF)=10.**CONTINUUM(NBUFF) +C + READ(10)QXNFPEL,QDOPPLE + WRITE(28,2828)J,QXNFPEL + 2828 FORMAT(I5/(1P6E21.14)) +C IF(IFTP(J).EQ.0)GO TO 400 + XNFPH(J,1)=QXNFPEL(1) + XNFPH(J,2)=QXNFPEL(2) + XNFPHE(J,1)=QXNFPEL(7) + XNFPHE(J,2)=QXNFPEL(8) + XNFPHE(J,3)=QXNFPEL(9) + DO 203 NELION=1,594 + XNFPEL(NELION)=0. +C PATCH FOR NLTE HELIUM WHERE CAN GET OVERFLOW ON VAX +C NLTE HELIUM IS NOT COMPUTED BY SYNTHE IN ANY CASE + IF(QXNFPEL(NELION).LT.1.D25)XNFPEL(NELION)=QXNFPEL(NELION) + 203 CONTINUE + DO 205 NELION=1,594 + QDOPPLE(NELION)=SQRT(QDOPPLE(NELION)**2+(TURBV/299792.458D0)**2) + DOPPLE(NELION)=QDOPPLE(NELION) +C PROBLEMS WITH OVERFLOW + XNFPEL(NELION)=XNFPEL(NELION)/RHO(J) + QXNFDOP(NELION)=QXNFPEL(NELION)/QRHO(J)/QDOPPLE(NELION) + 205 XNFDOP(NELION)=QXNFDOP(NELION) + TXNXN(J)=(XNFH(J)+.42D0*XNFHE(J,1)+.85D0*XNFH2(J))* + 1(T(J)/10000.D0)**.3 +C +C DOPPLER SHIFT IN POINT NUMBERS + NVSHIFT=RESOLU*VELSHIFT(J)/299792.458D0+.5D0 + WRITE(6,215)J,VELSHIFT(J),NVSHIFT + 215 FORMAT(I5,' VELOCITY SHIFT',F9.3,I7) +C ADD LINES TO BUFFER + MLINES=0 + IF(N19.GT.0)CALL XLINOP(J,N19,CUTOFF,VELSHIFT(J),IFVAC,LINOUT) + IF(N12.EQ.0)GO TO 400 + N191=N19+1 + alpha=0. + DO 350 ILINE=N191,NLINES + READ(12)NBUFF,CONGF,NELION,ELO,GAMRF,GAMSF,GAMWF +c +c include Barklem, Anstee, and O'Mara van der Waals +c READ(12)NBUFF,CONGF,NELION,ELO,GAMRF,GAMSF,GAMWF,alpha +c + QCONGF=CONGF + KAPPA0=CONGF*QXNFDOP(NELION) +C KAPPA0=CONGF*XNFDOP(NELION) +C PROBLEMS WITH OVERFLOW ON VAX +C KAPPA0=CONGF/DOPPLE(NELION)*XNFPEL(NELION) + KAPMIN=CONTINUUM(MIN(MAX(NBUFF,1),LENGTH))*CUTOFF + IF(KAPPA0.LT.KAPMIN)GO TO 350 + KAPPA0=KAPPA0*FASTEX(ELO*HCKT(J)) +C KAPPA0=KAPPA0*EXP(-ELO*HCKT(J)) + IF(KAPPA0.LT.KAPMIN)GO TO 350 +C +c Castelli for Barklem, Anstee, and O'mara van der Waals broadening + if(alpha.ne.0.)then + nelem=int(nelion/6)+1 + v2=(1.-alpha)/2 + wavel=wbegin*ratio**(nbuff-1) + type*,wavel,nelem,alpha,v2 + hfactor(j)=(t(j)/10000.)**v2 + hefactor(j)=0.628*(2.0991D-4*T(j)*(1/4+1.008/atmass(nelem)))**v2 + h2factor(j)=1.08*(2.0991D-4*T(j)*(1/2+1.008/atmass(nelem)))**v2 + txnxn(j)=xnfh(j)*hfactor(j)+xnfhe(J,1)*hefactor(j)+xnfh2(j)*h2factor(j) + endif +c +C VOIGT APPROXIMATION ACCURATE ONLY TO ADAMP**2 + ADAMP=(GAMRF+GAMSF*XNE(J)+GAMWF*TXNXN(J))/DOPPLE(NELION) + NBUFF=NBUFF+NVSHIFT + IF(NBUFF.LT.1.OR.NBUFF.GT.LENGTH)GO TO 320 + MLINES=MLINES+1 + IF(ADAMP.LT..2)THEN + KAPCEN=KAPPA0*(1.-1.128*ADAMP) + ELSE + KAPCEN=KAPPA0*VOIGT(0.,ADAMP) + ENDIF + IF(LINOUT.GE.0)WRITE(15)ILINE,KAPCEN + BUFFER(NBUFF)=BUFFER(NBUFF)+KAPCEN +C PROFILE INSIDE 10 DOPPLER WIDTHS + 320 N10DOP=10.*(DOPPLE(NELION)*RESOLU) + IF(ADAMP.LT..2)THEN + TABSTEP=VSTEPS/(DOPPLE(NELION)*RESOLU) + TABI=1.5 + DO 321 NSTEP=1,N10DOP + TABI=TABI+TABSTEP + PROFILE(NSTEP)=KAPPA0*(H0TAB(IFIX(TABI))+ADAMP*H1TAB(IFIX(TABI))) + IF(PROFILE(NSTEP).LT.KAPMIN)GO TO 323 + 321 CONTINUE + ELSE + DVOIGT=1./DOPPLE(NELION)/RESOLU + DO 1321 NSTEP=1,N10DOP + PROFILE(NSTEP)=KAPPA0*VOIGT(FLOAT(NSTEP)*DVOIGT,ADAMP) + IF(PROFILE(NSTEP).LT.KAPMIN)GO TO 323 + 1321 CONTINUE + ENDIF +C FAR WINGS + X=PROFILE(N10DOP)*FLOAT(N10DOP)**2 + MAXSTEP=SQRT(X/KAPMIN)+1. + MAXSTEP=MIN(MAXSTEP,MAXPROF) + N1=N10DOP+1 + DO 322 NSTEP=N1,MAXSTEP + 322 PROFILE(NSTEP)=X/FLOAT(NSTEP)**2 + NSTEP=MAXSTEP + 323 IF(NBUFF+NSTEP.LT.1.OR.NBUFF-NSTEP.GT.LENGTH)GO TO 350 + IF(NBUFF.GE.LENGTH)GO TO 325 +C RED WING + MAXRED=MIN0(LENGTH-NBUFF,NSTEP) + MINRED=MAX0(1,1-NBUFF) + DO 324 ISTEP=MINRED,MAXRED + 324 BUFFER(NBUFF+ISTEP)=BUFFER(NBUFF+ISTEP)+PROFILE(ISTEP) + IF(NBUFF.LE.1)GO TO 350 +C BLUE WING + 325 MAXBLUE=MIN0(NBUFF-1,NSTEP) + MINBLUE=MAX0(1,NBUFF-LENGTH) + DO 326 ISTEP=MINBLUE,MAXBLUE + 326 BUFFER(NBUFF-ISTEP)=BUFFER(NBUFF-ISTEP)+PROFILE(ISTEP) + 350 CONTINUE +C + 400 CONTINUE +C MEMORY TRANSPOSITION +C DO 26 I=1,LENGTH +C 26 TRANSP(I,J)=BUFFER(I) +C DIRECT IO TRANSPOSITION + NUMREC=(LENGTH+LENREC-1)/LENREC + DO 26 NBEG=1,LENGTH,LENREC + IREC=IREC+1 + NEND=NBEG+LENREC-1 + WRITE(14,REC=IREC)(BUFFER(I),I=NBEG,NEND) + 26 CONTINUE + WRITE(6,499)J,MLINES + 499 FORMAT(30X,2I10,' LINES USED') + MLINEJ(J)=MLINES + ILINES=ILINES+MLINES + 500 CONTINUE + WRITE(6,106)ILINES + 106 FORMAT(I10) +C +C DIRECT IO TRANSPOSITION + N9=0 + DO 99 N=1,NUMREC + WRITE(6,106)N + DO 93 J=1,NRHOX + IREC=J*NUMREC-NUMREC+N + READ(14,REC=IREC)(TRANSP(J,I),I=1,LENREC) + 93 CONTINUE + NOUT=LENREC + LASTREC=LENGTH-NUMREC*LENREC+LENREC + IF(N.EQ.NUMREC)NOUT=LASTREC + DO 95 I=1,NOUT + N9=N9+1 + WAVE=WBEGIN*RATIO**(N9-1) + FREQ=2.99792458D17/WAVE + DO 94 J=1,NRHOX + 94 ASYNTH(J)=TRANSP(J,I)*(1.-EXP(-FREQ*HKT(J))) + WRITE(29,2929)WAVE,(ASYNTH(J),J=1,NRHOX) + 2929 FORMAT(F15.8/(1P8E15.7)) + 95 WRITE(9)ASYNTH + 99 CONTINUE +C N9=LENGTH IS A CHECK THAT THE TRANSPOSITION WORKED PROPERLY + WRITE(6,96)N9 + 96 FORMAT(I10,27H OPACITY VECTORS ON TAPE 9 ) +C +C SAVE ALL LINES USED + N9=0 + IF(NLINES.EQ.0)GO TO 810 + IF(LINOUT.LT.0)GO TO 810 + DO 800 I=1,NLINES + 800 LINE(I)=0 + IF(ILINES.EQ.0)GO TO 810 + REWIND 15 + I=0 + 803 I=I+1 + READ(15)ILINE + LINE(ILINE)=1 + IF(I.LT.ILINES)GO TO 803 + REWIND 13 + REWIND 7 + DO 809 I=1,NLINES + READ(13)LINDAT8,LINDAT4 + IF(LINE(I).EQ.0)GO TO 809 + LINE(I)=0 + WRITE(7)LINDAT8,LINDAT4 + N9=N9+1 + LINE(I)=N9 + 809 CONTINUE + 810 WRITE(6,106)N9 + WRITE(8)N9 + WRITE(9)N9 + CLOSE(UNIT=12,DISP='DELETE') + CLOSE(UNIT=13,DISP='DELETE') +C +C SET UP LINE CENTER OPACITY FOR EACH LINE + IF(ILINES.EQ.0)CALL EXIT + IF(LINOUT.LT.0)CALL EXIT + REWIND 15 + IREC=0 + DO 830 J=1,NRHOX + MAXLINE=MLINEJ(J) +C WRITE(6,817)J,MAXLINE + 817 FORMAT(3I10) + K=0 + JOUT=0 + IF(MAXLINE.EQ.0)GO TO 820 + I9LAST=0 + DO 815 L=1,MAXLINE + READ(15)ILINE,KAPCEN + I9=LINE(ILINE) + IF(I9.EQ.0)GO TO 815 + NSKIP=I9-I9LAST-1 + IF(NSKIP.EQ.0)GO TO 811 + DO 812 ISKIP=1,NSKIP + K=K+1 + RECORD(K)=0. + JOUT=JOUT+1 + IF(K.LT.LENREC)GO TO 812 + IREC=IREC+1 + WRITE(14,REC=IREC)RECORD + K=0 + 812 CONTINUE + 811 I9LAST=I9 + K=K+1 + JOUT=JOUT+1 + RECORD(K)=KAPCEN + IF(K.LT.LENREC)GO TO 815 + IREC=IREC+1 + WRITE(14,REC=IREC)RECORD + K=0 + 815 CONTINUE + NSKIP=N9-I9LAST + IF(NSKIP.EQ.0)GO TO 825 + GO TO 821 + 820 NSKIP=N9 + 821 DO 822 ISKIP=1,NSKIP + K=K+1 + JOUT=JOUT+1 + RECORD(K)=0. + IF(K.LT.LENREC)GO TO 822 + IREC=IREC+1 + WRITE(14,REC=IREC)RECORD + K=0 + 822 CONTINUE + 825 IF(K.EQ.0)GO TO 830 + IREC=IREC+1 + WRITE(14,REC=IREC)RECORD + K=0 + 830 WRITE(6,817)J,MAXLINE,JOUT +C +C TRANSPOSE + IF(N9.LE.MAXLIN)GO TO 808 + WRITE(6,877) + 877 FORMAT(28H TOO MANY LINES TO TRANSPOSE) + CALL EXIT + 808 CONTINUE + REWIND 7 + NUMREC=(N9+LENREC-1)/LENREC + NLAST=N9-NUMREC*LENREC+LENREC + NCEN=0 + DO 899 N=1,NUMREC + WRITE(6,106)N + DO 893 J=1,NRHOX + IREC=J*NUMREC-NUMREC+N + READ(14,REC=IREC)(TRANSP(J,I),I=1,LENREC) + 893 CONTINUE + NOUT=LENREC + IF(N.EQ.NUMREC)NOUT=NLAST + DO 895 I=1,NOUT + NCEN=NCEN+1 + READ(7)LINDAT8,LINDAT4 + FREQ=2.99792458D17/WLVAC + DO 897 J=1,NRHOX + 897 ALINEC(J)=TRANSP(J,I)*(1.-EXP(-FREQ*HKT(J))) + 895 WRITE(9)LINDAT8,LINDAT4,ALINEC + 899 CONTINUE + CLOSE(UNIT=7,DISP='DELETE') + CLOSE(UNIT=15,DISP='DELETE') + CLOSE(UNIT=14,DISPOSE='DELETE') + WRITE(6,96)NCEN + CALL EXIT + END + SUBROUTINE XLINOP(J,N19,CUTOFF,VELSHIFT,IFVAC,LINOUT) + PARAMETER (kw=99) + PARAMETER (LENREC=8000,MAXLEN=2000001,MAXPROF=10000, + 1 MAXBUFF=MAXLEN+MAXPROF,MAXLIN=MAXBUFF+MAXPROF*2) + COMMON /BUFFER/BUFFER(MAXBUFF),PROFILE(MAXPROF) + COMMON /CONTIN/CONTINUUM(MAXBUFF) + COMMON /BHE/BHE1(kw,29),AHE1(kw),SHE1(kw),BHE2(kw,6),AHE2(kw), + 1 SHE2(kw),AHEMIN(kw),SIGHE(kw),XNFPHE(kw,3),XNFHE(kw,2) + COMMON /BHYD/BHYD(kw,8),AHYD(kw),SHYD(kw),AH2P(kw),BMIN(kw), + 1 AHMIN(kw),SHMIN(kw),SIGH(kw),SIGH2(kw),AHLINE(kw), + 2 SHLINE(kw),XNFPH(kw,2),XNFH(kw) + COMMON /EXTAB/EXTAB(1001),EXTABF(1001),E1TAB(2000) + COMMON /NLINES/WLBEG,WLEND,RESOLU,RATIO,RATIOLG,WBEGIN, + 1 LENGTH,MLINES,IXWLBEG + COMMON /RHOX/RHOX(kw),NRHOX + COMMON /STATE/P(kw),XNE(kw),XNATOM(kw),RHO(kw),PTOTAL(kw) + COMMON /TEMP/T(kw),TKEV(kw),TK(kw),HKT(kw),TLOG(kw),HCKT(kw),ITEMP + COMMON /TURBPR/VTURB(kw),PTURB(kw),TRBFDG,TRBCON,TRBPOW,TRBSND, + 1 IFTURB + COMMON /TXNXN/EMERGE(kw),TXNXN(kw),BSTIM(kw),XNFH2(kw) + COMMON /XNFDOP/XNFPEL(594),DOPPLE(594),XNFDOP(594) + common /elem/abund(99),atmass(99),elem(99) + dimension hfactor(kw),hefactor(kw),h2factor(kw) + REAL NSTARK,NDOPP,NMERGE,INGLIS + EQUIVALENCE (GAMMAS,ASHORE),(GAMMAW,BSHORE) + EQUIVALENCE (GF,G,CGF),(TYPE,NLAST),(GAMMAR,XSECT,GAUNT) + INTEGER TYPE + REAL KAPPA,KAPMIN,KAPPA0,KAPCEN + REAL KAPPA0RED,KAPPARED,KAPPA0BLUE,KAPPABLUE + REAL*8 WAVE,WCON,EMERGE,WMERGE,WSHIFT,CONTX(26,17),WTAIL + REAL*8 RESOLU,RATIO,RATIOLG,SIGMA2,WLBEG,WLEND +c error 7jun2012 velshift is real*4 +C REAL*8 WL,DOPRATIO,VELSHIFT,WBEGIN,EMERGEH(kw) + REAL*8 WL,DOPRATIO,WBEGIN,EMERGEH(kw) + REAL*8 BLUECUT,WLPLUS1,WLPLUS2,REDCUT,WLMINUS1,WLMINUS2,VACAIR + REAL*8 EHYD(100),CONTH(15) ,ALPHAHYD(99) + DIMENSION DOPPH(kw) + DATA CONTH/ + 1 109678.764D0,27419.659D0,12186.462D0,6854.871,4387.113D0, 1.00 + 2 3046.604D0,2238.320D0,1713.711D0,1354.044D0,1096.776D0, + 3 906.426D0,761.650D0,648.980D0,559.579D0,487.456D0/ + DATA CONTX/ + 1 109678.764D0,27419.659D0,12186.462D0,6854.871D0,4387.113D0, 1.00 + 2 3046.604D0,2238.320D0,1713.711D0,1354.044D0,1096.776D0,16*0., + 3 198310.760D0,38454.691D0,32033.214D0,29223.753D0,27175.760D0, 2.00 + 4 15073.868D0,0.,0.,0.,0.,16*0., + 5 438908.850D0,109726.529D0,48766.491D0,27430.925D0,17555.715D0, 2.01 + 6 12191.437D0,0.,0.,0.,0.,16*0., + 7 90883.840D0,90867.420D0,90840.420D0,90820.420D0,90804.000D0, 6.00 + 8 90777.000D0,80691.180D0,80627.760D0,69235.820D0,69172.400D0, + 9 16*0., 26*0., 6.01 + A 61671.020D0,39820.615D0,39800.556D0,39759.842D0,22*0., 12.00 + 1 26*0., 12.01 + 2 48278.370D0,48166.309D0,0.,0.,0.,0.,0.,0.,0.,0.,16*0., 13.00 + 3 0.,0.,0.,0.,0.,0.,0.,0.,0.,0.,16*0., 13.01 + 4 66035.000D0,65957.885D0,65811.843D0,65747.550D0,65670.435D0, 14.00 + 5 65524.393D0,59736.150D0,59448.700D0,50640.630D0,50553.180D0, + 6 16*0., 26*0., 14.01 + 7 26*0.,26*0., 20.00,01 + 8 26*0.,26*0., 8.,11. + 9 26*0.,26*0./ 5.,19. + DATA ITEMP1/0/ +C + FASTEX(X)=EXTAB(IFIX(X)+1)* + 1EXTABF(IFIX((X-FLOAT(IFIX(X)))*1000.+1.5)) +C + IF(ITEMP.EQ.ITEMP1)GO TO 95 + EHYD(1)=0.D0 + EHYD(2)=82259.105D0 + EHYD(3)=97492.302D0 + EHYD(4)=102823.893D0 + EHYD(5)=105291.651D0 + EHYD(6)=106632.160D0 + EHYD(7)=107440.444D0 + EHYD(8)=107965.051D0 + DO 1 N=9,100 + 1 EHYD(N)=109678.764D0-109677.576D0/N**2 + DO 2 N=1,99 + 2 ALPHAHYD(N)=1.D7/(EHYD(N+1)-EHYD(N)) + WRITE(6,90) + 90 FORMAT(' NMERGE EMERGE EMERGEH') + DO 91 K=1,NRHOX +C FOR NEUTRALS FOR IONS NSTARK=NSTARK*Z**.25 NDOPP=NDOPP*Z**(2./3.) +C EMERGE=EMERGE*Z**2 +C INGLIS=1194./XNE(K)**.125 +C EMPIRICAL + INGLIS=1600./XNE(K)**(2./15.) +C NMERGE=INGLIS+.5 + NMERGE=INGLIS-1.5 + EMERGE(K)=109737.312D0/NMERGE**2 + EMERGEH(K)=109677.576D0/NMERGE**2 + 91 WRITE(6,92)K,NMERGE,EMERGE(K),EMERGEH(K) + 92 FORMAT(I3,4F10.3) + ITEMP1=ITEMP +C + 95 BOLT=1. + BOLTH=1. + OLDELO=1.E30*FLOAT(J*ITEMP) + OLDELOH=1.E30*FLOAT(J*ITEMP) + DOPRATIO=1.D0+VELSHIFT/299792.458D0 + alpha=0 + REWIND 19 + DO 900 ILINE=1,N19 + READ(19)WL,ELO,GF,NBLO,NBUP,NELION,TYPE,NCON,NELIONX, + 1GAMMAR,GAMMAS,GAMMAW,NBUFF +c +c include Barklem, Anstee, and O'Mara van der Waals +c READ(19)WL,ELO,GF,NBLO,NBUP,NELION,TYPE,NCON,NELIONX, +c 1GAMMAR,GAMMAS,GAMMAW,alpha,NBUFF +c + WL=WL*DOPRATIO + 97 IF(TYPE.EQ.2)GO TO 500 + IF(TYPE.EQ.0)GO TO 200 + IF(TYPE.EQ.-1)GO TO 600 + IF(TYPE.EQ.-2)GO TO 600 + IF(TYPE.EQ.1)GO TO 700 + IF(TYPE.EQ.3)GO TO 300 +C HE LINES DO NOT WORK YET + IF(TYPE.LT.-2)GO TO 200 +C +C MERGED CONTINUUM +C EDGE WAVELENGTHS ARE IN VACUUM + WSHIFT=1.D7/(1.D7/WL-109737.312D0/NLAST**2) + WMERGE=1.D7/(1.D7/WL-EMERGE(J)) + IF(NELION.EQ.1)THEN + WSHIFT=1.D7/(1.D7/WL-109677.576D0/NLAST**2) + WMERGE=1.D7/(1.D7/WL-EMERGEH(J)) + ENDIF + IF(WMERGE.LT.0.)WMERGE=WSHIFT+WSHIFT + WMERGE=MAX(WMERGE,WSHIFT) + WMERGE=MIN(WSHIFT+WSHIFT,WMERGE) + WTAIL=1.D7/(1.D7/WMERGE-500.) + IF(WTAIL.LT.0.)WTAIL=WMERGE+WMERGE + WTAIL=MIN(WMERGE+WMERGE,WTAIL) + IF(IFVAC.EQ.0)THEN + WMERGE=VACAIR(WMERGE)*DOPRATIO + WTAIL=VACAIR(WTAIL)*DOPRATIO + ENDIF + IXWL= LOG(WL)/RATIOLG + EDGEBLUE=EXP(IXWL*RATIOLG) + IF(EDGEBLUE.GT.WL)IXWL=IXWL-1 + NBUFF1=IXWL+1-IXWLBEG+1 + IXWL= LOG(WMERGE)/RATIOLG+.5 + NBUFF2=IXWL-IXWLBEG+1 + IXWL= LOG(WTAIL)/RATIOLG+.5 + NBUFF3=IXWL-IXWLBEG+1 + IF(NBUFF1.GT.LENGTH)GO TO 900 + IF(NBUFF3.LT.1)GO TO 900 + DNBUFF=NBUFF3-NBUFF2 + NBUFF1=MAX0(NBUFF1,1) + XSECTG=GF +C KAPPA=XSECTG*XNFPEL(NELION)*EXP(-ELO*HCKT(J)) + IF(NELION.GT.1)KAPPA=XSECTG*XNFPEL(NELION)*FASTEX(ELO*HCKT(J)) + IF(NELION.EQ.1)KAPPA=XSECTG*XNFPEL(NELION)* + 1FASTEX(ELO*HCKT(J)) + TAIL=1. + DO 190 IBUFF=NBUFF1,MIN0(NBUFF3,LENGTH) + IF(IBUFF.GT.NBUFF2)TAIL=(NBUFF3-IBUFF)/DNBUFF + 190 BUFFER(IBUFF)=BUFFER(IBUFF)+KAPPA*TAIL + GO TO 900 +C +C NORMAL LINE +C 200 KAPPA0=CGF*XNFPEL(NELION)/DOPPLE(NELION) + 200 KAPPA0=CGF*XNFDOP(NELION) + KAPMIN=CONTINUUM(MIN(MAX(NBUFF,1),LENGTH))*CUTOFF + IF(KAPPA0.LT.KAPMIN)GO TO 900 + IF(ELO.EQ.OLDELO)GO TO 210 +C BOLT=EXP(-ELO*HCKT(J)) + BOLT=FASTEX(ELO*HCKT(J)) + OLDELO=ELO + 210 KAPPA0=KAPPA0*BOLT + IF(KAPPA0.LT.KAPMIN)GO TO 900 + MLINES=MLINES+1 + WCON=0. + WTAIL=0. + IF(NCON.GT.0)THEN + WCON=1.E7/(CONTX(NCON,NELIONX)-EMERGE(J))*DOPRATIO + WTAIL=1.E7/(CONTX(NCON,NELIONX)-EMERGE(J)-500.)*DOPRATIO + ENDIF +c +c Castelli for Barklem, Anstee, and O'Mara van der Waals broadenint + if(alpha.ne.0.)then + nelem=int(nelion/6)+1 + v2=(1.-alpha)/2 + hfactor(j)=(t(j)/10000.)**v2 + hefactor(j)=0.628*(2.0991D-4*T(j)*(1/4+1.008/atmass(nelem)))**v2 + h2factor(j)=1.08*(2.0991D-4*T(j)*(1/2+1.008/atmass(nelem)))**v2 + txnxn(j)=xnfh(j)*hfactor(j)+xnfhe(J,1)*hefactor(j)+xnfh2(j)* + 1h2factor(j) + endif +c + ADAMP=(GAMMAR+GAMMAS*XNE(J)+GAMMAW*TXNXN(J))/DOPPLE(NELION) + KAPCEN=KAPPA0*VOIGT(0.,ADAMP) + IF(LINOUT.GE.0)WRITE(15)ILINE,KAPCEN + DOPWL=DOPPLE(NELION)*WL + IF(WL.GT.WLEND)GO TO 213 +C RED WING + MINRED=MAX0(1,NBUFF) + WAVE=WBEGIN*RATIO**(MINRED-1) + DO 211 IBUFF=MINRED,LENGTH + IF(WAVE.LT.WCON)GO TO 211 + VVOIGT=ABS(WAVE-WL)/DOPWL + KAPPA=KAPPA0*VOIGT(VVOIGT,ADAMP) + IF(WAVE.LT.WTAIL)KAPPA=KAPPA*(WAVE-WCON)/(WTAIL-WCON) +C bug from john lester 23Jun03 +C BUFFER(IBUFF)=BUFFER(IBUFF)+KAPPA +C IF(KAPPA.LT.CONTINUUM(IBUFF)*CUTOFF)GO TO 212 + IF(KAPPA.LT.CONTINUUM(IBUFF)*CUTOFF)GO TO 212 + BUFFER(IBUFF)=BUFFER(IBUFF)+KAPPA + 211 WAVE=WAVE*RATIO + 212 IF(MINRED.EQ.1)GO TO 900 + IF(WL.LT.WBEGIN)GO TO 900 +C BLUE WING + 213 IBUFF=MIN0(LENGTH+1,NBUFF) + MAXBLUE=IBUFF-1 + WAVE=WBEGIN*RATIO**(IBUFF-1) + DO 214 I=1,MAXBLUE + IBUFF=IBUFF-1 + WAVE=WAVE/RATIO + IF(WAVE.LT.WCON)GO TO 214 + VVOIGT=ABS(WAVE-WL)/DOPWL + KAPPA=KAPPA0*VOIGT(VVOIGT,ADAMP) +C KAPPA=KAPPA0*VOIGT(ABS(WAVE-WL)/DOPWL,ADAMP) + IF(WAVE.LT.WTAIL)KAPPA=KAPPA*(WAVE-WCON)/(WTAIL-WCON) + BUFFER(IBUFF)=BUFFER(IBUFF)+KAPPA + IF(KAPPA.LT.CONTINUUM(IBUFF)*CUTOFF)GO TO 900 + 214 CONTINUE + GO TO 900 +C +C PRD LINE + 300 GO TO 200 +C +C CORONAL LINE + 500 GO TO 900 +C +C HYDROGEN LINE +C 600 KAPPA0=CGF*XNFPEL(1)/DOPPLE(1) + 600 KAPPA0=CGF*XNFDOP(1) + KAPMIN=CONTINUUM(MIN(MAX(NBUFF,1),LENGTH))*CUTOFF + IF(NBUP.EQ.2)KAPMIN=CONTINUUM(LENGTH)*CUTOFF + IF(KAPPA0.LT.KAPMIN)GO TO 900 +C IF(ELO.EQ.OLDELOH)GO TO 610 +C BOLTH=EXP(-ELO*HCKT(J)) + BOLTH=FASTEX(ELO*HCKT(J)) + OLDELOH=ELO + DOPPH(J)=DOPPLE(1) +C DEUTERIUM + IF(TYPE.EQ.-2)DOPPH(J)=DOPPH(J)/1.4142D0 + 610 KAPPA0=KAPPA0*BOLTH + IF(KAPPA0.LT.KAPMIN)GO TO 900 + IF(LINOUT.GE.0)WRITE(15)ILINE,KAPPA0 + MLINES=MLINES+1 + IF(NCON.EQ.0)GO TO 620 + IF(NBUP.EQ.NBLO+1)GO TO 620 + IF(NBUP.EQ.NBLO+2)GO TO 630 + WSHIFT=1.D7/(CONTH(NCON)-109677.576D0/81.D0**2) + WMERGE=1.D7/(CONTH(NCON)-EMERGEH(J)) + IF(WMERGE.LT.0.)WMERGE=WSHIFT+WSHIFT + WCON=MAX(WSHIFT,WMERGE) + WTAIL=1.D7/(1.D7/WCON-500.D0) + WCON=MIN(WSHIFT+WSHIFT,WCON) + IF(WTAIL.LT.0.)WTAIL=WCON+WCON + WTAIL=MIN(WCON+WCON,WTAIL) + IF(IFVAC.EQ.0)THEN + WCON=VACAIR(WCON) + WTAIL=VACAIR(WTAIL) + ENDIF + WCON=WCON*DOPRATIO + IF(IFVAC.EQ.0)WL=VACAIR(1.D7/(EHYD(NBUP)-EHYD(NBLO)))*DOPRATIO + IF(WL.GT.WLEND)GO TO 613 +C RED WING + IF(WBEGIN.GT.ALPHAHYD(NBLO))GO TO 613 + REDCUT=1.D7/(109678.764D0-109677.576D0/(NBUP-0.8D0)**2-EHYD(NBLO)) + IF(IFVAC.EQ.0)REDCUT=VACAIR(REDCUT) + REDCUT=REDCUT*DOPRATIO + WLMINUS1=1.D7/(EHYD(NBUP-1)-EHYD(NBLO)) + IF(IFVAC.EQ.0)WLMINUS1=VACAIR(WLMINUS1) + WLMINUS1=WLMINUS1*DOPRATIO + WLMINUS2=1.D7/(EHYD(NBUP-2)-EHYD(NBLO)) + IF(IFVAC.EQ.0)WLMINUS2=VACAIR(WLMINUS2) + WLMINUS2=WLMINUS2*DOPRATIO + KAPPA0RED=KAPPA0*HFNM(NBLO,NBUP-2)/HFNM(NBLO,NBUP)/ + 1 (EHYD(NBUP-2)-EHYD(NBLO))*(EHYD(NBUP)-EHYD(NBLO)) + MINRED=MAX0(1,NBUFF) + WAVE=WBEGIN*RATIO**(MINRED-1) + DO 611 IBUFF=MINRED,LENGTH + IF(WAVE.LT.WCON)GO TO 611 + IF(WAVE.GT.WLMINUS1)GO TO 612 + KAPPA=KAPPA0*HPROF4(NBLO,NBUP,J,WAVE-WL,DOPPH) + IF(WAVE.LT.WTAIL)KAPPA=KAPPA*(WAVE-WCON)/(WTAIL-WCON) + IF(WAVE.GT.REDCUT)THEN + KAPPARED=KAPPA0RED*HPROF4(NBLO,NBUP-2,J,WAVE-WLMINUS2,DOPPH) + IF(WAVE.LT.WTAIL)KAPPARED=KAPPARED*(WAVE-WCON)/(WTAIL-WCON) + IF(KAPPARED.GE.KAPPA)GO TO 612 + ENDIF + BUFFER(IBUFF)=BUFFER(IBUFF)+KAPPA + IF(KAPPA.LT.CONTINUUM(IBUFF)*CUTOFF)GO TO 612 + 611 WAVE=WAVE*RATIO + 612 IF(MINRED.EQ.1)GO TO 900 + IF(WL.LT.WBEGIN)GO TO 900 +C BLUE WING + 613 BLUECUT=1.D7/(109678.764D0-109677.576D0/(NBUP+0.8D0)**2- + 1 EHYD(NBLO)) + IF(IFVAC.EQ.0)BLUECUT=VACAIR(BLUECUT) + BLUECUT=BLUECUT*DOPRATIO + WLPLUS1=1.D7/(EHYD(NBUP+1)-EHYD(NBLO)) + IF(IFVAC.EQ.0)WLPLUS1=VACAIR(WLPLUS1) + WLPLUS1=WLPLUS1*DOPRATIO + WLPLUS2=1.D7/(EHYD(NBUP+2)-EHYD(NBLO)) + IF(IFVAC.EQ.0)WLPLUS2=VACAIR(WLPLUS2) + WLPLUS2=WLPLUS2*DOPRATIO + KAPPA0BLUE=KAPPA0*HFNM(NBLO,NBUP+2)/HFNM(NBLO,NBUP)/ + 1 (EHYD(NBUP+2)-EHYD(NBLO))*(EHYD(NBUP)-EHYD(NBLO)) + IBUFF=MIN0(LENGTH+1,NBUFF) + MAXBLUE=IBUFF-1 + WAVE=WBEGIN*RATIO**(IBUFF-1) + DO 614 I=1,MAXBLUE + IBUFF=IBUFF-1 + WAVE=WAVE/RATIO + IF(WAVE.LT.WCON)GO TO 900 + IF(WAVE.LT.WLPLUS1)GO TO 900 + KAPPA=KAPPA0*HPROF4(NBLO,NBUP,J,WAVE-WL,DOPPH) + IF(WAVE.LT.WTAIL)KAPPA=KAPPA*(WAVE-WCON)/(WTAIL-WCON) + IF(WAVE.LT.BLUECUT)THEN + KAPPABLUE=KAPPA0BLUE*HPROF4(NBLO,NBUP+2,J,WAVE-WLPLUS2,DOPPH) + IF(WAVE.LT.WTAIL)KAPPABLUE=KAPPABLUE*(WAVE-WCON)/(WTAIL-WCON) + IF(KAPPABLUE.GT.KAPPA)GO TO 900 + ENDIF + BUFFER(IBUFF)=BUFFER(IBUFF)+KAPPA + IF(KAPPA.LT.CONTINUUM(IBUFF)*CUTOFF)GO TO 900 + 614 CONTINUE + GO TO 900 +C ALPHA PRESUMED ISOLATED LINES AND BETA BLUE WINGS + 620 IF(WL.GT.WLEND)GO TO 623 +C RED WING + MINRED=MAX0(1,NBUFF) + WAVE=WBEGIN*RATIO**(MINRED-1) + DO 621 IBUFF=MINRED,LENGTH + KAPPA=KAPPA0*HPROF4(NBLO,NBUP,J,WAVE-WL,DOPPH) + BUFFER(IBUFF)=BUFFER(IBUFF)+KAPPA + IF(KAPPA.LT.CONTINUUM(IBUFF)*CUTOFF)GO TO 622 + 621 WAVE=WAVE*RATIO + 622 IF(MINRED.EQ.1)GO TO 900 + IF(WL.LT.WBEGIN)GO TO 900 +C ALPHA OR BETA BLUE WING + 623 IBUFF=MIN0(LENGTH+1,NBUFF) + MAXBLUE=IBUFF-1 + WAVE=WBEGIN*RATIO**(IBUFF-1) + DO 624 I=1,MAXBLUE + IBUFF=IBUFF-1 + WAVE=WAVE/RATIO + KAPPA=KAPPA0*HPROF4(NBLO,NBUP,J,WAVE-WL,DOPPH) + BUFFER(IBUFF)=BUFFER(IBUFF)+KAPPA + IF(KAPPA.LT.CONTINUUM(IBUFF)*CUTOFF)GO TO 900 + 624 CONTINUE + GO TO 900 +C BETA LINES RED WING + 630 IF(WL.GT.WLEND)GO TO 623 +C RED WING + MINRED=MAX0(1,NBUFF) + WAVE=WBEGIN*RATIO**(MINRED-1) + DO 631 IBUFF=MINRED,LENGTH + IF(WAVE.GT.ALPHAHYD(NBLO))GO TO 633 + KAPPA=KAPPA0*HPROF4(NBLO,NBUP,J,WAVE-WL,DOPPH) + BUFFER(IBUFF)=BUFFER(IBUFF)+KAPPA + IF(KAPPA.LT.CONTINUUM(IBUFF)*CUTOFF)GO TO 622 + 631 WAVE=WAVE*RATIO + GO TO 622 + 633 IBUFFALPHA=IBUFF + IF(NBUFF.LT.1)GO TO 900 + IBUFF=NBUFF + MAXBLUE=IBUFF-1 + WAVE=WBEGIN*RATIO**(IBUFF-1) + DO 634 I=1,MAXBLUE + IBUFF=IBUFF-1 + WAVE=WAVE/RATIO + KAPPA=KAPPA0*HPROF4(NBLO,NBUP,J,WAVE-WL,DOPPH) + BUFFER(IBUFF)=BUFFER(IBUFF)+KAPPA + IF(KAPPA.LT.CONTINUUM(IBUFF)*CUTOFF)GO TO 900 + 634 CONTINUE + GO TO 900 +C +C AUTOIONIZING LINE + 700 KAPPA0=BSHORE*G*XNFPEL(NELION) + KAPMIN=CONTINUUM(MIN(MAX(NBUFF,1),LENGTH))*CUTOFF + IF(KAPPA0.LT.KAPMIN)GO TO 900 + KAPPA0=KAPPA0*FASTEX(ELO*HCKT(J)) +C KAPPA0=KAPPA0*EXP(-ELO*HCKT(J)) + IF(KAPPA0.LT.KAPMIN)GO TO 900 + IF(LINOUT.GE.0)WRITE(15)ILINE,KAPPA0 + MLINES=MLINES+1 + FRELIN=2.99792458E17/WL + IF(WL.GT.WLEND)GO TO 713 +C RED WING + MINRED=MAX0(1,NBUFF) + FREQ=2.99792458D17/(WBEGIN*RATIO**(MINRED-1)) + DO 711 IBUFF=MINRED,LENGTH + EPSIL=2.*(FREQ-FRELIN)/GAMMAR + KAPPA=KAPPA0*(ASHORE*EPSIL+BSHORE)/(EPSIL**2+1.)/BSHORE + BUFFER(IBUFF)=BUFFER(IBUFF)+KAPPA + IF(KAPPA.LT.CONTINUUM(IBUFF)*CUTOFF)GO TO 712 + 711 FREQ=FREQ/RATIO + 712 IF(NBUFF.EQ.1)GO TO 900 + IF(WL.LT.WBEGIN)GO TO 900 +C BLUE WING + 713 IBUFF=MIN0(LENGTH+1,NBUFF) + MAXBLUE=IBUFF-1 + FREQ=2.99792458D17/(WBEGIN*RATIO**(IBUFF-1)) + DO 714 I=1,MAXBLUE + IBUFF=IBUFF-1 + FREQ=FREQ*RATIO + EPSIL=2.*(FREQ-FRELIN)/GAMMAR + KAPPA=KAPPA0*(ASHORE*EPSIL+BSHORE)/(EPSIL**2+1.)/BSHORE + BUFFER(IBUFF)=BUFFER(IBUFF)+KAPPA + IF(KAPPA.LT.CONTINUUM(IBUFF)*CUTOFF)GO TO 900 + 714 CONTINUE + GO TO 900 +c +c He I +c +C LINE=1 4471 +C LINE=2 4026 +C LINE=3 4387 +C LINE=4 4921 +C LINE>4 OTHERS + 800 KAPPA0=CGF*XNFPEL(NELION)/DOPPLE(NELION) +C 3HE + IF(TYPE.EQ.-4)KAPPA0=KAPPA0/1.155 + KAPMIN=CONTINUUM(MIN(MAX(NBUFF,1),LENGTH))*CUTOFF + IF(KAPPA0.LT.KAPMIN)GO TO 900 + BOLT=FASTEX(ELO*HCKT(J)) + KAPPA0=KAPPA0*BOLT + IF(KAPPA0.LT.KAPMIN)GO TO 900 +c DOPWL=DOPPLE(7)*WL + DOPWL=DOPPLE(7)*WL4 + IF(TYPE.EQ.-4)DOPWL=DOPWL*1.155 +c KAPCEN=KAPPA0*HE1PROF(J,WL,WL,DOPWL,GAMMAR,GAMMAS) + KAPCEN=KAPPA0*HE1PROF(J,WL4,WL4,DOPWL,GAMMAR,GAMMAS) + WRITE(15)ILINE,KAPCEN + MLINES=MLINES+1 + IF(WL.GT.WLEND)GO TO 813 +C RED WING + REDCUT=WLEND + MINRED=MAX0(1,NBUFF) + WAVE=WBEGIN*RATIO**(MINRED-1) + wave4=wave + DO 811 IBUFF=MINRED,LENGTH + IF(WAVE.GT.REDCUT)GO TO 812 + KAPPA=KAPPA0*HE1PROF(J,WAVE4,WL4,DOPWL,GAMMAR,GAMMAS) + IF(KAPPA.LT.CONTINUUM(IBUFF)*CUTOFF)GO TO 812 + BUFFER(IBUFF)=BUFFER(IBUFF)+KAPPA + WAVE=WAVE*RATIO + 811 wave4=wave + 812 IF(NBUFF.EQ.1)GO TO 900 + IF(WL.LT.WLBEG)GO TO 900 +C BLUE WING + 813 BLUECUT=WLBEG + IBUFF=MIN0(LENGTH+1,NBUFF) + MAXBLUE=IBUFF-1 + WAVE=WBEGIN*RATIO**(IBUFF-1) + DO 814 I=1,MAXBLUE + IBUFF=IBUFF-1 + WAVE=WAVE/RATIO + wave4=wave + IF(WAVE.LT.BLUECUT)GO TO 900 + KAPPA=KAPPA0*HE1PROF(J,WAVE4,WL4,DOPWL,GAMMAR,GAMMAS) + BUFFER(IBUFF)=BUFFER(IBUFF)+KAPPA + IF(KAPPA.LT.CONTINUUM(IBUFF)*CUTOFF)GO TO 900 + 814 CONTINUE + GO TO 900 + 850 CONTINUE + 900 CONTINUE + RETURN + END + FUNCTION HPROF4(N,M,J,DELW,DOPPH) +C FUNCTION HPROFL(N,M,J,DELW) +C VERSION FINE STRUCTURE LIKE GENERAL BUT APPROXIMATELY INCLUDES FINE +C STRUCTURE IN THE DOPPLER CORES. EXACT PATTERN +C IS USED FOR ALPHA LINES, M INFINITE PATTERN +C IS USED FOR ALL OTHER LINES. +C FROM DEANE PETERSON +C REQUIRES VCSE1F AND SOFBET + PARAMETER (kw=99) + REAL*8 DELW,EMERGE + REAL*4 DOPPH(kw) + COMMON /BHE/BHE1(kw,29),AHE1(kw),SHE1(kw),BHE2(kw,6),AHE2(kw), + 1 SHE2(kw),AHEMIN(kw),SIGHE(kw),XNFPHE(kw,3),XNFHE(kw,2) + COMMON /BHYD/BHYD(kw,8),AHYD(kw),SHYD(kw),AH2P(kw),BMIN(kw), + 1 AHMIN(kw),SHMIN(kw),SIGH(kw),SIGH2(kw),AHLINE(kw), + 2 SHLINE(kw),XNFPH(kw,2),XNFH(kw) + COMMON /RHOX/RHOX(kw),NRHOX + COMMON /STATE/P(kw),XNE(kw),XNATOM(kw),RHO(kw),PTOTAL(kw) + COMMON /TEMP/T(kw),TKEV(kw),TK(kw),HKT(kw),TLOG(kw),HCKT(kw),ITEMP + COMMON /TXNXN/EMERGE(kw),TXNXN(kw),BSTIM(kw),XNFH2(kw) + COMMON /EXTAB/EXTAB(1001),EXTABF(1001),E1TAB(2000) + DIMENSION PP(kw),FO(kw),GCON1(kw),GCON2(kw),Y1B(kw),Y1S(kw), + 1C1D(kw),C2D(kw),Y1WTM(2,2),XKNMTB(4,3) + DIMENSION T3NHE(kw),T3NH2(kw) + DIMENSION STCOMP(5,4),STALPH(34),ISTAL(4),LNGHAL(4),STWTAL(34), + 1STCPWT(5,4),LNCOMP(4),FINEST(14),FINSWT(14) + REAL*4 LORWING,ASUM(100),ASUMLYMAN(100) + REAL*4 CUTOFFH2PLUS(111),CUTOFFH2(91) +C + DATA XKNMTB/.0001716,.009019,.1001,.5820,.0005235,.01772,.171,.866 + 1,.0008912,.02507,.223,1.02/ + DATA Y1WTM/1.E18,1.E17,1.E16,1.E14/ + DATA ITEMP1/0/,N1/0/,M1/0/,RYDH/3.2880515E15/ +C FINE STRUCTURE COMPONENTS FOR ALPHA LINES IN FREQ*10**-7 + DATA STALPH/-730.,370.,188.,515.,327.,619.,-772.,-473.,-369.,120., + 1256.,162.,285.,-161.,-38.3,6.82,-174.,-147.,-101.,-77.5,55.,126., + 275.,139.,-60.,3.7,27.,-69.,-42.,-18.,-5.5,-9.1,-33.,-24./ +C ALPHA COMPONENT WEIGHTS + DATA STWTAL/1.,2.,1.,2.,1.,2.,1.,2.,3.,1.,2.,1.,2.,1.,4.,6.,1.,2., + 13.,4.,1.,2.,1.,2.,1.,4.,6.,1.,7.,6.,4.,4.,4.,5./ + DATA ISTAL/1,3,10,21/, LNGHAL/2,7,11,14/ +C FINE STRUCTURE FOR M.EQ.INFINITY IN FREQ*10**-7 + DATA STCOMP/0.,0.,0.,0.,0.,468.,576.,-522.,0.,0.,260.,290.,-33., + 1-140.,0.0,140.,150.,18.,-27.,-51./ +C WEIGHTS + DATA STCPWT/1.,0.,0.,0.,0.,1.,1.,2.,0.,0.,1.,1.,4.,3.,0.,1.,1., + 14.,6.,4./ + DATA LNCOMP/1,3,4,5/ +c revised by Fiorella Castelli +c Allard et al. (1998) A&A 372,260. Castelli & Kurucz (2001)a&A 372, 360. +C LYMAN ALPHA QUASI H2+ CUTOFF +C DELTA WAVENO = -15000+100*(N-1) N=1,111 UP TO -4000 + DATA CUTOFFH2PLUS/ + 1-15.14,-15.06,-14.97,-14.88,-14.80,-14.71,-14.62,-14.53, + 2-14.44,-14.36,-14.27,-14.18,-14.09,-14.01,-13.92,-13.83, + 3-13.74,-13.65,-13.57,-13.48,-13.39,-13.30,-13.21,-13.13, + 4-13.04,-12.95,-12.86,-12.77,-12.69,-12.60,-12.51,-12.40, + 5-12.29,-12.15,-12.02,-11.90,-11.76,-11.63,-11.53,-11.41, + 6-11.30,-11.22,-11.15,-11.09,-11.07,-11.06,-11.07,-11.09, + 7-11.12,-11.16,-11.19,-11.21,-11.24,-11.27,-11.30,-11.33, + 8-11.36,-11.39,-11.42,-11.45,-11.48,-11.48,-11.48,-11.48, + 9-11.48,-11.48,-11.48,-11.48,-11.48,-11.48,-11.48,-11.48, + A-11.48,-11.48,-11.48,-11.48,-11.41,-11.40,-11.39,-11.38, + 1-11.37,-11.36,-11.35,-11.34,-11.33,-11.32,-11.30,-11.29, + 2-11.28,-11.27,-11.27,-11.27,-11.26,-11.25,-11.24,-11.23, + 3-11.22,-11.21,-11.20,-11.19,-11.18,-11.17,-11.15,-11.14, + 4-11.13,-11.12,-11.11,-11.10,-11.09,-11.08,-11.07/ +C DATA CUTOFFH2PLUS/ +C 1-17.15,-17.00,-16.86,-16.71,-16.56,-16.41,-16.27,-16.12, +C 2-15.97,-15.82,-15.68,-15.53,-15.38,-15.23,-15.09,-14.94, +C 3-14.79,-14.64,-14.50,-14.35,-14.20,-14.05,-13.91,-13.76, +C 4-13.61,-13.46,-13.32,-13.17,-13.02,-12.87,-12.73,-12.58, +C 5-12.43,-12.28,-12.14,-11.99,-11.85,-11.72,-11.60,-11.49, +C 6-11.40,-11.36,-11.335,-11.33,-11.33,-11.335,-11.35,-11.37, +C 7-11.40,-11.42,-11.45,-11.48,-11.52,-11.55,-11.59,-11.61, +C 8-11.61,-11.61,-11.60,-11.59,-11.58,-11.57,-11.56,-11.55, +C 9-11.54,-11.53,-11.52,-11.51,-11.49,-11.48,-11.47,-11.46, +C A-11.45,-11.44,-11.43,-11.42,-11.41,-11.40,-11.39,-11.38, +C 1-11.37,-11.36,-11.35,-11.34,-11.33,-11.32,-11.30,-11.29, +C 2-11.28,-11.27,-11.26,-11.25,-11.24,-11.23,-11.22,-11.21, +C 3-11.20,-11.19,-11.18,-11.17,-11.16,-11.15,-11.13,-11.12, +C 4-11.11,-11.10,-11.09,-11.08,-11.07,-11.06,-11.05/ +C LYMAN ALPHA QUASI H2 CUTOFF +C DELTA WAVENO = -22000+200*(N-1) N=1,91 -4000 + DATA CUTOFFH2/ + 1-13.64,-13.52,-13.39,-13.27,-13.14,-13.01,-12.87,-12.74, + 2-12.63,-12.56,-12.51,-12.48,-12.47,-12.49,-12.52,-12.55, + 3-12.57,-12.61,-12.65,-12.69,-12.72,-12.76,-12.79,-12.82, + 4-12.84,-12.85,-12.87,-12.90,-12.93,-12.94,-12.93,-12.95, + 5-12.95,-12.96,-12.97,-12.96,-12.96,-12.95,-12.95,-12.96, + 6-12.98,-12.99,-12.95,-12.96,-13.00,-13.00,-12.98,-12.97, + 7-13.00,-13.00,-13.00,-13.00,-13.00,-13.00,-13.00,-13.00, + 8-13.00,-13.00,-13.00,-13.00,-13.00,-13.00,-13.00,-13.00, + 9-13.00,-13.00,-13.00,-13.00,-13.00,-13.00,-12.89,-12.88, + A-12.87,-12.86,-12.85,-12.84,-12.83,-12.81,-12.80,-12.79, + 1-12.78,-12.76,-12.74,-12.72,-12.70,-12.68,-12.65,-12.62, + 2-12.59,-12.56,-12.53/ +cc DATA CUTOFFH2/ +cc 1-13.43,-13.32,-13.21,-13.10,-12.98,-12.86,-12.79,-12.72, +cc 2-12.65,-12.58,-12.51,-12.47,-12.45,-12.45,-12.48,-12.51, +cc 3-12.53,-12.56,-12.59,-12.62,-12.65,-12.69,-12.73,-12.77, +cc 4-12.81,-12.85,-12.87,-12.89,-12.90,-12.90,-12.90,-12.90, +cc 5-12.90,-12.90,-12.90,-12.90,-12.90,-12.90,-12.90,-12.90, +cc 6-12.90,-12.90,-12.90,-12.90,-12.90,-12.90,-12.90,-12.90, +cc 7-12.90,-12.90,-12.90,-12.90,-12.90,-12.90,-12.90,-12.90, +cc 8-12.90,-12.90,-12.90,-12.90,-12.90,-12.90,-12.90,-12.90, +cc 9-12.90,-12.90,-12.90,-12.90,-12.90,-12.90,-12.89,-12.88, +cc A-12.87,-12.86,-12.85,-12.84,-12.83,-12.81,-12.80,-12.79, +cc 1-12.78,-12.76,-12.74,-12.72,-12.70,-12.68,-12.65,-12.62, +cc 2-12.59,-12.56,-12.53/ +cc +C DATA CUTOFFH2/ +C 1-13.87,-13.73,-13.59,-13.45,-13.31,-13.17,-13.05,-12.93, +C 2-12.83,-12.74,-12.67,-12.63,-12.60,-12.60,-12.63,-12.65, +C 3-12.67,-12.69,-12.71,-12.73,-12.75,-12.77,-12.79,-12.81, +C 4-12.83,-12.85,-12.86,-12.87,-12.87,-12.86,-12.85,-12.84, +C 5-12.83,-12.82,-12.80,-12.79,-12.78,-12.77,-12.76,-12.75, +C 6-12.74,-12.72,-12.71,-12.70,-12.69,-12.68,-12.67,-12.66, +C 7-12.64,-12.63,-12.62,-12.61,-12.60,-12.59,-12.58,-12.57, +C 8-12.55,-12.54,-12.53,-12.52,-12.51,-12.50,-12.49,-12.47, +C 9-12.46,-12.45,-12.44,-12.43,-12.42,-12.41,-12.39,-12.38, +C A-12.37,-12.36,-12.35,-12.34,-12.33,-12.31,-12.30,-12.29, +C 1-12.28,-12.26,-12.24,-12.22,-12.20,-12.18,-12.15,-12.12, +C 2-12.09,-12.06,-12.03/ + DATA ASUMLYMAN/ + 1 0.000E+00, 6.265E+08, 1.897E+08, 8.126E+07, 4.203E+07, 2.450E+07, + 2 1.236E+07, 8.249E+06, 5.782E+06, 4.208E+06, 3.158E+06, 2.430E+06, + 3 1.910E+06, 1.567E+06, 1.274E+06, 1.050E+06, 8.752E+05, 7.373E+05, + 4 6.269E+05, 5.375E+05, 4.643E+05, 4.038E+05, 3.534E+05, 3.111E+05, + 5 2.752E+05, 2.447E+05, 2.185E+05, 1.959E+05, 1.763E+05, 1.593E+05, + 6 1.443E+05, 1.312E+05, 1.197E+05, 1.094E+05, 1.003E+05, 9.216E+04, + 7 8.489E+04, 7.836E+04, 7.249E+04, 6.719E+04, 6.239E+04, 5.804E+04, + 8 5.408E+04, 5.048E+04, 4.719E+04, 4.418E+04, 4.142E+04, 3.888E+04, + 9 3.655E+04, 3.440E+04, 3.242E+04, 3.058E+04, 2.888E+04, 2.731E+04, + A 2.585E+04, 2.449E+04, 2.322E+04, 2.204E+04, 2.094E+04, 1.991E+04, + 1 1.894E+04, 1.804E+04, 1.720E+04, 1.640E+04, 1.566E+04, 1.496E+04, + 2 1.430E+04, 1.368E+04, 1.309E+04, 1.254E+04, 1.201E+04, 1.152E+04, + 3 1.105E+04, 1.061E+04, 1.019E+04, 9.796E+03, 9.419E+03, 9.061E+03, + 4 8.721E+03, 8.398E+03, 8.091E+03, 7.799E+03, 7.520E+03, 7.255E+03, + 5 7.002E+03, 6.760E+03, 6.530E+03, 6.310E+03, 6.100E+03, 5.898E+03, + 6 5.706E+03, 5.522E+03, 5.346E+03, 5.177E+03, 5.015E+03, 4.860E+03, + 7 4.711E+03, 4.569E+03, 4.432E+03, 4.300E+03/ + DATA ASUM/ + 1 0.000E+00, 4.696E+08, 9.980E+07, 3.017E+07, 1.155E+07, 5.189E+06, + 2 2.616E+06, 1.437E+06, 8.444E+05, 5.234E+05, 3.389E+05, 2.275E+05, + 3 1.575E+05, 1.120E+05, 8.142E+04, 6.040E+04, 4.560E+04, 3.496E+04, + 4 2.719E+04, 2.141E+04, 1.711E+04, 1.377E+04, 1.119E+04, 9.166E+03, + 5 7.572E+03, 6.341E+03, 5.338E+03, 4.523E+03, 3.854E+03, 3.302E+03, + 6 2.844E+03, 2.460E+03, 2.138E+03, 1.866E+03, 1.635E+03, 1.438E+03, + 7 1.269E+03, 1.124E+03, 9.983E+02, 8.894E+02, 7.947E+02, 7.120E+02, + 8 6.396E+02, 5.759E+02, 5.198E+02, 4.703E+02, 4.263E+02, 3.873E+02, + 9 3.526E+02, 3.215E+02, 2.938E+02, 2.689E+02, 2.465E+02, 2.264E+02, + A 2.082E+02, 1.918E+02, 1.769E+02, 1.634E+02, 1.512E+02, 1.400E+02, + 1 1.298E+02, 1.206E+02, 1.121E+02, 1.043E+02, 9.720E+01, 9.066E+01, + 2 8.465E+01, 7.912E+01, 7.403E+01, 6.933E+01, 6.498E+01, 6.097E+01, + 3 5.725E+01, 5.381E+01, 5.061E+01, 4.765E+01, 4.489E+01, 4.232E+01, + 4 3.994E+01, 3.771E+01, 3.563E+01, 3.369E+01, 3.188E+01, 3.019E+01, + 5 2.860E+01, 2.712E+01, 2.572E+01, 2.442E+01, 2.319E+01, 2.204E+01, + 6 2.096E+01, 1.994E+01, 1.898E+01, 1.808E+01, 1.722E+01, 1.642E+01, + 7 1.566E+01, 1.495E+01, 1.427E+01, 1.363E+01/ + FASTEX(X)=EXTAB(IFIX(X)+1)* + 1EXTABF(IFIX((X-FLOAT(IFIX(X)))*1000.+1.5)) + IF(ITEMP.EQ.ITEMP1)GO TO 20 +C SET UP DEPTH VECTORS + ITEMP1=ITEMP + DO 10 K=1,NRHOX + XNE16=XNE(K)**.1666667 + PP(K)=XNE16*.08989/SQRT(T(K)) + FO(K)=XNE16**4*1.25E-9 + Y1B(K)=2./(1.+.012/T(K)*SQRT(XNE(K)/T(K))) + T4=T(K)/10000. + T43=T4**.3 + Y1S(K)=T43/XNE16 +C T3NHE(K)=T43*XNFPHE(K,1) + T3NHE(K)=T43*XNFHE(K,1) + T3NH2(K)=T43*XNFH2(K) + C1D(K)=FO(K)*78940./T(K) + C2D(K)=FO(K)**2/5.96E-23/XNE(K) + GCON1(K)=.2+.09*SQRT(T4)/(1.+XNE(K)/1.E13) + GCON2(K)=.2/(1.+XNE(K)/1.E15) + 10 CONTINUE +C SET UP FOR THIS LINE + 20 IF(N.EQ.N1.AND.M.EQ.M1)GO TO 30 + N1=N + M1=M + MMN=M-N + XN=N + XN2=XN*XN + XM=M + XM2=XM*XM + XMN2=XM2*XN2 + XM2MN2=XM2-XN2 + GNM=XM2MN2/XMN2 + IF(MMN.LE.3.AND.N.LE.4)XKNM=XKNMTB(N,MMN) + IF(MMN.GT.3.OR.N.GT.4)XKNM=5.5E-5/GNM*XMN2/(1.+.13/FLOAT(MMN)) + Y1NUM=320. + IF(M.EQ.2)Y1NUM=550. + IF(M.EQ.3)Y1NUM=380. + Y1WHT=1.E13 + IF(MMN.LE.3)Y1WHT=1.E14 + IF(MMN.LE.2.AND.N.LE.2)Y1WHT=Y1WTM(N,MMN) + FREQNM=RYDH*GNM + DBETA=2.99792458D18/FREQNM**2/XKNM + WAVENM=2.99792458D18/FREQNM + C1CON=XKNM/WAVENM*GNM*XM2MN2 + C2CON=(XKNM/WAVENM)**2 +C RADAMP=1.389E9/XM**4.53/(1.+5./XM2/XM) +C IF(N.NE.1)RADAMP=RADAMP+1.389E9/XN**4.53/(1.+5./XN2/XN) + RADAMP=ASUM(N)+ASUM(M) + IF(N.EQ.1)RADAMP=ASUMLYMAN(M) + RADAMP=RADAMP/12.5664 + RADAMP=RADAMP/FREQNM + RESONT=HFNM(1,M)/XM/(1.-1./XM2) + IF(N.NE.1)RESONT=RESONT+HFNM(1,N)/XN/(1.-1./XN2) +C FUDGE TO BASCHEK*2 +C RESONT=HFNM(1,M)/XM/(1.-1./XM2)*XM/3.*.791*2. +C IF(N.NE.1)RESONT=RESONT+HFNM(1,N)/XN/(1.-1./XN2)*XN/3.*.791*2. +C 2 IS FOR CONVERTING XNFPH TO XNFH +C RESONT=RESONT*5.593E-24/GNM*2. +C RESONT=RESONT*5.593E-24/GNM +C error in constant corrected 26nov95 +C KURUCZ +CC RESONT=RESONT*3.92E-24/GNM +C Castelli after Ali and Griem (1963) + RESONT=RESONT*3.579E-24/GNM + VDW=4.45E-26/GNM*(XM2*(7.*XM2+5.))**.4 +C GUESS THAT H2 IS TWICE AS STRONG AS HE AS IN TXNXN + HWVDW=VDW*T3NHE(J)+2.*VDW*T3NH2(J) + HWRAD=RADAMP + STARK=1.6678E-18*FREQNM*XKNM +C FINE STRUCTURE COMPONENTS +C +C IF(N.GT.4)THEN + IF(N.GT.4.OR.M.GT.10)THEN + IFINS=1 + FINEST(1)=0. + FINSWT(1)=1. + GO TO 30 + ENDIF +C + IF(MMN.EQ.1)GO TO 22 +C USE M.EQ.INF STRUCTURE + IFINS=LNCOMP(N) + DO 21 I=1,IFINS + FINEST(I)=STCOMP(I,N)*1.E7 + FINSWT(I)=STCPWT(I,N)/XN2 + 21 CONTINUE + GO TO 30 +C FOR ALPHA LINES + 22 IFINS=LNGHAL(N) + IPOS=ISTAL(N) + DO 23 I=1,IFINS + K=IPOS-1+I + FINEST(I)=STALPH(K)*1.E7 + FINSWT(I)=STWTAL(K)/XN2/3. + 23 CONTINUE +C NOW DO THIS DEPTH +C 30 DEL=-10.*DELW/WAVENM*FREQNM error +C FREQ=FREQNM+DEL +C WAVENM IN A DELW IN NM + 30 WL=WAVENM+DELW*10. + FREQ=2.99792458D18/WL + DEL=ABS(FREQ-FREQNM) +C WL IN NM + WL=WL/10. +C THESE HALF-WIDTHS ARE REALLY DNU/NU + HWSTK=STARK*FO(J) + HWVDW=VDW*T3NHE(J)+2.*VDW*T3NH2(J) + HWRAD=RADAMP +C XNFPH(J,1)*2 IS THE NUMBER IN THE GROUND STATE + HWRES=RESONT*XNFPH(J,1)*2. + HWLOR=HWRES+HWVDW+HWRAD + HWDOP=DOPPH(J) +C SPECIFY LARGEST HALF WIDTH IN CASE OF CORE CALC +C NWID=1, DOPPLER =2, LORENTZ =3, STARK + NWID=1 + IF(HWDOP.GE.HWSTK.AND.HWDOP.GE.HWLOR)GO TO 31 + NWID=2 + IF(HWLOR.GE.HWSTK)GO TO 31 + NWID=3 + 31 HFWID=FREQNM*AMAX1(HWDOP,HWLOR,HWSTK) +C SETS FLAG IF IN A LINE CORE +C HPROFL=0. + HPROF4=0. + IFCORE=0 + IF(ABS(DEL).LE.HFWID)IFCORE=1 + DOP=FREQNM*HWDOP + IF(IFCORE.EQ.1)GO TO (32,40,50),NWID +C +C DO DOPPLER +C PUT FINE STRUCTURE IN DOPPLER CORE + 32 DO 33 I=1,IFINS + D=ABS(FREQ-FREQNM-FINEST(I))/DOP +C IF(D.LE.7.)HPROF4=HPROF4+EXP(-D*D)/1.77245/DOP*FINSWT(I) +C IF(D.LE.7.)HPROFL=HPROFL+EXP(-D*D)/1.77245/DOP*FINSWT(I) +C SAME NORMALIZATION AS VOIGT FUNCTION + IF(D.LE.7.)HPROF4=HPROF4+FASTEX(D*D)*FINSWT(I) + 33 CONTINUE + IF(IFCORE.EQ.1)RETURN +C +C DO LORENTZ + 40 IF(N.NE.1)GO TO 48 + IF(M.NE.2)GO TO 48 +C Lyman alpha +C near center +c modify old resonance broadening to match at 4000 cm-1 + HWRES=HWRES*4. + HWLOR=HWRES+HWVDW+HWRAD + HHW=FREQNM*HWLOR + IF(FREQ.GT.(82259.10D0-4000.D0)*2.99792458D10)THEN + HPROFRES=HWRES*FREQNM/3.14159/(DEL**2+HHW**2)*1.77245*DOP + GO TO 44 + ENDIF +C only far red wing +C Data from N.F. Allard, March 1997 +C Insert Lyman alpha cutoff a la N.F. Allard and D. Koester, A&A, 258, +C 464-468. 1992. + CUTOFF=0. + IF(FREQ.LT.50000.*2.99792458D10)GO TO 43 +C TABULATED AT 200 CM-1 SPACING + SPACING=200.*2.99792458D10 + FREQ22000=(82259.10D0-22000.D0)*2.99792458D10 + IF(FREQ.LT.FREQ22000)THEN + CUTOFF=(CUTOFFH2(2)-CUTOFFH2(1))/SPACING*(FREQ-FREQ22000)+ + 1CUTOFFH2(1) + ELSE + ICUT=(FREQ-FREQ22000)/SPACING + CUTFREQ=ICUT*SPACING+FREQ22000 + CUTOFF=(CUTOFFH2(ICUT+2)-CUTOFFH2(ICUT+1))/SPACING* + 1(FREQ-CUTFREQ)+CUTOFFH2(ICUT+1) + ENDIF + CUTOFF=(10.**(CUTOFF-14.))*XNFPH(J,1)*2./2.99792458D10 + 43 HPROFRES=CUTOFF*1.77245*DOP +C + 44 HPROFRAD=0. +C RAYLEIGH SCATTERING EXCEPT NEAR DOPPLER CORE +C CROSSOVER FROM ABSORPTION TO RAYLEIGH SCATTTERING IN HRAYOP +C IF(FREQ.GT.2.463E15) +C IF(FREQ.GT..74*3.288051D15.AND.FREQ.LT..78*3.288051D15) +C USE FREQUENCY IN CONTINUA.DAT 2.419061115 AS CUTOFF INSTEAD + IF(FREQ.GT.2.4190611E15.AND.FREQ.LT..77*3.288051D15) + 1 HPROFRAD=HWRAD*FREQNM/3.14159/(DEL**2+HHW**2)*1.77245*DOP +C CORRECTION TO LORENTZ PROFILE ALLER P.164 NOT USED +C HPROFRAD=HPROFRAD*4.*FREQ**2/(FREQ**2+FREQNM**2) +C + HPROFVDW=HWVDW*FREQNM/3.14159/(DEL**2+HHW**2)*1.77245*DOP +C VAN DER WAALS CUTOFF FOR HE AND FOR H2 +C GUESS BOTH 60000 CM-1 = 1.8D15 HZ + IF(FREQ.LT.1.8D15)HPROFVDW=0. + HPROFLOR=HPROFRES+HPROFRAD+HPROFVDW + HPROF4=HPROF4+HPROFLOR + IF(IFCORE.EQ.1)RETURN + GO TO 50 +C +C not Lyman alpha + 48 HHW=FREQNM*HWLOR + TOP=HHW + IF(N.NE.1.OR.M.GT.5)GO TO 49 +C Lyman beta + IF(M.EQ.3.AND.FREQ.GT..885*3.288051D15.AND. + 1 FREQ.LT..890*3.288051D15)TOP=HHW-FREQNM*HWRAD +C Lyman gamma + IF(M.EQ.4.AND.FREQ.GT..936*3.288051D15.AND. + 1 FREQ.LT..938*3.288051D15)TOP=HHW-FREQNM*HWRAD +C Lyman delta + IF(M.EQ.5.AND.FREQ.GT..959*3.288051D15.AND. + 1 FREQ.LT..961*3.288051D15)TOP=HHW-FREQNM*HWRAD + 49 HPROFLOR=TOP/3.14159/(DEL**2+HHW**2)*1.77245*DOP + HPROF4=HPROF4+HPROFLOR + IF(IFCORE.EQ.1)RETURN +C +C DO STARK + 50 WTY1=1./(1.+XNE(J)/Y1WHT) + Y1SCAL=Y1NUM*Y1S(J)*WTY1+Y1B(J)*(1.-WTY1) + C1=C1D(J)*C1CON*Y1SCAL + C2=C2D(J)*C2CON + G1=6.77*SQRT(C1) + GNOT=G1*AMAX1(0.,.2114+ALOG(SQRT(C2)/C1))*(1.-GCON1(J)-GCON2(J)) + BETA=ABS(DEL)/FO(J)*DBETA + Y1=C1*BETA + Y2=C2*BETA**2 + GAM=GNOT +C IF(Y2.LE..001)GO TO 51 + IF(Y2.LE.1.E-4.AND.Y1.LE.1.E-5)GO TO 51 +C GAM=G1*(.5*FASTEX(AMIN1(80.,Y1))+FASTE1(Y1)-.5*FASTE1(Y2))* +C GAM=G1*(.5*EXP(-AMIN1(80.,Y1))+VCSE1F(Y1)-.5*VCSE1F(Y2))* + GAM=G1*(.5*FASTEX(AMIN1(80.,Y1))+VCSE1F(Y1)-.5*VCSE1F(Y2))* + 1(1.-GCON1(J)/(1.+(90.*Y1)**3)-GCON2(J)/(1.+2000.*Y1)) + IF(GAM.LE.1.E-20)GAM=0. + 51 PRQS=SOFBET(BETA,PP(J),N,M) + IF(M.GT.2)GO TO 53 +C ASSUME QUASISTATIC PROFILE IS HALF PROTONS, HALF ELECTRONS + PRQS=PRQS*.5 + CUTOFF=0. +C LYMAN ALPHA QUASI H2+ CUTOFF +C Data from N.F. Allard, March 1997 + IF(FREQ.LT.(82259.10D0-20000.)*2.99792458D10)GO TO 53 + IF(FREQ.GT.(82259.10D0-4000.)*2.99792458D10)GO TO 52 +C TABULATED AT 100 CM-1 SPACING + FREQ15000=(82259.10D0-15000.)*2.99792458D10 + SPACING=100.*2.99792458D10 + IF(FREQ.LT.FREQ15000)THEN + CUTOFF=(CUTOFFH2PLUS(2)-CUTOFFH2PLUS(1))/SPACING* + 1(FREQ-FREQ15000)+CUTOFFH2PLUS(1) + ELSE + ICUT=(FREQ-FREQ15000)/SPACING + CUTFREQ=ICUT*SPACING+FREQ15000 + CUTOFF=(CUTOFFH2PLUS(ICUT+2)-CUTOFFH2PLUS(ICUT+1))/ + 1SPACING*(FREQ-CUTFREQ)+CUTOFFH2PLUS(ICUT+1) + ENDIF +C XNFPH(J,2)=XNFH(J,2) + CUTOFF=(10.**(CUTOFF-14.))/2.99792458D10*XNFPH(J,2) + HPROF4=HPROF4+CUTOFF*1.77245*DOP + GO TO 53 + 52 BETA4000=4000.*2.99792458D10/FO(J)*DBETA + PRQSP4000=SOFBET(BETA4000,PP(J),N,M)*.5/FO(J)*DBETA + CUTOFF4000=(10.**(-11.07-14.))/2.99792458D10*XNFPH(J,2) + HPROF4=HPROF4+CUTOFF4000/PRQSP4000*PRQS/FO(J)*DBETA*1.77245*DOP + 53 F=0. + IF(GAM.GT.0.)F=GAM/3.14159/(GAM**2+BETA**2) + P1=(.9*Y1)**2 + FNS=(P1+.03*SQRT(Y1))/(P1+1.) +C SAME NORMALIZATION AS VOIGT FUNCTION + HPROF4=HPROF4+(PRQS*(1.+FNS)+F)/FO(J)*DBETA*1.77245*DOP + RETURN + END + FUNCTION HFNM(N,M) +C CALCULATES HYDROGEN OSCILLATOR STRENGTHS + DATA NSTR/0/,MSTR/0/ + HFNM=0. + IF(M.LE.N)RETURN + IF(N.EQ.NSTR)GO TO 10 + XN=N + GINF=.2027/XN**.71 + GCA=.124/XN + FKN=XN*1.9603 + WTC=.45-2.4/XN**3*(XN-1.) + NSTR=N + GO TO 15 + 10 IF(M.EQ.MSTR)GO TO 20 + 15 XM=M + XMN=M-N + FK=FKN*(XM/(XMN*(XM+XN)))**3 + XMN12=XMN**1.2 + WT=(XMN12-1.)/(XMN12+WTC) + FNM=FK*(1.-WT*GINF-(.222+GCA/XM)*(1.-WT)) + MSTR=M + 20 HFNM=FNM + RETURN + END + FUNCTION VCSE1F(X) +C ROUGH, BUT ARRANGED TO BE FAST. X.GE.0 + COMMON /EXTAB/EXTAB(1001),EXTABF(1001),E1TAB(2000) + FASTEX(X)=EXTAB(IFIX(X)+1)* + 1EXTABF(IFIX((X-FLOAT(IFIX(X)))*1000.+1.5)) + VCSE1F=0. + IF(X.LE.0.)RETURN + IF(X.GT..01)GO TO 10 + VCSE1F=-ALOG(X)-.577215+X + RETURN + 10 IF(X.GT.1.)GO TO 20 + VCSE1F=-ALOG(X)-.57721566D0+X*(.99999193D0+X*(-.24991055D0+X* + 1 (.05519968D0+X*(-.00976004D0+X*.00107857D0)))) + RETURN + 20 IF(X.GT.30.)RETURN +C VCSE1F=(X*(X+2.334733)+.25062)/(X*(X+3.330657)+1.681534)/X*EXP(-X) + VCSE1F=(X*(X+2.334733D0)+.25062D0)/(X*(X+3.330657D0)+1.681534D0) + 1 /X*FASTEX(X) + RETURN + END + FUNCTION SOFBET(B,P,N,M) +C GENERATES S(BETA,P) FOR HYDROGEN LINES. THE ALPHA AND BETA LINES +C OF THE FIRST THREE SERIES ARE EXPLICITLY INCLUDED AND THE H18 +C PROFILE IS USED FOR THE REST. +C +C THESE PROFILES HAVE BEEN RENORMALIZED TO FULL OSCILLATOR STRENGTH +C +C STORAGE FOR CORRECTIONS (P,BETA,IND),(P,IND),(P,IND) + DIMENSION PROPBM(5,15,7),C(5,7),D(5,7) + DIMENSION PP(5),BETA(15) + DIMENSION PROB1(75),PROB2(75),PROB3(75),PROB4(75),PROB5(75) + DIMENSION PROB6(75),PROB7(75) + DIMENSION C1(5),C2(5),C3(5),C4(5),C5(5),C6(5),C7(5) + DIMENSION D1(5),D2(5),D3(5),D4(5),D5(5),D6(5),D7(5) + EQUIVALENCE (PROPBM(1),PROB1(1)),(PROPBM(76),PROB2(1)) + EQUIVALENCE (PROPBM(151),PROB3(1)),(PROPBM(226),PROB4(1)) + EQUIVALENCE (PROPBM(301),PROB5(1)),(PROPBM(376),PROB6(1)) + EQUIVALENCE (PROPBM(451),PROB7(1)) + EQUIVALENCE (C(1),C1(1)),(C(6),C2(1)),(C(11),C3(1)),(C(16),C4(1)) + EQUIVALENCE (C(21),C5(1)),(C(26),C6(1)),(C(31),C7(1)) + EQUIVALENCE (D(1),D1(1)),(D(6),D2(1)),(D(11),D3(1)),(D(16),D4(1)) + EQUIVALENCE (D(21),D5(1)),(D(26),D6(1)),(D(31),D7(1)) +C LYMAN ALPHA + DATA PROB1/ + 1-.980,-.967,-.948,-.918,-.873,-.968,-.949,-.921,-.879,-.821, + 2-.950,-.922,-.883,-.830,-.764,-.922,-.881,-.830,-.770,-.706, + 3-.877,-.823,-.763,-.706,-.660,-.806,-.741,-.682,-.640,-.625, + 4-.691,-.628,-.588,-.577,-.599,-.511,-.482,-.484,-.514,-.568, + 5-.265,-.318,-.382,-.455,-.531,-.013,-.167,-.292,-.394,-.478, + 6 .166,-.056,-.216,-.332,-.415, .251, .035,-.122,-.237,-.320, + 7 .221, .059,-.068,-.168,-.247, .160, .055,-.037,-.118,-.189, + 8 .110, .043,-.022,-.085,-.147/ + DATA C1 /-18.396, 84.674,-96.273, 3.927, 55.191/ + DATA D1 / 11.801, 9.079, -.651,-11.071,-26.545/ +C LYMAN BETA + DATA PROB2/ + 1-.242, .060, .379, .671, .894, .022, .314, .569, .746, .818, + 2 .273, .473, .605, .651, .607, .432, .484, .489, .442, .343, + 3 .434, .366, .294, .204, .091, .304, .184, .079,-.025,-.135, + 4 .167, .035,-.082,-.189,-.290, .085,-.061,-.183,-.287,-.374, + 5 .032,-.127,-.249,-.344,-.418,-.024,-.167,-.275,-.357,-.420, + 6-.061,-.170,-.257,-.327,-.384,-.047,-.124,-.192,-.252,-.306, + 7-.043,-.092,-.142,-.190,-.238,-.038,-.070,-.107,-.146,-.187, + 8-.030,-.049,-.075,-.106,-.140/ + DATA C2 / 95.740, 18.489, 14.902, 24.466, 42.456/ + DATA D2 / -6.665, -7.136,-10.605,-15.882,-23.632/ +C BALMER ALPHA + DATA PROB3/ + 1-.484,-.336,-.206,-.111,-.058,-.364,-.264,-.192,-.154,-.144, + 2-.299,-.268,-.250,-.244,-.246,-.319,-.333,-.337,-.336,-.337, + 3-.397,-.414,-.415,-.413,-.420,-.456,-.455,-.451,-.456,-.478, + 4-.446,-.441,-.446,-.469,-.512,-.358,-.381,-.415,-.463,-.522, + 5-.214,-.288,-.360,-.432,-.503,-.063,-.196,-.304,-.394,-.468, + 6 .063,-.108,-.237,-.334,-.409, .151,-.019,-.148,-.245,-.319, + 7 .149, .016,-.091,-.177,-.246, .115, .023,-.056,-.126,-.189, + 8 .078, .021,-.036,-.091,-.145/ + DATA C3 /-25.088,145.882,-50.165, 7.902, 51.003/ + DATA D3 / 7.872, 5.592, -2.716,-12.180,-25.661/ +C BALMER BETA + DATA PROB4/ + 1-.082, .163, .417, .649, .829, .096, .316, .515, .660, .729, + 2 .242, .393, .505, .556, .534, .320, .373, .394, .369, .290, + 3 .308, .274, .226, .152, .048, .232, .141, .052,-.046,-.154, + 4 .148, .020,-.094,-.200,-.299, .083,-.070,-.195,-.299,-.385, + 5 .031,-.130,-.253,-.348,-.422,-.023,-.167,-.276,-.359,-.423, + 6-.053,-.165,-.254,-.326,-.384,-.038,-.119,-.190,-.251,-.306, + 7-.034,-.088,-.140,-.190,-.239,-.032,-.066,-.103,-.144,-.186, + 8-.027,-.048,-.075,-.106,-.142/ + DATA C4 / 93.783, 10.066, 9.224, 20.685, 40.136/ + DATA D4 / -5.918, -6.501,-10.130,-15.588,-23.570/ +C PASCHEN ALPHA + DATA PROB5/ + 1-.819,-.759,-.689,-.612,-.529,-.770,-.707,-.638,-.567,-.498, + 2-.721,-.659,-.595,-.537,-.488,-.671,-.617,-.566,-.524,-.497, + 3-.622,-.582,-.547,-.523,-.516,-.570,-.545,-.526,-.521,-.537, + 4-.503,-.495,-.496,-.514,-.551,-.397,-.418,-.448,-.492,-.547, + 5-.246,-.315,-.384,-.453,-.522,-.080,-.210,-.316,-.406,-.481, + 6 .068,-.107,-.239,-.340,-.418, .177,-.006,-.143,-.246,-.324, + 7 .184, .035,-.082,-.174,-.249, .146, .042,-.046,-.123,-.190, + 8 .103, .036,-.027,-.088,-.146/ + DATA C5 /-19.819, 94.981,-79.606, 3.159, 52.106/ + DATA D5 / 10.938, 8.028, -1.267,-11.375,-26.047/ +C PASCHEN BETA + DATA PROB6/ + 1-.073, .169, .415, .636, .809, .102, .311, .499, .639, .710, + 2 .232, .372, .479, .531, .514, .294, .349, .374, .354, .279, + 3 .278, .253, .212, .142, .040, .215, .130, .044,-.051,-.158, + 4 .141, .015,-.097,-.202,-.300, .080,-.072,-.196,-.299,-.385, + 5 .029,-.130,-.252,-.347,-.421,-.022,-.166,-.275,-.359,-.423, + 6-.050,-.164,-.253,-.325,-.384,-.035,-.118,-.189,-.252,-.306, + 7-.032,-.087,-.139,-.190,-.240,-.029,-.064,-.102,-.143,-.185, + 8-.025,-.046,-.074,-.106,-.142/ + DATA C6 /111.107, 11.910, 9.857, 21.371, 41.006/ + DATA D6 / -5.899, -6.381,-10.044,-15.574,-23.644/ +C BALMER 18 + DATA PROB7/ + 1 .005, .128, .260, .389, .504, .004, .109, .220, .318, .389, + 2-.007, .079, .162, .222, .244,-.018, .041, .089, .106, .080, + 3-.026,-.003, .003,-.023,-.086,-.025,-.048,-.087,-.148,-.234, + 4-.008,-.085,-.165,-.251,-.343, .018,-.111,-.223,-.321,-.407, + 5 .032,-.130,-.255,-.354,-.431, .014,-.148,-.269,-.359,-.427, + 6-.005,-.140,-.243,-.323,-.386, .005,-.095,-.178,-.248,-.307, + 7-.002,-.068,-.129,-.187,-.241,-.007,-.049,-.094,-.139,-.186, + 8-.010,-.036,-.067,-.103,-.143/ + DATA C7 /511.318, 1.532, 4.044, 19.266, 41.812/ + DATA D7 / -6.070, -4.528, -8.759,-14.984,-23.956/ + DATA PP/0.,.2,.4,.6,.8/ + DATA BETA/1.,1.259,1.585,1.995,2.512,3.162,3.981,5.012,6.310,7.943 + 1,10.,12.59,15.85,19.95,25.12/ + CORR=1. + B2=B*B + SB=SQRT(B) + IF(B.GT.500.)GO TO 40 + INDX=7 + MMN=M-N + IF(N.LE.3.AND.MMN.LE.2)INDX=2*(N-1)+MMN +C DETERMINE RELEVANT DEBYE RANGE + IM=MIN0(INT(5.*P)+1,4) + IP=IM+1 + WTPP=5.*(P-PP(IM)) + WTPM=1.-WTPP + IF(B.GT.25.12)GO TO 30 + DO 10 J=2,15 + IF(B.LE.BETA(J))GO TO 20 + 10 CONTINUE + 20 JM=J-1 + JP=J + WTBP=(B-BETA(JM))/(BETA(JP)-BETA(JM)) + WTBM=1.-WTBP + CBP=PROPBM(IP,JP,INDX)*WTPP+PROPBM(IM,JP,INDX)*WTPM + CBM=PROPBM(IP,JM,INDX)*WTPP+PROPBM(IM,JM,INDX)*WTPM + CORR=1.+CBP*WTBP+CBM*WTBM +C GET INNER APPROXIMATE PROFILE + PR1=0. + PR2=0. + WT=AMAX1(AMIN1(.5*(10.-B),1.),0.) + IF(B.LE.10.)PR1=8./(83.+(2.+.95*B2)*B) + IF(B.GE.8.)PR2=(1.5/SB+27./B2)/B2 + SOFBET=(PR1*WT+PR2*(1.-WT))*CORR + RETURN +C ASYMPTOTIC PARTS + 30 CC=C(IP,INDX)*WTPP+C(IM,INDX)*WTPM + DD=D(IP,INDX)*WTPP+D(IM,INDX)*WTPM + CORR=1.+DD/(CC+B*SB) + 40 SOFBET=(1.5/SB+27./B2)/B2*CORR + RETURN + END + SUBROUTINE TABVOIGT(VSTEPS,N) + COMMON /H1TAB/H0TAB(2001),H1TAB(2001),H2TAB(2001) + DIMENSION TABVI(81),TABH1(81) + DATA TABVI/0.,.1,.2,.3,.4,.5,.6,.7,.8,.9,1.,1.1,1.2,1.3,1.4,1.5, + 11.6,1.7,1.8,1.9,2.,2.1,2.2,2.3,2.4,2.5,2.6,2.7,2.8,2.9,3.,3.1,3.2, + 2 3.3,3.4,3.5,3.6,3.7,3.8,3.9,4.0,4.2,4.4,4.6,4.8,5.0,5.2,5.4,5.6, + 3 5.8,6.0,6.2,6.4,6.6,6.8,7.0,7.2,7.4,7.6,7.8,8.0,8.2,8.4,8.6,8.8, + 4 9.0,9.2,9.4,9.6,9.8,10.0,10.2,10.4,10.6,10.8,11.0,11.2,11.4,11.6, + 5 11.8,12.0/ + DATA TABH1/-1.12838,-1.10596,-1.04048,-.93703,-.80346,-.64945, + 1-.48552,-.32192,-.16772,-.03012,.08594,.17789,.24537,.28981, + 2.31394,.32130,.31573,.30094,.28027,.25648,.231726,.207528,.184882, + 3.164341,.146128,.130236,.116515,.104739,.094653,.086005,.078565, + 4 .072129,.066526,.061615,.057281,.053430,.049988,.046894,.044098, + 5 .041561,.039250,.035195,.031762,.028824,.026288,.024081,.022146, + 6 .020441,.018929,.017582,.016375,.015291,.014312,.013426,.012620, + 7 .0118860,.0112145,.0105990,.0100332,.0095119,.0090306,.0085852, + 8 .0081722,.0077885,.0074314,.0070985,.0067875,.0064967,.0062243, + 9 .0059688,.0057287,.0055030,.0052903,.0050898,.0049006,.0047217, + T .0045526,.0043924,.0042405,.0040964,.0039595/ +C PRETABULATE VOIGT FUNCTION +C 100 STEPS PER DOPPLER WIDTH GIVES 2 PER CENT ACCURACY + DO 1 I=1,N + 1 H0TAB(I)=FLOAT(I-1)/VSTEPS + CALL MAP1(TABVI,TABH1,81,H0TAB,H1TAB,N) + DO 2 I=1,N + VV=(FLOAT(I-1)/VSTEPS)**2 + H0TAB(I)=EXP(-VV) + 2 H2TAB(I)=H0TAB(I)-(VV+VV)*H0TAB(I) + RETURN + END + FUNCTION VOIGT(V,A) +C FAST VOIGT + COMMON /H1TAB/H0TAB(2001),H1TAB(2001),H2TAB(2001) + IV=V*200.+1.5 + IF(A.LT..2)GO TO 10 + IF(A.GT.1.4)GO TO 2 + IF(A+V.GT.3.2)GO TO 2 + VV=V*V + HH1=H1TAB(IV)+H0TAB(IV)*1.12838 + HH2=H2TAB(IV)+HH1*1.12838-H0TAB(IV) + HH3=(1.-H2TAB(IV))*.37613-HH1*.66667*VV+HH2*1.12838 + HH4=(3.*HH3-HH1)*.37613+H0TAB(IV)*.66667*VV*VV + VOIGT=((((HH4*A+HH3)*A+HH2)*A+HH1)*A+H0TAB(IV))* + 1 (((-.122727278D0*A+.532770573D0)*A-.96284325D0)*A+ + 2 .979895032D0) + RETURN + 2 AA=A*A + VV=V*V + U=(AA+VV)*1.4142 + VOIGT=A*.79788/U + IF(A.GT.100.)RETURN + AAU=AA/U + VVU=VV/U + UU=U*U + VOIGT= + A((((AAU-10.*VVU)*AAU*3.+15.*VVU*VVU)+3.*VV-AA)/UU+1.)*VOIGT +C A ((((AA-10.*VV)*AA*3.+15.*VV*VV)/UU+3.*VV-AA)/UU+1.)*A*.79788/U + RETURN + 10 IF(V.GT.10.)GO TO 12 + 11 VOIGT=(H2TAB(IV)*A+H1TAB(IV))*A+H0TAB(IV) + RETURN + 12 VOIGT=.5642*A/V**2 + RETURN + END + FUNCTION EXPI(N,X) +C LOW PRECISION VERSION 1.E-5 +C EXPONENTIAL INTEGRAL FOR POSITIVE ARGUMENTS AFTER CODY AND +C THACHER, MATH. OF COMP.,22,641(1968) + DATA X1/-1.E20/ + DATA A0,A1,A2,B0,B1/-4.43668255D0,4.42054938D0,3.16274620D0, + 1 7.68641124D0,5.65655216D0/ + DATA C0,C1,C2,D1,D2/.0012102205D0,.98147989D0,.75339742D0, + 1 1.6198645D0,.29135151D0/ + DATA E0,E1,F1/-.9969698D0,-.4257849D0,2.318261D0/ + IF(X.EQ.X1)GO TO 40 + EX=EXP(-X) + X1=X + IF(X.GT.4.)GO TO 10 + IF(X.GT.1.)GO TO 20 + IF(X.GT.0.)GO TO 30 + EX1=0. + GO TO 40 + 10 EX1=(EX+EX*(E0+E1/X)/(X+F1))/X + GO TO 40 + 20 EX1=EX*(C2+(C1+C0*X)*X)/(D2+(D1+X)*X) + GO TO 40 + 30 EX1=(A0+(A1+A2*X)*X)/(B0+(B1+X)*X)-ALOG(X) + 40 EXPI=EX1 + IF(N.EQ.1)RETURN + N1=N-1 + DO 41 I=1,N1 + 41 EXPI=(EX-X*EXPI)/FLOAT(I) + RETURN + END + FUNCTION FASTE1(X) + COMMON /EXTAB/EXTAB(1001),EXTABF(1001),E1TAB(2000) +C DO 3457 I=1,2000 +C3457 E1TAB(I)=EXPI(1,FLOAT(I)*.01) + FASTE1=0. + IF(X.GT.20)RETURN + IF(X.LT..5)GO TO 1 + FASTE1=E1TAB(IFIX(X*100.+.5)) + RETURN + 1 IF(X.LE.0.)RETURN + FASTE1=(1.-.22464*X)*X-ALOG(X)-.57721 + RETURN + END + SUBROUTINE MAP1(XOLD,FOLD,NOLD,XNEW,FNEW,NNEW) + DIMENSION XOLD(1),FOLD(1),XNEW(1),FNEW(1) + L=2 + LL=0 + DO 50 K=1,NNEW + 10 IF(XNEW(K).LT.XOLD(L))GO TO 20 + L=L+1 + IF(L.GT.NOLD)GO TO 30 + GO TO 10 + 20 IF(L.EQ.LL)GO TO 50 + IF(L.EQ.2)GO TO 30 + L1=L-1 + IF(L.GT.LL+1.OR.L.EQ.3)GO TO 21 + CBAC=CFOR + BBAC=BFOR + ABAC=AFOR + IF(L.EQ.NOLD)GO TO 22 + GO TO 25 + 21 L2=L-2 + D=(FOLD(L1)-FOLD(L2))/(XOLD(L1)-XOLD(L2)) + CBAC=FOLD(L)/((XOLD(L)-XOLD(L1))*(XOLD(L)-XOLD(L2)))+ + 1(FOLD(L2)/(XOLD(L)-XOLD(L2))-FOLD(L1)/(XOLD(L)-XOLD(L1)))/ + 2(XOLD(L1)-XOLD(L2)) + BBAC=D-(XOLD(L1)+XOLD(L2))*CBAC + ABAC=FOLD(L2)-XOLD(L2)*D+XOLD(L1)*XOLD(L2)*CBAC + IF(L.LT.NOLD)GO TO 25 + 22 C=CBAC + B=BBAC + A=ABAC + LL=L + GO TO 50 + 25 D=(FOLD(L)-FOLD(L1))/(XOLD(L)-XOLD(L1)) + CFOR=FOLD(L+1)/((XOLD(L+1)-XOLD(L))*(XOLD(L+1)-XOLD(L1)))+ + 1(FOLD(L1)/(XOLD(L+1)-XOLD(L1))-FOLD(L)/(XOLD(L+1)-XOLD(L)))/ + 2(XOLD(L)-XOLD(L1)) + BFOR=D-(XOLD(L)+XOLD(L1))*CFOR + AFOR=FOLD(L1)-XOLD(L1)*D+XOLD(L)*XOLD(L1)*CFOR + WT=0. + IF(ABS(CFOR).NE.0.)WT=ABS(CFOR)/(ABS(CFOR)+ABS(CBAC)) + A=AFOR+WT*(ABAC-AFOR) + B=BFOR+WT*(BBAC-BFOR) + C=CFOR+WT*(CBAC-CFOR) + LL=L + GO TO 50 + 30 IF(L.EQ.LL)GO TO 50 + L=AMIN0(NOLD,L) + C=0. + B=(FOLD(L)-FOLD(L-1))/(XOLD(L)-XOLD(L-1)) + A=FOLD(L)-XOLD(L)*B + LL=L + 50 FNEW(K)=A+(B+C*XNEW(K))*XNEW(K) +C MAP1=LL-1 + RETURN + END + FUNCTION AIRVAC(W) + IMPLICIT REAL*8 (A-H,O-Z) +C W IS AIR WAVELENGTH IN NM +C WAVEN IS AIR WAVENUMBER WHICH IS USUALLY GOOD ENOUGH +C MUST ITERATE FOR EXACT SOLUTION + WAVEN=1.D7/W + WNEW=W*(1.0000834213D0+ + 1 2406030.D0/(1.30D10-WAVEN**2)+15997.D0/(3.89D9-WAVEN**2)) + WAVEN=1.D7/WNEW + WNEW=W*(1.0000834213D0+ + 1 2406030.D0/(1.30D10-WAVEN**2)+15997.D0/(3.89D9-WAVEN**2)) + WAVEN=1.D7/WNEW + AIRVAC=W*(1.0000834213D0+ + 1 2406030.D0/(1.30D10-WAVEN**2)+15997.D0/(3.89D9-WAVEN**2)) + RETURN + END + FUNCTION VACAIR(W) + IMPLICIT REAL*8 (A-H,O-Z) +C W IS VACUUM WAVELENGTH IN NM + WAVEN=1.D7/W + VACAIR=W/(1.0000834213D0+ + 1 2406030.D0/(1.30D10-WAVEN**2)+15997.D0/(3.89D9-WAVEN**2)) + RETURN + END + FUNCTION HE1PROF(J,WAVE,WL,DOPWL,GAMMAR,GAMMAS) +c REAL*8 WAVE,WL,WLSAVE + LINE=WL+1. + IF(LINE.EQ.448)THEN + HE1PROF=HE4471(J,WAVE,WL,DOPWL) + RETURN + ENDIF + IF(LINE.EQ.403)THEN + LINE=WL+.4 + IF(LINE.EQ.402)then + line=wl+1. + go to 8 + endif + HE1PROF=HE4026(J,WAVE,WL,DOPWL) + RETURN + ENDIF + IF(LINE.EQ.439)THEN + HE1PROF=HE4387(J,WAVE,WL,DOPWL) + RETURN + ENDIF + IF(LINE.EQ.493)THEN + HE1PROF=HE4921(J,WAVE,WL,DOPWL) + RETURN + ENDIF + 8 continue +C HE1=381.96, 386.7, 392.6, 400.9, 402.3, 414.37, 416.8 + if(line.eq.382.OR.LINE.EQ.387.or.line.eq.393. + 1 or.line.eq.401.or.LINE.eq.403.or.LINE.EQ.415. + 2 or. LINE.EQ.417)then + he1prof=dimitri(j,wave,wl,DOPWL,GAMMAR,GAMMAS) + RETURN + endif + 1 HE1PROF=GRIEM(J,WAVE,WL,DOPWL,GAMMAR,GAMMAS) + RETURN + END + FUNCTION HE4471(J,WAVE,WL,DOPWL) + PARAMETER (kw=99) + DIMENSION WS(4),DS(4),ALFS(4),FORB1(4),FORB2(4),TS(4) + COMMON /STATE/P(kw),XNE(kw),XNATOM(kw),RHO(kw),PTOTAL(kw) + COMMON /TEMP/T(kw),TKEV(kw),TK(kw),HKT(kw),TLOG(kw),HCKT(kw),ITEMP + COMMON /XNFDOP/XNFPEL(594),DOPPLE(594),XNFDOP(594) + COMMON /BHE/BHE1(kw,29),AHE1(kw),SHE1(kw),BHE2(kw,6),AHE2(kw), + 1 SHE2(kw),AHEMIN(kw),SIGHE(kw),XNFPHE(kw,3),XNFHE(kw,2) + COMMON /BHYD/BHYD(kw,8),AHYD(kw),SHYD(kw),AH2P(kw),BMIN(kw), + 1 AHMIN(kw),SHMIN(kw),SIGH(kw),SIGH2(kw),AHLINE(kw), + 2 SHLINE(kw),XNFPH(kw,2),XNFH(kw) +c REAL*8 WL,wave +C STANDARD ISOLATED LINE BROADENING PARAMETERS +c From Barnard,Cooper and Smith J.Q.S.R.T. 14,1025,1974 +c ws=we(A),ds=de/we, alfs=alpha; data for Ne=10**13 cm(-3) + DATA WS/0.001460,0.001269,0.001079,0.000898/ + DATA DS/0.036,-0.005,-0.026,-0.034/ + DATA ALFS/0.107,0.119,0.134,0.154/ + DATA DEN/1.0E13/ +c data forb1/?,7.66E-3,9.04E-3,1.01E-2/ ???? + DATA FORB1/0.,0.,0.,0./ + DATA FORB2/0.,0.,0.,0./ +C NANOMETERS + DATA DLP/0.021/ + DATA DLF1/-0.150/ + DATA DLF2/0./ + DATA TS/ 5.0E3,1.0E4,2.0E4,4.0E4/ +c +c 447.1469 -2.198 2.0 169086.864 1.0 191444.603 2.002p 3P 4d 3D +c 447.1469 7 9.262-3.690 NBS 415 5 +c 447.1473 -1.028 2.0 169086.864 2.0 191444.585 2.002p 3P 4d 3D +c 447.1473 7 -3.690 NBS 415 4 +c 447.1473 -0.278 2.0 169086.864 3.0 191444.583 2.002p 3P 4d 3D +c 447.1473 7 -3.690 NBS 415 4 +c 447.1485 -1.028 1.0 169086.940 1.0 191444.603 2.002p 3P 4d 3D +c 447.1485 7 -3.690 NBS 415 4 +c 447.1488 -0.548 1.0 169086.940 2.0 191444.585 2.002p 3P 4d 3D +c 447.1488 7 -3.690 NBS 415 4 +c 447.1682 -0.898 0.0 169087.928 1.0 191444.603 2.002p 3P 4d 3D +c 447.1682 7 -3.690 NBS 415 4 +c +c 447.1498 0.052 4.0 169087.008 7.0 191444.588 2.002p 3P 4d 3D +c 447.1498 7 7.502 -3.69 -7.22NBS 415 4 +c + HE4471=0. + E=XNE(J) + TEMP=T(J) +C NUMERO PROTONI=N(H+)/U(H+) U(H+)=1 + XNFHP=XNFPH(J,2) + XNFHEP=XNFHE(J,2) + DL=WAVE-WL + TEMP=AMAX1(TEMP,5.0E3) + TEMP=AMIN1(TEMP,4.0E4) + IFORB=0. + DO 10 IT=1,4 + IF(FORB1(IT).LE.0.)GO TO 10 + IFORB=1 + 10 CONTINUE + IF(E.LE.1.0E13)GO TO 499 + CALL READBCS(1,J,TEMP,XNFHP,XNFHEP,E,DL,PHIHE) + HE4471=1.772453*PHIHE*DOPWL*10. + RETURN + 499 CONTINUE + DO 2 I=2,4 + IT=I + IF(TS(I).GT.TEMP)GO TO 3 + 2 CONTINUE + 3 X=(TEMP-TS(IT-1))/(TS(IT)-TS(IT-1)) + XX=E/DEN +C DAMPING WIDTH + W=XX*(X*WS(IT)+(1.0-X)*WS(IT-1)) +C RATIO OF SHIFT TO WIDTH + D=X*DS(IT)+(1.0-X)*DS(IT-1) +C ION BROADENING PARAMETER + ALF=XX**0.25*(X*ALFS(IT)+(1.0-X)*ALFS(IT-1)) +C FORBIDDEN COMPONENTS INTENSITIES + F1=XX*(X*FORB1(IT)+(1.0-X)*FORB1(IT-1)) + F2=XX*(X*FORB2(IT)+(1.0-X)*FORB2(IT-1)) +C RECIPROCAL PERTURBER VELOCITY +C KM! + XX=XNFHP/E + VM1=8.78E0*(XX+2.0*(1.0-XX))/SQRT(TEMP) +C MEAN INTERPARTICLE DISTANCE + RHOM=1.0/(4.19*E)**(1.0/3.0) +C ION VELOCITY PARAMETER + SIGMA=1.885E14*W*RHOM*VM1/(WL*10.)**2 +C 1.885E14=2*PAI*C*1.E8 1.E8 TRASFORMA RHOM DA CM ad A + X=ALF**(8.0/9.0)/SIGMA**(1.0/3.0) +C TOTAL WIDTHIS ANGSTROMS, then in nm + WTOT=W*(1.0+1.36*X) + wtot=wtot*0.1 +C TOTAL SHIFT IN ANGSTROM, then in nm + DTOT=W*D*(1.0+2.36*X/ABS(D)) + dtot=dtot*0.1 +C VOIGT PARAMETERS + A=WTOT/DOPWL +C NORMALIZATION CONSTANT +c CON=0.564189583547756E0/(1.0+F1+F2)/(DOPPLE(7)*WL4) + con=1. + WWD=WAVE-WL-DTOT +C ALLOW FOR FINE STRUCTURE SPLITTING + HE4471=VOIGT(ABS(WWD-.0184)/DOPWL,A)/9.+ + 1 VOIGT(ABS(WWD+.0013)/DOPWL,A)/12.+ + 2 VOIGT(ABS(WWD+.0010)/DOPWL,A)/4.+ + 3 VOIGT(ABS(WWD+.0029)/DOPWL,A)/180.+ + 4 VOIGT(ABS(WWD+.0025)/DOPWL,A)*11./20. + IF(F1.LE.0) GO TO 4 +C ADD IN P TO F FORBIDDEN COMPONENT + V=ABS((WAVE-WL)-DLF1)/DOPWL + HE4471=HE4471+F1*VOIGT(V,A) + IF(F2.LE.0) GO TO 4 +C ADD P TO G FORBIDDEN COMPONENT + V=ABS((WAVE-WL)-DLF2)/DOPWL + HE4471=HE4471+F2*VOIGT(V,A) + 4 HE4471=HE4471*CON +C TYPE*,HE4471 + RETURN + END + FUNCTION HE4026(J,WAVE,WL,DOPWL) + PARAMETER (kw=99) + DIMENSION WS(4),DS(4),ALFS(4),FORB1(4),FORB2(4),TS(4) + COMMON /STATE/P(kw),XNE(kw),XNATOM(kw),RHO(kw),PTOTAL(kw) + COMMON /TEMP/T(kw),TKEV(kw),TK(kw),HKT(kw),TLOG(kw),HCKT(kw),ITEMP + COMMON /XNFDOP/XNFPEL(594),DOPPLE(594),XNFDOP(594) + COMMON /BHE/BHE1(kw,29),AHE1(kw),SHE1(kw),BHE2(kw,6),AHE2(kw), + 1 SHE2(kw),AHEMIN(kw),SIGHE(kw),XNFPHE(kw,3),XNFHE(kw,2) + COMMON /BHYD/BHYD(kw,8),AHYD(kw),SHYD(kw),AH2P(kw),BMIN(kw), + 1 AHMIN(kw),SHMIN(kw),SIGH(kw),SIGH2(kw),AHLINE(kw), + 2 SHLINE(kw),XNFPH(kw,2),XNFH(kw) +c REAL*8 WL,WAVE +C STANDARD ISOLATED LINE BROADENING PARAMETERS +C FROM GRIEM 1974-book-Spectral line broadening by plasmas +c ws=we(A), ds=de/we, alfs=alpha, data for Ne=10**16 cm(-3) + DATA WS/4.04,3.49,2.96,2.47/ + DATA DS/0.1339,0.0960,0.0780,0.0709/ + DATA ALFS/0.969,1.083,1.225,1.403/ + DATA DEN/1.0E16/ +C +c data forb1/?,7.66E-3,9.04E-3,1.01E-2/ ???? + DATA FORB1/0.,0.,0.,0./ + DATA FORB2/0.,0.,0.,0./ +C NANOMETERS + DATA DLP/0.017/ + DATA DLF1/-0.080/ + DATA DLF2/0./ + DATA TS/5000.,10000.,20000.,40000./ +c +c 402.6185 -2.620 2.0 169086.864 1.0 193917.253 2.002p 3P 5d 3D +c 402.6185 7 7.216-3.160-7.070NBS 423 4 +c 402.6187 -1.450 2.0 169086.864 2.0 193917.243 2.002p 3P 5d 3D +c 402.6187 7 -3.160 NBS 423 4 +c 402.6187 -0.700 2.0 169086.864 3.0 193917.243 2.002p 3P 5d 3D +c 402.6187 7 -3.160 NBS 423 4 +c 402.6198 -1.450 1.0 169086.940 1.0 193917.253 2.002p 3P 5d 3D +c 402.6198 7 -3.160 NBS 423 4 +c 402.6199 -0.970 1.0 169086.940 2.0 193917.243 2.002p 3P 5d 3D +c 402.6199 7 -3.160 NBS 423 4 +c 402.6358 -1.320 0.0 169087.928 1.0 193917.253 2.002p 3P 5d 3D +c 402.6358 7 -3.160 NBS 423 4 +c +c 402.6210 -0.370 4.0 169087.008 7.0 193917.245 2.002p 3P 5d 3D +c 402.6210 7 7.216 -3.16 -7.07NBS 415 4 +c + HE4026=0. + E=XNE(J) + TEMP=T(J) +C NUMERO PROTONI=N(H+)/U(H+) U(H+)=1 + XNFHP=XNFPH(J,2) + XNFHEP=XNFHE(J,2) + DL=WAVE-WL + TEMP=AMAX1(TEMP,5.0E3) + TEMP=AMIN1(TEMP,4.0E4) + IFORB=0. + DO 10 IT=1,4 + IF(FORB1(IT).LE.0.)GO TO 10 + IFORB=1 + 10 CONTINUE + IF(E.LE.1.E14)GO TO 499 + CALL READBCS(2,J,TEMP,XNFHP,XNFHEP,E,DL,PHIHE) + HE4026=1.772453*PHIHE*DOPWL*10. + RETURN + 499 CONTINUE + DO 2 I=2,4 + IT=I + IF(TS(I).GT.TEMP)GO TO 3 + 2 CONTINUE + 3 X=(TEMP-TS(IT-1))/(TS(IT)-TS(IT-1)) + XX=E/DEN +C DAMPING WIDTH + W=XX*(X*WS(IT)+(1.0-X)*WS(IT-1)) +C RATIO OF SHIFT TO WIDTH + D=X*DS(IT)+(1.0-X)*DS(IT-1) +C ION BROADENING PARAMETER + ALF=XX**0.25*(X*ALFS(IT)+(1.0-X)*ALFS(IT-1)) +C FORBIDDEN COMPONENTS INTENSITIES + F1=XX*(X*FORB1(IT)+(1.0-X)*FORB1(IT-1)) + F2=XX*(X*FORB2(IT)+(1.0-X)*FORB2(IT-1)) +C RECIPROCAL PERTURBER VELOCITY +C KM! + XX=XNFHP/E + VM1=8.78E0*(XX+2.0*(1.0-XX))/SQRT(TEMP) +C MEAN INTERPARTICLE DISTANCE + RHOM=1.0/(4.19*E)**(1.0/3.0) +C ION VELOCITY PARAMETER + SIGMA=1.885E14*W*RHOM*VM1/(WL*10.)**2 +C 1.885E14=2*PAI*C*1.E8 1.E8 TRASFORMA RHOM DA CM ad A + X=ALF**(8.0/9.0)/SIGMA**(1.0/3.0) +C TOTAL WIDTHIS ANGSTROMS, then in nm + WTOT=W*(1.0+1.36*X) + wtot=wtot*0.1 +C TOTAL SHIFT IN ANGSTROM, then in nm + DTOT=W*D*(1.0+2.36*X/ABS(D)) + dtot=dtot*0.1 +C VOIGT PARAMETERS + A=WTOT/DOPWL +C NORMALIZATION CONSTANT +c CON=0.564189583547756E0/(1.0+F1+F2)/(DOPPLE(7)*WL4) + con=1. + WWD=WAVE-WL-DTOT +C ALLOW FOR FINE STRUCTURE SPLITTING + HE4026=VOIGT(ABS(WWD-.0148)/DOPWL,A)/9.+ + 1 VOIGT(ABS(WWD+.0012)/DOPWL,A)/12.+ + 2 VOIGT(ABS(WWD+.0011)/DOPWL,A)/4.+ + 3 VOIGT(ABS(WWD+.0025)/DOPWL,A)/180.+ + 4 VOIGT(ABS(WWD+.0023)/DOPWL,A)*11./20. + IF(F1.LE.0) GO TO 4 +C ADD IN P TO F FORBIDDEN COMPONENT + V=ABS((WAVE-WL)-DLF1)/DOPWL + HE4026=HE4026+F1*VOIGT(V,A) + IF(F2.LE.0) GO TO 4 +C ADD P TO G FORBIDDEN COMPONENT + V=ABS((WAVE-WL)-DLF2)/DOPWL + HE4026=HE4026+F2*VOIGT(V,A) + 4 HE4026=HE4026*CON +C TYPE*,HE4026 + RETURN + END + FUNCTION HE4387(J,WAVE,WL,DOPWL) + PARAMETER (kw=99) + DIMENSION WS(4),DS(4),ALFS(4),FORB1(4),FORB2(4),TS(4) + COMMON /STATE/P(kw),XNE(kw),XNATOM(kw),RHO(kw),PTOTAL(kw) + COMMON /TEMP/T(kw),TKEV(kw),TK(kw),HKT(kw),TLOG(kw),HCKT(kw),ITEMP + COMMON /XNFDOP/XNFPEL(594),DOPPLE(594),XNFDOP(594) + COMMON /BHE/BHE1(kw,29),AHE1(kw),SHE1(kw),BHE2(kw,6),AHE2(kw), + 1 SHE2(kw),AHEMIN(kw),SIGHE(kw),XNFPHE(kw,3),XNFHE(kw,2) + COMMON /BHYD/BHYD(kw,8),AHYD(kw),SHYD(kw),AH2P(kw),BMIN(kw), + 1 AHMIN(kw),SHMIN(kw),SIGH(kw),SIGH2(kw),AHLINE(kw), + 2 SHLINE(kw),XNFPH(kw,2),XNFH(kw) +c REAL*8 WL,WAVE +C STANDARD ISOLATED LINE BROADENING PARAMETERS +C FROM GRIEM + DATA WS/6.13,5.15,4.24,3.45/ + DATA DS/0.411,0.363,0.325,0.293/ + DATA ALFS/1.159,1.321,1.527,1.783/ + DATA DEN/1.0E16/ +C +c data forb1/?,7.66E-3,9.04E-3,1.01E-2/ ???? + DATA FORB1/0.,0.,0.,0./ + DATA FORB2/0.,0.,0.,0./ +C NANOMETERS + DATA DLP/0.017/ + DATA DLF1/-0.080/ + DATA DLF2/0./ + DATA TS/5000.,10000.,20000.,40000./ +c 438.7929 -0.883 1.0 171135.000 2.0 193918.391 2.002p 1P 5d 1D +c 438.7929 7 9.258-3.080 NBS 524 5 + HE4387=0. + E=XNE(J) + TEMP=T(J) +C NUMERO PROTONI=N(H+)/U(H+) U(H+)=1 + XNFHP=XNFPH(J,2) + XNFHEP=XNFHE(J,2) + DL=WAVE-WL + TEMP=AMAX1(TEMP,5.0E3) + TEMP=AMIN1(TEMP,4.0E4) + IFORB=0. + DO 10 IT=1,4 + IF(FORB1(IT).LE.0.)GO TO 10 + IFORB=1 + 10 CONTINUE + IF(E.LE.1.E14)GO TO 499 + CALL READBCS(3,J,TEMP,XNFHP,XNFHEP,E,DL,PHIHE) + HE4387=1.772453*PHIHE*DOPWL*10. + RETURN + 499 CONTINUE + DO 2 I=2,4 + IT=I + IF(TS(I).GT.TEMP)GO TO 3 + 2 CONTINUE + 3 X=(TEMP-TS(IT-1))/(TS(IT)-TS(IT-1)) + XX=E/DEN +C DAMPING WIDTH + W=XX*(X*WS(IT)+(1.0-X)*WS(IT-1)) +C RATIO OF SHIFT TO WIDTH + D=X*DS(IT)+(1.0-X)*DS(IT-1) +C ION BROADENING PARAMETER + ALF=XX**0.25*(X*ALFS(IT)+(1.0-X)*ALFS(IT-1)) +C FORBIDDEN COMPONENTS INTENSITIES + F1=XX*(X*FORB1(IT)+(1.0-X)*FORB1(IT-1)) + F2=XX*(X*FORB2(IT)+(1.0-X)*FORB2(IT-1)) +C RECIPROCAL PERTURBER VELOCITY +C KM! + XX=XNFHP/E + VM1=8.78E0*(XX+2.0*(1.0-XX))/SQRT(TEMP) +C MEAN INTERPARTICLE DISTANCE + RHOM=1.0/(4.19*E)**(1.0/3.0) +C ION VELOCITY PARAMETER + SIGMA=1.885E14*W*RHOM*VM1/(WL*10.)**2 +C 1.885E14=2*PAI*C*1.E8 1.E8 TRASFORMA RHOM DA CM ad A + X=ALF**(8.0/9.0)/SIGMA**(1.0/3.0) +C TOTAL WIDTHIS ANGSTROMS, then in nm + WTOT=W*(1.0+1.36*X) + wtot=wtot*0.1 +C TOTAL SHIFT IN ANGSTROM, then in nm + DTOT=W*D*(1.0+2.36*X/ABS(D)) + dtot=dtot*0.1 +C VOIGT PARAMETERS + A=WTOT/DOPWL +C NORMALIZATION CONSTANT +c CON=0.564189583547756E0/(1.0+F1+F2)/(DOPWL) + con=1. + HE4387=VOIGT(ABS(WAVE-WL-DTOT)/DOPWL,A) + RETURN + END + FUNCTION HE4921(J,WAVE,WL,DOPWL) + PARAMETER (kw=99) + DIMENSION WS(4),DS(4),ALFS(4),FORB1(4),FORB2(4),TS(4) + COMMON /STATE/P(kw),XNE(kw),XNATOM(kw),RHO(kw),PTOTAL(kw) + COMMON /TEMP/T(kw),TKEV(kw),TK(kw),HKT(kw),TLOG(kw),HCKT(kw),ITEMP + COMMON /XNFDOP/XNFPEL(594),DOPPLE(594),XNFDOP(594) + COMMON /BHE/BHE1(kw,29),AHE1(kw),SHE1(kw),BHE2(kw,6),AHE2(kw), + 1 SHE2(kw),AHEMIN(kw),SIGHE(kw),XNFPHE(kw,3),XNFHE(kw,2) + COMMON /BHYD/BHYD(kw,8),AHYD(kw),SHYD(kw),AH2P(kw),BMIN(kw), + 1 AHMIN(kw),SHMIN(kw),SIGH(kw),SIGH2(kw),AHLINE(kw), + 2 SHLINE(kw),XNFPH(kw,2),XNFH(kw) +c REAL*8 WL,wave +C STANDARD ISOLATED LINE BROADENING PARAMETERS +c From Barnard,Cooper and Smith J.Q.S.R.T. 15, 429, 1975 +c ws=we(A),ds=de/we, alfs=alpha; data for Ne=10**13 cm(-3) + DATA WS/0.002312,0.001963,0.001624,0.001315/ + DATA DS/0.3932,0.3394,0.2950,0.2593/ + DATA ALFS/0.1207,0.1365,0.1564,0.1844/ + DATA DEN/1.0E13/ +c data forb1/?,7.66E-3,9.04E-3,1.01E-2/ ???? + DATA FORB1/0.,0.,0.,0./ + DATA FORB2/0.,0.,0.,0./ +C NANOMETERS + DATA DLP/0.021/ + DATA DLF1/-0.150/ + DATA DLF2/0./ + DATA TS/ 5.0E3,1.0E4,2.0E4,4.0E4/ +c +c 492.1931 -0.435 1.0 171135.000 2.0 191446.559 2.002p 1P 4d 1D +c 492.1931 7 9.262-3.600 NBS 516 5 +c + HE4921=0. + E=XNE(J) + TEMP=T(J) +C NUMERO PROTONI=N(H+)/U(H+) U(H+)=1 + XNFHP=XNFPH(J,2) + XNFHEP=XNFHE(J,2) + DL=WAVE-WL + TEMP=AMAX1(TEMP,5.0E3) + TEMP=AMIN1(TEMP,4.0E4) + IFORB=0. + DO 10 IT=1,4 + IF(FORB1(IT).LE.0.)GO TO 10 + IFORB=1 + 10 CONTINUE + IF(E.LE.1.0E13)GO TO 499 + CALL READBCS(4,J,TEMP,XNFHP,XNFHEP,E,DL,PHIHE) + HE4921=1.772453*PHIHE*DOPWL*10. + RETURN + 499 CONTINUE + DO 2 I=2,4 + IT=I + IF(TS(I).GT.TEMP)GO TO 3 + 2 CONTINUE + 3 X=(TEMP-TS(IT-1))/(TS(IT)-TS(IT-1)) + XX=E/DEN +C DAMPING WIDTH + W=XX*(X*WS(IT)+(1.0-X)*WS(IT-1)) +C RATIO OF SHIFT TO WIDTH + D=X*DS(IT)+(1.0-X)*DS(IT-1) +C ION BROADENING PARAMETER + ALF=XX**0.25*(X*ALFS(IT)+(1.0-X)*ALFS(IT-1)) +C FORBIDDEN COMPONENTS INTENSITIES + F1=XX*(X*FORB1(IT)+(1.0-X)*FORB1(IT-1)) + F2=XX*(X*FORB2(IT)+(1.0-X)*FORB2(IT-1)) +C RECIPROCAL PERTURBER VELOCITY +C KM! + XX=XNFHP/E + VM1=8.78E0*(XX+2.0*(1.0-XX))/SQRT(TEMP) +C MEAN INTERPARTICLE DISTANCE + RHOM=1.0/(4.19*E)**(1.0/3.0) +C ION VELOCITY PARAMETER + SIGMA=1.885E14*W*RHOM*VM1/(WL*10.)**2 +C 1.885E14=2*PAI*C*1.E8 1.E8 TRASFORMA RHOM DA CM ad A + X=ALF**(8.0/9.0)/SIGMA**(1.0/3.0) +C TOTAL WIDTHIS ANGSTROMS, then in nm + WTOT=W*(1.0+1.36*X) + wtot=wtot*0.1 +C TOTAL SHIFT IN ANGSTROM, then in nm + DTOT=W*D*(1.0+2.36*X/ABS(D)) + dtot=dtot*0.1 +C VOIGT PARAMETERS + A=WTOT/DOPWL +C NORMALIZATION CONSTANT +c CON=0.564189583547756E0/(1.0+F1+F2)/(DOPPLE(7)*WL4) + con=1. + WWD=WAVE-WL-DTOT +C ALLOW FOR FINE STRUCTURE SPLITTING + HE4921=VOIGT(ABS(WWD)/DOPWL,A) + IF(F1.LE.0) GO TO 4 +C ADD IN P TO F FORBIDDEN COMPONENT + V=ABS((WAVE-WL)-DLF1)/DOPWL + HE4921=HE4921+F1*VOIGT(V,A) + IF(F2.LE.0) GO TO 4 +C ADD P TO G FORBIDDEN COMPONENT + V=ABS((WAVE-WL)-DLF2)/DOPWL + HE4921=HE4921+F2*VOIGT(V,A) + 4 HE4921=HE4921*CON +C TYPE*,HE4921 + RETURN + END + FUNCTION GRIEM(J,WAVESYN,WL,DOPWL,GAMMAR,GAMMAS) + PARAMETER (kw=99) + DIMENSION WS(4),DS(4),ALFS(4),FORB1(4),FORB2(4),TS(4) + COMMON /STATE/P(kw),XNE(kw),XNATOM(kw),RHO(kw),PTOTAL(kw) + COMMON /TEMP/T(kw),TKEV(kw),TK(kw),HKT(kw),TLOG(kw),HCKT(kw),ITEMP + COMMON /XNFDOP/XNFPEL(594),DOPPLE(594),XNFDOP(594) + COMMON /BHE/BHE1(kw,29),AHE1(kw),SHE1(kw),BHE2(kw,6),AHE2(kw), + 1 SHE2(kw),AHEMIN(kw),SIGHE(kw),XNFPHE(kw,3),XNFHE(kw,2) + COMMON /BHYD/BHYD(kw,8),AHYD(kw),SHYD(kw),AH2P(kw),BMIN(kw), + 1 AHMIN(kw),SHMIN(kw),SIGH(kw),SIGH2(kw),AHLINE(kw), + 2 SHLINE(kw),XNFPH(kw,2),XNFH(kw) +c REAL*8 WL,WAVESYN + DIMENSION WIDTH(4,999),SHIFT(4,999),ALPHA(4,999),BETA(4,999) + DIMENSION CODE(999),XNELOG(999),TTAB(4,999),WAVE(999) + CHARACTER*10 TRANS(999) + CHARACTER*60 GRIEM0200(210) + DATA (GRIEM0200(I),I= 1, 5)/ + 1' 2.00 52.2213 1s1S-4p1P 16.0 ', + 2' 5000. .0179 -.0112 .275 .000016 ', + 3' 10000. .0168 -.00872 .290 .000032 ', + 4' 20000. .0152 -.00647 .311 .000064 ', + 5' 40000. .0135 -.00460 .341 .00013 '/ + DATA (GRIEM0200(I),I= 6, 10)/ + 1' 2.00 53.7030 1s1S-3p1P 16.0 ', + 2' 5000. .00432 -.00277 .153 .000054 ', + 3' 10000. .00409 -.00216 .160 .00011 ', + 4' 20000. .00378 -.00159 .169 .00022 ', + 5' 40000. .00341 -.00111 .183 .00043 '/ + DATA (GRIEM0200(I),I= 11, 15)/ + 1' 2.00 58.4334 1s1S-2p1P 16.0 ', + 2' 5000. .000121 -.0000299 .012 .0024 ', + 3' 10000. .000158 -.00000567 .010 .0049 ', + 4' 20000. .000199 .0000220 .008 .0098 ', + 5' 40000. .000234 .0000460 .007 .020 '/ + DATA (GRIEM0200(I),I= 16, 20)/ + 1' 2.00 282.9076 2s3S-6p3P 16.0 ', + 2' 5000. 1.79 1.07 .285 .0014 ', + 3' 10000. 1.87 .829 .276 .0027 ', + 4' 20000. 1.84 .619 .279 .0054 ', + 5' 40000. 1.72 .455 .294 .011 '/ + DATA (GRIEM0200(I),I= 21, 25)/ + 1' 2.00 294.5104 2s3S-5p3P 16.0 ', + 2' 5000. .808 .522 .204 .0030 ', + 3' 10000. .857 .412 .195 .0059 ', + 4' 20000. .857 .311 .195 .012 ', + 5' 40000. .811 .231 .203 .024 '/ + DATA (GRIEM0200(I),I= 26, 30)/ + 1' 2.00 318.7746 2s3S-4p3P 16.0 ', + 2' 5000. .313 .219 .134 .0087 ', + 3' 10000. .338 .176 .127 .017 ', + 4' 20000. .344 .134 .125 .035 ', + 5' 40000. .332 .101 .128 .069 '/ + DATA (GRIEM0200(I),I= 31, 35)/ + 1' 2.00 388.8649 2s3S-3p3P 16.0 ', + 2' 5000. .102 .0744 .075 .050 ', + 3' 10000. .112 .0603 .070 .099 ', + 4' 20000. .117 .0464 .067 .20 ', + 5' 40000. .117 .0348 .067 .40 '/ + DATA (GRIEM0200(I),I= 36, 40)/ + 1' 2.00 396.4729 2s1S-4p1P 16.0 ', + 2' 5000. 1.03 -.697 .275 .0071 ', + 3' 10000. .996 -.504 .290 .014 ', + 4' 20000. .877 -.374 .311 .028 ', + 5' 40000. .776 -.266 .341 .056 '/ + DATA (GRIEM0200(I),I= 41, 45)/ + 1' 2.00 402.6187 2p3P-5d3D 16.0 ', + 2' 5000. 4.04 .541 .969 .0016 ', + 3' 10000. 3.49 .335 1.083 .0033 ', + 4' 20000. 2.96 .231 1.225 .0066 ', + 5' 40000. 2.47 .175 1.403 .013 '/ + DATA (GRIEM0200(I),I= 46, 50)/ + 1' 2.00 412.0811 2p3P-5s3S 16.0 ', + 2' 5000. .785 .897 .171 .013 ', + 3' 10000. .897 .894 .155 .026 ', + 4' 20000. .984 .808 .144 .052 ', + 5' 40000. 1.01 .670 .141 .10 '/ + DATA (GRIEM0200(I),I= 51, 55)/ + 1' 2.00 438.7929 2p1P-5d1D 16.0 ', + 2' 5000. 6.13 2.52 1.159 .0017 ', + 3' 10000. 5.15 1.87 1.321 .0033 ', + 4' 20000. 4.24 1.38 1.527 .0067 ', + 5' 40000. 3.45 1.01 1.783 .013 '/ + DATA (GRIEM0200(I),I= 56, 60)/ + 1' 2.00 443.7551 2p1P-5s1S 16.0 ', + 2' 5000. 1.41 1.51 .199 .012 ', + 3' 10000. 1.57 1.43 .184 .024 ', + 4' 20000. 1.65 1.24 .177 .047 ', + 5' 40000. 1.62 .996 .179 .094 '/ + DATA (GRIEM0200(I),I= 61, 65)/ + 1' 2.00 447.1488 2p3P-4d3D 16.0 ', + 2' 5000. 1.44 .136 .589 .0058 ', + 3' 10000. 1.26 .0804 .650 .012 ', + 4' 20000. 1.09 .0614 .726 .023 ', + 5' 40000. .927 .0549 .819 .047 '/ + DATA (GRIEM0200(I),I= 66, 70)/ + 1' 2.00 471.3139 2p3P-4s3S 16.0 ', + 2' 5000. .342 .402 .115 .044 ', + 3' 10000. .393 .416 .103 .088 ', + 4' 20000. .437 .390 .095 .18 ', + 5' 40000. .459 .335 .092 .35 '/ + DATA (GRIEM0200(I),I= 71, 75)/ + 1' 2.00 492.1931 2p1P-4d1D 16.0 ', + 2' 5000. 2.30 1.02 .683 .0061 ', + 3' 10000. 1.96 .773 .773 .012 ', + 4' 20000. 1.63 .584 .885 .024 ', + 5' 40000. 1.35 .440 1.023 .049 '/ + DATA (GRIEM0200(I),I= 76, 80)/ + 1' 2.00 501.5678 2s1S-3p1P 16.0 ', + 2' 5000. .378 -.250 .154 .044 ', + 3' 10000. .359 -.200 .160 .088 ', + 4' 20000. .334 -.152 .169 .18 ', + 5' 40000. .306 -.111 .180 .35 '/ + DATA (GRIEM0200(I),I= 81, 85)/ + 1' 2.00 504.7738 2p1P-4s1S 16.0 ', + 2' 5000. .625 .699 .134 .038 ', + 3' 10000. .705 .685 .123 .077 ', + 4' 20000. .756 .611 .117 .15 ', + 5' 40000. .760 .504 .116 .31 '/ + DATA (GRIEM0200(I),I= 86, 90)/ + 1' 2.00 587.5615 2p3P-3d3D 16.0 ', + 2' 5000. .159 -.0881 .064 .23 ', + 3' 10000. .170 -.0553 .061 .46 ', + 4' 20000. .176 -.0256 .059 .92 ', + 5' 40000. .177 -.00504 .059 1.8 '/ + DATA (GRIEM0200(I),I= 91, 95)/ + 1' 2.00 667.8154 2p1P-3d1D 16.0 ', + 2' 5000. .423 .275 .146 .14 ', + 3' 10000. .386 .233 .157 .27 ', + 4' 20000. .349 .196 .169 .54 ', + 5' 40000. .318 .161 .181 1.1 '/ + DATA (GRIEM0200(I),I= 96,100)/ + 1' 2.00 706.5176 2p3P-3s3S 16.0 ', + 2' 5000. .180 .215 .067 .44 ', + 3' 10000. .207 .231 .060 .87 ', + 4' 20000. .235 .227 .055 1.7 ', + 5' 40000. .254 .203 .052 3.5 '/ + DATA (GRIEM0200(I),I=101,105)/ + 1' 2.00 728.1349 2p1P-3s1S 16.0 ', + 2' 5000. .320 .374 .081 .33 ', + 3' 10000. .365 .382 .073 .65 ', + 4' 20000. .403 .355 .068 1.3 ', + 5' 40000. .419 .303 .066 2.6 '/ + DATA (GRIEM0200(I),I=106,110)/ + 1' 2.00 836.1694 3s3S-6p3P 16.0 ', + 2' 5000. 15.6 9.33 .285 .035 ', + 3' 10000. 16.3 7.23 .276 .070 ', + 4' 20000. 16.1 5.38 .279 .14 ', + 5' 40000. 15.0 3.93 .293 .28 '/ + DATA (GRIEM0200(I),I=111,115)/ + 1' 2.00 946.3596 3s3S-5p3P 16.0 ', + 2' 5000. 8.34 5.30 .203 .099 ', + 3' 10000. 8.86 4.13 .194 .20 ', + 4' 20000. 8.88 3.06 .194 .40 ', + 5' 40000. 8.46 2.21 .201 .79 '/ + DATA (GRIEM0200(I),I=116,120)/ + 1' 2.00 960.3418 3s1S-6p1P 16.0 ', + 2' 5000. 40.7 -24.0 .614 .023 ', + 3' 10000. 37.3 -18.5 .656 .045 ', + 4' 20000. 33.2 -13.7 .716 .091 ', + 5' 40000. 28.8 -9.94 .796 .18 '/ + DATA (GRIEM0200(I),I=121,125)/ + 1' 2.00 1066.7641 3p3P-6s3S 16.0 ', + 2' 5000. 12.9 14.2 .238 .12 ', + 3' 10000. 14.7 13.9 .217 .23 ', + 4' 20000. 16.0 12.4 .203 .46 ', + 5' 40000. 16.5 10.3 .198 .92 '/ + DATA (GRIEM0200(I),I=126,130)/ + 1' 2.00 1083.0336 2s3S-2p3P 16.0 ', + 2' 5000. .0493 -.0518 .028 8.3 ', + 3' 10000. .0601 -.0557 .024 17. ', + 4' 20000. .0755 -.0540 .020 33. ', + 5' 40000. .0931 -.0465 .017 66. '/ + DATA (GRIEM0200(I),I=131,135)/ + 1' 2.00 1099.6561 3d3D-6p3P 16.0 ', + 2' 5000. 27.0 16.3 .286 .08 ', + 3' 10000. 28.3 12.8 .276 .16 ', + 4' 20000. 27.9 9.59 .279 .32 ', + 5' 40000. 26.1 7.10 .294 .64 '/ + DATA (GRIEM0200(I),I=136,140)/ + 1' 2.00 1101.3070 3s1S-5p1P 16.0 ', + 2' 5000. 23.1 -14.3 .429 .066 ', + 3' 10000. 21.4 -11.2 .454 .13 ', + 4' 20000. 19.3 -8.49 .491 .26 ', + 5' 40000. 16.9 -6.24 .541 .53 '/ + DATA (GRIEM0200(I),I=141,145)/ + 1' 2.00 1104.5003 3p1P-6d1D 16.0 ', + 2' 5000. 94.5 37.7 1.742 .013 ', + 3' 10000. 79.0 27.8 1.992 .026 ', + 4' 20000. 64.8 20.4 2.310 .052 ', + 5' 40000. 52.5 14.9 2.706 .10 '/ + DATA (GRIEM0200(I),I=146,150)/ + 1' 2.00 1196.9060 3p3P-5d3D 16.0 ', + 2' 5000. 35.8 4.42 .967 .043 ', + 3' 10000. 31.0 2.56 1.077 .086 ', + 4' 20000. 26.4 1.65 1.215 .17 ', + 5' 40000. 22.1 1.20 1.387 .34 '/ + DATA (GRIEM0200(I),I=151,155)/ + 1' 2.00 1252.7537 3s3S-4p3P 16.0 ', + 2' 5000. 4.83 3.09 .130 .54 ', + 3' 10000. 5.26 2.34 .122 1.1 ', + 4' 20000. 5.45 1.65 .119 2.1 ', + 5' 40000. 5.37 1.12 .120 4.3 '/ + DATA (GRIEM0200(I),I=156,160)/ + 1' 2.00 1284.5935 3p3P-5s3S 16.0 ', + 2' 5000. 7.61 8.33 .165 .40 ', + 3' 10000. 8.85 8.26 .147 .81 ', + 4' 20000. 9.85 7.44 .136 1.6 ', + 5' 40000. 10.3 6.17 .132 3.2 '/ + DATA (GRIEM0200(I),I=161,165)/ + 1' 2.00 1296.8439 3p1P-5d1D 16.0 ', + 2' 5000. 54.3 23.1 1.149 .043 ', + 3' 10000. 45.9 17.3 1.304 .086 ', + 4' 20000. 38.1 12.8 1.501 .17 ', + 5' 40000. 31.1 9.45 1.745 .34 '/ + DATA (GRIEM0200(I),I=166,170)/ + 1' 2.00 1298.4882 3d3D-5p3P 16.0 ', + 2' 5000. 15.8 10.4 .205 .25 ', + 3' 10000. 16.8 8.24 .196 .51 ', + 4' 20000. 16.8 6.27 .195 1.0 ', + 5' 40000. 16.0 4.65 .203 2.0 '/ + DATA (GRIEM0200(I),I=171,175)/ + 1' 2.00 1508.3656 3s1S-4p1P 16.0 ', + 2' 5000. 15.1 -10.2 .277 .38 ', + 3' 10000. 14.3 -8.34 .289 .77 ', + 4' 20000. 13.2 -6.55 .307 1.5 ', + 5' 40000. 11.9 -4.95 .331 3.1 '/ + DATA (GRIEM0200(I),I=176,180)/ + 1' 2.00 1700.2364 3p3P-4d3D 16.0 ', + 2' 5000. 21.2 .993 .577 .32 ', + 3' 10000. 18.9 .216 .629 .64 ', + 4' 20000. 16.7 .0624 .692 1.3 ', + 5' 40000. 14.5 .129 .769 2.6 '/ + DATA (GRIEM0200(I),I=181,185)/ + 1' 2.00 1868.5313 3d3D-4f3F 16.0 ', + 2' 5000. 16.2 -2.77 .650 .50 ', + 3' 10000. 13.7 -1.22 .734 .99 ', + 4' 20000. 11.8 -.300 .823 2.0 ', + 5' 40000. 10.2 .131 .914 4.0 '/ + DATA (GRIEM0200(I),I=186,190)/ + 1' 2.00 1869.7233 3d1D-4f1F 16.0 ', + 2' 5000. 18.6 -5.39 .756 .42 ', + 3' 10000. 15.6 -3.35 .862 .84 ', + 4' 20000. 13.2 -1.95 .978 1.7 ', + 5' 40000. 11.3 -1.10 1.101 3.4 '/ + DATA (GRIEM0200(I),I=191,195)/ + 1' 2.00 1908.9369 3p1P-4d1D 16.0 ', + 2' 5000. 37.3 18.1 .657 .35 ', + 3' 10000. 32.3 14.0 .732 .71 ', + 4' 20000. 27.4 10.7 .828 1.4 ', + 5' 40000. 23.0 8.03 .945 2.8 '/ + DATA (GRIEM0200(I),I=196,200)/ + 1' 2.00 1954.3172 3d3D-4p3P 16.0 ', + 2' 5000. 12.2 8.91 .137 1.9 ', + 3' 10000. 13.2 7.25 .128 3.9 ', + 4' 20000. 13.6 5.56 .126 7.7 ', + 5' 40000. 13.3 4.11 .128 15. '/ + DATA (GRIEM0200(I),I=201,205)/ + 1' 2.00 2058.1299 2s1S-2p1P 16.0 ', + 2' 5000. .364 -.412 .038 33. ', + 3' 10000. .433 -.430 .033 65. ', + 4' 20000. .514 -.400 .029 130. ', + 5' 40000. .590 -.332 .026 260. '/ + DATA (GRIEM0200(I),I=206,210)/ + 1' 2.00 2112.0002 3p3P-4s3S 16.0 ', + 2' 5000. 7.17 6.48 .089 4.6 ', + 3' 10000. 8.76 6.78 .077 9.2 ', + 4' 20000. 10.1 6.47 .069 18. ', + 5' 40000. 10.9 5.62 .065 37. '/ + DATA IREAD/0/ + IF(IREAD.EQ.1)GO TO 10 +C DO 5 ILINE=1,999 +C READ(21,3,END=7)CODE(iline),WAVE(iline),TRANS(iline), +C 1 XNELOG(iline), (TTAB(I,iline),WIDTH(I,iline),SHIFT(I,iline), +C 2 ALPHA(I,iline), BETA(I,iline),I=1,4) +C PRINT 3,CODE(iline),WAVE(iline),TRANS(iline), +C 1 XNELOG(iline), (TTAB(I,iline),WIDTH(I,iline),SHIFT(I,iline), +C 2 ALPHA(I,iline), BETA(I,iline),I=1,4) +C 3 FORMAT(F5.2,F10.4,A10,F5.1,F10.0,4F10.6/30X,F10.0,4F10.6/ +C 2 30X,F10.0,4F10.6/30X,F10.0,4F10.6) +C +C 2.00 52.2213 1s1S-4p1P 16.0 5000. .0179 -.0112 .275 .000016 +C 10000. .0168 -.00872 .290 .000032 +C 20000. .0152 -.00647 .311 .000064 +C 40000. .0135 -.00460 .341 .00013 +C +C 5 CONTINUE +C 7 NLINE=ILINE-1 + NLINE=42 + DO 5 ILINE=1,NLINE + READ(GRIEM0200(ILINE*5-4),3)CODE(iline),WAVE(iline),TRANS(iline), + 1XNELOG(iline) + 3 FORMAT(F5.2,F10.4,A10,F5.1,F10.0,4F10.6) + DO 5 I=1,4 + READ(GRIEM0200(ILINE*5-4+I),4)TTAB(I,iline),WIDTH(I,iline), + 1 SHIFT(I,iline),ALPHA(I,iline), BETA(I,iline) + 5 SHIFT(I,ILINE)=SHIFT(I,ILINE)/WIDTH(I,ILINE) + 4 FORMAT(F10.0,4F10.6) + IREAD=1 + 10 CONTINUE + DO 11 ILINE=1,NLINE + IF(WL.GT.WAVE(ILINE)-.1.AND.WL.LT.WAVE(ILINE)+.1)GO TO 12 + 11 CONTINUE + V=ABS(WAVESYN-WL)/DOPWL +C WANT DOPPLE(7) BUT DOES NOT INCLUDE ISOTOPIC MASS DOPWL/WL DOES + A=(GAMMAR+GAMMAS*XNE(J))/(DOPWL/WL) + GRIEM=VOIGT(V,A) + RETURN + 12 IL=ILINE + E=XNE(J) + TEMP=T(J) +C NUMERO PROTONI=N(H+)/U(H+) U(H+)=1 + XNFHP=XNFPH(J,2) + XNFHEP=XNFHE(J,2) + DL=WAVESYN-WL + TEMP=AMAX1(TEMP,5.0E3) + TEMP=AMIN1(TEMP,8.0E4) +c DO 2 I=2,5 + DO 2 I=2,4 + IT=I + IF(Ttab(It,il).GT.TEMP)GO TO 33 + 2 CONTINUE + 33 X=(TEMP-Ttab(IT-1,il))/(Ttab(IT,il)-Ttab(IT-1,il)) + XX=E/(10.**xnelog(il)) +C DAMPING WIDTH + W=XX*(X*Width(IT,il)+(1.0-X)*Width(IT-1,il)) +C RATIO OF SHIFT TO WIDTH + D=X*shift(IT,il)+(1.0-X)*shift(IT-1,il) +C ION BROADENING PARAMETER + ALF=XX**0.25*(X*ALpha(IT,il)+(1.0-X)*ALpha(IT-1,il)) +C RECIPROCAL PERTURBER VELOCITY +C KM! + XX=XNFHP/E + VM1=8.78E0*(XX+2.0*(1.0-XX))/SQRT(TEMP) +C MEAN INTERPARTICLE DISTANCE + RHOM=1.0/(4.19*E)**(1.0/3.0) +C ION VELOCITY PARAMETER + SIGMA=1.885E14*W*RHOM*VM1/(WL*10.)**2 +C 1.885E14=2*PAI*C*1.E8 1.E8 TRASFORMA RHOM DA CM ad A + X=ALF**(8.0/9.0)/SIGMA**(1.0/3.0) +C TOTAL WIDTHIS ANGSTROMS, then in nm + WTOT=W*(1.0+1.36*X) + wtot=wtot*0.1 +C TOTAL SHIFT IN ANGSTROM, then in nm + DTOT=W*D*(1.0+2.36*X/ABS(D)) + dtot=dtot*0.1 +C VOIGT PARAMETERS +C WANT DOPPLE(7) FOR GAMMAR BUT DOES NOT INCLUDE ISOTOPIC MASS DOPWL/WL DOES + A=WTOT/DOPWL+GAMMAR/(DOPWL/WL) +C NORMALIZATION CONSTANT +c CON=0.564189583547756E0/(1.0+F1+F2)/DOPWL + con=1. + WWD=WAVESYN-WL-DTOT + GRIEM=VOIGT(ABS(WWD)/DOPWL,A) + RETURN + END + FUNCTION DIMITRI(J,WAVEsyn,WL,DOPWL,GAMMAR,GAMMAS) + PARAMETER (kw=99) + DIMENSION WS(4),DS(4),ALFS(4),FORB1(4),FORB2(4),TS(4) + COMMON /STATE/P(kw),XNE(kw),XNATOM(kw),RHO(kw),PTOTAL(kw) + COMMON /TEMP/T(kw),TKEV(kw),TK(kw),HKT(kw),TLOG(kw),HCKT(kw),ITEMP + COMMON /XNFDOP/XNFPEL(594),DOPPLE(594),XNFDOP(594) + COMMON /BHE/BHE1(kw,29),AHE1(kw),SHE1(kw),BHE2(kw,6),AHE2(kw), + 1 SHE2(kw),AHEMIN(kw),SIGHE(kw),XNFPHE(kw,3),XNFHE(kw,2) + COMMON /BHYD/BHYD(kw,8),AHYD(kw),SHYD(kw),AH2P(kw),BMIN(kw), + 1 AHMIN(kw),SHMIN(kw),SIGH(kw),SIGH2(kw),AHLINE(kw), + 2 SHLINE(kw),XNFPH(kw,2),XNFH(kw) +c REAL*8 WL,wavesyn + DIMENSION WIDTH(4,999),SHIFT(4,999),WIDTHP(4,999),SHIFTP(4,999), + 1 WIDTHHE(4,999),SHIFTHE(4,999) + dimension CODE(999),XNELOG(999),TTAB(4,999),wave(999),gam(999) + DIMENSION XNETAB(7) + CHARACTER*10 TRANS(999) + CHARACTER*61 DIMITRI0200(35) + DATA (DIMITRI0200(I),I= 1, 5)/ + 1' 2.00 381.9624 2p3P-6d3D 13.0 ', + 2' 5000. 1.47E-02-2.04E-04 9.31E-03 7.87E-03 0.00E+00 0.00E+00', + 3' 10000. 1.29E-02-4.41E-05 1.06E-02 9.31E-03 8.90E-03 7.72E-03', + 4' 20000. 1.10E-02-1.37E-04 1.72E-02 1.13E-02 1.02E-02 8.99E-03', + 5' 40000. 9.33E-03-2.31E-05 1.08E-02 1.32E-02 1.13E-02 1.06E-02'/ +c DATA (DIMITRI0200(I),I= 6, 10)/ +c 1' 2.00 386.7494 2p3P-6s3S 13.0 ', +c 2' 5000. 2.74E-03 2.09E-03 6.15E-04 5.72E-04 5.29E-04 4.90E-04', +c 3' 10000. 2.91E-03 2.02E-03 6.91E-04 6.48E-04 5.93E-04 5.55E-04', +c 4' 20000. 2.85E-03 1.58E-03 7.75E-04 7.29E-04 6.66E-04 6.25E-04', +c 5' 40000. 3.10E-03 1.10E-03 8.71E-04 8.20E-04 7.48E-04 7.04E-04'/ +c DATA (DIMITRI0200(I),I= 6, 10)/ +c 1' 2.00 386.7494 2p3P-6s3S 13.0 ', +c 2' 5000. 2.74E-03 1.79E-03 0.00E+00 0.00E+00 0.00E+00 0.00E+00', +c 3' 10000. 2.91E-03 1.86E-03 0.00E+00 0.00E+00 0.00E+00 0.00E+00', +c 4' 20000. 2.85E-03 1.51E-03 0.00E+00 0.00E+00 0.00E+00 0.00E+00', +c 5' 40000. 3.10E-03 1.10E-03 0.00E+00 0.00E+00 0.00E+00 0.00E+00'/ + DATA (DIMITRI0200(I),I= 6, 10)/ + 1' 2.00 386.7494 2p3P-6s3S 16.0 ', + 2' 5000. 2.74E+00 1.79E+00 0.00E+00 0.00E+00 0.00E+00 0.00E+00', + 3' 10000. 2.91E+00 1.86E+00 0.00E+00 0.00E+00 0.00E+00 0.00E+00', + 4' 20000. 2.85E+00 1.51E+00 0.00E+00 0.00E+00 0.00E+00 0.00E+00', + 5' 40000. 3.10E+00 1.10E+00 0.00E+00 0.00E+00 0.00E+00 0.00E+00'/ + DATA (DIMITRI0200(I),I= 11, 15)/ + 1' 2.00 392.6544 2p1P-6d1D 13.0 ', + 2' 5000 7.07E-02 7.13E-03 0.00E+00 0.00E+00 0.00E+00 0.00E+00', + 3' 10000. 6.07E-02 4.27E-03 0.00E+00 0.00E+00 0.00E+00 0.00E+00', + 4' 20000. 5.09E-02 1.96E-03 0.00E+00 0.00E+00 0.00E+00 0.00E+00', + 5' 40000. 4.19E-02 5.60E-04 0.00E+00 0.00E+00 0.00E+00 0.00E+00'/ + DATA (DIMITRI0200(I),I= 16, 20)/ + 1' 2.00 400.9256 2p1P-7d1D 13.0 ', + 2' 5000 3.96E-02 6.23E-03 0.00E+00 0.00E+00 0.00E+00 0.00E+00', + 3' 10000. 3.42E-02 2.78E-03 0.00E+00 0.00E+00 0.00E+00 0.00E+00', + 4' 20000. 2.88E-02 1.85E-03 0.00E+00 0.00E+00 0.00E+00 0.00E+00', + 5' 40000. 2.38E-02 1.07E-03 3.05E-02 3.67E-02 0.00E+00 0.00E+00'/ + DATA (DIMITRI0200(I),I= 21, 25)/ + 1' 2.00 402.40 2p1P-7s1S 13.0 ', + 2' 5000 9.24E-03 6.25E-03 2.09E-03 1.91E-03 1.79E-03 1.63E-03', + 3' 10000. 8.80E-03 5.30E-03 2.34E-03 2.17E-03 2.01E-03 1.86E-03', + 4' 20000. 9.18E-03 3.77E-03 2.63E-03 2.46E-03 2.42E-03 2.72E-03', + 5' 40000. 9.19E-03 2.32E-03 2.96E-03 2.77E-03 2.54E-03 2.38E-03'/ + DATA (DIMITRI0200(I),I= 26, 30)/ + 1' 2.00 414.3759 2p1P-6d1D 13.0 ', + 2' 5000. 2.21E-02 3.63E-03 0.00E+00 0.00E+00 0.00E+00 0.00E+00', + 3' 10000. 1.90E-02 2.37E-03 1.85E-02 1.67E-02 0.00E+00 0.00E+00', + 4' 20000. 1.59E-02 1.12E-03 1.87E-02 1.96E-02 0.00E+00 0.00E+00', + 5' 40000. 1.31E-02 6.75E-04 1.65E-02 2.16E-02 1.89E-02 1.90E-02'/ + DATA (DIMITRI0200(I),I= 31, 35)/ + 1' 2.00 416.8972 2p1P-6s1S 13.0 ', + 2' 5000. 4.83E-03 3.41E-03 1.08E-03 1.00E-03 9.29E-04 8.57E-04', + 3' 10000. 4.72E-03 3.06E-03 1.21E-03 1.13E-03 1.04E-03 9.72E-04', + 4' 20000. 4.84E-03 2.27E-03 1.36E-03 1.28E-03 1.17E-03 1.10E-03', + 5' 40000. 4.97E-03 1.55E-03 1.53E-03 1.44E-03 1.32E-03 1.24E-03'/ + DATA IREAD/0/ + wl4=sngl(wl) + wavesyn4=sngl(wavesyn) + IF(IREAD.EQ.1)GO TO 10 +c shift=d +cc DO 5 ILINE=1,69 +cc read(20,134)n,wave(iline),gam(iline) +134 format(i5,f10.1,f10.3) +cc k=1 +cc read(20,133)xnetab(k) +c type*,k,xnetab(k) +133 FORMAT(10X,E7.1) +C READ(20,3)TRANS(i,iline),(TTAB(I,iline),WIDTH(I,iline), +C 1 SHIFT(I,iline),WIDTHP(I,iline),SHIFTP(I,iline), +C 2 WIDTHHE(I,iline), SHIFTHE(I,iline),i=1,6) +C 3 FORMAT(5x,A10,F8.0,6(1X,E10.2)/15x,f8.0,6(1x,e10.2)/15x, +C 1 f8.0,6(1x,e10.2)/15x,f8.0,6(1x,e10.2)/15x,f8.0, +C 2 6(1x,e10.2)/15x,f8.0,6(1x,e10.2)) +C xnelog(iline)=alog10(xnetab(k)) + NLINE=7 + DO 5 ILINE=1,NLINE + READ(DIMITRI0200(ILINE*5-4),3)CODE(ILINE),WAVE(ILINE), + 1 TRANS(ILINE), XNELOG(ILINE) + 3 FORMAT(F5.2,F10.4,A10,F5.1,31x) + DO 5 I=1,4 + READ(DIMITRI0200(ILINE*5-4+I),4)TTAB(I,ILINE),WIDTH(I,ILINE), + 1 SHIFT(I,ILINE),WIDTHP(I,ILINE),SHIFTP(I,ILINE), + 2 WIDTHHE(I,ILINE),SHIFTHE(I,ILINE) + 4 FORMAT(F7.0,6E9.2) + SHIFT(I,ILINE)=SHIFT(I,ILINE)/WIDTH(I,ILINE) + IF(WIDTHP(I,ILINE).NE.0.) + 1 SHIFTP(I,ILINE)=SHIFTP(I,ILINE)/WIDTHP(I,ILINE) + IF(WIDTHHE(I,ILINE).NE.0.) + 1 SHIFTHE(I,ILINE)=SHIFTHE(I,ILINE)/WIDTHHE(I,ILINE) + 5 continue + IREAD=1 + 10 continue + DO 11 ILINE=1,NLINE + IF(WL.GT.WAVE(ILINE)-.1.AND.WL.LT.WAVE(ILINE)+.1)GO TO 12 + 11 CONTINUE + V=ABS(WAVESYN-WL)/DOPWL +C WANT DOPPLE(7) BUT DOES NOT INCLUDE ISOTOPIC MASS DOPWL/WL DOES + A=(GAMMAR+GAMMAS*XNE(J))/(DOPWL/WL) + DIMITRI=VOIGT(V,A) + RETURN + 12 IL=ILINE + E=XNE(J) + TEMP=T(J) +C NUMERO PROTONI=N(H+)/U(H+) U(H+)=1 + XNFHP=XNFPH(J,2) + XNFHEP=XNFHE(J,2) + DL=WAVEsyn4-WL4 + TEMP=AMAX1(TEMP,5.0E3) + TEMP=AMIN1(TEMP,8.0E4) + DO 2 I=2,4 + IT=I + IF(Ttab(It,il).GT.TEMP)GO TO 33 + 2 CONTINUE + 33 X=(TEMP-Ttab(IT-1,il))/(Ttab(IT,il)-Ttab(IT-1,il)) + 333 XX=E/(10.**xnelog(il)) + XXH=XNFHP/(10.**XNELOG(IL)) + XXHE=XNFHEP/(10.**XNELOG(IL)) +C DAMPING WIDTHs + W=XX*(X*Width(IT,il)+(1.0-X)*Width(IT-1,il)) + Wp=XXH*(X*Widthp(IT,il)+(1.0-X)*Widthp(IT-1,il)) + Whe=XXHE*(X*Widthhe(IT,il)+(1.0-X)*Widthhe(IT-1,il)) +C RATIO SHIFTS TO WIDTH + D=shift(IT,il)+(1.0-X)*shift(IT-1,il) + Dp=X*shiftp(IT,il)+(1.0-X)*shiftp(IT-1,il) + Dhe=X*shifthe(IT,il)+(1.0-X)*shifthe(IT-1,il) +C TOTAL WIDTH IN ANGSTROMS, then in nm + WTOT=W+Wp+Whe + wtot=wtot*0.1 +c half-half-width + wtot=wtot/2. +C TOTAL SHIFT IN ANGSTROM, then in nm + DTOT=W*D+Wp*dp+Whe*dhe + dtot=dtot*0.1 +C VOIGT PARAMETERS +C WANT DOPPLE(7) BUT DOES NOT INCLUDE ISOTOPIC MASS DOPWL/WL DOES + A=WTOT/DOPWL+GAMMAR/(DOPWL/WL) +C NORMALIZATION CONSTANT +c CON=0.564189583547756E0/(1.0+F1+F2)/(DOPPLE(7)*WL4) + con=1. + WWD=WAVEsyn-WL-DTOT + dimitri=VOIGT(ABS(WWD)/DOPWL,A) + RETURN + END + SUBROUTINE READBCS(LINE,J,TEMP,XNFHP,XNFHEP,XNE,DLNM,PHIHE) +C LINE=1 4471 +C LINE=2 4026 +C LINE=3 4387 +C LINE=4 4921 + PARAMETER (kw=99) + COMMON /TEMP/T(kw),TKEV(kw),TK(kw),HKT(kw),TLOG(kw),HCKT(kw),ITEMP + CHARACTER*8 TITLE1,TITLE2 + DIMENSION DLAM(204,4),PHI(8),PHIHP(4,7,142),PHIHEP(4,7,142) + DIMENSION PHILAM(204),PHI4026(4,8,196),PHI4387(4,8,204) + DIMENSION PHI4921(4,7,142) + DIMENSION NDLAM(4),NXNE(4),XNE1(4) + DATA NDLAM/142,196,204,142/ + DATA NXNE/7,8,8,7/ + DATA XNE1/13.,14.,14.,13./ + DATA ITEMP1/0/ + IF(DLAM(1,1).EQ.-150.)GO TO 10 + OPEN(UNIT=18,FORM='FORMATTED',STATUS='OLD',READONLY,SHARED) +C 4471 + READ(18,1) TITLE1 + READ(18,1) TITLE2 + 1 FORMAT(A80) + DO 22 IL=1,142 + DO 20 NE=1,7 + READ(18,34)FNE,DWL,(PHI(I),I=1,8) + 34 FORMAT(1X,F5.1,F8.2,8F7.3) +c TYPE*,FNE,DWL,(PHI(I),I=1,8) + DO 21 IT=1,4 + PHIHP(IT,NE,IL)=PHI(IT) + 21 PHIHEP(IT,NE,IL)=PHI(IT+4) + 20 CONTINUE + 22 DLAM(IL,1)=DWL-150. +C 4026 + READ(18,1)TITLE1 + READ(18,1)TITLE2 + DO 32 IL=1,196 + DO 30 NE=1,8 + READ(18,34)FNE,DWL,(PHI4026(IT,NE,IL),IT=1,4) +C TYPE*,FNE,DWL,(PHI4026(IT,NE,IL),IT=1,4) + 30 CONTINUE + 32 DLAM(IL,2)=DWL-150. +C 4387 + READ(18,1)TITLE1 + READ(18,1)TITLE2 + DO 35 IL=1,204 + DO 33 NE=1,8 + READ(18,34)FNE,DWL,(PHI4387(IT,NE,IL),IT=1,4) + 33 CONTINUE + 35 DLAM(IL,3)=DWL-150. +C 4921 + READ(18,1) TITLE1 + READ(18,1) TITLE2 + DO 45 IL=1,142 + DO 43 NE=1,7 + READ(18,34)FNE,DWL,(PHI(I),I=1,8) +c TYPE*,FNE,DWL,(PHI(I),I=1,8) + DO 46 IT=1,4 + PHIHP(IT,NE,IL)=PHI(IT) + 46 PHIHEP(IT,NE,IL)=PHI(IT+4) + 43 CONTINUE + 45 DLAM(IL,4)=DWL-150. + CLOSE(UNIT=18) + JSAVE=0 +C + 10 IF(J*LINE.EQ.JSAVE)GO TO 550 +C TEMPERATURE AND IONS DENSITY INTERPOLATION + AT=LOG10(TEMP) + BT=(AT-3.698970)/.3010300+1. + IT=BT+0.00001 + IT=MAX(MIN(IT,3),1) + WT=BT-IT + AP=LOG10(XNE) + AP=MAX(XNE1(LINE),AP) + BP=(AP-XNE1(LINE))/0.5+1. + IP=BP+0.00001 + IP=MAX(MIN(IP,NXNE(LINE)-1),1) + WP=BP-IP + C1W1W=(1.-WP)*(1.-WT) + C1WW=(1.-WP)*WT + CW1W=WP*(1.-WT) + CWW=WP*WT + GO TO (410,420,430,440),LINE + 410 XXH=XNFHP/XNE + XXHE=XNFHEP/XNE + DO 411 I=1,NDLAM(LINE) + 411 PHILAM(I)=XXH*10.**(C1W1W*PHIHP(IT ,IP ,I)+ + 1 C1WW*PHIHP(IT+1,IP ,I)+ + 2 CW1W*PHIHP(IT ,IP+1,I)+ + 3 CWW*PHIHP(IT+1,IP+1,I))+ + 4 XXHE*10.**(C1W1W*PHIHEP(IT ,IP ,I)+ + 5 C1WW*PHIHEP(IT+1,IP ,I)+ + 6 CW1W*PHIHEP(IT ,IP+1,I)+ + 7 CWW*PHIHEP(IT+1,IP+1,I)) + GO TO 502 + 420 DO 421 I=1,NDLAM(LINE) + 421 PHILAM(I)=10.**(C1W1W*PHI4026(IT ,IP ,I)+ + 1 C1WW*PHI4026(IT+1,IP ,I)+ + 2 CW1W*PHI4026(IT ,IP+1,I)+ + 3 CWW*PHI4026(IT+1,IP+1,I)) + GO TO 502 + 430 DO 431 I=1,NDLAM(LINE) + 431 PHILAM(I)=10.**(C1W1W*PHI4387(IT ,IP ,I)+ + 1 C1WW*PHI4387(IT+1,IP ,I)+ + 2 CW1W*PHI4387(IT ,IP+1,I)+ + 3 CWW*PHI4387(IT+1,IP+1,I)) + GO TO 502 + 440 XXH=XNFHP/XNE + XXHE=XNFHEP/XNE + DO 441 I=1,NDLAM(LINE) + 441 PHILAM(I)=XXH*10.**(C1W1W*PHIHP(IT ,IP ,I)+ + 1 C1WW*PHIHP(IT+1,IP ,I)+ + 2 CW1W*PHIHP(IT ,IP+1,I)+ + 3 CWW*PHIHP(IT+1,IP+1,I))+ + 4 XXHE*10.**(C1W1W*PHIHEP(IT ,IP ,I)+ + 5 C1WW*PHIHEP(IT+1,IP ,I)+ + 6 CW1W*PHIHEP(IT ,IP+1,I)+ + 7 CWW*PHIHEP(IT+1,IP+1,I)) + 502 CALL INTEG(DLAM(1,LINE),PHILAM,PHINORM,NDLAM(LINE),0.) + DO 503 I=1,NDLAM(LINE) + 503 PHILAM(I)=LOG10(PHILAM(I)/PHINORM) + JSAVE=J*LINE +C +C NOW DLAM INTERPOLATION + 550 DL=DLNM*10. + DO 600 I=2,NDLAM(LINE) + IF(DL.GT.DLAM(I,LINE).AND.I.LT.NDLAM(LINE))GO TO 600 + A=(DLAM(I,LINE)-DL)/(DLAM(I,LINE)-DLAM(I-1,LINE)) + B=(DL-DLAM(I-1,LINE))/(DLAM(I,LINE)-DLAM(I-1,LINE)) + PHIHE=10.**(A*PHILAM(I-1)+B*PHILAM(I)) + RETURN + 600 CONTINUE + RETURN + END + SUBROUTINE INTEG(X,F,FINT,N,START) +C SUBROUTINE INTEG(X,F,FINT,N) + DIMENSION X(1),F(1) + DIMENSION A(1000),B(1000),C(1000) + CALL PARCOE(F,X,A,B,C,N) + FINT=START +C FINT(1)=(A(1)+(B(1)/2.+C(1)/3.*X(1))*X(1))*X(1) +C FINT(2)=(A(1)+(B(1)/2.+C(1)/3.*X(2))*X(2))*X(2) +C IF(N.EQ.2)RETURN + N1=N-1 +C DO 10 I=2,N1 + DO 10 I=1,N1 + 10 FINT=FINT+(A(I)+B(I)/2.*(X(I+1)+X(I))+ + 1C(I)/3.*((X(I+1)+X(I))*X(I+1)+X(I)*X(I)))*(X(I+1)-X(I)) + RETURN + END + SUBROUTINE PARCOE(F,X,A,B,C,N) + DIMENSION F(1),X(1),A(1),B(1),C(1) + C(1)=0. + B(1)=(F(2)-F(1))/(X(2)-X(1)) + A(1)=F(1)-X(1)*B(1) + N1=N-1 + C(N)=0. + B(N)=(F(N)-F(N1))/(X(N)-X(N1)) + A(N)=F(N)-X(N)*B(N) + IF(N.EQ.2)RETURN + DO 1 J=2,N1 + J1=J-1 + D=(F(J)-F(J1))/(X(J)-X(J1)) + C(J)=F(J+1)/((X(J+1)-X(J))*(X(J+1)-X(J1)))-F(J)/((X(J)-X(J1))* + 1(X(J+1)-X(J)))+F(J1)/((X(J)-X(J1))*(X(J+1)-X(J1))) + B(J)=D-(X(J)+X(J1))*C(J) + 1 A(J)=F(J1)-X(J1)*D+X(J)*X(J1)*C(J) + C(2)=0. + B(2)=(F(3)-F(2))/(X(3)-X(2)) + A(2)=F(2)-X(2)*B(2) + C(3)=0. + B(3)=(F(4)-F(3))/(X(4)-X(3)) + A(3)=F(3)-X(3)*B(3) + DO 2 J=2,N1 + IF(C(J).EQ.0.)GO TO 2 + J1=J+1 + WT=ABS(C(J1))/(ABS(C(J1))+ABS(C(J))) + A(J)=A(J1)+WT*(A(J)-A(J1)) + B(J)=B(J1)+WT*(B(J)-B(J1)) + C(J)=C(J1)+WT*(C(J)-C(J1)) + 2 CONTINUE + A(N1)=A(N) + B(N1)=B(N) + C(N1)=C(N) + RETURN + END + SUBROUTINE BLOCKE +c IMPLICIT REAL*8 (A-H,O-Z) + PARAMETER (kw=99) + COMMON /ELEM/ABUND(99),ATMASS(99),ELEM(99) +C Grevesse,N. and Anders, E. 1988. presented at the workshop +C on the "Solar Interior and Atmosphere", Tucson, Nov 15-18. +C Anders, E. and Grevesse, N. 1989 Geochimica et Cosmochimica Acta, +C vol. 53, pp. 197-214. +C H has been defined to be -.04 instead of 12 +C 1H 2HE + DATA ABUND/ 0.911,0.089, +C 3LI 4BE 5B 6C 7N 8O 9F 10NE + 1-10.88,-10.89, -9.44, -3.48, -3.99, -3.11, -7.48, -3.95, +C 11NA 12MG 13AL 14SI 15P 16S 17CL 18AR + 2 -5.71, -4.46, -5.57, -4.49, -6.59, -4.83, -6.54, -5.48, +C 19K 20CA 21SC 22TI 23V 24CR 25MN 26FE + 3 -6.92, -5.68, -8.94, -7.05, -8.04, -6.37, -6.65, -4.37, +C 27CO 28NI 29CU 30ZN 31GA 33GE 33AS 34SE + 4 -7.12, -5.79, -7.83, -7.44, -9.16, -8.63, -9.67, -8.69, +C 35BR 36KR 37RB 38SR 39Y 40ZR 41NB 42MO + 5 -9.41, -8.81, -9.44, -9.14, -9.80, -9.44,-10.62,-10.12, +C 43TC 44RU 45RH 46PD 47AG 48CD 49IN 50SN + 6-20.00,-10.20,-10.92,-10.35,-11.10,-10.18,-10.38,-10.04, +C 51SB 52TE 53I 54XE 55CS 56BA 57LA 58CE + 7-11.04, -9.80,-10.53, -9.81,-10.92, -9.91,-10.82,-10.49, +C 59PR 60ND 61PM 62SM 63EU 64GD 65TB 66DY + 8-11.33,-10.54,-20.00,-11.04,-11.53,-10.92,-12.14,-10.94, +C 67HO 68ER 69TM 70YB 71LU 72HF 73TA 74W + 9-11.78,-11.11,-12.04,-10.96,-11.28,-11.16,-11.91,-10.93, +C 75RE 76OS 77IR 78PT 79AU 80HG 81TL 82PB + T-11.77,-10.59,-10.69,-10.24,-11.03,-10.95,-11.14,-10.19, +C 83BI 84PO 85AT 86RN 87FR 88RA 89AC 90TH + 1-11.33,-20.00,-20.00,-20.00,-20.00,-20.00,-20.00,-11.92, +C 91PA 92U 93NP 94PU 95AM 96CM 97BK 98CF 99ES + 2-20.00,-12.51,-20.00,-20.00,-20.00,-20.00,-20.00,-20.00,-20.00/ + DATA ATMASS/ 1.008,4.003, + 1 6.939,9.013,10.81,12.01,14.01,16.00,19.00,20.18,22.99,24.31, + 2 26.98,28.09,30.98,32.07,35.45,39.95,39.10,40.08,44.96,47.90, + 3 50.94,52.00,54.94,55.85,58.94,58.71,63.55,65.37,69.72,72.60, + 4 74.92,78.96,79.91,83.80,85.48,87.63,88.91,91.22,92.91,95.95, + 5 99.00,101.1,102.9,106.4,107.9,112.4,114.8,118.7,121.8,127.6, + 6 126.9,131.3,132.9,137.4,138.9,140.1,140.9,144.3,147.0,150.4, + 7 152.0,157.3,158.9,162.5,164.9,167.3,168.9,173.0,175.0,178.5, + 8 181.0,183.9,186.3,190.2,192.2,195.1,197.0,200.6,204.4,207.2, + 9 209.0,210.0,211.0,222.0,223.0,226.1,227.1,232.0,231.0,238.0, + T 237.0,244.0,243.0,247.0,247.0,251.0,254.0/ + DATA ELEM/ 2HH , 2HHE, + 1 2HLI, 2HBE, 2HB , 2HC , 2HN , 2HO , 2HF , 2HNE, 2HNA, 2HMG, + 2 2HAL, 2HSI, 2HP , 2HS , 2HCL, 2HAR, 2HK , 2HCA, 2HSC, 2HTI, + 3 2HV , 2HCR, 2HMN, 2HFE, 2HCO, 2HNI, 2HCU, 2HZN, 2HGA, 2HGE, + 4 2HAS, 2HSE, 2HBR, 2HKR, 2HRB, 2HSR, 2HY , 2HZR, 2HNB, 2HMO, + 5 2HTC, 2HRU, 2HRH, 2HPD, 2HAG, 2HCD, 2HIN, 2HSN, 2HSB, 2HTE, + 6 2HI , 2HXE, 2HCS, 2HBA, 2HLA, 2HCE, 2HPR, 2HND, 2HPM, 2HSM, + 7 2HEU, 2HGD, 2HTB, 2HDY, 2HHO, 2HER, 2HTM, 2HYB, 2HLU, 2HHF, + 8 2HTA, 2HW , 2HRE, 2HOS, 2HIR, 2HPT, 2HAU, 2HHG, 2HTL, 2HPB, + 9 2HBI, 2HPO, 2HAT, 2HRN, 2HFR, 2HRA, 2HAC, 2HTH, 2HPA, 2HU , + T 2HNP, 2HPU, 2HAM, 2HCM, 2HBK, 2HCF, 2HES/ + RETURN + END diff --git a/synthe/xnfpelsyn.for b/synthe/xnfpelsyn.for new file mode 100644 index 0000000..6682583 --- /dev/null +++ b/synthe/xnfpelsyn.for @@ -0,0 +1,347 @@ + + PROGRAM XNFPELSYN +c revised 04nov2014 constants given D exponents +C revised 26jul2004 correction from Fiorella Castelli xnfpch and xnfpoh +c revised 13jun00 +C PRODUCES XNFPEL AND DOPPLE FOR SYNTHE + IMPLICIT REAL*8 (A-H,O-Z) + PARAMETER (kw=99) + PARAMETER (MAXMOL=200,MAX1=MAXMOL+1,MAXEQ=30,MAXLOC=3*MAXMOL) + COMMON /ABROSS/ABROSS(kw),TAUROS(kw) + COMMON /ABTOT/ABTOT(kw),ALPHA(kw) + COMMON /BAL/BAL1(kw,9),AAL1(kw),SAL1(kw),XNFPAL(kw,2),BAL2(kw,1) + COMMON /BB/BB1(kw,7),XNFPB(kw,1) + COMMON /BC/BC1(kw,14),AC1(kw),SC1(kw),XNFPC(kw,2),BC2(kw,6) + COMMON /BCA/BCA1(kw,8),BCA2(kw,5),XNFPCA(kw,2) + COMMON /BFE/BFE1(kw,15),AFE1(kw),SFE1(kw),XNFPFE(kw,1) + COMMON /BHE/BHE1(kw,29),AHE1(kw),SHE1(kw),BHE2(kw,6),AHE2(kw), + 1 SHE2(kw),AHEMIN(kw),SIGHE(kw),XNFPHE(kw,3),XNFHE(kw,2) + COMMON /BHYD/BHYD(kw,8),AHYD(kw),SHYD(kw),AH2P(kw),BMIN(kw), + 1 AHMIN(kw),SHMIN(kw),SIGH(kw),SIGH2(kw),AHLINE(kw), + 2 SHLINE(kw),XNFPH(kw,2),XNFH(kw) + COMMON /BK/BK1(kw,8),XNFPK(kw,1) + COMMON /BMG/BMG1(kw,11),AMG1(kw),SMG1(kw),XNFPMG(kw,2),BMG2(kw,6) + COMMON /BNA/BNA1(kw,8),XNFPNA(kw,1) + COMMON /BO/BO1(kw,13),XNFPO(kw,1),BO2(kw,4) + COMMON /BSI/BSI1(kw,11),ASI1(kw),SSI1(kw),XNFPSI(kw,2),BSI2(kw,10) + COMMON /CHOH/XNFPCH(kw),XNFPOH(kw) + COMMON /CONV/DLTDLP(kw),HEATCP(kw),DLRDLT(kw),VELSND(kw), + 1 GRDADB(kw),HSCALE(kw),FLXCNV(kw),VCONV(kw),MIXLTH, + 2 IFCONV + REAL*8 MIXLTH + COMMON /ELEM/ABUND(99),ATMASS(99),ELEM(99),XABUND(99),WTMOLE + COMMON /FLUX/FLUX,FLXERR(kw),FLXDRV(kw),FLXRAD(kw) + COMMON /FREQ/FREQ,FREQLG,EHVKT(kw),STIM(kw),BNU(kw),WAVENO + COMMON /FRESET/FRESET(500),RCOSET(500),NULO,NUHI,NUMNU,IFWAVE, + 1 WBEGIN,DELTAW + COMMON /HEIGHT/HEIGHT(kw) + COMMON /IF/IFCORR,IFPRES,IFSURF,IFSCAT,IFMOL,NLTEON,IFOP(20) + COMMON /ITER/ITER,IFPRNT(15),IFPNCH(15),NUMITS + COMMON /JUNK/TITLE(74),FREQID(6),WLTE,XSCALE + COMMON /MUS/ANGLE(20),SURFI(20),NMU + COMMON /OPS/ACOOL(kw),ALUKE(kw),AHOT(kw),SIGEL(kw),ALINES(kw), + 1 SIGLIN(kw),AXLINE(kw),SIGXL(kw),AXCONT(kw),SIGX(kw), + 2 SXLINE(kw),SXCONT(kw) + COMMON /OPTOT/ACONT(kw),SCONT(kw),ALINE(kw),SLINE(kw),SIGMAC(kw), + 1 SIGMAL(kw) + COMMON /PUT/PUT,IPUT + COMMON /PZERO/PZERO,PCON,PRADK0,PTURB0,KNU(kw),PRADK(kw),EDENS(kw) + REAL*8 KNU + COMMON /RAD/ACCRAD(kw),PRAD(kw) + COMMON /RHOX/RHOX(kw),NRHOX + COMMON /STATE/P(kw),XNE(kw),XNATOM(kw),RHO(kw),PTOTAL(kw) + COMMON /TAUSHJ/TAUNU(kw),SNU(kw),HNU(kw),JNU(kw),JMINS(kw) + REAL*8 JNU,JMINS + COMMON /TEFF/TEFF,GRAV,GLOG + COMMON /TEMP/T(kw),TKEV(kw),TK(kw),HKT(kw),TLOG(kw),HCKT(kw),ITEMP + COMMON /TURBPR/VTURB(kw),PTURB(kw),TRBFDG,TRBCON,TRBPOW,TRBSND, + 1 IFTURB + REAL*8 IDMOL(60),MOMASS(60) + DIMENSION XNFH2(kw),XNFPH2(kw),XNFPCO(kw) +C DIMENSION XNFH(kw),XNFHE(kw),XNFH2(kw),IFOUT(kw) + DIMENSION XNFP(kw,10,99),XNFPEL(6,99),DOPPLE(6,99) + DIMENSION ABLOG(kw) + DIMENSION WLEDGE(377),CMEDGE(377),FRQEDG(377) + DIMENSION A(377),CONTINALL(1131,kw),FREQSET(1131),CONTABS(1131,kw) + DIMENSION CONTSCAT(1131,KW) + COMMON /FREE/WORD(6),NUMCOL,LETCOL,LAST,MORE,IFFAIL,MAXPOW + COMMON /XNMOL/CODEMOL(MAXMOL),XNMOL(kw,MAXMOL), + 1 XNFPMOL(kw,MAXMOL),NUMMOL + DIMENSION CARD(81) + DATA CARD/81*1H / +C CHANGE PO TO H3+ + DATA IDMOL/ + 1 101., 106., 107., 108., 606., 607., 608., 707., 708., + 2 808., 112., 113., 114., 812., 813., 814., 116., 120., + 3 816., 820., 821., 822., 823., 103., 104., 105., 109., + 4 115., 117., 121., 122., 123., 124., 125., 126.,106.01, +C 5 107.01,108.01,112.01,113.01,114.01,120.01, 408., 508., 815., + 5 107.01,108.01,112.01,113.01,114.01,120.01, 408., 508.,10101.01, + 6 817., 824., 825., 826.,10108.,60808.,10106.,60606., 127., + 7 128., 129., 827., 828., 829.,608.01/ + DATA MOMASS/ + 1 2., 13., 15., 17., 24., 26., 28., 28., 30., + 2 32., 25., 28., 29., 40., 43., 44., 33., 41., + 3 48., 56., 61., 64., 67., 8., 10., 12., 20., + 4 32., 36., 46., 49., 52., 53., 56., 57., 13., +C 5 15., 17., 25., 28., 29., 41., 25., 27., 47., + 5 15., 17., 25., 28., 29., 41., 25., 27., 3., + 6 51., 68., 71., 72., 18., 44., 14., 36., 60., + 7 59., 64., 75., 74., 79., 28./ + OPEN(UNIT=17,TYPE='OLD',READONLY,SHARED) + 10 CALL READIN(20) + IFOP(14)=0 + IFOP(15)=0 + IFOP(16)=0 + IFOP(17)=0 + MORE=1 + MAXPOW=99 + LAST=81 + NUMCOL=1 + ITEMP=0 + IFPRES=0 + IFPRES=1 + ITER=1 + NUMITS=1 + NT=NRHOX + REWIND 10 + WRITE(10)NT,TEFF,GLOG,TITLE + IN=0 + 11 EDGE=XFREEF(CARD) + IF(EDGE.EQ.0.)GO TO 14 + IN=IN+1 + PRINT 15,IN,EDGE + IF(ABS(EDGE).LT.1.D6)GO TO 12 + IF(ABS(EDGE).LT.1.D25)GO TO 13 +C WAVENUMBERS MUST BE MULTIPLIED BY 1.E25 + CMEDGE(IN)=EDGE/1.D25 + WLEDGE(IN)=1.D7/CMEDGE(IN) + FRQEDG(IN)=2.99792458D17/WLEDGE(IN) + A(IN)=ABS(WLEDGE(IN)) + GO TO 1111 + 12 WLEDGE(IN)=EDGE + CMEDGE(IN)=1.D7/EDGE + FRQEDG(IN)=2.99792458D17/WLEDGE(IN) + A(IN)=ABS(WLEDGE(IN)) + GO TO 1111 + 13 FRQEDG(IN)=EDGE + WLEDGE(IN)=2.99792458D17/EDGE + CMEDGE(IN)=1.D7/WLEDGE(IN) + A(IN)=ABS(WLEDGE(IN)) + 1111 WRITE(6,15)IN,FRQEDG(IN),WLEDGE(IN),CMEDGE(IN) + 15 FORMAT(I5,1PE25.15,0PF20.7,F20.7) + GO TO 11 + 14 DO 17 LAST=2,IN + LAST1=IN-LAST+2 + DO 16 I=2,LAST1 + IF(A(I).GE.A(I-1))GO TO 16 + SAVE=A(I-1) + A(I-1)=A(I) + A(I)=SAVE + SAVE=FRQEDG(I-1) + FRQEDG(I-1)=FRQEDG(I) + FRQEDG(I)=SAVE + SAVE=WLEDGE(I-1) + WLEDGE(I-1)=WLEDGE(I) + WLEDGE(I)=SAVE + SAVE=CMEDGE(I-1) + CMEDGE(I-1)=CMEDGE(I) + CMEDGE(I)=SAVE + 16 CONTINUE + 17 CONTINUE + WRITE(6,15)(I,FRQEDG(I),WLEDGE(I),CMEDGE(I),I=1,IN) + WRITE(10)IN,(FRQEDG(I),WLEDGE(I),CMEDGE(I),I=1,IN),IDMOL,MOMASS + NUMNU=0 + DO 18 I=1,IN-1 + NUMNU=NUMNU+1 + FREQSET(NUMNU)=ABS(FRQEDG(I))/1.0000001 + NUMNU=NUMNU+1 + FREQSET(NUMNU)=2.99792458D17/(ABS(WLEDGE(I))+ABS(WLEDGE(I+1)))*2. + NUMNU=NUMNU+1 + 18 FREQSET(NUMNU)=ABS(FRQEDG(I+1))*1.0000001 + WRITE(6,15)NUMNU + WRITE(10)NUMNU,(FREQSET(NU),NU=1,NUMNU) + ITEMP=ITEMP+1 + CALL POPS(1.00D0,12,XNFH) + CALL POPS(2.01D0,12,XNFHE) + CALL POPS(1.01D0,11,XNFPH) + CALL POPS(2.02D0,11,XNFPHE) + CALL POPS(5.00D0,11,XNFPB) + CALL POPS(6.01D0,11,XNFPC) + CALL POPS(8.00D0,11,XNFPO) + CALL POPS(11.00D0,11,XNFPNA) + CALL POPS(12.01D0,11,XNFPMG) + CALL POPS(13.01D0,11,XNFPAL) + CALL POPS(14.01D0,11,XNFPSI) + CALL POPS(19.00D0,11,XNFPK) + CALL POPS(20.01D0,11,XNFPCA) + CALL POPS(26.00D0,11,XNFPFE) +C 26jul2004 correction from Fiorella Castelli +C IF(IFMOL.EQ.1)CALL POPS(106.00D0,11,XNFPCH) +C IF(IFMOL.EQ.1)CALL POPS(108.00D0,11,XNFPOH) + IF(IFMOL.EQ.1)CALL POPS(106.00D0,1,XNFPCH) + IF(IFMOL.EQ.1)CALL POPS(108.00D0,1,XNFPOH) + DO 444 J=1,NRHOX + XNFH2(J)=0. + XNFPH2(J)=0. + XNFPCO(J)=0. +C IF(T(J).LT.10000.)XNFH2(J)=XNFH(J)**2*EXP(4.477/TKEV(J)-4.6628E1+ +C 1(1.8031E-3+(-5.0239E-7+(8.1424E-11-5.0501E-15*T(J))*T(J))*T(J))* +C 2T(J)-1.5*TLOG(J)) +C IF(T(J).LT.9000.)XNFH2(J)=XNFH(J)**2*EXP(4.478/TKEV(J)-4.64584E1+ +C 1(1.63660E-3+(-4.93992E-7+(1.11822E-10+(-1.49567E-14+ +C 2(1.06206E-18-3.08720E-23*T(J))*T(J))*T(J))*T(J))*T(J))*T(J)- +C 3 1.5*TLOG(J)) + IF(T(J).GT.9000.)GO TO 444 + EQ=EXP(4.478D0/TKEV(J)-4.64584D1+ + 1(1.63660D-3+(-4.93992D-7+(1.11822D-10+(-1.49567D-14+ + 2(1.06206D-18-3.08720D-23*T(J))*T(J))*T(J))*T(J))*T(J))*T(J)- + 3 1.5*TLOG(J)) + XNFH2(J)=XNFH(J)**2*EQ + XNFPH2(J)=XNFPH(J,1)**2*EQ + EQ=EXP(4.478D0/TKEV(J)-4.64584D1+ + 1(1.63660D-3+(-4.93992D-7+(1.11822D-10+(-1.49567D-14+ + 2(1.06206D-18-3.08720D-23*T(J))*T(J))*T(J))*T(J))*T(J))*T(J)- + 3 1.5*TLOG(J)) + XNFPCO(J)=XNFPC(J,1)*XNFPO(J,1)*EXP(11.091E0/TKEV(J)-49.0414E0+ + 1 14.0306D-4*T(J)-26.6341D-8*T(J)**2+35.382D-12*T(J)**3- + 2 26.5424D-16*T(J)**4+8.32385D-20*T(J)**5-1.5*TLOG(J)) + 444 CONTINUE + 445 CONTINUE + DO 125 NU=1,NUMNU + FREQ=FREQSET(NU) + FREQ15=FREQ/1.E15 + RCO=0. + FREQLG= LOG(FREQ) + DO 120 J=1,NRHOX + EHVKT(J)=EXP(-FREQ*HKT(J)) + STIM(J)=1.-EHVKT(J) + 120 BNU(J)=1.47439D-02*FREQ15**3*EHVKT(J)/STIM(J) + N=1 + WAVE=2.99792458D17/FREQ + WAVENO=1.E7/WAVE + CALL KAPP(N,NSTEPS,STEPWT) + WRITE(6,15)NU,FREQ,WAVE,WAVENO + DO 129 J=1,NRHOX + ABTOT(J)=ACONT(J)+SIGMAC(J) + CONTINALL(NU,J)=LOG10(ABTOT(J)) + CONTABS(NU,J)=LOG10(ACONT(J)) + CONTSCAT(NU,J)=LOG10(SIGMAC(J)) + 129 ABLOG(J)= LOG10(ABTOT(J)) + WRITE(6,105)(ABLOG(J),J=1,NRHOX) + 105 FORMAT(1X,20F5.2) +C WRITE(10)ABLOG + 125 CONTINUE +C + WRITE(10)T,TKEV,TK,HKT,TLOG,HCKT,P,XNE,XNATOM,RHO,RHOX,VTURB, + 1XNFH,XNFHE,XNFH2 + DO 30 NELEM=1,99 + DO 30 ION=1,10 + DO 30 J=1,NRHOX + 30 XNFP(J,ION,NELEM)=0. + CALL POPS(1.01D0,11,XNFP(1,1,1)) + CALL POPS(2.02D0,11,XNFP(1,1,2)) + CALL POPS(3.03D0,11,XNFP(1,1,3)) + CALL POPS(4.03D0,11,XNFP(1,1,4)) + CALL POPS(5.03D0,11,XNFP(1,1,5)) + CALL POPS(6.05D0,11,XNFP(1,1,6)) + CALL POPS(7.05D0,11,XNFP(1,1,7)) + CALL POPS(8.05D0,11,XNFP(1,1,8)) + CALL POPS(9.05D0,11,XNFP(1,1,9)) + CALL POPS(10.05D0,11,XNFP(1,1,10)) + CALL POPS(11.05D0,11,XNFP(1,1,11)) + CALL POPS(12.05D0,11,XNFP(1,1,12)) + CALL POPS(13.05D0,11,XNFP(1,1,13)) + CALL POPS(14.05D0,11,XNFP(1,1,14)) + CALL POPS(15.05D0,11,XNFP(1,1,15)) + CALL POPS(16.05D0,11,XNFP(1,1,16)) + CALL POPS(17.04D0,11,XNFP(1,1,17)) + CALL POPS(18.04D0,11,XNFP(1,1,18)) + CALL POPS(19.04D0,11,XNFP(1,1,19)) + CALL POPS(20.09D0,11,XNFP(1,1,20)) + CALL POPS(21.09D0,11,XNFP(1,1,21)) + CALL POPS(22.09D0,11,XNFP(1,1,22)) + CALL POPS(23.09D0,11,XNFP(1,1,23)) + CALL POPS(24.09D0,11,XNFP(1,1,24)) + CALL POPS(25.09D0,11,XNFP(1,1,25)) + CALL POPS(26.09D0,11,XNFP(1,1,26)) + CALL POPS(27.09D0,11,XNFP(1,1,27)) + CALL POPS(28.09D0,11,XNFP(1,1,28)) + DO 28 NELEM=29,99 + 28 CALL POPS(FLOAT(NELEM)+.02D0,11,XNFP(1,1,NELEM)) + DO 2828 J=1,NRHOX + XNFP(J,6,40)=XNFPH2(J) + 2828 XNFP(J,6,46)=XNFPCO(J) + IF(IFMOL.EQ.0)GO TO 210 + DO 201 NELEM=40,99 + 201 CALL POPS(IDMOL(NELEM-39),1,XNFP(1,6,NELEM)) + 210 DO 250 J=1,NRHOX + DO 250 NELEM=20,28 + XNFP(J,5,30+NELEM)=XNFP(J,7,NELEM) + XNFP(J,5,40+NELEM)=XNFP(J,8,NELEM) + XNFP(J,5,50+NELEM)=XNFP(J,9,NELEM) + 250 XNFP(J,5,60+NELEM)=XNFP(J,10,NELEM) + DO 300 J=1,NRHOX + DO 260 NELEM=1,99 + DO 260 ION=1,6 + 260 XNFPEL(ION,NELEM)=XNFP(J,ION,NELEM) + DO 20 NELEM=1,99 + DOPPLE(1,NELEM)=SQRT(2.*TK(J)/ATMASS(NELEM)/1.660D-24+ + 1VTURB(J)**2)/2.99792458D10 + DOPPLE(2,NELEM)=DOPPLE(1,NELEM) + DOPPLE(3,NELEM)=DOPPLE(1,NELEM) + DOPPLE(4,NELEM)=DOPPLE(1,NELEM) + DOPPLE(5,NELEM)=DOPPLE(1,NELEM) + 20 DOPPLE(6,NELEM)=DOPPLE(1,NELEM) + DO 21 NELEM=20,28 + DOPPLE(5,30+NELEM)=DOPPLE(1,NELEM) + DOPPLE(5,40+NELEM)=DOPPLE(1,NELEM) + DOPPLE(5,50+NELEM)=DOPPLE(1,NELEM) + 21 DOPPLE(5,60+NELEM)=DOPPLE(1,NELEM) +C IF(IFMOL.EQ.0)GO TO 270 + DO 265 NELEM=40,99 + 265 DOPPLE(6,NELEM)=SQRT(2.*TK(J)/MOMASS(NELEM-39)/1.660D-24+ + 1VTURB(J)**2)/2.99792458D10 + 270 CONTINUE +C + IT=ITEMP + IP=J +C + WRITE(10)(CONTINALL(NU,J),NU=1,1131) + WRITE(10)(CONTABS(NU,J),NU=1,1131) + WRITE(10)(CONTSCAT(NU,J),NU=1,1131) + WRITE(10)XNFPEL,DOPPLE + WRITE(6,280)J + 280 FORMAT(18H0XNFPEL.....DOPPLE,I10) + DO 29 NELEM=1,39 + 29 WRITE(6,290)NELEM,(XNFPEL(ION,NELEM),ION=1,6),DOPPLE(1,NELEM) + 290 FORMAT(I5,1P6E12.4,5X,2E12.4,0PF10.2,I5) + DO 33 NELEM=40,99 + NELEM6=NELEM*6 + 33 WRITE(6,290)NELEM,(XNFPEL(ION,NELEM),ION=1,6),DOPPLE(1,NELEM), + 1DOPPLE(6,NELEM),IDMOL(NELEM-39),NELEM6 + WRITE(6,333)T(J),TK(J),HKT(J),TKEV(J),TLOG(J),RHOX(J),P(J), + 1XNE(J),RHO(J),XNFH(J),XNFHE(J,1),XNFH2(J) + 333 FORMAT(10H0 T ,1PE12.4,10H TK ,E12.4,10H HKT , + 1E12.4,10H TKEV ,E12.4,10H TLOG ,E12.4/10H0 RHOX , + 2E12.4,10H P ,E12.4,10H XNE ,E12.4,10H RHO ,E12.4/ + 3 10H0 XNFH ,E12.4,10H XNFHE ,E12.4,10H XNFH2 ,E12.4) + 300 CONTINUE + CALL EXIT + END + SUBROUTINE ATLAS7 + END + FUNCTION XFREEF(CARD) + IMPLICIT REAL*8 (A-H,O-Z) + COMMON /FREE/WORD(6),NUMCOL,LETCOL,LAST,MORE,IFFAIL,MAXPOW + DIMENSION CARD(81) + MORE=1 + XFREEF=FREEFF(CARD) + IF(IFFAIL.EQ.0)RETURN + L=LAST-1 + READ(17,1)(CARD(I),I=1,L) + 1 FORMAT(80A1) + NUMCOL=1 + XFREEF=FREEFF(CARD) + RETURN + END |