Initial commit

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