#include "macros.h"

module unit_test_helper_fcidumps
    use constants, only: dp, eps
    use dSFMT_interface, only: genrand_real2_dSFMT
    use util_mod, only: operator(.div.)
    use orb_idx_mod, only: SpinProj_t, calc_spin_raw, sum
    use gasci, only: GASSpec_t
    better_implicit_none
    private
    public :: FciDumpWriter_t, BenzeneDimerFciDumpWriter_t, RandomFcidumpWriter_t, &
        InputWriter_t, Writer_t, generate_uniform_integrals, HeFciDumpWriter_t

    type, abstract :: Writer_t
        ! I would like it to be:
        ! character(:), allocatable :: filepath
        ! but for gfortran <= 4.8.5 it has to be
        character(512) :: filepath
    contains
        procedure :: write
        procedure(to_unit_writer_t), deferred :: write_to_unit
    end type

    abstract interface
        subroutine to_unit_writer_t(this, iunit)
            import :: Writer_t
            implicit none
            class(Writer_t), intent(in) :: this
            integer, intent(in) :: iunit
        end subroutine
    end interface


    type, abstract, extends(Writer_t) :: InputWriter_t
    end type



    type, abstract, extends(Writer_t) :: FciDumpWriter_t
    end type

    type, extends(FciDumpWriter_t) :: RandomFcidumpWriter_t
        integer :: n_el, n_spat_orb
        real(dp) :: sparse, sparseT
        type(SpinProj_t) :: total_ms
        logical :: uhf, hermitian
    contains
        procedure :: write_to_unit => RandomFcidumpWriter_t_write
    end type


    type, extends(FciDumpWriter_t) :: BenzeneDimerFciDumpWriter_t
    contains
        procedure :: write_to_unit => BenzeneDimerFciDumpWriter_t_write_to_unit
    end type

    type, extends(FciDumpWriter_t) :: HeFciDumpWriter_t
    contains
        procedure :: write_to_unit => HeFciDumpWriter_t_write_to_unit
    end type


    interface RandomFcidumpWriter_t
        module procedure construct_RandomFciDumpWriter_t, construct_GAS_RandomFciDumpWriter_t
    end interface



contains

    subroutine RandomFcidumpWriter_t_write(this, iunit)
        class(RandomFcidumpWriter_t), intent(in) :: this
        integer, intent(in) :: iunit
        call generate_random_integrals(iunit, &
            this%n_el, this%n_spat_orb, this%sparse, this%sparseT, &
            this%total_ms, this%uhf, this%hermitian)
    end subroutine

    subroutine BenzeneDimerFciDumpWriter_t_write_to_unit(this, iunit)
        class(BenzeneDimerFciDumpWriter_t), intent(in) :: this
        integer, intent(in) :: iunit
        unused_var(this)
         write(iunit, '(A)') ' &FCI NORB= 12,NELEC= 12,MS2=  0,       '
         write(iunit, '(A)') ' ORBSYM= 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1,'
         write(iunit, '(A)') ' ISYM=0 '
         write(iunit, '(A)') '&END '
         write(iunit, '(A)') '   0.30731092642        1    1    1    1'
         write(iunit, '(A)') '   0.11934262451E-07    2    1    1    1'
         write(iunit, '(A)') '   0.87237744247E-01    2    1    2    1'
         write(iunit, '(A)') '   0.30145062335        2    2    1    1'
         write(iunit, '(A)') '  -0.10049683709E-07    2    2    2    1'
         write(iunit, '(A)') '   0.32055553558        2    2    2    2'
         write(iunit, '(A)') '   0.16757441917E-08    3    1    1    1'
         write(iunit, '(A)') '   0.18122639424E-08    3    1    2    1'
         write(iunit, '(A)') '  -0.16711009733E-08    3    1    2    2'
         write(iunit, '(A)') '   0.87232752560E-01    3    1    3    1'
         write(iunit, '(A)') '  -0.10035113202E-08    3    2    2    1'
         write(iunit, '(A)') '  -0.57005274228E-08    3    2    3    1'
         write(iunit, '(A)') '   0.23210000571E-01    3    2    3    2'
         write(iunit, '(A)') '   0.30144898518        3    3    1    1'
         write(iunit, '(A)') '  -0.31873174866E-08    3    3    2    1'
         write(iunit, '(A)') '   0.27413804587        3    3    2    2'
         write(iunit, '(A)') '  -0.37449154950E-08    3    3    3    1'
         write(iunit, '(A)') '   0.24537800870E-08    3    3    3    2'
         write(iunit, '(A)') '   0.32055529927        3    3    3    3'
         write(iunit, '(A)') '   0.14086500086E-08    4    1    1    1'
         write(iunit, '(A)') '   0.15983672082E-08    4    1    2    1'
         write(iunit, '(A)') '   0.31545336153E-05    4    1    2    2'
         write(iunit, '(A)') '   0.67392927268E-08    4    1    3    1'
         write(iunit, '(A)') '   0.32625530307E-01    4    1    3    2'
         write(iunit, '(A)') '  -0.31521381521E-05    4    1    3    3'
         write(iunit, '(A)') '   0.46403246929E-01    4    1    4    1'
         write(iunit, '(A)') '   0.11719005311E-08    4    2    1    1'
         write(iunit, '(A)') '   0.61265386304E-05    4    2    2    1'
         write(iunit, '(A)') '   0.63361668417E-01    4    2    3    1'
         write(iunit, '(A)') '  -0.73143272219E-08    4    2    3    2'
         write(iunit, '(A)') '  -0.32698322529E-08    4    2    3    3'
         write(iunit, '(A)') '   0.50136267252E-01    4    2    4    2'
         write(iunit, '(A)') '   0.87654405436E-08    4    3    1    1'
         write(iunit, '(A)') '   0.63363712029E-01    4    3    2    1'
         write(iunit, '(A)') '  -0.88484000764E-08    4    3    2    2'
         write(iunit, '(A)') '  -0.61239475775E-05    4    3    3    1'
         write(iunit, '(A)') '  -0.17950778273E-08    4    3    3    2'
         write(iunit, '(A)') '  -0.11908148390E-08    4    3    3    3'
         write(iunit, '(A)') '   0.12235355196E-08    4    3    4    1'
         write(iunit, '(A)') '   0.21702045353E-06    4    3    4    2'
         write(iunit, '(A)') '   0.77875849140E-01    4    3    4    3'
         write(iunit, '(A)') '   0.30489089156        4    4    1    1'
         write(iunit, '(A)') '   0.28368255273        4    4    2    2'
         write(iunit, '(A)') '   0.12071463914E-08    4    4    3    1'
         write(iunit, '(A)') '   0.28927192965E-06    4    4    3    2'
         write(iunit, '(A)') '   0.32065860235        4    4    3    3'
         write(iunit, '(A)') '  -0.22510709159E-05    4    4    4    1'
         write(iunit, '(A)') '   0.12090407748E-08    4    4    4    3'
         write(iunit, '(A)') '   0.33121315402        4    4    4    4'
         write(iunit, '(A)') '  -0.54925244284E-06    5    1    1    1'
         write(iunit, '(A)') '  -0.69634013428E-08    5    1    2    1'
         write(iunit, '(A)') '  -0.32624257735E-01    5    1    2    2'
         write(iunit, '(A)') '   0.16214886796E-08    5    1    3    1'
         write(iunit, '(A)') '   0.31564355399E-05    5    1    3    2'
         write(iunit, '(A)') '   0.32625088340E-01    5    1    3    3'
         write(iunit, '(A)') '  -0.21501653363E-08    5    1    4    3'
         write(iunit, '(A)') '   0.27763528911E-01    5    1    4    4'
         write(iunit, '(A)') '   0.46403557653E-01    5    1    5    1'
         write(iunit, '(A)') '  -0.91585896190E-08    5    2    1    1'
         write(iunit, '(A)') '  -0.63361754419E-01    5    2    2    1'
         write(iunit, '(A)') '   0.11606515430E-07    5    2    2    2'
         write(iunit, '(A)') '   0.61278315897E-05    5    2    3    1'
         write(iunit, '(A)') '  -0.32231984360E-08    5    2    3    3'
         write(iunit, '(A)') '  -0.11817844024E-08    5    2    4    1'
         write(iunit, '(A)') '   0.21840059779E-06    5    2    4    2'
         write(iunit, '(A)') '  -0.15528273908E-01    5    2    4    3'
         write(iunit, '(A)') '  -0.33570384671E-08    5    2    4    4'
         write(iunit, '(A)') '   0.77873158310E-01    5    2    5    2'
         write(iunit, '(A)') '   0.11664959187E-08    5    3    1    1'
         write(iunit, '(A)') '   0.61304420779E-05    5    3    2    1'
         write(iunit, '(A)') '  -0.18590314574E-08    5    3    2    2'
         write(iunit, '(A)') '   0.63361253755E-01    5    3    3    1'
         write(iunit, '(A)') '  -0.62290279382E-08    5    3    3    2'
         write(iunit, '(A)') '  -0.22992920128E-08    5    3    3    3'
         write(iunit, '(A)') '   0.16827375720E-08    5    3    4    1'
         write(iunit, '(A)') '   0.43268275212E-01    5    3    4    2'
         write(iunit, '(A)') '  -0.21450552428E-06    5    3    4    3'
         write(iunit, '(A)') '   0.12286131184E-08    5    3    4    4'
         write(iunit, '(A)') '   0.21501150626E-08    5    3    5    1'
         write(iunit, '(A)') '  -0.21914705806E-06    5    3    5    2'
         write(iunit, '(A)') '   0.50135851332E-01    5    3    5    3'
         write(iunit, '(A)') '   0.29029375362E-06    5    4    2    2'
         write(iunit, '(A)') '  -0.14582556549E-08    5    4    3    1'
         write(iunit, '(A)') '   0.18489193971E-01    5    4    3    2'
         write(iunit, '(A)') '  -0.28845971020E-06    5    4    3    3'
         write(iunit, '(A)') '   0.27763758376E-01    5    4    4    1'
         write(iunit, '(A)') '  -0.37923866526E-08    5    4    4    2'
         write(iunit, '(A)') '  -0.14242634653E-08    5    4    4    4'
         write(iunit, '(A)') '   0.22493839982E-05    5    4    5    1'
         write(iunit, '(A)') '   0.12261076807E-08    5    4    5    2'
         write(iunit, '(A)') '  -0.30552133244E-08    5    4    5    3'
         write(iunit, '(A)') '   0.21216332588E-01    5    4    5    4'
         write(iunit, '(A)') '   0.30489127009        5    5    1    1'
         write(iunit, '(A)') '  -0.59814139359E-08    5    5    2    1'
         write(iunit, '(A)') '   0.32065784451        5    5    2    2'
         write(iunit, '(A)') '   0.24160943615E-08    5    5    3    1'
         write(iunit, '(A)') '  -0.29047835543E-06    5    5    3    2'
         write(iunit, '(A)') '   0.28368165065        5    5    3    3'
         write(iunit, '(A)') '   0.22495315001E-05    5    5    4    1'
         write(iunit, '(A)') '   0.20679412354E-08    5    5    4    2'
         write(iunit, '(A)') '  -0.51705229394E-08    5    5    4    3'
         write(iunit, '(A)') '   0.28878189785        5    5    4    4'
         write(iunit, '(A)') '  -0.27762800115E-01    5    5    5    1'
         write(iunit, '(A)') '   0.89403065779E-08    5    5    5    2'
         write(iunit, '(A)') '   0.11017752546E-08    5    5    5    3'
         write(iunit, '(A)') '   0.33121184745        5    5    5    5'
         write(iunit, '(A)') '  -0.10126421990E-05    6    1    2    1'
         write(iunit, '(A)') '  -0.37014458140E-08    6    1    2    2'
         write(iunit, '(A)') '   0.28494520275E-08    6    1    3    3'
         write(iunit, '(A)') '   0.25750044740E-06    6    1    4    2'
         write(iunit, '(A)') '   0.32983342330E-01    6    1    4    3'
         write(iunit, '(A)') '   0.37087378769E-08    6    1    4    4'
         write(iunit, '(A)') '   0.58844141751E-08    6    1    5    1'
         write(iunit, '(A)') '   0.32984972657E-01    6    1    5    2'
         write(iunit, '(A)') '  -0.25919897536E-06    6    1    5    3'
         write(iunit, '(A)') '   0.14896386948E-08    6    1    5    4'
         write(iunit, '(A)') '  -0.28273203998E-08    6    1    5    5'
         write(iunit, '(A)') '   0.34942087724E-01    6    1    6    1'
         write(iunit, '(A)') '  -0.16693880785E-06    6    2    1    1'
         write(iunit, '(A)') '  -0.50673958253E-08    6    2    2    1'
         write(iunit, '(A)') '  -0.30105021252E-01    6    2    2    2'
         write(iunit, '(A)') '  -0.15610755370E-08    6    2    3    1'
         write(iunit, '(A)') '   0.31477069612E-05    6    2    3    2'
         write(iunit, '(A)') '   0.30106588950E-01    6    2    3    3'
         write(iunit, '(A)') '   0.34457326299E-06    6    2    4    1'
         write(iunit, '(A)') '  -0.19897181840E-08    6    2    4    2'
         write(iunit, '(A)') '  -0.30560747328E-08    6    2    4    3'
         write(iunit, '(A)') '   0.30283790735E-01    6    2    4    4'
         write(iunit, '(A)') '   0.44057545189E-01    6    2    5    1'
         write(iunit, '(A)') '  -0.40820049444E-08    6    2    5    2'
         write(iunit, '(A)') '   0.26899224026E-05    6    2    5    4'
         write(iunit, '(A)') '  -0.30282312435E-01    6    2    5    5'
         write(iunit, '(A)') '   0.36244561909E-08    6    2    6    1'
         write(iunit, '(A)') '   0.45190979883E-01    6    2    6    2'
         write(iunit, '(A)') '   0.16213598000E-08    6    3    1    1'
         write(iunit, '(A)') '  -0.15849885845E-08    6    3    2    1'
         write(iunit, '(A)') '   0.31480311896E-05    6    3    2    2'
         write(iunit, '(A)') '   0.36251474416E-08    6    3    3    1'
         write(iunit, '(A)') '   0.30106460545E-01    6    3    3    2'
         write(iunit, '(A)') '  -0.31449827942E-05    6    3    3    3'
         write(iunit, '(A)') '   0.44056950775E-01    6    3    4    1'
         write(iunit, '(A)') '  -0.17136464691E-08    6    3    4    2'
         write(iunit, '(A)') '  -0.15390556027E-08    6    3    4    3'
         write(iunit, '(A)') '  -0.26929057264E-05    6    3    4    4'
         write(iunit, '(A)') '  -0.34558916359E-06    6    3    5    1'
         write(iunit, '(A)') '   0.30283663436E-01    6    3    5    4'
         write(iunit, '(A)') '   0.26922124616E-05    6    3    5    5'
         write(iunit, '(A)') '  -0.18270841344E-08    6    3    6    2'
         write(iunit, '(A)') '   0.45190365992E-01    6    3    6    3'
         write(iunit, '(A)') '   0.16690837356E-08    6    4    1    1'
         write(iunit, '(A)') '   0.68945778761E-06    6    4    2    1'
         write(iunit, '(A)') '  -0.26828330702E-08    6    4    2    2'
         write(iunit, '(A)') '   0.88140634255E-01    6    4    3    1'
         write(iunit, '(A)') '  -0.60519486480E-08    6    4    3    2'
         write(iunit, '(A)') '  -0.30420603040E-08    6    4    3    3'
         write(iunit, '(A)') '   0.66646099656E-08    6    4    4    1'
         write(iunit, '(A)') '   0.66264639366E-01    6    4    4    2'
         write(iunit, '(A)') '  -0.58903964391E-05    6    4    4    3'
         write(iunit, '(A)') '   0.19492888218E-08    6    4    4    4'
         write(iunit, '(A)') '   0.29147367151E-08    6    4    5    1'
         write(iunit, '(A)') '   0.58886745491E-05    6    4    5    2'
         write(iunit, '(A)') '   0.66264463120E-01    6    4    5    3'
         write(iunit, '(A)') '  -0.16291318824E-08    6    4    5    4'
         write(iunit, '(A)') '   0.15643676795E-08    6    4    5    5'
         write(iunit, '(A)') '  -0.25448308713E-08    6    4    6    1'
         write(iunit, '(A)') '   0.36646701572E-08    6    4    6    3'
         write(iunit, '(A)') '   0.97336004086E-01    6    4    6    4'
         write(iunit, '(A)') '   0.12335664468E-07    6    5    1    1'
         write(iunit, '(A)') '   0.88145058229E-01    6    5    2    1'
         write(iunit, '(A)') '  -0.11510046103E-07    6    5    2    2'
         write(iunit, '(A)') '  -0.69131251933E-06    6    5    3    1'
         write(iunit, '(A)') '  -0.16255518097E-08    6    5    3    3'
         write(iunit, '(A)') '   0.28920077181E-08    6    5    4    1'
         write(iunit, '(A)') '   0.58861577006E-05    6    5    4    2'
         write(iunit, '(A)') '   0.66266414349E-01    6    5    4    3'
         write(iunit, '(A)') '  -0.51470851686E-08    6    5    5    1'
         write(iunit, '(A)') '  -0.66264455598E-01    6    5    5    2'
         write(iunit, '(A)') '   0.58902830239E-05    6    5    5    3'
         write(iunit, '(A)') '  -0.77871429693E-08    6    5    5    5'
         write(iunit, '(A)') '  -0.11471649683E-05    6    5    6    1'
         write(iunit, '(A)') '  -0.34563877501E-08    6    5    6    2'
         write(iunit, '(A)') '  -0.39252222117E-08    6    5    6    4'
         write(iunit, '(A)') '   0.97340246669E-01    6    5    6    5'
         write(iunit, '(A)') '   0.30845777416        6    6    1    1'
         write(iunit, '(A)') '   0.64907269536E-08    6    6    2    1'
         write(iunit, '(A)') '   0.30644082833        6    6    2    2'
         write(iunit, '(A)') '  -0.18609538844E-08    6    6    3    2'
         write(iunit, '(A)') '   0.30643936816        6    6    3    3'
         write(iunit, '(A)') '  -0.24816341573E-08    6    6    4    1'
         write(iunit, '(A)') '   0.51554249641E-08    6    6    4    3'
         write(iunit, '(A)') '   0.31653526867        6    6    4    4'
         write(iunit, '(A)') '  -0.67533975102E-06    6    6    5    1'
         write(iunit, '(A)') '  -0.47872957666E-08    6    6    5    2'
         write(iunit, '(A)') '  -0.17338177542E-08    6    6    5    4'
         write(iunit, '(A)') '   0.31653605561        6    6    5    5'
         write(iunit, '(A)') '  -0.28762589015E-06    6    6    6    2'
         write(iunit, '(A)') '  -0.20726864967E-08    6    6    6    3'
         write(iunit, '(A)') '   0.69934776651E-08    6    6    6    5'
         write(iunit, '(A)') '   0.32500414949        6    6    6    6'
         write(iunit, '(A)') '   0.21827886007E-03    7    1    1    1'
         write(iunit, '(A)') '   0.24663358250E-03    7    1    2    2'
         write(iunit, '(A)') '  -0.96364245558E-08    7    1    3    1'
         write(iunit, '(A)') '   0.24660923191E-03    7    1    3    3'
         write(iunit, '(A)') '   0.11167269809E-08    7    1    4    1'
         write(iunit, '(A)') '  -0.70593756382E-08    7    1    4    2'
         write(iunit, '(A)') '   0.37994129950E-03    7    1    4    4'
         write(iunit, '(A)') '  -0.16062979868E-07    7    1    5    1'
         write(iunit, '(A)') '  -0.70568931417E-08    7    1    5    3'
         write(iunit, '(A)') '   0.37995437032E-03    7    1    5    5'
         write(iunit, '(A)') '  -0.89055032666E-08    7    1    6    2'
         write(iunit, '(A)') '   0.10634472100E-08    7    1    6    3'
         write(iunit, '(A)') '  -0.98625965785E-08    7    1    6    4'
         write(iunit, '(A)') '   0.46860637166E-03    7    1    6    6'
         write(iunit, '(A)') '   0.92924979197E-04    7    1    7    1'
         write(iunit, '(A)') '   0.44873934656E-03    7    2    2    1'
         write(iunit, '(A)') '   0.11476593050E-08    7    2    3    1'
         write(iunit, '(A)') '  -0.28126902274E-08    7    2    3    2'
         write(iunit, '(A)') '  -0.39404341301E-08    7    2    4    1'
         write(iunit, '(A)') '   0.35256243839E-07    7    2    4    2'
         write(iunit, '(A)') '   0.35496391698E-03    7    2    4    3'
         write(iunit, '(A)') '  -0.10610680870E-08    7    2    4    4'
         write(iunit, '(A)') '  -0.35495260847E-03    7    2    5    2'
         write(iunit, '(A)') '   0.35114813114E-07    7    2    5    3'
         write(iunit, '(A)') '  -0.22485188001E-08    7    2    5    4'
         write(iunit, '(A)') '  -0.50493497344E-08    7    2    6    1'
         write(iunit, '(A)') '  -0.36592771706E-08    7    2    6    3'
         write(iunit, '(A)') '   0.56863854937E-08    7    2    6    4'
         write(iunit, '(A)') '   0.56722902633E-03    7    2    6    5'
         write(iunit, '(A)') '   0.48539387980E-04    7    2    7    2'
         write(iunit, '(A)') '  -0.21389820431E-07    7    3    1    1'
         write(iunit, '(A)') '   0.11471156074E-08    7    3    2    1'
         write(iunit, '(A)') '  -0.18284742258E-07    7    3    2    2'
         write(iunit, '(A)') '   0.44869789950E-03    7    3    3    1'
         write(iunit, '(A)') '  -0.23909071001E-07    7    3    3    3'
         write(iunit, '(A)') '   0.35494575701E-03    7    3    4    2'
         write(iunit, '(A)') '  -0.32705506613E-07    7    3    4    3'
         write(iunit, '(A)') '  -0.24080987064E-07    7    3    4    4'
         write(iunit, '(A)') '  -0.39377680050E-08    7    3    5    1'
         write(iunit, '(A)') '   0.34220761330E-07    7    3    5    2'
         write(iunit, '(A)') '   0.35493917581E-03    7    3    5    3'
         write(iunit, '(A)') '  -0.19581501090E-07    7    3    5    5'
         write(iunit, '(A)') '  -0.36575098559E-08    7    3    6    2'
         write(iunit, '(A)') '   0.56719215608E-03    7    3    6    4'
         write(iunit, '(A)') '  -0.31995891753E-08    7    3    6    5'
         write(iunit, '(A)') '  -0.22407097012E-07    7    3    6    6'
         write(iunit, '(A)') '   0.48538757850E-04    7    3    7    3'
         write(iunit, '(A)') '   0.43781770556E-08    7    4    1    1'
         write(iunit, '(A)') '  -0.74212951704E-08    7    4    2    1'
         write(iunit, '(A)') '   0.34343846243E-07    7    4    2    2'
         write(iunit, '(A)') '   0.31508100932E-03    7    4    3    2'
         write(iunit, '(A)') '  -0.25664051858E-07    7    4    3    3'
         write(iunit, '(A)') '   0.47175282417E-03    7    4    4    1'
         write(iunit, '(A)') '  -0.93034370269E-08    7    4    4    3'
         write(iunit, '(A)') '  -0.20503032239E-07    7    4    4    4'
         write(iunit, '(A)') '   0.16617125718E-08    7    4    5    2'
         write(iunit, '(A)') '   0.31531979618E-03    7    4    5    4'
         write(iunit, '(A)') '   0.29582247849E-07    7    4    5    5'
         write(iunit, '(A)') '  -0.40348341603E-08    7    4    6    1'
         write(iunit, '(A)') '   0.44462358849E-08    7    4    6    2'
         write(iunit, '(A)') '   0.47466052426E-03    7    4    6    3'
         write(iunit, '(A)') '  -0.78000000070E-08    7    4    6    5'
         write(iunit, '(A)') '   0.46908822542E-08    7    4    6    6'
         write(iunit, '(A)') '   0.15635032315E-04    7    4    7    4'
         write(iunit, '(A)') '  -0.30642407959E-07    7    5    1    1'
         write(iunit, '(A)') '  -0.31509025826E-03    7    5    2    2'
         write(iunit, '(A)') '  -0.74172074335E-08    7    5    3    1'
         write(iunit, '(A)') '   0.30932522839E-07    7    5    3    2'
         write(iunit, '(A)') '   0.31505227654E-03    7    5    3    3'
         write(iunit, '(A)') '  -0.50716418453E-08    7    5    4    2'
         write(iunit, '(A)') '   0.31529549303E-03    7    5    4    4'
         write(iunit, '(A)') '   0.47175587159E-03    7    5    5    1'
         write(iunit, '(A)') '  -0.58878220023E-08    7    5    5    3'
         write(iunit, '(A)') '   0.26061341840E-07    7    5    5    4'
         write(iunit, '(A)') '  -0.31533182643E-03    7    5    5    5'
         write(iunit, '(A)') '   0.47466622650E-03    7    5    6    2'
         write(iunit, '(A)') '  -0.29895330444E-08    7    5    6    3'
         write(iunit, '(A)') '  -0.77969763797E-08    7    5    6    4'
         write(iunit, '(A)') '  -0.28401659749E-07    7    5    6    6'
         write(iunit, '(A)') '   0.15634970333E-04    7    5    7    5'
         write(iunit, '(A)') '  -0.15395974539E-08    7    6    1    1'
         write(iunit, '(A)') '  -0.52967089362E-08    7    6    2    1'
         write(iunit, '(A)') '  -0.14085347552E-08    7    6    2    2'
         write(iunit, '(A)') '   0.14779946815E-08    7    6    3    1'
         write(iunit, '(A)') '  -0.36766021558E-08    7    6    3    2'
         write(iunit, '(A)') '  -0.16637313379E-08    7    6    3    3'
         write(iunit, '(A)') '  -0.53703777251E-08    7    6    4    1'
         write(iunit, '(A)') '   0.43178029768E-08    7    6    4    2'
         write(iunit, '(A)') '   0.40730454105E-03    7    6    4    3'
         write(iunit, '(A)') '  -0.17608879846E-08    7    6    4    4'
         write(iunit, '(A)') '   0.40731472240E-03    7    6    5    2'
         write(iunit, '(A)') '  -0.20628246247E-08    7    6    5    3'
         write(iunit, '(A)') '  -0.36916774642E-08    7    6    5    4'
         write(iunit, '(A)') '  -0.14805208601E-08    7    6    5    5'
         write(iunit, '(A)') '   0.43685907796E-03    7    6    6    1'
         write(iunit, '(A)') '  -0.55242339054E-08    7    6    6    3'
         write(iunit, '(A)') '   0.17270382680E-08    7    6    6    4'
         write(iunit, '(A)') '  -0.73277911886E-08    7    6    6    5'
         write(iunit, '(A)') '  -0.16993077463E-08    7    6    6    6'
         write(iunit, '(A)') '   0.92611087664E-05    7    6    7    6'
         write(iunit, '(A)') '   0.12576536297        7    7    1    1'
         write(iunit, '(A)') '  -0.27663131743E-08    7    7    2    1'
         write(iunit, '(A)') '   0.12447869116        7    7    2    2'
         write(iunit, '(A)') '  -0.29203095729E-08    7    7    3    1'
         write(iunit, '(A)') '   0.12447878602        7    7    3    3'
         write(iunit, '(A)') '  -0.16407435158E-08    7    7    4    2'
         write(iunit, '(A)') '  -0.13069540038E-08    7    7    4    3'
         write(iunit, '(A)') '   0.12321686318        7    7    4    4'
         write(iunit, '(A)') '   0.14040343810E-06    7    7    5    1'
         write(iunit, '(A)') '   0.13224428740E-08    7    7    5    2'
         write(iunit, '(A)') '  -0.16397707321E-08    7    7    5    3'
         write(iunit, '(A)') '   0.12321673198        7    7    5    5'
         write(iunit, '(A)') '   0.10627505928E-06    7    7    6    2'
         write(iunit, '(A)') '  -0.31444836575E-08    7    7    6    4'
         write(iunit, '(A)') '  -0.29316112752E-08    7    7    6    5'
         write(iunit, '(A)') '   0.12267506632        7    7    6    6'
         write(iunit, '(A)') '   0.21824028616E-03    7    7    7    1'
         write(iunit, '(A)') '   0.11262893003E-08    7    7    7    2'
         write(iunit, '(A)') '   0.22343674127E-07    7    7    7    3'
         write(iunit, '(A)') '  -0.45022486839E-08    7    7    7    4'
         write(iunit, '(A)') '   0.11119636555E-07    7    7    7    5'
         write(iunit, '(A)') '   0.15561228993E-08    7    7    7    6'
         write(iunit, '(A)') '   0.30731092661        7    7    7    7'
         write(iunit, '(A)') '   0.40449561696E-03    8    1    2    1'
         write(iunit, '(A)') '   0.43963483437E-08    8    1    3    1'
         write(iunit, '(A)') '  -0.11658043009E-08    8    1    3    2'
         write(iunit, '(A)') '  -0.14089506926E-08    8    1    3    3'
         write(iunit, '(A)') '  -0.16525064853E-08    8    1    4    1'
         write(iunit, '(A)') '   0.34422989787E-07    8    1    4    2'
         write(iunit, '(A)') '   0.32303535287E-03    8    1    4    3'
         write(iunit, '(A)') '  -0.13645886321E-08    8    1    4    4'
         write(iunit, '(A)') '  -0.32303017150E-03    8    1    5    2'
         write(iunit, '(A)') '   0.34449359613E-07    8    1    5    3'
         write(iunit, '(A)') '  -0.10126841072E-08    8    1    5    4'
         write(iunit, '(A)') '  -0.72283662314E-08    8    1    6    1'
         write(iunit, '(A)') '  -0.15977502349E-08    8    1    6    3'
         write(iunit, '(A)') '   0.85858941547E-08    8    1    6    4'
         write(iunit, '(A)') '   0.52863405821E-03    8    1    6    5'
         write(iunit, '(A)') '   0.48341628218E-04    8    1    7    2'
         write(iunit, '(A)') '   0.10606826325E-08    8    1    7    7'
         write(iunit, '(A)') '   0.48539295252E-04    8    1    8    1'
         write(iunit, '(A)') '   0.44970689863E-03    8    2    1    1'
         write(iunit, '(A)') '   0.61375085406E-03    8    2    2    2'
         write(iunit, '(A)') '  -0.21448748785E-08    8    2    3    1'
         write(iunit, '(A)') '   0.11578752703E-08    8    2    3    2'
         write(iunit, '(A)') '   0.28656589880E-03    8    2    3    3'
         write(iunit, '(A)') '   0.26220494489E-07    8    2    4    1'
         write(iunit, '(A)') '  -0.17412984021E-08    8    2    4    2'
         write(iunit, '(A)') '   0.39633986062E-03    8    2    4    4'
         write(iunit, '(A)') '  -0.25410913457E-03    8    2    5    1'
         write(iunit, '(A)') '  -0.14913462731E-08    8    2    5    3'
         write(iunit, '(A)') '   0.37383243865E-08    8    2    5    4'
         write(iunit, '(A)') '   0.75270269695E-03    8    2    5    5'
         write(iunit, '(A)') '  -0.26183571000E-03    8    2    6    2'
         write(iunit, '(A)') '   0.28905829725E-07    8    2    6    3'
         write(iunit, '(A)') '  -0.22922797942E-08    8    2    6    4'
         write(iunit, '(A)') '   0.66539228851E-03    8    2    6    6'
         write(iunit, '(A)') '   0.77189124102E-04    8    2    7    1'
         write(iunit, '(A)') '   0.14378877354E-08    8    2    7    4'
         write(iunit, '(A)') '  -0.14763728741E-04    8    2    7    5'
         write(iunit, '(A)') '   0.44968952492E-03    8    2    7    7'
         write(iunit, '(A)') '   0.85594661200E-04    8    2    8    2'
         write(iunit, '(A)') '   0.91784307962E-08    8    3    1    1'
         write(iunit, '(A)') '  -0.16568901235E-08    8    3    2    1'
         write(iunit, '(A)') '   0.78281316636E-08    8    3    2    2'
         write(iunit, '(A)') '  -0.14348979807E-08    8    3    3    1'
         write(iunit, '(A)') '   0.16359698689E-03    8    3    3    2'
         write(iunit, '(A)') '   0.10221567176E-07    8    3    3    3'
         write(iunit, '(A)') '   0.25410996980E-03    8    3    4    1'
         write(iunit, '(A)') '  -0.10299115652E-08    8    3    4    2'
         write(iunit, '(A)') '  -0.24354159273E-08    8    3    4    3'
         write(iunit, '(A)') '   0.13068681700E-07    8    3    4    4'
         write(iunit, '(A)') '   0.26253528885E-07    8    3    5    1'
         write(iunit, '(A)') '  -0.11377372427E-08    8    3    5    3'
         write(iunit, '(A)') '   0.17819001159E-03    8    3    5    4'
         write(iunit, '(A)') '   0.55852669740E-08    8    3    5    5'
         write(iunit, '(A)') '  -0.12449465123E-08    8    3    6    1'
         write(iunit, '(A)') '   0.28916773702E-07    8    3    6    2'
         write(iunit, '(A)') '   0.26184192213E-03    8    3    6    3'
         write(iunit, '(A)') '  -0.15133749942E-08    8    3    6    4'
         write(iunit, '(A)') '  -0.18376208948E-08    8    3    6    5'
         write(iunit, '(A)') '   0.95631907890E-08    8    3    6    6'
         write(iunit, '(A)') '   0.14764615597E-04    8    3    7    4'
         write(iunit, '(A)') '   0.14408842506E-08    8    3    7    5'
         write(iunit, '(A)') '  -0.91753872500E-08    8    3    7    7'
         write(iunit, '(A)') '   0.16128295835E-04    8    3    8    3'
         write(iunit, '(A)') '  -0.67784406466E-08    8    4    1    1'
         write(iunit, '(A)') '   0.47184171726E-07    8    4    2    1'
         write(iunit, '(A)') '  -0.60377083005E-08    8    4    2    2'
         write(iunit, '(A)') '   0.45601143037E-03    8    4    3    1'
         write(iunit, '(A)') '  -0.74772639289E-08    8    4    3    3'
         write(iunit, '(A)') '   0.36772742541E-03    8    4    4    2'
         write(iunit, '(A)') '   0.66548093415E-08    8    4    4    3'
         write(iunit, '(A)') '  -0.78963682440E-08    8    4    4    4'
         write(iunit, '(A)') '  -0.10603052589E-08    8    4    5    1'
         write(iunit, '(A)') '   0.20932004551E-08    8    4    5    2'
         write(iunit, '(A)') '   0.33641691037E-03    8    4    5    3'
         write(iunit, '(A)') '  -0.62613928357E-08    8    4    5    5'
         write(iunit, '(A)') '   0.48037816489E-08    8    4    6    1'
         write(iunit, '(A)') '  -0.11727767302E-08    8    4    6    2'
         write(iunit, '(A)') '   0.54813513477E-03    8    4    6    4'
         write(iunit, '(A)') '   0.51952381949E-07    8    4    6    5'
         write(iunit, '(A)') '  -0.73404122648E-08    8    4    6    6'
         write(iunit, '(A)') '   0.21753001252E-08    8    4    7    2'
         write(iunit, '(A)') '   0.22346410189E-04    8    4    7    3'
         write(iunit, '(A)') '   0.67471683701E-08    8    4    7    7'
         write(iunit, '(A)') '   0.21756858158E-08    8    4    8    1'
         write(iunit, '(A)') '   0.14517176726E-04    8    4    8    4'
         write(iunit, '(A)') '  -0.32059802724E-08    8    5    1    1'
         write(iunit, '(A)') '  -0.45601807204E-03    8    5    2    1'
         write(iunit, '(A)') '  -0.31431672448E-08    8    5    2    2'
         write(iunit, '(A)') '   0.47396917864E-07    8    5    3    1'
         write(iunit, '(A)') '  -0.29921778774E-08    8    5    3    3'
         write(iunit, '(A)') '  -0.10410622057E-08    8    5    4    1'
         write(iunit, '(A)') '   0.50083348919E-08    8    5    4    2'
         write(iunit, '(A)') '   0.15200110588E-04    8    5    4    3'
         write(iunit, '(A)') '  -0.30730259060E-08    8    5    4    4'
         write(iunit, '(A)') '   0.71932796504E-03    8    5    5    2'
         write(iunit, '(A)') '  -0.33625960205E-08    8    5    5    5'
         write(iunit, '(A)') '   0.39577899307E-03    8    5    6    1'
         write(iunit, '(A)') '  -0.11276662020E-08    8    5    6    3'
         write(iunit, '(A)') '   0.52142764113E-07    8    5    6    4'
         write(iunit, '(A)') '  -0.54813750769E-03    8    5    6    5'
         write(iunit, '(A)') '  -0.34137113836E-08    8    5    6    6'
         write(iunit, '(A)') '  -0.22346010776E-04    8    5    7    2'
         write(iunit, '(A)') '   0.21707253041E-08    8    5    7    3'
         write(iunit, '(A)') '   0.94833845397E-05    8    5    7    6'
         write(iunit, '(A)') '   0.30715814065E-08    8    5    7    7'
         write(iunit, '(A)') '  -0.22208990652E-04    8    5    8    1'
         write(iunit, '(A)') '   0.22451833750E-04    8    5    8    5'
         write(iunit, '(A)') '  -0.15050711145E-08    8    6    2    1'
         write(iunit, '(A)') '  -0.33858546792E-03    8    6    2    2'
         write(iunit, '(A)') '  -0.31997327645E-08    8    6    3    1'
         write(iunit, '(A)') '   0.36914608128E-07    8    6    3    2'
         write(iunit, '(A)') '   0.33860664018E-03    8    6    3    3'
         write(iunit, '(A)') '   0.62326481742E-08    8    6    4    1'
         write(iunit, '(A)') '  -0.24220409148E-08    8    6    4    2'
         write(iunit, '(A)') '  -0.13076787013E-08    8    6    4    3'
         write(iunit, '(A)') '   0.36962314859E-03    8    6    4    4'
         write(iunit, '(A)') '   0.51250828557E-03    8    6    5    1'
         write(iunit, '(A)') '  -0.24079260096E-08    8    6    5    3'
         write(iunit, '(A)') '   0.34375581263E-07    8    6    5    4'
         write(iunit, '(A)') '  -0.36960364085E-03    8    6    5    5'
         write(iunit, '(A)') '   0.53840370619E-03    8    6    6    2'
         write(iunit, '(A)') '   0.22718042863E-08    8    6    6    3'
         write(iunit, '(A)') '  -0.35571324005E-08    8    6    6    4'
         write(iunit, '(A)') '  -0.16359298820E-08    8    6    6    5'
         write(iunit, '(A)') '  -0.26000259953E-08    8    6    6    6'
         write(iunit, '(A)') '   0.11890302034E-04    8    6    7    5'
         write(iunit, '(A)') '  -0.21847240080E-07    8    6    7    7'
         write(iunit, '(A)') '  -0.97227319871E-05    8    6    8    2'
         write(iunit, '(A)') '   0.10298997081E-08    8    6    8    3'
         write(iunit, '(A)') '   0.11495363628E-04    8    6    8    6'
         write(iunit, '(A)') '  -0.41420802376E-08    8    7    1    1'
         write(iunit, '(A)') '   0.77738993032E-02    8    7    2    1'
         write(iunit, '(A)') '  -0.60700405364E-08    8    7    2    2'
         write(iunit, '(A)') '  -0.47250262650E-08    8    7    3    3'
         write(iunit, '(A)') '   0.52993442919E-06    8    7    4    2'
         write(iunit, '(A)') '   0.54819060747E-02    8    7    4    3'
         write(iunit, '(A)') '  -0.44346897712E-08    8    7    4    4'
         write(iunit, '(A)') '  -0.54817521946E-02    8    7    5    2'
         write(iunit, '(A)') '   0.53024439252E-06    8    7    5    3'
         write(iunit, '(A)') '  -0.54863799823E-08    8    7    5    5'
         write(iunit, '(A)') '  -0.10581114285E-06    8    7    6    1'
         write(iunit, '(A)') '   0.54719846009E-07    8    7    6    4'
         write(iunit, '(A)') '   0.70117121697E-02    8    7    6    5'
         write(iunit, '(A)') '  -0.45392249081E-08    8    7    6    6'
         write(iunit, '(A)') '   0.40448856432E-03    8    7    7    2'
         write(iunit, '(A)') '  -0.43940773527E-08    8    7    7    3'
         write(iunit, '(A)') '   0.26240901735E-08    8    7    7    4'
         write(iunit, '(A)') '   0.14866056839E-08    8    7    7    5'
         write(iunit, '(A)') '  -0.12802456731E-07    8    7    7    6'
         write(iunit, '(A)') '   0.11623251566E-07    8    7    7    7'
         write(iunit, '(A)') '   0.44872329242E-03    8    7    8    1'
         write(iunit, '(A)') '   0.80595015147E-08    8    7    8    3'
         write(iunit, '(A)') '   0.24491449696E-08    8    7    8    4'
         write(iunit, '(A)') '  -0.44698265124E-04    8    7    8    5'
         write(iunit, '(A)') '   0.87237746397E-01    8    7    8    7'
         write(iunit, '(A)') '   0.12447869126        8    8    1    1'
         write(iunit, '(A)') '  -0.46250939371E-08    8    8    2    1'
         write(iunit, '(A)') '   0.12390375064        8    8    2    2'
         write(iunit, '(A)') '  -0.19538562984E-08    8    8    3    1'
         write(iunit, '(A)') '   0.12270828627        8    8    3    3'
         write(iunit, '(A)') '   0.71900879073E-07    8    8    4    1'
         write(iunit, '(A)') '  -0.26237709038E-08    8    8    4    3'
         write(iunit, '(A)') '   0.12179707764        8    8    4    4'
         write(iunit, '(A)') '  -0.74330484800E-03    8    8    5    1'
         write(iunit, '(A)') '   0.27963169711E-08    8    8    5    2'
         write(iunit, '(A)') '   0.51251593346E-08    8    8    5    4'
         write(iunit, '(A)') '   0.12244373478        8    8    5    5'
         write(iunit, '(A)') '  -0.61030912835E-03    8    8    6    2'
         write(iunit, '(A)') '   0.63794863743E-07    8    8    6    3'
         write(iunit, '(A)') '  -0.22346597198E-08    8    8    6    4'
         write(iunit, '(A)') '  -0.46492312401E-08    8    8    6    5'
         write(iunit, '(A)') '   0.12160676103        8    8    6    6'
         write(iunit, '(A)') '   0.24659682104E-03    8    8    7    1'
         write(iunit, '(A)') '   0.20613402753E-07    8    8    7    3'
         write(iunit, '(A)') '   0.23583496408E-08    8    8    7    4'
         write(iunit, '(A)') '  -0.69895508643E-04    8    8    7    5'
         write(iunit, '(A)') '   0.14310302890E-08    8    8    7    6'
         write(iunit, '(A)') '   0.30145062450        8    8    7    7'
         write(iunit, '(A)') '   0.61373429436E-03    8    8    8    2'
         write(iunit, '(A)') '  -0.76134553543E-08    8    8    8    3'
         write(iunit, '(A)') '   0.67740665531E-08    8    8    8    4'
         write(iunit, '(A)') '   0.33799607278E-08    8    8    8    5'
         write(iunit, '(A)') '  -0.24140275331E-04    8    8    8    6'
         write(iunit, '(A)') '  -0.11582654572E-07    8    8    8    7'
         write(iunit, '(A)') '   0.32055553985        8    8    8    8'
         write(iunit, '(A)') '  -0.22233581154E-07    9    1    1    1'
         write(iunit, '(A)') '   0.43894184149E-08    9    1    2    1'
         write(iunit, '(A)') '  -0.20553787037E-07    9    1    2    2'
         write(iunit, '(A)') '   0.40449156182E-03    9    1    3    1'
         write(iunit, '(A)') '  -0.22879159180E-07    9    1    3    3'
         write(iunit, '(A)') '   0.32304672278E-03    9    1    4    2'
         write(iunit, '(A)') '  -0.25156825537E-07    9    1    4    3'
         write(iunit, '(A)') '  -0.23284680879E-07    9    1    4    4'
         write(iunit, '(A)') '  -0.16452283535E-08    9    1    5    1'
         write(iunit, '(A)') '   0.30934146083E-07    9    1    5    2'
         write(iunit, '(A)') '   0.32304006018E-03    9    1    5    3'
         write(iunit, '(A)') '  -0.21262438161E-07    9    1    5    5'
         write(iunit, '(A)') '   0.30512172987E-08    9    1    6    1'
         write(iunit, '(A)') '  -0.15910352806E-08    9    1    6    2'
         write(iunit, '(A)') '   0.52863600818E-03    9    1    6    4'
         write(iunit, '(A)') '  -0.22751667871E-07    9    1    6    6'
         write(iunit, '(A)') '   0.48341032918E-04    9    1    7    3'
         write(iunit, '(A)') '   0.21479178542E-07    9    1    7    7'
         write(iunit, '(A)') '   0.22209592396E-04    9    1    8    4'
         write(iunit, '(A)') '   0.21734902475E-08    9    1    8    5'
         write(iunit, '(A)') '  -0.11432370633E-08    9    1    8    7'
         write(iunit, '(A)') '   0.18333652850E-07    9    1    8    8'
         write(iunit, '(A)') '   0.48538715789E-04    9    1    9    1'
         write(iunit, '(A)') '   0.91654502626E-08    9    2    1    1'
         write(iunit, '(A)') '  -0.80278534817E-08    9    2    2    1'
         write(iunit, '(A)') '   0.76037075594E-08    9    2    2    2'
         write(iunit, '(A)') '  -0.10475092273E-08    9    2    3    1'
         write(iunit, '(A)') '   0.16360987384E-03    9    2    3    2'
         write(iunit, '(A)') '   0.10420165727E-07    9    2    3    3'
         write(iunit, '(A)') '   0.25412849843E-03    9    2    4    1'
         write(iunit, '(A)') '  -0.69968921594E-08    9    2    4    3'
         write(iunit, '(A)') '   0.13775207139E-07    9    2    4    4'
         write(iunit, '(A)') '   0.26704992569E-07    9    2    5    1'
         write(iunit, '(A)') '   0.46318278356E-08    9    2    5    2'
         write(iunit, '(A)') '   0.17820120370E-03    9    2    5    4'
         write(iunit, '(A)') '   0.48507916864E-08    9    2    5    5'
         write(iunit, '(A)') '  -0.12409723768E-08    9    2    6    1'
         write(iunit, '(A)') '   0.29730726606E-07    9    2    6    2'
         write(iunit, '(A)') '   0.26185957220E-03    9    2    6    3'
         write(iunit, '(A)') '  -0.11270962404E-08    9    2    6    4'
         write(iunit, '(A)') '  -0.80488365168E-08    9    2    6    5'
         write(iunit, '(A)') '   0.95483809312E-08    9    2    6    6'
         write(iunit, '(A)') '   0.14764773552E-04    9    2    7    4'
         write(iunit, '(A)') '   0.14535675258E-08    9    2    7    5'
         write(iunit, '(A)') '  -0.91588912990E-08    9    2    7    7'
         write(iunit, '(A)') '   0.16096082250E-04    9    2    8    3'
         write(iunit, '(A)') '   0.10432881809E-08    9    2    8    6'
         write(iunit, '(A)') '   0.16612276117E-08    9    2    8    7'
         write(iunit, '(A)') '  -0.78121241061E-08    9    2    8    8'
         write(iunit, '(A)') '   0.16128283158E-04    9    2    9    2'
         write(iunit, '(A)') '   0.44972109227E-03    9    3    1    1'
         write(iunit, '(A)') '  -0.10251806823E-08    9    3    2    1'
         write(iunit, '(A)') '   0.28659274351E-03    9    3    2    2'
         write(iunit, '(A)') '  -0.11820174020E-07    9    3    3    1'
         write(iunit, '(A)') '   0.37587223056E-08    9    3    3    2'
         write(iunit, '(A)') '   0.61377361003E-03    9    3    3    3'
         write(iunit, '(A)') '  -0.19120088845E-07    9    3    4    1'
         write(iunit, '(A)') '  -0.85475336123E-08    9    3    4    2'
         write(iunit, '(A)') '  -0.13500985940E-08    9    3    4    3'
         write(iunit, '(A)') '   0.75274079958E-03    9    3    4    4'
         write(iunit, '(A)') '   0.25411339656E-03    9    3    5    1'
         write(iunit, '(A)') '  -0.87949276226E-08    9    3    5    3'
         write(iunit, '(A)') '   0.39636017439E-03    9    3    5    5'
         write(iunit, '(A)') '   0.26185248962E-03    9    3    6    2'
         write(iunit, '(A)') '  -0.21940138146E-07    9    3    6    3'
         write(iunit, '(A)') '  -0.12167181949E-07    9    3    6    4'
         write(iunit, '(A)') '  -0.10760779908E-08    9    3    6    5'
         write(iunit, '(A)') '   0.66541343684E-03    9    3    6    6'
         write(iunit, '(A)') '   0.77190206939E-04    9    3    7    1'
         write(iunit, '(A)') '  -0.13787436304E-08    9    3    7    4'
         write(iunit, '(A)') '   0.14765089976E-04    9    3    7    5'
         write(iunit, '(A)') '   0.44968450277E-03    9    3    7    7'
         write(iunit, '(A)') '   0.53373242900E-04    9    3    8    2'
         write(iunit, '(A)') '   0.97218560928E-05    9    3    8    6'
         write(iunit, '(A)') '   0.11538025020E-08    9    3    8    7'
         write(iunit, '(A)') '   0.28656140173E-03    9    3    8    8'
         write(iunit, '(A)') '   0.85598789151E-04    9    3    9    3'
         write(iunit, '(A)') '  -0.31854715245E-08    9    4    1    1'
         write(iunit, '(A)') '   0.45605581945E-03    9    4    2    1'
         write(iunit, '(A)') '  -0.29671519463E-08    9    4    2    2'
         write(iunit, '(A)') '  -0.33283794535E-07    9    4    3    1'
         write(iunit, '(A)') '  -0.46486882270E-08    9    4    3    2'
         write(iunit, '(A)') '  -0.35799306644E-08    9    4    3    3'
         write(iunit, '(A)') '  -0.66401129992E-08    9    4    4    1'
         write(iunit, '(A)') '   0.10998320454E-07    9    4    4    2'
         write(iunit, '(A)') '   0.71937913497E-03    9    4    4    3'
         write(iunit, '(A)') '  -0.37890638924E-08    9    4    4    4'
         write(iunit, '(A)') '   0.15197840147E-04    9    4    5    2'
         write(iunit, '(A)') '   0.51602346579E-08    9    4    5    3'
         write(iunit, '(A)') '  -0.41579796704E-08    9    4    5    4'
         write(iunit, '(A)') '  -0.30529970890E-08    9    4    5    5'
         write(iunit, '(A)') '   0.39578262438E-03    9    4    6    1'
         write(iunit, '(A)') '  -0.64852093977E-08    9    4    6    3'
         write(iunit, '(A)') '  -0.36977776007E-07    9    4    6    4'
         write(iunit, '(A)') '   0.54817916998E-03    9    4    6    5'
         write(iunit, '(A)') '  -0.34786183779E-08    9    4    6    6'
         write(iunit, '(A)') '   0.22347086043E-04    9    4    7    2'
         write(iunit, '(A)') '  -0.20999872129E-08    9    4    7    3'
         write(iunit, '(A)') '   0.94831501157E-05    9    4    7    6'
         write(iunit, '(A)') '   0.32567702970E-08    9    4    7    7'
         write(iunit, '(A)') '   0.22210025468E-04    9    4    8    1'
         write(iunit, '(A)') '  -0.19031448867E-05    9    4    8    5'
         write(iunit, '(A)') '   0.44716587026E-04    9    4    8    7'
         write(iunit, '(A)') '   0.27647296936E-08    9    4    8    8'
         write(iunit, '(A)') '  -0.20421118319E-08    9    4    9    1'
         write(iunit, '(A)') '   0.22453574826E-04    9    4    9    4'
         write(iunit, '(A)') '  -0.67570588436E-08    9    5    1    1'
         write(iunit, '(A)') '   0.48540722413E-07    9    5    2    1'
         write(iunit, '(A)') '  -0.34937278670E-08    9    5    2    2'
         write(iunit, '(A)') '   0.45603101948E-03    9    5    3    1'
         write(iunit, '(A)') '  -0.99791186902E-08    9    5    3    3'
         write(iunit, '(A)') '   0.33643510309E-03    9    5    4    2'
         write(iunit, '(A)') '   0.22498341291E-08    9    5    4    3'
         write(iunit, '(A)') '  -0.96192015006E-08    9    5    4    4'
         write(iunit, '(A)') '  -0.45423598990E-08    9    5    5    1'
         write(iunit, '(A)') '  -0.45250380756E-08    9    5    5    2'
         write(iunit, '(A)') '   0.36774059141E-03    9    5    5    3'
         write(iunit, '(A)') '  -0.44943783906E-08    9    5    5    5'
         write(iunit, '(A)') '  -0.13998630708E-08    9    5    6    1'
         write(iunit, '(A)') '  -0.41896524153E-08    9    5    6    2'
         write(iunit, '(A)') '   0.54816039271E-03    9    5    6    4'
         write(iunit, '(A)') '   0.53794685810E-07    9    5    6    5'
         write(iunit, '(A)') '  -0.73175540128E-08    9    5    6    6'
         write(iunit, '(A)') '   0.21978740868E-08    9    5    7    2'
         write(iunit, '(A)') '   0.22346852240E-04    9    5    7    3'
         write(iunit, '(A)') '   0.67297679979E-08    9    5    7    7'
         write(iunit, '(A)') '   0.21997309828E-08    9    5    8    1'
         write(iunit, '(A)') '   0.98387213044E-05    9    5    8    4'
         write(iunit, '(A)') '   0.46700250005E-08    9    5    8    7'
         write(iunit, '(A)') '   0.58187775509E-08    9    5    8    8'
         write(iunit, '(A)') '   0.22210042813E-04    9    5    9    1'
         write(iunit, '(A)') '   0.14517856643E-04    9    5    9    5'
         write(iunit, '(A)') '   0.16106316718E-07    9    6    1    1'
         write(iunit, '(A)') '  -0.31931995422E-08    9    6    2    1'
         write(iunit, '(A)') '   0.49910864634E-07    9    6    2    2'
         write(iunit, '(A)') '  -0.14916765579E-08    9    6    3    1'
         write(iunit, '(A)') '   0.33862072066E-03    9    6    3    2'
         write(iunit, '(A)') '  -0.17850233442E-07    9    6    3    3'
         write(iunit, '(A)') '   0.51252541316E-03    9    6    4    1'
         write(iunit, '(A)') '  -0.11839407762E-08    9    6    4    2'
         write(iunit, '(A)') '  -0.64384938231E-08    9    6    4    3'
         write(iunit, '(A)') '  -0.14333449220E-07    9    6    4    4'
         write(iunit, '(A)') '  -0.18007093851E-08    9    6    5    1'
         write(iunit, '(A)') '  -0.16185197960E-08    9    6    5    2'
         write(iunit, '(A)') '  -0.11606632895E-08    9    6    5    3'
         write(iunit, '(A)') '   0.36963685339E-03    9    6    5    4'
         write(iunit, '(A)') '   0.48315067788E-07    9    6    5    5'
         write(iunit, '(A)') '  -0.42590888971E-08    9    6    6    1'
         write(iunit, '(A)') '   0.22666787485E-08    9    6    6    2'
         write(iunit, '(A)') '   0.53842099854E-03    9    6    6    3'
         write(iunit, '(A)') '  -0.16776838093E-08    9    6    6    4'
         write(iunit, '(A)') '  -0.35487187125E-08    9    6    6    5'
         write(iunit, '(A)') '   0.17751406037E-07    9    6    6    6'
         write(iunit, '(A)') '   0.11890343747E-04    9    6    7    4'
         write(iunit, '(A)') '  -0.15673490826E-07    9    6    7    7'
         write(iunit, '(A)') '   0.10502400894E-08    9    6    8    2'
         write(iunit, '(A)') '   0.97222484077E-05    9    6    8    3'
         write(iunit, '(A)') '   0.12948408676E-08    9    6    8    7'
         write(iunit, '(A)') '  -0.10878720426E-07    9    6    8    8'
         write(iunit, '(A)') '   0.97224657180E-05    9    6    9    2'
         write(iunit, '(A)') '   0.11495771788E-04    9    6    9    6'
         write(iunit, '(A)') '  -0.28069903287E-08    9    7    1    1'
         write(iunit, '(A)') '  -0.27490547117E-08    9    7    2    2'
         write(iunit, '(A)') '   0.77733813537E-02    9    7    3    1'
         write(iunit, '(A)') '  -0.31313723883E-08    9    7    3    3'
         write(iunit, '(A)') '   0.54816331077E-02    9    7    4    2'
         write(iunit, '(A)') '  -0.53003263399E-06    9    7    4    3'
         write(iunit, '(A)') '  -0.27815543143E-08    9    7    4    4'
         write(iunit, '(A)') '   0.53014252837E-06    9    7    5    2'
         write(iunit, '(A)') '   0.54816380565E-02    9    7    5    3'
         write(iunit, '(A)') '  -0.23849791172E-08    9    7    5    5'
         write(iunit, '(A)') '   0.70112260663E-02    9    7    6    4'
         write(iunit, '(A)') '  -0.55111960814E-07    9    7    6    5'
         write(iunit, '(A)') '  -0.29912907472E-08    9    7    6    6'
         write(iunit, '(A)') '   0.97308087034E-08    9    7    7    1'
         write(iunit, '(A)') '  -0.43863225266E-08    9    7    7    2'
         write(iunit, '(A)') '   0.40447532240E-03    9    7    7    3'
         write(iunit, '(A)') '   0.14955555903E-08    9    7    7    4'
         write(iunit, '(A)') '   0.26154823692E-08    9    7    7    5'
         write(iunit, '(A)') '  -0.74813052811E-08    9    7    7    6'
         write(iunit, '(A)') '  -0.29852879682E-08    9    7    7    7'
         write(iunit, '(A)') '  -0.11428074878E-08    9    7    8    1'
         write(iunit, '(A)') '   0.22354811806E-08    9    7    8    2'
         write(iunit, '(A)') '   0.10263486296E-08    9    7    8    3'
         write(iunit, '(A)') '   0.44718038093E-04    9    7    8    4'
         write(iunit, '(A)') '   0.46271508908E-08    9    7    8    5'
         write(iunit, '(A)') '   0.12947696186E-08    9    7    8    6'
         write(iunit, '(A)') '  -0.18567172973E-08    9    7    8    7'
         write(iunit, '(A)') '   0.19083178839E-08    9    7    8    8'
         write(iunit, '(A)') '   0.44867925359E-03    9    7    9    1'
         write(iunit, '(A)') '   0.14572053133E-08    9    7    9    2'
         write(iunit, '(A)') '   0.11961329748E-07    9    7    9    3'
         write(iunit, '(A)') '  -0.55468672380E-08    9    7    9    4'
         write(iunit, '(A)') '   0.44724738158E-04    9    7    9    5'
         write(iunit, '(A)') '   0.87232751050E-01    9    7    9    7'
         write(iunit, '(A)') '   0.59782070093E-03    9    8    3    2'
         write(iunit, '(A)') '   0.74347185872E-03    9    8    4    1'
         write(iunit, '(A)') '   0.51306501757E-08    9    8    4    4'
         write(iunit, '(A)') '   0.71918541471E-07    9    8    5    1'
         write(iunit, '(A)') '   0.32341809661E-03    9    8    5    4'
         write(iunit, '(A)') '  -0.50166957809E-08    9    8    5    5'
         write(iunit, '(A)') '   0.63805397850E-07    9    8    6    2'
         write(iunit, '(A)') '   0.61043188584E-03    9    8    6    3'
         write(iunit, '(A)') '   0.11549350793E-08    9    8    7    2'
         write(iunit, '(A)') '   0.69912721655E-04    9    8    7    4'
         write(iunit, '(A)') '   0.67767747019E-08    9    8    7    5'
         write(iunit, '(A)') '   0.28120352717E-08    9    8    8    1'
         write(iunit, '(A)') '  -0.11563389593E-08    9    8    8    2'
         write(iunit, '(A)') '   0.16360517167E-03    9    8    8    3'
         write(iunit, '(A)') '   0.15176769459E-08    9    8    8    7'
         write(iunit, '(A)') '   0.10284343332E-08    9    8    8    8'
         write(iunit, '(A)') '   0.16359201718E-03    9    8    9    2'
         write(iunit, '(A)') '  -0.37632652951E-08    9    8    9    3'
         write(iunit, '(A)') '   0.15186896861E-08    9    8    9    4'
         write(iunit, '(A)') '   0.24112892556E-04    9    8    9    6'
         write(iunit, '(A)') '  -0.35619593056E-08    9    8    9    7'
         write(iunit, '(A)') '   0.23209998653E-01    9    8    9    8'
         write(iunit, '(A)') '   0.12447878605        9    9    1    1'
         write(iunit, '(A)') '  -0.30099200511E-08    9    9    2    1'
         write(iunit, '(A)') '   0.12270828613        9    9    2    2'
         write(iunit, '(A)') '  -0.20625709490E-08    9    9    3    1'
         write(iunit, '(A)') '   0.12390400034        9    9    3    3'
         write(iunit, '(A)') '  -0.71835931630E-07    9    9    4    1'
         write(iunit, '(A)') '  -0.10674934819E-08    9    9    4    2'
         write(iunit, '(A)') '  -0.15489296779E-08    9    9    4    3'
         write(iunit, '(A)') '   0.12244399393        9    9    4    4'
         write(iunit, '(A)') '   0.74360877306E-03    9    9    5    1'
         write(iunit, '(A)') '   0.13813180063E-08    9    9    5    2'
         write(iunit, '(A)') '  -0.10565677998E-08    9    9    5    3'
         write(iunit, '(A)') '  -0.49917288025E-08    9    9    5    4'
         write(iunit, '(A)') '   0.12179705212        9    9    5    5'
         write(iunit, '(A)') '   0.61054313521E-03    9    9    6    2'
         write(iunit, '(A)') '  -0.63834762873E-07    9    9    6    3'
         write(iunit, '(A)') '  -0.23978295886E-08    9    9    6    4'
         write(iunit, '(A)') '  -0.31363646079E-08    9    9    6    5'
         write(iunit, '(A)') '   0.12160684337        9    9    6    6'
         write(iunit, '(A)') '   0.24657075583E-03    9    9    7    1'
         write(iunit, '(A)') '   0.15364594514E-08    9    9    7    2'
         write(iunit, '(A)') '   0.22926147522E-07    9    9    7    3'
         write(iunit, '(A)') '  -0.11128311342E-07    9    9    7    4'
         write(iunit, '(A)') '   0.69923858288E-04    9    9    7    5'
         write(iunit, '(A)') '   0.15997140525E-08    9    9    7    6'
         write(iunit, '(A)') '   0.30144898453        9    9    7    7'
         write(iunit, '(A)') '   0.10478210589E-08    9    9    8    1'
         write(iunit, '(A)') '   0.28654826160E-03    9    9    8    2'
         write(iunit, '(A)') '  -0.10430944036E-07    9    9    8    3'
         write(iunit, '(A)') '   0.64836154880E-08    9    9    8    4'
         write(iunit, '(A)') '   0.27120560732E-08    9    9    8    5'
         write(iunit, '(A)') '   0.24099478816E-04    9    9    8    6'
         write(iunit, '(A)') '  -0.10294390132E-08    9    9    8    7'
         write(iunit, '(A)') '   0.27413804403        9    9    8    8'
         write(iunit, '(A)') '   0.23958743388E-07    9    9    9    1'
         write(iunit, '(A)') '  -0.10200064257E-07    9    9    9    2'
         write(iunit, '(A)') '   0.61373295883E-03    9    9    9    3'
         write(iunit, '(A)') '   0.35845469868E-08    9    9    9    4'
         write(iunit, '(A)') '   0.74046712232E-08    9    9    9    5'
         write(iunit, '(A)') '  -0.19934274325E-07    9    9    9    6'
         write(iunit, '(A)') '   0.49211696246E-08    9    9    9    7'
         write(iunit, '(A)') '  -0.26836511450E-08    9    9    9    8'
         write(iunit, '(A)') '   0.32055529980        9    9    9    9'
         write(iunit, '(A)') '   0.45063532553E-08   10    1    1    1'
         write(iunit, '(A)') '  -0.26726612305E-08   10    1    2    1'
         write(iunit, '(A)') '   0.11166615439E-07   10    1    2    2'
         write(iunit, '(A)') '  -0.15724030846E-08   10    1    3    1'
         write(iunit, '(A)') '   0.69913967625E-04   10    1    3    2'
         write(iunit, '(A)') '  -0.23887071644E-08   10    1    3    3'
         write(iunit, '(A)') '   0.11704889610E-03   10    1    4    1'
         write(iunit, '(A)') '  -0.11619406728E-08   10    1    4    2'
         write(iunit, '(A)') '  -0.27582403507E-08   10    1    4    3'
         write(iunit, '(A)') '  -0.32876625061E-08   10    1    4    4'
         write(iunit, '(A)') '   0.11607472528E-08   10    1    5    2'
         write(iunit, '(A)') '  -0.11558880404E-08   10    1    5    3'
         write(iunit, '(A)') '   0.95903063761E-04   10    1    5    4'
         write(iunit, '(A)') '   0.12289513207E-07   10    1    5    5'
         write(iunit, '(A)') '   0.10048961567E-08   10    1    6    2'
         write(iunit, '(A)') '   0.13186870439E-03   10    1    6    3'
         write(iunit, '(A)') '  -0.16101768145E-08   10    1    6    4'
         write(iunit, '(A)') '  -0.27803558410E-08   10    1    6    5'
         write(iunit, '(A)') '   0.45965479278E-08   10    1    6    6'
         write(iunit, '(A)') '   0.12155696903E-04   10    1    7    4'
         write(iunit, '(A)') '  -0.43751645132E-08   10    1    7    7'
         write(iunit, '(A)') '   0.14183102155E-08   10    1    8    2'
         write(iunit, '(A)') '   0.14764679248E-04   10    1    8    3'
         write(iunit, '(A)') '   0.74679520560E-08   10    1    8    7'
         write(iunit, '(A)') '   0.26589981510E-07   10    1    8    8'
         write(iunit, '(A)') '   0.14764507162E-04   10    1    9    2'
         write(iunit, '(A)') '  -0.14761647986E-08   10    1    9    3'
         write(iunit, '(A)') '   0.73915512351E-05   10    1    9    6'
         write(iunit, '(A)') '   0.10375786866E-08   10    1    9    7'
         write(iunit, '(A)') '   0.31507359194E-03   10    1    9    8'
         write(iunit, '(A)') '  -0.35268943648E-07   10    1    9    9'
         write(iunit, '(A)') '   0.15634824705E-04   10    1   10    1'
         write(iunit, '(A)') '  -0.68011967734E-08   10    2    1    1'
         write(iunit, '(A)') '   0.62030273966E-08   10    2    2    1'
         write(iunit, '(A)') '  -0.68570478346E-08   10    2    2    2'
         write(iunit, '(A)') '   0.44719590585E-04   10    2    3    1'
         write(iunit, '(A)') '  -0.65419580978E-08   10    2    3    3'
         write(iunit, '(A)') '   0.39164450615E-04   10    2    4    2'
         write(iunit, '(A)') '   0.23383640061E-08   10    2    4    3'
         write(iunit, '(A)') '  -0.69698311293E-08   10    2    4    4'
         write(iunit, '(A)') '   0.47419688038E-04   10    2    5    3'
         write(iunit, '(A)') '  -0.69049016396E-08   10    2    5    5'
         write(iunit, '(A)') '   0.10187574771E-08   10    2    6    1'
         write(iunit, '(A)') '   0.92982444540E-04   10    2    6    4'
         write(iunit, '(A)') '   0.10193864299E-07   10    2    6    5'
         write(iunit, '(A)') '  -0.71184923225E-08   10    2    6    6'
         write(iunit, '(A)') '   0.21201605691E-08   10    2    7    2'
         write(iunit, '(A)') '   0.22209443274E-04   10    2    7    3'
         write(iunit, '(A)') '   0.68662956424E-08   10    2    7    7'
         write(iunit, '(A)') '   0.21470203533E-08   10    2    8    1'
         write(iunit, '(A)') '   0.11512657587E-04   10    2    8    4'
         write(iunit, '(A)') '   0.41007512952E-07   10    2    8    7'
         write(iunit, '(A)') '   0.61192381822E-08   10    2    8    8'
         write(iunit, '(A)') '   0.22346239893E-04   10    2    9    1'
         write(iunit, '(A)') '   0.73152275188E-05   10    2    9    5'
         write(iunit, '(A)') '   0.45599722310E-03   10    2    9    7'
         write(iunit, '(A)') '   0.75380294355E-08   10    2    9    9'
         write(iunit, '(A)') '   0.14517005787E-04   10    2   10    2'
         write(iunit, '(A)') '  -0.33675564051E-08   10    3    1    1'
         write(iunit, '(A)') '   0.44718194355E-04   10    3    2    1'
         write(iunit, '(A)') '  -0.28899708471E-08   10    3    2    2'
         write(iunit, '(A)') '  -0.30965640169E-08   10    3    3    1'
         write(iunit, '(A)') '  -0.15427046087E-08   10    3    3    2'
         write(iunit, '(A)') '  -0.37757356546E-08   10    3    3    3'
         write(iunit, '(A)') '  -0.22226833114E-08   10    3    4    1'
         write(iunit, '(A)') '   0.18930631464E-08   10    3    4    2'
         write(iunit, '(A)') '   0.16556125832E-03   10    3    4    3'
         write(iunit, '(A)') '  -0.38163243857E-08   10    3    4    4'
         write(iunit, '(A)') '   0.78984477486E-04   10    3    5    2'
         write(iunit, '(A)') '  -0.14107779044E-08   10    3    5    4'
         write(iunit, '(A)') '  -0.30970364557E-08   10    3    5    5'
         write(iunit, '(A)') '   0.13333723981E-03   10    3    6    1'
         write(iunit, '(A)') '  -0.21844225818E-08   10    3    6    3'
         write(iunit, '(A)') '  -0.69393926706E-08   10    3    6    4'
         write(iunit, '(A)') '   0.92979857877E-04   10    3    6    5'
         write(iunit, '(A)') '  -0.35352152709E-08   10    3    6    6'
         write(iunit, '(A)') '   0.22209904058E-04   10    3    7    2'
         write(iunit, '(A)') '  -0.22530745795E-08   10    3    7    3'
         write(iunit, '(A)') '   0.58689112086E-05   10    3    7    6'
         write(iunit, '(A)') '   0.35100609987E-08   10    3    7    7'
         write(iunit, '(A)') '   0.22346945615E-04   10    3    8    1'
         write(iunit, '(A)') '  -0.16781135599E-05   10    3    8    5'
         write(iunit, '(A)') '   0.45604294041E-03   10    3    8    7'
         write(iunit, '(A)') '   0.30047166473E-08   10    3    8    8'
         write(iunit, '(A)') '  -0.22215882752E-08   10    3    9    1'
         write(iunit, '(A)') '   0.17149910822E-04   10    3    9    4'
         write(iunit, '(A)') '  -0.54922223176E-07   10    3    9    7'
         write(iunit, '(A)') '   0.46646567246E-08   10    3    9    8'
         write(iunit, '(A)') '   0.37129681564E-08   10    3    9    9'
         write(iunit, '(A)') '   0.22453291413E-04   10    3   10    3'
         write(iunit, '(A)') '   0.30727547660E-03   10    4    1    1'
         write(iunit, '(A)') '  -0.11083362976E-08   10    4    2    1'
         write(iunit, '(A)') '   0.21134621517E-03   10    4    2    2'
         write(iunit, '(A)') '  -0.42279046901E-08   10    4    3    1'
         write(iunit, '(A)') '   0.22164411024E-08   10    4    3    2'
         write(iunit, '(A)') '   0.39523459954E-03   10    4    3    3'
         write(iunit, '(A)') '  -0.10100926973E-07   10    4    4    1'
         write(iunit, '(A)') '  -0.33037495619E-08   10    4    4    2'
         write(iunit, '(A)') '  -0.14367169235E-08   10    4    4    3'
         write(iunit, '(A)') '   0.45826714470E-03   10    4    4    4'
         write(iunit, '(A)') '   0.13830503244E-03   10    4    5    1'
         write(iunit, '(A)') '  -0.30388419292E-08   10    4    5    3'
         write(iunit, '(A)') '   0.26045478474E-03   10    4    5    5'
         write(iunit, '(A)') '   0.14462018654E-03   10    4    6    2'
         write(iunit, '(A)') '  -0.11803253048E-07   10    4    6    3'
         write(iunit, '(A)') '  -0.46145085290E-08   10    4    6    4'
         write(iunit, '(A)') '  -0.11752124770E-08   10    4    6    5'
         write(iunit, '(A)') '   0.40271900380E-03   10    4    6    6'
         write(iunit, '(A)') '   0.27690383907E-04   10    4    7    1'
         write(iunit, '(A)') '   0.35058055387E-05   10    4    7    5'
         write(iunit, '(A)') '   0.30726762324E-03   10    4    7    7'
         write(iunit, '(A)') '   0.23113849712E-04   10    4    8    2'
         write(iunit, '(A)') '   0.36917977397E-05   10    4    8    6'
         write(iunit, '(A)') '   0.10840817828E-08   10    4    8    7'
         write(iunit, '(A)') '   0.21133920395E-03   10    4    8    8'
         write(iunit, '(A)') '   0.29596744069E-04   10    4    9    3'
         write(iunit, '(A)') '   0.42018523466E-08   10    4    9    7'
         write(iunit, '(A)') '   0.39522603603E-03   10    4    9    9'
         write(iunit, '(A)') '   0.12678376383E-04   10    4   10    4'
         write(iunit, '(A)') '  -0.11262609727E-08   10    5    3    1'
         write(iunit, '(A)') '   0.91950400492E-04   10    5    3    2'
         write(iunit, '(A)') '   0.13830742458E-03   10    5    4    1'
         write(iunit, '(A)') '   0.12363852827E-07   10    5    5    1'
         write(iunit, '(A)') '  -0.14995795907E-08   10    5    5    2'
         write(iunit, '(A)') '   0.98910325283E-04   10    5    5    4'
         write(iunit, '(A)') '  -0.12717761171E-08   10    5    6    1'
         write(iunit, '(A)') '   0.13947533341E-07   10    5    6    2'
         write(iunit, '(A)') '   0.14462027816E-03   10    5    6    3'
         write(iunit, '(A)') '  -0.12044912700E-08   10    5    6    4'
         write(iunit, '(A)') '   0.35057524646E-05   10    5    7    4'
         write(iunit, '(A)') '   0.32523533030E-05   10    5    8    3'
         write(iunit, '(A)') '   0.24180268091E-08   10    5    8    7'
         write(iunit, '(A)') '   0.14861554212E-08   10    5    8    8'
         write(iunit, '(A)') '   0.32302232996E-05   10    5    9    2'
         write(iunit, '(A)') '   0.36921405648E-05   10    5    9    6'
         write(iunit, '(A)') '   0.12590600752E-08   10    5    9    7'
         write(iunit, '(A)') '   0.91953841928E-04   10    5    9    8'
         write(iunit, '(A)') '  -0.13529307340E-08   10    5    9    9'
         write(iunit, '(A)') '   0.35057507781E-05   10    5   10    1'
         write(iunit, '(A)') '   0.20239203723E-05   10    5   10    5'
         write(iunit, '(A)') '  -0.45710105458E-08   10    6    1    1'
         write(iunit, '(A)') '   0.19194892411E-08   10    6    2    1'
         write(iunit, '(A)') '  -0.34060008111E-08   10    6    2    2'
         write(iunit, '(A)') '   0.31070037073E-03   10    6    3    1'
         write(iunit, '(A)') '  -0.57306106319E-08   10    6    3    3'
         write(iunit, '(A)') '   0.23945618043E-03   10    6    4    2'
         write(iunit, '(A)') '  -0.20849476854E-07   10    6    4    3'
         write(iunit, '(A)') '  -0.60111393554E-08   10    6    4    4'
         write(iunit, '(A)') '  -0.16934376033E-08   10    6    5    1'
         write(iunit, '(A)') '   0.22440474100E-07   10    6    5    2'
         write(iunit, '(A)') '   0.23945438472E-03   10    6    5    3'
         write(iunit, '(A)') '  -0.36610122442E-08   10    6    5    5'
         write(iunit, '(A)') '  -0.17535011873E-08   10    6    6    2'
         write(iunit, '(A)') '   0.37143109876E-03   10    6    6    4'
         write(iunit, '(A)') '  -0.50646158581E-08   10    6    6    6'
         write(iunit, '(A)') '   0.11106312272E-04   10    6    7    3'
         write(iunit, '(A)') '   0.44768336630E-08   10    6    7    7'
         write(iunit, '(A)') '   0.64806919271E-05   10    6    8    4'
         write(iunit, '(A)') '  -0.49868359145E-08   10    6    8    7'
         write(iunit, '(A)') '   0.40103092440E-08   10    6    8    8'
         write(iunit, '(A)') '   0.11016334071E-04   10    6    9    1'
         write(iunit, '(A)') '   0.64809226398E-05   10    6    9    5'
         write(iunit, '(A)') '   0.73780057281E-04   10    6    9    7'
         write(iunit, '(A)') '   0.48679910304E-08   10    6    9    9'
         write(iunit, '(A)') '   0.49412086110E-05   10    6   10    2'
         write(iunit, '(A)') '   0.38827017064E-05   10    6   10    6'
         write(iunit, '(A)') '   0.71926698033E-07   10    7    2    2'
         write(iunit, '(A)') '   0.74347178336E-03   10    7    3    2'
         write(iunit, '(A)') '  -0.71912495813E-07   10    7    3    3'
         write(iunit, '(A)') '   0.92379378394E-03   10    7    4    1'
         write(iunit, '(A)') '  -0.32779710591E-07   10    7    4    4'
         write(iunit, '(A)') '   0.40480473796E-03   10    7    5    4'
         write(iunit, '(A)') '   0.32862505557E-07   10    7    5    5'
         write(iunit, '(A)') '   0.59148103384E-08   10    7    6    2'
         write(iunit, '(A)') '   0.76123938050E-03   10    7    6    3'
         write(iunit, '(A)') '  -0.11116642426E-08   10    7    7    1'
         write(iunit, '(A)') '   0.16477853939E-08   10    7    7    2'
         write(iunit, '(A)') '   0.11704709457E-03   10    7    7    4'
         write(iunit, '(A)') '   0.10413280488E-08   10    7    7    6'
         write(iunit, '(A)') '  -0.12339959254E-08   10    7    7    7'
         write(iunit, '(A)') '   0.39473021799E-08   10    7    8    1'
         write(iunit, '(A)') '   0.22924691014E-07   10    7    8    2'
         write(iunit, '(A)') '   0.25412187509E-03   10    7    8    3'
         write(iunit, '(A)') '   0.12094278714E-08   10    7    8    5'
         write(iunit, '(A)') '  -0.24948425463E-08   10    7    8    6'
         write(iunit, '(A)') '  -0.23508063118E-08   10    7    8    7'
         write(iunit, '(A)') '   0.31551059636E-05   10    7    8    8'
         write(iunit, '(A)') '   0.25410280835E-03   10    7    9    2'
         write(iunit, '(A)') '  -0.30030428845E-07   10    7    9    3'
         write(iunit, '(A)') '   0.21893759780E-08   10    7    9    4'
         write(iunit, '(A)') '   0.42200663954E-04   10    7    9    6'
         write(iunit, '(A)') '   0.71020110916E-08   10    7    9    7'
         write(iunit, '(A)') '   0.32625528711E-01   10    7    9    8'
         write(iunit, '(A)') '  -0.31577395874E-05   10    7    9    9'
         write(iunit, '(A)') '   0.47174224351E-03   10    7   10    1'
         write(iunit, '(A)') '   0.66543374385E-08   10    7   10    3'
         write(iunit, '(A)') '  -0.12311977371E-07   10    7   10    4'
         write(iunit, '(A)') '   0.13831188587E-03   10    7   10    5'
         write(iunit, '(A)') '   0.46403246335E-01   10    7   10    7'
         write(iunit, '(A)') '  -0.14452032894E-08   10    8    1    1'
         write(iunit, '(A)') '   0.53025115966E-06   10    8    2    1'
         write(iunit, '(A)') '  -0.14888085646E-08   10    8    2    2'
         write(iunit, '(A)') '   0.54816328402E-02   10    8    3    1'
         write(iunit, '(A)') '  -0.16248575046E-08   10    8    3    3'
         write(iunit, '(A)') '   0.39166125235E-02   10    8    4    2'
         write(iunit, '(A)') '   0.13629196107E-08   10    8    4    3'
         write(iunit, '(A)') '  -0.14049523371E-08   10    8    4    4'
         write(iunit, '(A)') '   0.11586237402E-08   10    8    5    2'
         write(iunit, '(A)') '   0.38346891054E-02   10    8    5    3'
         write(iunit, '(A)') '  -0.12085330655E-08   10    8    5    5'
         write(iunit, '(A)') '   0.13888785279E-08   10    8    6    1'
         write(iunit, '(A)') '   0.49654613200E-02   10    8    6    4'
         write(iunit, '(A)') '   0.44128828286E-06   10    8    6    5'
         write(iunit, '(A)') '  -0.15872825125E-08   10    8    6    6'
         write(iunit, '(A)') '   0.70702364708E-08   10    8    7    1'
         write(iunit, '(A)') '   0.28057047869E-07   10    8    7    2'
         write(iunit, '(A)') '   0.32303486127E-03   10    8    7    3'
         write(iunit, '(A)') '   0.10678488624E-08   10    8    7    4'
         write(iunit, '(A)') '   0.19205322283E-08   10    8    7    5'
         write(iunit, '(A)') '  -0.50948125598E-08   10    8    7    6'
         write(iunit, '(A)') '  -0.21562631021E-08   10    8    7    7'
         write(iunit, '(A)') '   0.33394485261E-07   10    8    8    1'
         write(iunit, '(A)') '   0.17614189994E-08   10    8    8    2'
         write(iunit, '(A)') '   0.39163118153E-04   10    8    8    4'
         write(iunit, '(A)') '   0.12085321457E-08   10    8    8    5'
         write(iunit, '(A)') '   0.10465108242E-08   10    8    8    6'
         write(iunit, '(A)') '   0.61276896525E-05   10    8    8    7'
         write(iunit, '(A)') '   0.35493222731E-03   10    8    9    1'
         write(iunit, '(A)') '   0.86022588353E-08   10    8    9    3'
         write(iunit, '(A)') '   0.47425100885E-04   10    8    9    5'
         write(iunit, '(A)') '   0.63361665011E-01   10    8    9    7'
         write(iunit, '(A)') '  -0.62269707663E-08   10    8    9    8'
         write(iunit, '(A)') '   0.44321424170E-08   10    8    9    9'
         write(iunit, '(A)') '   0.36771646914E-03   10    8   10    2'
         write(iunit, '(A)') '  -0.54993219358E-08   10    8   10    3'
         write(iunit, '(A)') '   0.32706074793E-08   10    8   10    4'
         write(iunit, '(A)') '   0.59250975114E-04   10    8   10    6'
         write(iunit, '(A)') '   0.50136262877E-01   10    8   10    8'
         write(iunit, '(A)') '  -0.19705760604E-08   10    9    1    1'
         write(iunit, '(A)') '   0.54819058933E-02   10    9    2    1'
         write(iunit, '(A)') '  -0.32944097303E-08   10    9    2    2'
         write(iunit, '(A)') '  -0.53014459901E-06   10    9    3    1'
         write(iunit, '(A)') '  -0.24849250494E-08   10    9    3    3'
         write(iunit, '(A)') '   0.11036910014E-08   10    9    4    2'
         write(iunit, '(A)') '   0.40748054184E-02   10    9    4    3'
         write(iunit, '(A)') '  -0.22898742941E-08   10    9    4    4'
         write(iunit, '(A)') '  -0.36766416661E-02   10    9    5    2'
         write(iunit, '(A)') '  -0.11530385548E-08   10    9    5    3'
         write(iunit, '(A)') '  -0.29414505366E-08   10    9    5    5'
         write(iunit, '(A)') '   0.19084630625E-03   10    9    6    1'
         write(iunit, '(A)') '  -0.44145265168E-06   10    9    6    4'
         write(iunit, '(A)') '   0.49657216651E-02   10    9    6    5'
         write(iunit, '(A)') '  -0.23300415025E-08   10    9    6    6'
         write(iunit, '(A)') '   0.32302711782E-03   10    9    7    2'
         write(iunit, '(A)') '  -0.37323560635E-07   10    9    7    3'
         write(iunit, '(A)') '   0.26995013302E-08   10    9    7    4'
         write(iunit, '(A)') '   0.11764884036E-08   10    9    7    5'
         write(iunit, '(A)') '   0.43776020173E-04   10    9    7    6'
         write(iunit, '(A)') '   0.90528843050E-08   10    9    7    7'
         write(iunit, '(A)') '   0.35495141196E-03   10    9    8    1'
         write(iunit, '(A)') '   0.70064780861E-08   10    9    8    3'
         write(iunit, '(A)') '   0.78995659710E-04   10    9    8    5'
         write(iunit, '(A)') '   0.63363711369E-01   10    9    8    7'
         write(iunit, '(A)') '  -0.88519049243E-08   10    9    8    8'
         write(iunit, '(A)') '  -0.35935453419E-07   10    9    9    1'
         write(iunit, '(A)') '   0.24207577335E-08   10    9    9    2'
         write(iunit, '(A)') '   0.13826729660E-08   10    9    9    3'
         write(iunit, '(A)') '   0.16555873594E-03   10    9    9    4'
         write(iunit, '(A)') '   0.16995569804E-08   10    9    9    6'
         write(iunit, '(A)') '  -0.61305793977E-05   10    9    9    7'
         write(iunit, '(A)') '   0.27235807429E-08   10    9    9    8'
         write(iunit, '(A)') '   0.93163624688E-08   10    9   10    1'
         write(iunit, '(A)') '  -0.11461569697E-08   10    9   10    2'
         write(iunit, '(A)') '   0.71936320582E-03   10    9   10    3'
         write(iunit, '(A)') '   0.13392096295E-08   10    9   10    4'
         write(iunit, '(A)') '   0.29414807605E-08   10    9   10    5'
         write(iunit, '(A)') '  -0.12105177408E-07   10    9   10    6'
         write(iunit, '(A)') '  -0.10381206207E-08   10    9   10    7'
         write(iunit, '(A)') '   0.21704129706E-06   10    9   10    8'
         write(iunit, '(A)') '   0.77875849477E-01   10    9   10    9'
         write(iunit, '(A)') '   0.12321686297       10   10    1    1'
         write(iunit, '(A)') '  -0.29429044619E-08   10   10    2    1'
         write(iunit, '(A)') '   0.12179707734       10   10    2    2'
         write(iunit, '(A)') '  -0.23422235374E-08   10   10    3    1'
         write(iunit, '(A)') '   0.50344571622E-08   10   10    3    2'
         write(iunit, '(A)') '   0.12244399364       10   10    3    3'
         write(iunit, '(A)') '  -0.32790771198E-07   10   10    4    1'
         write(iunit, '(A)') '  -0.12915586804E-08   10   10    4    2'
         write(iunit, '(A)') '  -0.15135560526E-08   10   10    4    3'
         write(iunit, '(A)') '   0.12118266385       10   10    4    4'
         write(iunit, '(A)') '   0.40493377895E-03   10   10    5    1'
         write(iunit, '(A)') '   0.14116104895E-08   10   10    5    2'
         write(iunit, '(A)') '  -0.12721392269E-08   10   10    5    3'
         write(iunit, '(A)') '   0.12079535041       10   10    5    5'
         write(iunit, '(A)') '   0.34815841682E-03   10   10    6    2'
         write(iunit, '(A)') '  -0.31017019812E-07   10   10    6    3'
         write(iunit, '(A)') '  -0.26297768682E-08   10   10    6    4'
         write(iunit, '(A)') '  -0.30865364444E-08   10   10    6    5'
         write(iunit, '(A)') '   0.12049677844       10   10    6    6'
         write(iunit, '(A)') '   0.37990191761E-03   10   10    7    1'
         write(iunit, '(A)') '   0.14366794588E-08   10   10    7    2'
         write(iunit, '(A)') '   0.23316352835E-07   10   10    7    3'
         write(iunit, '(A)') '  -0.12250820989E-07   10   10    7    4'
         write(iunit, '(A)') '   0.95915138988E-04   10   10    7    5'
         write(iunit, '(A)') '   0.16231733374E-08   10   10    7    6'
         write(iunit, '(A)') '   0.30489089095       10   10    7    7'
         write(iunit, '(A)') '   0.10812083839E-08   10   10    8    1'
         write(iunit, '(A)') '   0.39632113361E-03   10   10    8    2'
         write(iunit, '(A)') '  -0.82056416100E-08   10   10    8    3'
         write(iunit, '(A)') '   0.68963446050E-08   10   10    8    4'
         write(iunit, '(A)') '   0.29019006911E-08   10   10    8    5'
         write(iunit, '(A)') '   0.36418855702E-04   10   10    8    6'
         write(iunit, '(A)') '  -0.17481200099E-08   10   10    8    7'
         write(iunit, '(A)') '   0.28368255080       10   10    8    8'
         write(iunit, '(A)') '   0.24123351405E-07   10   10    9    1'
         write(iunit, '(A)') '  -0.74668297503E-08   10   10    9    2'
         write(iunit, '(A)') '   0.75269979257E-03   10   10    9    3'
         write(iunit, '(A)') '   0.35916774649E-08   10   10    9    4'
         write(iunit, '(A)') '   0.74875466977E-08   10   10    9    5'
         write(iunit, '(A)') '  -0.20775024379E-07   10   10    9    6'
         write(iunit, '(A)') '   0.28957264794E-06   10   10    9    8'
         write(iunit, '(A)') '   0.32065860274       10   10    9    9'
         write(iunit, '(A)') '  -0.30600003183E-07   10   10   10    1'
         write(iunit, '(A)') '   0.79528820944E-08   10   10   10    2'
         write(iunit, '(A)') '   0.39017034932E-08   10   10   10    3'
         write(iunit, '(A)') '   0.45825805905E-03   10   10   10    4'
         write(iunit, '(A)') '   0.51568348774E-08   10   10   10    6'
         write(iunit, '(A)') '  -0.22490263163E-05   10   10   10    7'
         write(iunit, '(A)') '   0.33121315416       10   10   10   10'
         write(iunit, '(A)') '   0.16105905304E-07   11    1    1    1'
         write(iunit, '(A)') '  -0.14142855592E-08   11    1    2    1'
         write(iunit, '(A)') '  -0.69892205936E-04   11    1    2    2'
         write(iunit, '(A)') '  -0.26757358403E-08   11    1    3    1'
         write(iunit, '(A)') '   0.67431779464E-08   11    1    3    2'
         write(iunit, '(A)') '   0.69930269512E-04   11    1    3    3'
         write(iunit, '(A)') '  -0.19688389420E-08   11    1    4    2'
         write(iunit, '(A)') '  -0.11176327600E-08   11    1    4    3'
         write(iunit, '(A)') '   0.95921494935E-04   11    1    4    4'
         write(iunit, '(A)') '   0.11704956435E-03   11    1    5    1'
         write(iunit, '(A)') '  -0.19538772425E-08   11    1    5    3'
         write(iunit, '(A)') '   0.77541905002E-08   11    1    5    4'
         write(iunit, '(A)') '  -0.95880332091E-04   11    1    5    5'
         write(iunit, '(A)') '   0.13186942118E-03   11    1    6    2'
         write(iunit, '(A)') '  -0.10613269755E-08   11    1    6    3'
         write(iunit, '(A)') '  -0.27830876268E-08   11    1    6    4'
         write(iunit, '(A)') '  -0.14169326712E-08   11    1    6    5'
         write(iunit, '(A)') '   0.18700532199E-07   11    1    6    6'
         write(iunit, '(A)') '   0.12155610874E-04   11    1    7    5'
         write(iunit, '(A)') '  -0.35489278044E-07   11    1    7    7'
         write(iunit, '(A)') '  -0.14763703180E-04   11    1    8    2'
         write(iunit, '(A)') '   0.14019251792E-08   11    1    8    3'
         write(iunit, '(A)') '   0.73917606754E-05   11    1    8    6'
         write(iunit, '(A)') '  -0.31508868621E-03   11    1    8    8'
         write(iunit, '(A)') '   0.14146009958E-08   11    1    9    2'
         write(iunit, '(A)') '   0.14765001008E-04   11    1    9    3'
         write(iunit, '(A)') '   0.74709613619E-08   11    1    9    7'
         write(iunit, '(A)') '   0.30005218476E-07   11    1    9    8'
         write(iunit, '(A)') '   0.31504108682E-03   11    1    9    9'
         write(iunit, '(A)') '   0.35057755406E-05   11    1   10    4'
         write(iunit, '(A)') '   0.51060364586E-08   11    1   10    8'
         write(iunit, '(A)') '   0.31528514387E-03   11    1   10   10'
         write(iunit, '(A)') '   0.15634798969E-04   11    1   11    1'
         write(iunit, '(A)') '  -0.29678877547E-08   11    2    1    1'
         write(iunit, '(A)') '  -0.44699322205E-04   11    2    2    1'
         write(iunit, '(A)') '  -0.31698752513E-08   11    2    2    2'
         write(iunit, '(A)') '   0.40196150206E-08   11    2    3    1'
         write(iunit, '(A)') '  -0.26248644204E-08   11    2    3    3'
         write(iunit, '(A)') '  -0.12522606528E-08   11    2    4    1'
         write(iunit, '(A)') '   0.78996467881E-04   11    2    4    3'
         write(iunit, '(A)') '  -0.27935988350E-08   11    2    4    4'
         write(iunit, '(A)') '   0.16554614218E-03   11    2    5    2'
         write(iunit, '(A)') '  -0.12125671331E-08   11    2    5    3'
         write(iunit, '(A)') '  -0.31682184221E-08   11    2    5    5'
         write(iunit, '(A)') '   0.13333784356E-03   11    2    6    1'
         write(iunit, '(A)') '  -0.11573797173E-08   11    2    6    3'
         write(iunit, '(A)') '   0.79736140648E-08   11    2    6    4'
         write(iunit, '(A)') '  -0.92958803960E-04   11    2    6    5'
         write(iunit, '(A)') '  -0.30749696930E-08   11    2    6    6'
         write(iunit, '(A)') '  -0.22209011074E-04   11    2    7    2'
         write(iunit, '(A)') '   0.21218668886E-08   11    2    7    3'
         write(iunit, '(A)') '   0.58694231992E-05   11    2    7    6'
         write(iunit, '(A)') '   0.29024610387E-08   11    2    7    7'
         write(iunit, '(A)') '  -0.22345948498E-04   11    2    8    1'
         write(iunit, '(A)') '   0.17148686435E-04   11    2    8    5'
         write(iunit, '(A)') '  -0.45602015107E-03   11    2    8    7'
         write(iunit, '(A)') '   0.31884751070E-08   11    2    8    8'
         write(iunit, '(A)') '   0.21510549429E-08   11    2    9    1'
         write(iunit, '(A)') '  -0.16781007705E-05   11    2    9    4'
         write(iunit, '(A)') '   0.40806846080E-07   11    2    9    7'
         write(iunit, '(A)') '   0.28043481447E-08   11    2    9    9'
         write(iunit, '(A)') '  -0.19031914825E-05   11    2   10    3'
         write(iunit, '(A)') '   0.10155401906E-08   11    2   10    7'
         write(iunit, '(A)') '   0.15195423132E-04   11    2   10    9'
         write(iunit, '(A)') '   0.28750031575E-08   11    2   10   10'
         write(iunit, '(A)') '   0.22451808586E-04   11    2   11    2'
         write(iunit, '(A)') '  -0.68125743615E-08   11    3    1    1'
         write(iunit, '(A)') '   0.39761144853E-08   11    3    2    1'
         write(iunit, '(A)') '  -0.58990230268E-08   11    3    2    2'
         write(iunit, '(A)') '   0.44729280634E-04   11    3    3    1'
         write(iunit, '(A)') '  -0.75222736232E-08   11    3    3    3'
         write(iunit, '(A)') '   0.47428294941E-04   11    3    4    2'
         write(iunit, '(A)') '  -0.12608367252E-08   11    3    4    3'
         write(iunit, '(A)') '  -0.76201604535E-08   11    3    4    4'
         write(iunit, '(A)') '  -0.11532710458E-08   11    3    5    1'
         write(iunit, '(A)') '   0.39169763345E-04   11    3    5    3'
         write(iunit, '(A)') '  -0.62774612499E-08   11    3    5    5'
         write(iunit, '(A)') '  -0.10702244363E-08   11    3    6    1'
         write(iunit, '(A)') '  -0.10795974532E-08   11    3    6    2'
         write(iunit, '(A)') '   0.92991909544E-04   11    3    6    4'
         write(iunit, '(A)') '   0.79432933938E-08   11    3    6    5'
         write(iunit, '(A)') '  -0.71302946083E-08   11    3    6    6'
         write(iunit, '(A)') '   0.20957171520E-08   11    3    7    2'
         write(iunit, '(A)') '   0.22209923162E-04   11    3    7    3'
         write(iunit, '(A)') '   0.68819429370E-08   11    3    7    7'
         write(iunit, '(A)') '   0.21240439431E-08   11    3    8    1'
         write(iunit, '(A)') '   0.73152464610E-05   11    3    8    4'
         write(iunit, '(A)') '   0.39663191626E-07   11    3    8    7'
         write(iunit, '(A)') '   0.35674803020E-08   11    3    8    8'
         write(iunit, '(A)') '   0.22346709613E-04   11    3    9    1'
         write(iunit, '(A)') '   0.11513084319E-04   11    3    9    5'
         write(iunit, '(A)') '   0.45601842243E-03   11    3    9    7'
         write(iunit, '(A)') '   0.10120739505E-07   11    3    9    9'
         write(iunit, '(A)') '   0.98385736033E-05   11    3   10    2'
         write(iunit, '(A)') '   0.49413917825E-05   11    3   10    6'
         write(iunit, '(A)') '   0.33642649029E-03   11    3   10    8'
         write(iunit, '(A)') '  -0.77576362429E-08   11    3   10    9'
         write(iunit, '(A)') '   0.97411316706E-08   11    3   10   10'
         write(iunit, '(A)') '   0.14517711480E-04   11    3   11    3'
         write(iunit, '(A)') '  -0.24851341722E-08   11    4    2    1'
         write(iunit, '(A)') '   0.13940938430E-08   11    4    2    2'
         write(iunit, '(A)') '  -0.11949561167E-08   11    4    3    1'
         write(iunit, '(A)') '   0.91955686222E-04   11    4    3    2'
         write(iunit, '(A)') '  -0.15362656355E-08   11    4    3    3'
         write(iunit, '(A)') '   0.13831458402E-03   11    4    4    1'
         write(iunit, '(A)') '  -0.30359747495E-08   11    4    4    3'
         write(iunit, '(A)') '   0.11172084026E-07   11    4    5    1'
         write(iunit, '(A)') '   0.98913945326E-04   11    4    5    4'
         write(iunit, '(A)') '  -0.12733525877E-08   11    4    6    1'
         write(iunit, '(A)') '   0.12814452911E-07   11    4    6    2'
         write(iunit, '(A)') '   0.14462655945E-03   11    4    6    3'
         write(iunit, '(A)') '  -0.12785264788E-08   11    4    6    4'
         write(iunit, '(A)') '  -0.25973533087E-08   11    4    6    5'
         write(iunit, '(A)') '   0.35058021610E-05   11    4    7    4'
         write(iunit, '(A)') '   0.32302353382E-05   11    4    8    3'
         write(iunit, '(A)') '   0.23237401845E-08   11    4    8    8'
         write(iunit, '(A)') '   0.32523585861E-05   11    4    9    2'
         write(iunit, '(A)') '   0.36921870552E-05   11    4    9    6'
         write(iunit, '(A)') '   0.10093976494E-08   11    4    9    7'
         write(iunit, '(A)') '   0.91949635974E-04   11    4    9    8'
         write(iunit, '(A)') '  -0.21783358064E-08   11    4    9    9'
         write(iunit, '(A)') '   0.35057210735E-05   11    4   10    1'
         write(iunit, '(A)') '   0.19984909474E-05   11    4   10    5'
         write(iunit, '(A)') '   0.13830627212E-03   11    4   10    7'
         write(iunit, '(A)') '   0.20239297521E-05   11    4   11    4'
         write(iunit, '(A)') '   0.30727602157E-03   11    5    1    1'
         write(iunit, '(A)') '   0.39522442594E-03   11    5    2    2'
         write(iunit, '(A)') '  -0.22054249431E-08   11    5    3    1'
         write(iunit, '(A)') '  -0.14541464991E-08   11    5    3    2'
         write(iunit, '(A)') '   0.21134548628E-03   11    5    3    3'
         write(iunit, '(A)') '   0.11193729638E-07   11    5    4    1'
         write(iunit, '(A)') '  -0.15100331256E-08   11    5    4    2'
         write(iunit, '(A)') '   0.26045641078E-03   11    5    4    4'
         write(iunit, '(A)') '  -0.13829497847E-03   11    5    5    1'
         write(iunit, '(A)') '  -0.17742805670E-08   11    5    5    3'
         write(iunit, '(A)') '   0.45825347109E-03   11    5    5    5'
         write(iunit, '(A)') '  -0.14460583522E-03   11    5    6    2'
         write(iunit, '(A)') '   0.12842447190E-07   11    5    6    3'
         write(iunit, '(A)') '  -0.23498356057E-08   11    5    6    4'
         write(iunit, '(A)') '   0.40271881255E-03   11    5    6    6'
         write(iunit, '(A)') '   0.27690171381E-04   11    5    7    1'
         write(iunit, '(A)') '  -0.35053192290E-05   11    5    7    5'
         write(iunit, '(A)') '   0.30726649850E-03   11    5    7    7'
         write(iunit, '(A)') '   0.29595414660E-04   11    5    8    2'
         write(iunit, '(A)') '  -0.36921166363E-05   11    5    8    6'
         write(iunit, '(A)') '   0.39521489299E-03   11    5    8    8'
         write(iunit, '(A)') '   0.23114231488E-04   11    5    9    3'
         write(iunit, '(A)') '   0.21957311760E-08   11    5    9    7'
         write(iunit, '(A)') '  -0.14262136268E-08   11    5    9    8'
         write(iunit, '(A)') '   0.21133613575E-03   11    5    9    9'
         write(iunit, '(A)') '   0.86560570788E-05   11    5   10    4'
         write(iunit, '(A)') '   0.11218890715E-07   11    5   10    7'
         write(iunit, '(A)') '   0.14888983641E-08   11    5   10    8'
         write(iunit, '(A)') '   0.26044685351E-03   11    5   10   10'
         write(iunit, '(A)') '  -0.35052987831E-05   11    5   11    1'
         write(iunit, '(A)') '   0.12677949209E-04   11    5   11    5'
         write(iunit, '(A)') '   0.31070866094E-03   11    6    2    1'
         write(iunit, '(A)') '  -0.29486229805E-08   11    6    3    1'
         write(iunit, '(A)') '  -0.11643023030E-08   11    6    3    2'
         write(iunit, '(A)') '  -0.10113552670E-08   11    6    3    3'
         write(iunit, '(A)') '  -0.16963834722E-08   11    6    4    1'
         write(iunit, '(A)') '   0.20909220270E-07   11    6    4    2'
         write(iunit, '(A)') '   0.23946187196E-03   11    6    4    3'
         write(iunit, '(A)') '  -0.10454836361E-08   11    6    4    4'
         write(iunit, '(A)') '  -0.23944248090E-03   11    6    5    2'
         write(iunit, '(A)') '   0.20919193798E-07   11    6    5    3'
         write(iunit, '(A)') '  -0.11764116561E-08   11    6    5    4'
         write(iunit, '(A)') '   0.24527795366E-08   11    6    6    1'
         write(iunit, '(A)') '  -0.17561098096E-08   11    6    6    3'
         write(iunit, '(A)') '   0.37143740520E-03   11    6    6    5'
         write(iunit, '(A)') '   0.11106969995E-04   11    6    7    2'
         write(iunit, '(A)') '   0.11016872026E-04   11    6    8    1'
         write(iunit, '(A)') '  -0.64808006078E-05   11    6    8    5'
         write(iunit, '(A)') '   0.73805105865E-04   11    6    8    7'
         write(iunit, '(A)') '   0.64811060299E-05   11    6    9    4'
         write(iunit, '(A)') '  -0.61456077000E-08   11    6    9    7'
         write(iunit, '(A)') '   0.49415637791E-05   11    6   10    3'
         write(iunit, '(A)') '   0.14654818675E-08   11    6   10    8'
         write(iunit, '(A)') '   0.59261252270E-04   11    6   10    9'
         write(iunit, '(A)') '  -0.49415610175E-05   11    6   11    2'
         write(iunit, '(A)') '   0.38829274346E-05   11    6   11    6'
         write(iunit, '(A)') '   0.14028734867E-06   11    7    1    1'
         write(iunit, '(A)') '  -0.74330499606E-03   11    7    2    2'
         write(iunit, '(A)') '   0.71868087172E-07   11    7    3    2'
         write(iunit, '(A)') '   0.74360858349E-03   11    7    3    3'
         write(iunit, '(A)') '   0.40493369173E-03   11    7    4    4'
         write(iunit, '(A)') '   0.92379686862E-03   11    7    5    1'
         write(iunit, '(A)') '   0.32785348655E-07   11    7    5    4'
         write(iunit, '(A)') '  -0.40465029928E-03   11    7    5    5'
         write(iunit, '(A)') '   0.76125063698E-03   11    7    6    2'
         write(iunit, '(A)') '  -0.60103925984E-08   11    7    6    3'
         write(iunit, '(A)') '   0.11827661975E-06   11    7    6    6'
         write(iunit, '(A)') '  -0.17295617336E-07   11    7    7    1'
         write(iunit, '(A)') '   0.16516696696E-08   11    7    7    3'
         write(iunit, '(A)') '   0.11704732014E-03   11    7    7    5'
         write(iunit, '(A)') '  -0.55055155078E-06   11    7    7    7'
         write(iunit, '(A)') '  -0.25411005097E-03   11    7    8    2'
         write(iunit, '(A)') '   0.22444458006E-07   11    7    8    3'
         write(iunit, '(A)') '   0.42212907986E-04   11    7    8    6'
         write(iunit, '(A)') '  -0.61272359166E-08   11    7    8    7'
         write(iunit, '(A)') '  -0.32624261056E-01   11    7    8    8'
         write(iunit, '(A)') '   0.39491969185E-08   11    7    9    1'
         write(iunit, '(A)') '   0.22896745534E-07   11    7    9    2'
         write(iunit, '(A)') '   0.25410681238E-03   11    7    9    3'
         write(iunit, '(A)') '   0.11298308605E-08   11    7    9    5'
         write(iunit, '(A)') '  -0.31577522391E-08   11    7    9    6'
         write(iunit, '(A)') '  -0.23672806718E-08   11    7    9    7'
         write(iunit, '(A)') '   0.31533081321E-05   11    7    9    8'
         write(iunit, '(A)') '   0.32625088813E-01   11    7    9    9'
         write(iunit, '(A)') '   0.10474290087E-08   11    7   10    2'
         write(iunit, '(A)') '   0.13830385357E-03   11    7   10    4'
         write(iunit, '(A)') '   0.11240048153E-07   11    7   10    5'
         write(iunit, '(A)') '  -0.22424751097E-08   11    7   10    9'
         write(iunit, '(A)') '   0.27763529287E-01   11    7   10   10'
         write(iunit, '(A)') '   0.47174680866E-03   11    7   11    1'
         write(iunit, '(A)') '   0.45876872990E-08   11    7   11    3'
         write(iunit, '(A)') '   0.10058506365E-07   11    7   11    4'
         write(iunit, '(A)') '  -0.13829477019E-03   11    7   11    5'
         write(iunit, '(A)') '   0.46403558681E-01   11    7   11    7'
         write(iunit, '(A)') '   0.18523697227E-08   11    8    1    1'
         write(iunit, '(A)') '  -0.54817522066E-02   11    8    2    1'
         write(iunit, '(A)') '   0.33956698710E-08   11    8    2    2'
         write(iunit, '(A)') '   0.53000972968E-06   11    8    3    1'
         write(iunit, '(A)') '   0.21726302263E-08   11    8    3    3'
         write(iunit, '(A)') '   0.13289628125E-08   11    8    4    2'
         write(iunit, '(A)') '  -0.36766417542E-02   11    8    4    3'
         write(iunit, '(A)') '   0.20421281642E-08   11    8    4    4'
         write(iunit, '(A)') '   0.40745886582E-02   11    8    5    2'
         write(iunit, '(A)') '  -0.13664695127E-08   11    8    5    3'
         write(iunit, '(A)') '   0.29565062092E-08   11    8    5    5'
         write(iunit, '(A)') '   0.19099679836E-03   11    8    6    1'
         write(iunit, '(A)') '   0.44137145335E-06   11    8    6    4'
         write(iunit, '(A)') '  -0.49655877191E-02   11    8    6    5'
         write(iunit, '(A)') '   0.21999058055E-08   11    8    6    6'
         write(iunit, '(A)') '  -0.32302809019E-03   11    8    7    2'
         write(iunit, '(A)') '   0.31545512636E-07   11    8    7    3'
         write(iunit, '(A)') '  -0.11338506406E-08   11    8    7    4'
         write(iunit, '(A)') '  -0.10143428624E-08   11    8    7    5'
         write(iunit, '(A)') '   0.43795591893E-04   11    8    7    6'
         write(iunit, '(A)') '  -0.83806018011E-08   11    8    7    7'
         write(iunit, '(A)') '  -0.35494178744E-03   11    8    8    1'
         write(iunit, '(A)') '  -0.46542426852E-08   11    8    8    3'
         write(iunit, '(A)') '   0.23818465222E-08   11    8    8    4'
         write(iunit, '(A)') '   0.16554371764E-03   11    8    8    5'
         write(iunit, '(A)') '  -0.63361758462E-01   11    8    8    7'
         write(iunit, '(A)') '   0.12750135309E-07   11    8    8    8'
         write(iunit, '(A)') '   0.34424133974E-07   11    8    9    1'
         write(iunit, '(A)') '   0.78984388840E-04   11    8    9    4'
         write(iunit, '(A)') '  -0.12114897760E-08   11    8    9    5'
         write(iunit, '(A)') '   0.61263561520E-05   11    8    9    7'
         write(iunit, '(A)') '  -0.34249647322E-08   11    8    9    9'
         write(iunit, '(A)') '  -0.17128701587E-08   11    8   10    1'
         write(iunit, '(A)') '   0.34221495205E-08   11    8   10    2'
         write(iunit, '(A)') '   0.15200881841E-04   11    8   10    3'
         write(iunit, '(A)') '   0.66310511585E-08   11    8   10    6'
         write(iunit, '(A)') '   0.15087853484E-08   11    8   10    7'
         write(iunit, '(A)') '   0.21654326883E-06   11    8   10    8'
         write(iunit, '(A)') '  -0.15528275159E-01   11    8   10    9'
         write(iunit, '(A)') '  -0.28564611968E-08   11    8   10   10'
         write(iunit, '(A)') '   0.71932654899E-03   11    8   11    2'
         write(iunit, '(A)') '   0.14363516804E-08   11    8   11    4'
         write(iunit, '(A)') '   0.11511776475E-08   11    8   11    5'
         write(iunit, '(A)') '  -0.59273342030E-04   11    8   11    6'
         write(iunit, '(A)') '   0.77873160978E-01   11    8   11    8'
         write(iunit, '(A)') '  -0.14467970026E-08   11    9    1    1'
         write(iunit, '(A)') '   0.52994540850E-06   11    9    2    1'
         write(iunit, '(A)') '  -0.14399094769E-08   11    9    2    2'
         write(iunit, '(A)') '   0.54816381280E-02   11    9    3    1'
         write(iunit, '(A)') '  -0.16782757011E-08   11    9    3    3'
         write(iunit, '(A)') '   0.38346893452E-02   11    9    4    2'
         write(iunit, '(A)') '  -0.13299750596E-08   11    9    4    3'
         write(iunit, '(A)') '  -0.14386591789E-08   11    9    4    4'
         write(iunit, '(A)') '  -0.11004023713E-08   11    9    5    2'
         write(iunit, '(A)') '   0.39166211823E-02   11    9    5    3'
         write(iunit, '(A)') '  -0.11798909695E-08   11    9    5    5'
         write(iunit, '(A)') '  -0.16018000657E-08   11    9    6    1'
         write(iunit, '(A)') '   0.49654675498E-02   11    9    6    4'
         write(iunit, '(A)') '   0.44100856278E-06   11    9    6    5'
         write(iunit, '(A)') '  -0.15895598154E-08   11    9    6    6'
         write(iunit, '(A)') '   0.70718849282E-08   11    9    7    1'
         write(iunit, '(A)') '   0.28033601372E-07   11    9    7    2'
         write(iunit, '(A)') '   0.32302822685E-03   11    9    7    3'
         write(iunit, '(A)') '   0.10750550085E-08   11    9    7    4'
         write(iunit, '(A)') '   0.19013890356E-08   11    9    7    5'
         write(iunit, '(A)') '  -0.57813874294E-08   11    9    7    6'
         write(iunit, '(A)') '  -0.21703707165E-08   11    9    7    7'
         write(iunit, '(A)') '   0.33537335487E-07   11    9    8    1'
         write(iunit, '(A)') '   0.15196876699E-08   11    9    8    2'
         write(iunit, '(A)') '   0.47418649732E-04   11    9    8    4'
         write(iunit, '(A)') '   0.61239728270E-05   11    9    8    7'
         write(iunit, '(A)') '   0.16078565961E-08   11    9    8    8'
         write(iunit, '(A)') '   0.35492548819E-03   11    9    9    1'
         write(iunit, '(A)') '   0.11051720617E-08   11    9    9    2'
         write(iunit, '(A)') '   0.88449805590E-08   11    9    9    3'
         write(iunit, '(A)') '  -0.18953072571E-08   11    9    9    4'
         write(iunit, '(A)') '   0.39166232095E-04   11    9    9    5'
         write(iunit, '(A)') '   0.63361254578E-01   11    9    9    7'
         write(iunit, '(A)') '  -0.50573692083E-08   11    9    9    8'
         write(iunit, '(A)') '   0.34945901103E-08   11    9    9    9'
         write(iunit, '(A)') '   0.33640665218E-03   11    9   10    2'
         write(iunit, '(A)') '  -0.10674466954E-07   11    9   10    3'
         write(iunit, '(A)') '   0.30063330848E-08   11    9   10    4'
         write(iunit, '(A)') '   0.59250948706E-04   11    9   10    6'
         write(iunit, '(A)') '   0.14318642973E-08   11    9   10    7'
         write(iunit, '(A)') '   0.43268274059E-01   11    9   10    8'
         write(iunit, '(A)') '  -0.22029261476E-06   11    9   10    9'
         write(iunit, '(A)') '   0.59279976625E-08   11    9   11    1'
         write(iunit, '(A)') '  -0.53300473429E-08   11    9   11    2'
         write(iunit, '(A)') '   0.36773058989E-03   11    9   11    3'
         write(iunit, '(A)') '   0.17523426644E-08   11    9   11    5'
         write(iunit, '(A)') '  -0.21854517397E-08   11    9   11    7'
         write(iunit, '(A)') '  -0.21516555498E-06   11    9   11    8'
         write(iunit, '(A)') '   0.50135853419E-01   11    9   11    9'
         write(iunit, '(A)') '   0.50462706714E-08   11   10    2    2'
         write(iunit, '(A)') '   0.32341803934E-03   11   10    3    2'
         write(iunit, '(A)') '  -0.51088714563E-08   11   10    3    3'
         write(iunit, '(A)') '   0.40480473290E-03   11   10    4    1'
         write(iunit, '(A)') '   0.32819794668E-07   11   10    5    1'
         write(iunit, '(A)') '   0.19360216654E-03   11   10    5    4'
         write(iunit, '(A)') '   0.30918065295E-07   11   10    6    2'
         write(iunit, '(A)') '   0.34805669723E-03   11   10    6    3'
         write(iunit, '(A)') '   0.10141539564E-08   11   10    7    2'
         write(iunit, '(A)') '   0.95901954587E-04   11   10    7    4'
         write(iunit, '(A)') '   0.77868680734E-08   11   10    7    5'
         write(iunit, '(A)') '   0.22583309750E-08   11   10    8    1'
         write(iunit, '(A)') '   0.18486506879E-08   11   10    8    2'
         write(iunit, '(A)') '   0.17819743374E-03   11   10    8    3'
         write(iunit, '(A)') '   0.16322702825E-08   11   10    8    6'
         write(iunit, '(A)') '   0.28933367248E-06   11   10    8    8'
         write(iunit, '(A)') '   0.17818544116E-03   11   10    9    2'
         write(iunit, '(A)') '  -0.63591957463E-08   11   10    9    3'
         write(iunit, '(A)') '   0.13849320239E-08   11   10    9    4'
         write(iunit, '(A)') '   0.36433847475E-04   11   10    9    6'
         write(iunit, '(A)') '  -0.21835053438E-08   11   10    9    7'
         write(iunit, '(A)') '   0.18489193525E-01   11   10    9    8'
         write(iunit, '(A)') '  -0.29096107564E-06   11   10    9    9'
         write(iunit, '(A)') '   0.31531334257E-03   11   10   10    1'
         write(iunit, '(A)') '   0.41605317897E-08   11   10   10    3'
         write(iunit, '(A)') '   0.98912089952E-04   11   10   10    5'
         write(iunit, '(A)') '   0.27763758873E-01   11   10   10    7'
         write(iunit, '(A)') '  -0.46976899740E-08   11   10   10    8'
         write(iunit, '(A)') '   0.10776262041E-08   11   10   10   10'
         write(iunit, '(A)') '   0.25042721870E-07   11   10   11    1'
         write(iunit, '(A)') '   0.98909432736E-04   11   10   11    4'
         write(iunit, '(A)') '   0.22501527788E-05   11   10   11    7'
         write(iunit, '(A)') '  -0.16578033382E-08   11   10   11    8'
         write(iunit, '(A)') '  -0.38754006877E-08   11   10   11    9'
         write(iunit, '(A)') '   0.21216333476E-01   11   10   11   10'
         write(iunit, '(A)') '   0.12321673201       11   11    1    1'
         write(iunit, '(A)') '  -0.39340637971E-08   11   11    2    1'
         write(iunit, '(A)') '   0.12244373472       11   11    2    2'
         write(iunit, '(A)') '  -0.21737105233E-08   11   11    3    1'
         write(iunit, '(A)') '  -0.50752208188E-08   11   11    3    2'
         write(iunit, '(A)') '   0.12179705221       11   11    3    3'
         write(iunit, '(A)') '   0.32783040667E-07   11   11    4    1'
         write(iunit, '(A)') '  -0.11401727486E-08   11   11    4    2'
         write(iunit, '(A)') '  -0.21481785702E-08   11   11    4    3'
         write(iunit, '(A)') '   0.12079535064       11   11    4    4'
         write(iunit, '(A)') '  -0.40465013129E-03   11   11    5    1'
         write(iunit, '(A)') '   0.22880620080E-08   11   11    5    2'
         write(iunit, '(A)') '  -0.11586565837E-08   11   11    5    3'
         write(iunit, '(A)') '   0.12118239851       11   11    5    5'
         write(iunit, '(A)') '  -0.34794099767E-03   11   11    6    2'
         write(iunit, '(A)') '   0.30871162322E-07   11   11    6    3'
         write(iunit, '(A)') '  -0.24392409028E-08   11   11    6    4'
         write(iunit, '(A)') '  -0.40023456420E-08   11   11    6    5'
         write(iunit, '(A)') '   0.12049666741       11   11    6    6'
         write(iunit, '(A)') '   0.37991647067E-03   11   11    7    1'
         write(iunit, '(A)') '   0.21286085881E-07   11   11    7    3'
         write(iunit, '(A)') '   0.32597623381E-08   11   11    7    4'
         write(iunit, '(A)') '  -0.95883932964E-04   11   11    7    5'
         write(iunit, '(A)') '   0.14830298149E-08   11   11    7    6'
         write(iunit, '(A)') '   0.30489127109       11   11    7    7'
         write(iunit, '(A)') '   0.75268598538E-03   11   11    8    2'
         write(iunit, '(A)') '  -0.10443917049E-07   11   11    8    3'
         write(iunit, '(A)') '   0.68036488977E-08   11   11    8    4'
         write(iunit, '(A)') '   0.34147621117E-08   11   11    8    5'
         write(iunit, '(A)') '  -0.36462835783E-04   11   11    8    6'
         write(iunit, '(A)') '  -0.49039210193E-08   11   11    8    7'
         write(iunit, '(A)') '   0.32065784569       11   11    8    8'
         write(iunit, '(A)') '   0.19608124068E-07   11   11    9    1'
         write(iunit, '(A)') '  -0.11149438446E-07   11   11    9    2'
         write(iunit, '(A)') '   0.39632668422E-03   11   11    9    3'
         write(iunit, '(A)') '   0.29500213544E-08   11   11    9    4'
         write(iunit, '(A)') '   0.61763436327E-08   11   11    9    5'
         write(iunit, '(A)') '  -0.11086433309E-07   11   11    9    6'
         write(iunit, '(A)') '  -0.22810372619E-08   11   11    9    7'
         write(iunit, '(A)') '  -0.28859526119E-06   11   11    9    8'
         write(iunit, '(A)') '   0.28368165185       11   11    9    9'
         write(iunit, '(A)') '   0.21520469215E-07   11   11   10    1'
         write(iunit, '(A)') '   0.63269852523E-08   11   11   10    2'
         write(iunit, '(A)') '   0.31401364390E-08   11   11   10    3'
         write(iunit, '(A)') '   0.26044751940E-03   11   11   10    4'
         write(iunit, '(A)') '   0.41460693471E-08   11   11   10    6'
         write(iunit, '(A)') '   0.22500311198E-05   11   11   10    7'
         write(iunit, '(A)') '  -0.22756343268E-08   11   11   10    8'
         write(iunit, '(A)') '  -0.45861877768E-08   11   11   10    9'
         write(iunit, '(A)') '   0.28878189877       11   11   10   10'
         write(iunit, '(A)') '  -0.31533153974E-03   11   11   11    1'
         write(iunit, '(A)') '   0.34026914528E-08   11   11   11    2'
         write(iunit, '(A)') '   0.45705715267E-08   11   11   11    3'
         write(iunit, '(A)') '   0.45824317678E-03   11   11   11    5'
         write(iunit, '(A)') '  -0.27762799092E-01   11   11   11    7'
         write(iunit, '(A)') '   0.70378002454E-08   11   11   11    8'
         write(iunit, '(A)') '  -0.13478189329E-08   11   11   11    9'
         write(iunit, '(A)') '   0.33121184577       11   11   11   11'
         write(iunit, '(A)') '  -0.15621270566E-08   12    1    1    1'
         write(iunit, '(A)') '  -0.48575741218E-08   12    1    2    1'
         write(iunit, '(A)') '  -0.14172579578E-08   12    1    2    2'
         write(iunit, '(A)') '   0.74739744985E-08   12    1    3    1'
         write(iunit, '(A)') '  -0.16278270353E-08   12    1    3    3'
         write(iunit, '(A)') '  -0.10724996091E-08   12    1    4    1'
         write(iunit, '(A)') '   0.57742316986E-08   12    1    4    2'
         write(iunit, '(A)') '   0.43786257369E-04   12    1    4    3'
         write(iunit, '(A)') '  -0.16570040984E-08   12    1    4    4'
         write(iunit, '(A)') '   0.43794284506E-04   12    1    5    2'
         write(iunit, '(A)') '   0.50881398829E-08   12    1    5    3'
         write(iunit, '(A)') '  -0.14672171354E-08   12    1    5    5'
         write(iunit, '(A)') '   0.48703915815E-04   12    1    6    1'
         write(iunit, '(A)') '  -0.10314100304E-08   12    1    6    3'
         write(iunit, '(A)') '   0.75686334059E-08   12    1    6    4'
         write(iunit, '(A)') '  -0.64333631434E-08   12    1    6    5'
         write(iunit, '(A)') '  -0.15981788106E-08   12    1    6    6'
         write(iunit, '(A)') '   0.39922378692E-05   12    1    7    6'
         write(iunit, '(A)') '   0.15490131156E-08   12    1    7    7'
         write(iunit, '(A)') '   0.58693913067E-05   12    1    8    5'
         write(iunit, '(A)') '  -0.69529673067E-08   12    1    8    7'
         write(iunit, '(A)') '   0.13532724189E-08   12    1    8    8'
         write(iunit, '(A)') '   0.58689688755E-05   12    1    9    4'
         write(iunit, '(A)') '  -0.14628396683E-08   12    1    9    7'
         write(iunit, '(A)') '   0.36685996651E-08   12    1    9    8'
         write(iunit, '(A)') '   0.17290829642E-08   12    1    9    9'
         write(iunit, '(A)') '   0.94829917372E-05   12    1   10    3'
         write(iunit, '(A)') '   0.53411290846E-08   12    1   10    7'
         write(iunit, '(A)') '   0.20726091433E-08   12    1   10    8'
         write(iunit, '(A)') '   0.40729628959E-03   12    1   10    9'
         write(iunit, '(A)') '   0.17971968742E-08   12    1   10   10'
         write(iunit, '(A)') '   0.94832907809E-05   12    1   11    2'
         write(iunit, '(A)') '   0.40730899675E-03   12    1   11    8'
         write(iunit, '(A)') '  -0.43076304748E-08   12    1   11    9'
         write(iunit, '(A)') '   0.36594153324E-08   12    1   11   10'
         write(iunit, '(A)') '   0.14586739761E-08   12    1   11   11'
         write(iunit, '(A)') '   0.92609362041E-05   12    1   12    1'
         write(iunit, '(A)') '  -0.51856354172E-08   12    2    1    1'
         write(iunit, '(A)') '  -0.24125782919E-04   12    2    2    2'
         write(iunit, '(A)') '  -0.13152705501E-08   12    2    3    1'
         write(iunit, '(A)') '   0.45250423585E-08   12    2    3    2'
         write(iunit, '(A)') '   0.24117742186E-04   12    2    3    3'
         write(iunit, '(A)') '   0.31523255434E-08   12    2    4    1'
         write(iunit, '(A)') '  -0.10676133068E-08   12    2    4    2'
         write(iunit, '(A)') '   0.36438168043E-04   12    2    4    4'
         write(iunit, '(A)') '   0.42215807964E-04   12    2    5    1'
         write(iunit, '(A)') '   0.48415044918E-08   12    2    5    4'
         write(iunit, '(A)') '  -0.36448282046E-04   12    2    5    5'
         write(iunit, '(A)') '   0.48827957766E-04   12    2    6    2'
         write(iunit, '(A)') '   0.26053121552E-08   12    2    6    3'
         write(iunit, '(A)') '  -0.14189726152E-08   12    2    6    4'
         write(iunit, '(A)') '  -0.69273409592E-08   12    2    6    6'
         write(iunit, '(A)') '   0.73917639927E-05   12    2    7    5'
         write(iunit, '(A)') '  -0.17716476426E-07   12    2    7    7'
         write(iunit, '(A)') '  -0.97227593524E-05   12    2    8    2'
         write(iunit, '(A)') '   0.48639090133E-05   12    2    8    6'
         write(iunit, '(A)') '   0.13954944509E-08   12    2    8    7'
         write(iunit, '(A)') '  -0.33859959784E-03   12    2    8    8'
         write(iunit, '(A)') '   0.10026772869E-08   12    2    9    2'
         write(iunit, '(A)') '   0.97217673286E-05   12    2    9    3'
         write(iunit, '(A)') '   0.32077894710E-08   12    2    9    7'
         write(iunit, '(A)') '   0.33879603912E-07   12    2    9    8'
         write(iunit, '(A)') '   0.33858666803E-03   12    2    9    9'
         write(iunit, '(A)') '   0.36917717264E-05   12    2   10    4'
         write(iunit, '(A)') '   0.18037055510E-08   12    2   10    7'
         write(iunit, '(A)') '   0.24314313735E-08   12    2   10    8'
         write(iunit, '(A)') '   0.12127401062E-08   12    2   10    9'
         write(iunit, '(A)') '   0.36960209791E-03   12    2   10   10'
         write(iunit, '(A)') '   0.11890169599E-04   12    2   11    1'
         write(iunit, '(A)') '  -0.36921172009E-05   12    2   11    5'
         write(iunit, '(A)') '   0.51250398232E-03   12    2   11    7'
         write(iunit, '(A)') '   0.24050800589E-08   12    2   11    9'
         write(iunit, '(A)') '   0.31321430377E-07   12    2   11   10'
         write(iunit, '(A)') '  -0.36961873738E-03   12    2   11   11'
         write(iunit, '(A)') '   0.11495265930E-04   12    2   12    2'
         write(iunit, '(A)') '   0.15657174785E-07   12    3    1    1'
         write(iunit, '(A)') '  -0.13160522240E-08   12    3    2    1'
         write(iunit, '(A)') '   0.15908376660E-07   12    3    2    2'
         write(iunit, '(A)') '   0.24119041796E-04   12    3    3    2'
         write(iunit, '(A)') '   0.14872308448E-07   12    3    3    3'
         write(iunit, '(A)') '   0.42209566602E-04   12    3    4    1'
         write(iunit, '(A)') '  -0.17444909624E-08   12    3    4    3'
         write(iunit, '(A)') '   0.14277367971E-07   12    3    4    4'
         write(iunit, '(A)') '   0.24908038612E-08   12    3    5    1'
         write(iunit, '(A)') '   0.36439636631E-04   12    3    5    4'
         write(iunit, '(A)') '   0.17548581255E-07   12    3    5    5'
         write(iunit, '(A)') '   0.26051855411E-08   12    3    6    2'
         write(iunit, '(A)') '   0.48821400577E-04   12    3    6    3'
         write(iunit, '(A)') '  -0.14200240853E-08   12    3    6    5'
         write(iunit, '(A)') '   0.16328938550E-07   12    3    6    6'
         write(iunit, '(A)') '   0.73916062085E-05   12    3    7    4'
         write(iunit, '(A)') '  -0.16091885222E-07   12    3    7    7'
         write(iunit, '(A)') '   0.97223993909E-05   12    3    8    3'
         write(iunit, '(A)') '   0.32136034912E-08   12    3    8    7'
         write(iunit, '(A)') '   0.20894036873E-07   12    3    8    8'
         write(iunit, '(A)') '   0.97221672424E-05   12    3    9    2'
         write(iunit, '(A)') '  -0.10911564574E-08   12    3    9    3'
         write(iunit, '(A)') '   0.48635454590E-05   12    3    9    6'
         write(iunit, '(A)') '   0.16099740677E-08   12    3    9    7'
         write(iunit, '(A)') '   0.33861462252E-03   12    3    9    8'
         write(iunit, '(A)') '  -0.52932687079E-07   12    3    9    9'
         write(iunit, '(A)') '   0.11890153271E-04   12    3   10    1'
         write(iunit, '(A)') '   0.36921537525E-05   12    3   10    5'
         write(iunit, '(A)') '   0.51251647842E-03   12    3   10    7'
         write(iunit, '(A)') '   0.11426173404E-08   12    3   10    8'
         write(iunit, '(A)') '   0.64318694552E-08   12    3   10    9'
         write(iunit, '(A)') '  -0.51357447070E-07   12    3   10   10'
         write(iunit, '(A)') '   0.36921262038E-05   12    3   11    4'
         write(iunit, '(A)') '  -0.62283773157E-08   12    3   11    7'
         write(iunit, '(A)') '   0.15873862040E-08   12    3   11    8'
         write(iunit, '(A)') '   0.11723103284E-08   12    3   11    9'
         write(iunit, '(A)') '   0.36963067973E-03   12    3   11   10'
         write(iunit, '(A)') '   0.17395242247E-07   12    3   11   11'
         write(iunit, '(A)') '   0.11495567343E-04   12    3   12    3'
         write(iunit, '(A)') '  -0.45639320770E-08   12    4    1    1'
         write(iunit, '(A)') '   0.61360623719E-08   12    4    2    1'
         write(iunit, '(A)') '  -0.40880251289E-08   12    4    2    2'
         write(iunit, '(A)') '   0.73797699569E-04   12    4    3    1'
         write(iunit, '(A)') '  -0.49730396911E-08   12    4    3    3'
         write(iunit, '(A)') '   0.59264491487E-04   12    4    4    2'
         write(iunit, '(A)') '   0.15615196120E-08   12    4    4    3'
         write(iunit, '(A)') '  -0.52812394105E-08   12    4    4    4'
         write(iunit, '(A)') '   0.39004603117E-08   12    4    5    2'
         write(iunit, '(A)') '   0.59263819437E-04   12    4    5    3'
         write(iunit, '(A)') '  -0.42348730461E-08   12    4    5    5'
         write(iunit, '(A)') '   0.28883717638E-08   12    4    6    1'
         write(iunit, '(A)') '   0.10015079305E-03   12    4    6    4'
         write(iunit, '(A)') '   0.58116121342E-08   12    4    6    5'
         write(iunit, '(A)') '  -0.49376250180E-08   12    4    6    6'
         write(iunit, '(A)') '   0.11016375177E-04   12    4    7    3'
         write(iunit, '(A)') '   0.45909307150E-08   12    4    7    7'
         write(iunit, '(A)') '   0.49413187254E-05   12    4    8    4'
         write(iunit, '(A)') '   0.29479703173E-08   12    4    8    7'
         write(iunit, '(A)') '   0.34634978933E-08   12    4    8    8'
         write(iunit, '(A)') '   0.11106333325E-04   12    4    9    1'
         write(iunit, '(A)') '   0.49414853799E-05   12    4    9    5'
         write(iunit, '(A)') '   0.31069803166E-03   12    4    9    7'
         write(iunit, '(A)') '   0.57139426298E-08   12    4    9    9'
         write(iunit, '(A)') '   0.64806293269E-05   12    4   10    2'
         write(iunit, '(A)') '   0.29673264456E-05   12    4   10    6'
         write(iunit, '(A)') '   0.23945434917E-03   12    4   10    8'
         write(iunit, '(A)') '  -0.21705604616E-07   12    4   10    9'
         write(iunit, '(A)') '   0.59782500381E-08   12    4   10   10'
         write(iunit, '(A)') '   0.64808719327E-05   12    4   11    3'
         write(iunit, '(A)') '   0.16322134586E-08   12    4   11    7'
         write(iunit, '(A)') '   0.20125026022E-07   12    4   11    8'
         write(iunit, '(A)') '   0.23945256355E-03   12    4   11    9'
         write(iunit, '(A)') '   0.37109271846E-08   12    4   11   11'
         write(iunit, '(A)') '   0.38827082304E-05   12    4   12    4'
         write(iunit, '(A)') '   0.73810869799E-04   12    5    2    1'
         write(iunit, '(A)') '   0.49792134548E-08   12    5    3    1'
         write(iunit, '(A)') '   0.90610384449E-08   12    5    4    2'
         write(iunit, '(A)') '   0.59268592153E-04   12    5    4    3'
         write(iunit, '(A)') '  -0.59274875043E-04   12    5    5    2'
         write(iunit, '(A)') '   0.96675876029E-08   12    5    5    3'
         write(iunit, '(A)') '  -0.52773206983E-08   12    5    6    1'
         write(iunit, '(A)') '   0.58110221578E-08   12    5    6    4'
         write(iunit, '(A)') '   0.10016562930E-03   12    5    6    5'
         write(iunit, '(A)') '   0.11016871798E-04   12    5    7    2'
         write(iunit, '(A)') '   0.11106929410E-04   12    5    8    1'
         write(iunit, '(A)') '  -0.49415597740E-05   12    5    8    5'
         write(iunit, '(A)') '   0.31070448182E-03   12    5    8    7'
         write(iunit, '(A)') '   0.49416333932E-05   12    5    9    4'
         write(iunit, '(A)') '  -0.19213071422E-08   12    5    9    7'
         write(iunit, '(A)') '   0.11223780695E-08   12    5    9    8'
         write(iunit, '(A)') '   0.11089926122E-08   12    5    9    9'
         write(iunit, '(A)') '   0.64810394913E-05   12    5   10    3'
         write(iunit, '(A)') '   0.16276635425E-08   12    5   10    7'
         write(iunit, '(A)') '   0.21646541352E-07   12    5   10    8'
         write(iunit, '(A)') '   0.23945783735E-03   12    5   10    9'
         write(iunit, '(A)') '   0.11359825121E-08   12    5   10   10'
         write(iunit, '(A)') '  -0.64807913884E-05   12    5   11    2'
         write(iunit, '(A)') '   0.29676894578E-05   12    5   11    6'
         write(iunit, '(A)') '  -0.23944019287E-03   12    5   11    8'
         write(iunit, '(A)') '   0.21637965738E-07   12    5   11    9'
         write(iunit, '(A)') '   0.11305838250E-08   12    5   11   10'
         write(iunit, '(A)') '   0.38829044872E-05   12    5   12    5'
         write(iunit, '(A)') '   0.16528245152E-03   12    6    1    1'
         write(iunit, '(A)') '   0.16204711683E-03   12    6    2    2'
         write(iunit, '(A)') '  -0.20373961782E-08   12    6    3    1'
         write(iunit, '(A)') '   0.25866331471E-08   12    6    3    2'
         write(iunit, '(A)') '   0.16203740205E-03   12    6    3    3'
         write(iunit, '(A)') '   0.37991143658E-08   12    6    4    1'
         write(iunit, '(A)') '  -0.15444853400E-08   12    6    4    2'
         write(iunit, '(A)') '   0.18593791495E-03   12    6    4    4'
         write(iunit, '(A)') '  -0.66398868627E-08   12    6    5    1'
         write(iunit, '(A)') '  -0.15442935226E-08   12    6    5    3'
         write(iunit, '(A)') '   0.26268056680E-08   12    6    5    4'
         write(iunit, '(A)') '   0.18594713104E-03   12    6    5    5'
         write(iunit, '(A)') '  -0.60418439784E-08   12    6    6    2'
         write(iunit, '(A)') '   0.39097338711E-08   12    6    6    3'
         write(iunit, '(A)') '  -0.22942455117E-08   12    6    6    4'
         write(iunit, '(A)') '   0.20493079901E-03   12    6    6    6'
         write(iunit, '(A)') '   0.11347077965E-04   12    6    7    1'
         write(iunit, '(A)') '   0.16525707357E-03   12    6    7    7'
         write(iunit, '(A)') '   0.11196070294E-04   12    6    8    2'
         write(iunit, '(A)') '   0.16202461605E-03   12    6    8    8'
         write(iunit, '(A)') '   0.11195795944E-04   12    6    9    3'
         write(iunit, '(A)') '   0.19900741744E-08   12    6    9    7'
         write(iunit, '(A)') '  -0.25924184068E-08   12    6    9    8'
         write(iunit, '(A)') '   0.16200940313E-03   12    6    9    9'
         write(iunit, '(A)') '   0.47233164465E-05   12    6   10    4'
         write(iunit, '(A)') '  -0.38063436429E-08   12    6   10    7'
         write(iunit, '(A)') '   0.15020608119E-08   12    6   10    8'
         write(iunit, '(A)') '   0.18590833974E-03   12    6   10   10'
         write(iunit, '(A)') '   0.47234871977E-05   12    6   11    5'
         write(iunit, '(A)') '  -0.10677591815E-07   12    6   11    7'
         write(iunit, '(A)') '   0.15021903420E-08   12    6   11    9'
         write(iunit, '(A)') '  -0.26327146316E-08   12    6   11   10'
         write(iunit, '(A)') '   0.18592313853E-03   12    6   11   11'
         write(iunit, '(A)') '   0.21721227305E-05   12    6   12    6'
         write(iunit, '(A)') '  -0.10568739172E-06   12    7    2    1'
         write(iunit, '(A)') '   0.16096100694E-08   12    7    4    2'
         write(iunit, '(A)') '   0.19084644732E-03   12    7    4    3'
         write(iunit, '(A)') '   0.19099670792E-03   12    7    5    2'
         write(iunit, '(A)') '  -0.13812541690E-08   12    7    5    3'
         write(iunit, '(A)') '   0.18270929885E-03   12    7    6    1'
         write(iunit, '(A)') '  -0.98903706662E-07   12    7    6    5'
         write(iunit, '(A)') '  -0.10471929232E-07   12    7    7    2'
         write(iunit, '(A)') '  -0.30476452283E-08   12    7    7    3'
         write(iunit, '(A)') '   0.48699182607E-04   12    7    7    6'
         write(iunit, '(A)') '  -0.59244722480E-08   12    7    8    1'
         write(iunit, '(A)') '   0.12418659166E-08   12    7    8    3'
         write(iunit, '(A)') '   0.10695844088E-08   12    7    8    4'
         write(iunit, '(A)') '   0.13333612903E-03   12    7    8    5'
         write(iunit, '(A)') '  -0.10126031407E-05   12    7    8    7'
         write(iunit, '(A)') '  -0.29184977161E-08   12    7    8    8'
         write(iunit, '(A)') '   0.12392080591E-08   12    7    9    2'
         write(iunit, '(A)') '   0.13333585834E-03   12    7    9    4'
         write(iunit, '(A)') '  -0.10198149153E-08   12    7    9    5'
         write(iunit, '(A)') '   0.35247556706E-08   12    7    9    9'
         write(iunit, '(A)') '   0.40031796005E-08   12    7   10    1'
         write(iunit, '(A)') '   0.14020725873E-08   12    7   10    2'
         write(iunit, '(A)') '   0.39577582167E-03   12    7   10    3'
         write(iunit, '(A)') '   0.12200848405E-08   12    7   10    5'
         write(iunit, '(A)') '  -0.28941709383E-08   12    7   10    6'
         write(iunit, '(A)') '  -0.15166727093E-08   12    7   10    7'
         write(iunit, '(A)') '   0.25933285979E-06   12    7   10    8'
         write(iunit, '(A)') '   0.32983343722E-01   12    7   10    9'
         write(iunit, '(A)') '   0.28091069379E-08   12    7   10   10'
         write(iunit, '(A)') '   0.39577574864E-03   12    7   11    2'
         write(iunit, '(A)') '  -0.48005263144E-08   12    7   11    3'
         write(iunit, '(A)') '   0.12235451710E-08   12    7   11    4'
         write(iunit, '(A)') '  -0.83469985884E-08   12    7   11    6'
         write(iunit, '(A)') '   0.56986473786E-08   12    7   11    7'
         write(iunit, '(A)') '   0.32984971592E-01   12    7   11    8'
         write(iunit, '(A)') '  -0.25734890210E-06   12    7   11    9'
         write(iunit, '(A)') '  -0.19305600955E-08   12    7   11   10'
         write(iunit, '(A)') '  -0.33245630346E-08   12    7   11   11'
         write(iunit, '(A)') '   0.43685167247E-03   12    7   12    1'
         write(iunit, '(A)') '   0.42233028557E-08   12    7   12    3'
         write(iunit, '(A)') '   0.15357120052E-08   12    7   12    5'
         write(iunit, '(A)') '   0.34942087929E-01   12    7   12    7'
         write(iunit, '(A)') '   0.10622275031E-06   12    8    1    1'
         write(iunit, '(A)') '  -0.61030920117E-03   12    8    2    2'
         write(iunit, '(A)') '   0.63814387346E-07   12    8    3    2'
         write(iunit, '(A)') '   0.61054299126E-03   12    8    3    3'
         write(iunit, '(A)') '   0.60101271049E-08   12    8    4    1'
         write(iunit, '(A)') '   0.34815839529E-03   12    8    4    4'
         write(iunit, '(A)') '   0.76125061041E-03   12    8    5    1'
         write(iunit, '(A)') '   0.30942597315E-07   12    8    5    4'
         write(iunit, '(A)') '  -0.34794107566E-03   12    8    5    5'
         write(iunit, '(A)') '   0.64047053154E-03   12    8    6    2'
         write(iunit, '(A)') '   0.89058725147E-07   12    8    6    6'
         write(iunit, '(A)') '  -0.10078081324E-07   12    8    7    1'
         write(iunit, '(A)') '   0.16016052783E-08   12    8    7    3'
         write(iunit, '(A)') '   0.10609767188E-08   12    8    7    4'
         write(iunit, '(A)') '   0.13186726062E-03   12    8    7    5'
         write(iunit, '(A)') '  -0.16838119787E-06   12    8    7    7'
         write(iunit, '(A)') '  -0.26183696777E-03   12    8    8    2'
         write(iunit, '(A)') '   0.25015956724E-07   12    8    8    3'
         write(iunit, '(A)') '   0.48824653995E-04   12    8    8    6'
         write(iunit, '(A)') '  -0.39555147040E-08   12    8    8    7'
         write(iunit, '(A)') '  -0.30105023781E-01   12    8    8    8'
         write(iunit, '(A)') '   0.36718282300E-08   12    8    9    1'
         write(iunit, '(A)') '   0.25829822911E-07   12    8    9    2'
         write(iunit, '(A)') '   0.26184638711E-03   12    8    9    3'
         write(iunit, '(A)') '   0.10570788779E-08   12    8    9    5'
         write(iunit, '(A)') '  -0.26106622850E-08   12    8    9    6'
         write(iunit, '(A)') '   0.31464687300E-05   12    8    9    8'
         write(iunit, '(A)') '   0.30106588078E-01   12    8    9    9'
         write(iunit, '(A)') '   0.29939700915E-08   12    8   10    1'
         write(iunit, '(A)') '   0.11618054223E-08   12    8   10    2'
         write(iunit, '(A)') '   0.14461889056E-03   12    8   10    4'
         write(iunit, '(A)') '   0.12886137661E-07   12    8   10    5'
         write(iunit, '(A)') '   0.34566973903E-06   12    8   10    7'
         write(iunit, '(A)') '   0.19833740674E-08   12    8   10    8'
         write(iunit, '(A)') '  -0.28812535963E-08   12    8   10    9'
         write(iunit, '(A)') '   0.30283789776E-01   12    8   10   10'
         write(iunit, '(A)') '   0.47465770350E-03   12    8   11    1'
         write(iunit, '(A)') '   0.42277348160E-08   12    8   11    3'
         write(iunit, '(A)') '   0.11763585538E-07   12    8   11    4'
         write(iunit, '(A)') '  -0.14460542815E-03   12    8   11    5'
         write(iunit, '(A)') '   0.44057544664E-01   12    8   11    7'
         write(iunit, '(A)') '  -0.41274835702E-08   12    8   11    8'
         write(iunit, '(A)') '   0.26923868542E-05   12    8   11   10'
         write(iunit, '(A)') '  -0.30282310835E-01   12    8   11   11'
         write(iunit, '(A)') '   0.53839926834E-03   12    8   12    2'
         write(iunit, '(A)') '  -0.22678042456E-08   12    8   12    3'
         write(iunit, '(A)') '   0.16889454747E-08   12    8   12    4'
         write(iunit, '(A)') '  -0.10196871353E-07   12    8   12    6'
         write(iunit, '(A)') '   0.34270156834E-08   12    8   12    7'
         write(iunit, '(A)') '   0.45190977901E-01   12    8   12    8'
         write(iunit, '(A)') '   0.63854095716E-07   12    9    2    2'
         write(iunit, '(A)') '   0.61043186000E-03   12    9    3    2'
         write(iunit, '(A)') '  -0.63758240834E-07   12    9    3    3'
         write(iunit, '(A)') '   0.76123945761E-03   12    9    4    1'
         write(iunit, '(A)') '  -0.30819981456E-07   12    9    4    4'
         write(iunit, '(A)') '  -0.59143612522E-08   12    9    5    1'
         write(iunit, '(A)') '   0.34805675382E-03   12    9    5    4'
         write(iunit, '(A)') '   0.31018446470E-07   12    9    5    5'
         write(iunit, '(A)') '   0.64045461974E-03   12    9    6    3'
         write(iunit, '(A)') '  -0.10561712161E-08   12    9    7    1'
         write(iunit, '(A)') '   0.15978139965E-08   12    9    7    2'
         write(iunit, '(A)') '   0.13186697379E-03   12    9    7    4'
         write(iunit, '(A)') '  -0.10057288179E-08   12    9    7    5'
         write(iunit, '(A)') '  -0.12819375934E-08   12    9    7    7'
         write(iunit, '(A)') '   0.36706354563E-08   12    9    8    1'
         write(iunit, '(A)') '   0.25839133728E-07   12    9    8    2'
         write(iunit, '(A)') '   0.26185345450E-03   12    9    8    3'
         write(iunit, '(A)') '   0.11133745508E-08   12    9    8    5'
         write(iunit, '(A)') '  -0.26095293686E-08   12    9    8    6'
         write(iunit, '(A)') '   0.31462079950E-05   12    9    8    8'
         write(iunit, '(A)') '   0.26183488502E-03   12    9    9    2'
         write(iunit, '(A)') '  -0.32805147280E-07   12    9    9    3'
         write(iunit, '(A)') '   0.21488658154E-08   12    9    9    4'
         write(iunit, '(A)') '   0.48812555491E-04   12    9    9    6'
         write(iunit, '(A)') '   0.46631444977E-08   12    9    9    7'
         write(iunit, '(A)') '   0.30106459991E-01   12    9    9    8'
         write(iunit, '(A)') '  -0.31491743598E-05   12    9    9    9'
         write(iunit, '(A)') '   0.47465038364E-03   12    9   10    1'
         write(iunit, '(A)') '   0.64918996356E-08   12    9   10    3'
         write(iunit, '(A)') '  -0.13896693641E-07   12    9   10    4'
         write(iunit, '(A)') '   0.14462379543E-03   12    9   10    5'
         write(iunit, '(A)') '   0.44056951692E-01   12    9   10    7'
         write(iunit, '(A)') '  -0.15487478279E-08   12    9   10    8'
         write(iunit, '(A)') '   0.18875605072E-08   12    9   10    9'
         write(iunit, '(A)') '  -0.26898101737E-05   12    9   10   10'
         write(iunit, '(A)') '  -0.44413922759E-08   12    9   11    1'
         write(iunit, '(A)') '   0.10984456201E-08   12    9   11    2'
         write(iunit, '(A)') '   0.14461901452E-03   12    9   11    4'
         write(iunit, '(A)') '   0.12859750524E-07   12    9   11    5'
         write(iunit, '(A)') '  -0.34446876196E-06   12    9   11    7'
         write(iunit, '(A)') '   0.30283664869E-01   12    9   11   10'
         write(iunit, '(A)') '   0.26903396494E-05   12    9   11   11'
         write(iunit, '(A)') '   0.54815856473E-08   12    9   12    1'
         write(iunit, '(A)') '  -0.22637791669E-08   12    9   12    2'
         write(iunit, '(A)') '   0.53841181817E-03   12    9   12    3'
         write(iunit, '(A)') '   0.16841501268E-08   12    9   12    5'
         write(iunit, '(A)') '  -0.39167366285E-08   12    9   12    6'
         write(iunit, '(A)') '  -0.10686673560E-08   12    9   12    7'
         write(iunit, '(A)') '   0.18882500842E-08   12    9   12    8'
         write(iunit, '(A)') '   0.45190368337E-01   12    9   12    9'
         write(iunit, '(A)') '  -0.29760460046E-08   12   10    1    1'
         write(iunit, '(A)') '   0.55110910049E-07   12   10    2    1'
         write(iunit, '(A)') '  -0.29499496035E-08   12   10    2    2'
         write(iunit, '(A)') '   0.70112261220E-02   12   10    3    1'
         write(iunit, '(A)') '  -0.32435301630E-08   12   10    3    3'
         write(iunit, '(A)') '   0.49654616234E-02   12   10    4    2'
         write(iunit, '(A)') '  -0.44111558476E-06   12   10    4    3'
         write(iunit, '(A)') '  -0.29175485862E-08   12   10    4    4'
         write(iunit, '(A)') '   0.44117457423E-06   12   10    5    2'
         write(iunit, '(A)') '   0.49654675422E-02   12   10    5    3'
         write(iunit, '(A)') '  -0.25960321108E-08   12   10    5    5'
         write(iunit, '(A)') '   0.63705150479E-02   12   10    6    4'
         write(iunit, '(A)') '  -0.30970700268E-08   12   10    6    6'
         write(iunit, '(A)') '   0.99554300887E-08   12   10    7    1'
         write(iunit, '(A)') '   0.52861940231E-03   12   10    7    3'
         write(iunit, '(A)') '   0.15069804957E-08   12   10    7    4'
         write(iunit, '(A)') '   0.27030130982E-08   12   10    7    5'
         write(iunit, '(A)') '  -0.75775770280E-08   12   10    7    6'
         write(iunit, '(A)') '  -0.30554059699E-08   12   10    7    7'
         write(iunit, '(A)') '   0.32054223653E-08   12   10    8    1'
         write(iunit, '(A)') '   0.23967082986E-08   12   10    8    2'
         write(iunit, '(A)') '   0.10684892854E-08   12   10    8    3'
         write(iunit, '(A)') '   0.92980649163E-04   12   10    8    4'
         write(iunit, '(A)') '   0.85494295809E-08   12   10    8    5'
         write(iunit, '(A)') '   0.13859086257E-08   12   10    8    6'
         write(iunit, '(A)') '   0.69130011926E-06   12   10    8    7'
         write(iunit, '(A)') '   0.28358696138E-08   12   10    8    8'
         write(iunit, '(A)') '   0.56717308220E-03   12   10    9    1'
         write(iunit, '(A)') '   0.14949698210E-08   12   10    9    2'
         write(iunit, '(A)') '   0.12308757324E-07   12   10    9    3'
         write(iunit, '(A)') '  -0.95801501237E-08   12   10    9    4'
         write(iunit, '(A)') '   0.92987076849E-04   12   10    9    5'
         write(iunit, '(A)') '   0.88140635742E-01   12   10    9    7'
         write(iunit, '(A)') '  -0.51449945849E-08   12   10    9    8'
         write(iunit, '(A)') '   0.42441978265E-08   12   10    9    9'
         write(iunit, '(A)') '   0.11151310514E-08   12   10   10    1'
         write(iunit, '(A)') '   0.54811977322E-03   12   10   10    2'
         write(iunit, '(A)') '  -0.60459964165E-07   12   10   10    3'
         write(iunit, '(A)') '   0.45709050483E-08   12   10   10    4'
         write(iunit, '(A)') '   0.13369983335E-08   12   10   10    5'
         write(iunit, '(A)') '   0.10013159423E-03   12   10   10    6'
         write(iunit, '(A)') '   0.52113396957E-08   12   10   10    7'
         write(iunit, '(A)') '   0.66264637922E-01   12   10   10    8'
         write(iunit, '(A)') '  -0.58876892181E-05   12   10   10    9'
         write(iunit, '(A)') '   0.78324978039E-08   12   10   11    1'
         write(iunit, '(A)') '   0.45289665884E-07   12   10   11    2'
         write(iunit, '(A)') '   0.54814715793E-03   12   10   11    3'
         write(iunit, '(A)') '   0.10570832288E-08   12   10   11    4'
         write(iunit, '(A)') '   0.23337644643E-08   12   10   11    5'
         write(iunit, '(A)') '  -0.58222044117E-08   12   10   11    6'
         write(iunit, '(A)') '  -0.36316837072E-08   12   10   11    7'
         write(iunit, '(A)') '   0.58888076715E-05   12   10   11    8'
         write(iunit, '(A)') '   0.66264466118E-01   12   10   11    9'
         write(iunit, '(A)') '  -0.36213357632E-08   12   10   11   10'
         write(iunit, '(A)') '  -0.14389963318E-08   12   10   11   11'
         write(iunit, '(A)') '  -0.17121836290E-08   12   10   12    1'
         write(iunit, '(A)') '   0.35403063333E-08   12   10   12    2'
         write(iunit, '(A)') '   0.17462514854E-08   12   10   12    3'
         write(iunit, '(A)') '   0.37142823607E-03   12   10   12    4'
         write(iunit, '(A)') '   0.22279431992E-08   12   10   12    6'
         write(iunit, '(A)') '   0.28734826594E-08   12   10   12    7'
         write(iunit, '(A)') '   0.29382812225E-08   12   10   12    9'
         write(iunit, '(A)') '   0.97336008785E-01   12   10   12   10'
         write(iunit, '(A)') '  -0.45839282401E-08   12   11    1    1'
         write(iunit, '(A)') '   0.70117118013E-02   12   11    2    1'
         write(iunit, '(A)') '  -0.63508406050E-08   12   11    2    2'
         write(iunit, '(A)') '  -0.54724897924E-07   12   11    3    1'
         write(iunit, '(A)') '  -0.50761058831E-08   12   11    3    3'
         write(iunit, '(A)') '   0.44127783774E-06   12   11    4    2'
         write(iunit, '(A)') '   0.49657215632E-02   12   11    4    3'
         write(iunit, '(A)') '  -0.48083950625E-08   12   11    4    4'
         write(iunit, '(A)') '  -0.49655874864E-02   12   11    5    2'
         write(iunit, '(A)') '   0.44156173483E-06   12   11    5    3'
         write(iunit, '(A)') '  -0.57967728377E-08   12   11    5    5'
         write(iunit, '(A)') '  -0.99047887667E-07   12   11    6    1'
         write(iunit, '(A)') '   0.63709760812E-02   12   11    6    5'
         write(iunit, '(A)') '  -0.48978943159E-08   12   11    6    6'
         write(iunit, '(A)') '   0.52862673916E-03   12   11    7    2'
         write(iunit, '(A)') '  -0.85817891388E-08   12   11    7    3'
         write(iunit, '(A)') '   0.27116180063E-08   12   11    7    4'
         write(iunit, '(A)') '   0.15153799970E-08   12   11    7    5'
         write(iunit, '(A)') '  -0.14478032900E-07   12   11    7    6'
         write(iunit, '(A)') '   0.11999116929E-07   12   11    7    7'
         write(iunit, '(A)') '   0.56721274972E-03   12   11    8    1'
         write(iunit, '(A)') '   0.80703128017E-08   12   11    8    3'
         write(iunit, '(A)') '   0.63382110999E-08   12   11    8    4'
         write(iunit, '(A)') '  -0.92957609195E-04   12   11    8    5'
         write(iunit, '(A)') '   0.88145057206E-01   12   11    8    7'
         write(iunit, '(A)') '  -0.11948460901E-07   12   11    8    8'
         write(iunit, '(A)') '  -0.56799104756E-08   12   11    9    1'
         write(iunit, '(A)') '   0.18353993735E-08   12   11    9    2'
         write(iunit, '(A)') '   0.12286689765E-08   12   11    9    3'
         write(iunit, '(A)') '   0.92978022429E-04   12   11    9    4'
         write(iunit, '(A)') '   0.85800066642E-08   12   11    9    5'
         write(iunit, '(A)') '   0.13858090666E-08   12   11    9    6'
         write(iunit, '(A)') '  -0.68942175698E-06   12   11    9    7'
         write(iunit, '(A)') '   0.78301321836E-08   12   11   10    1'
         write(iunit, '(A)') '   0.45470758330E-07   12   11   10    2'
         write(iunit, '(A)') '   0.54816568145E-03   12   11   10    3'
         write(iunit, '(A)') '   0.11437154147E-08   12   11   10    4'
         write(iunit, '(A)') '   0.25168808416E-08   12   11   10    5'
         write(iunit, '(A)') '  -0.58197234999E-08   12   11   10    6'
         write(iunit, '(A)') '  -0.36216285353E-08   12   11   10    7'
         write(iunit, '(A)') '   0.58914007087E-05   12   11   10    8'
         write(iunit, '(A)') '   0.66266414491E-01   12   11   10    9'
         write(iunit, '(A)') '  -0.18874559155E-08   12   11   10   10'
         write(iunit, '(A)') '  -0.54814008757E-03   12   11   11    2'
         write(iunit, '(A)') '   0.43640688770E-07   12   11   11    3'
         write(iunit, '(A)') '   0.10015884113E-03   12   11   11    6'
         write(iunit, '(A)') '  -0.59101302116E-08   12   11   11    7'
         write(iunit, '(A)') '  -0.66264454346E-01   12   11   11    8'
         write(iunit, '(A)') '   0.58875209339E-05   12   11   11    9'
         write(iunit, '(A)') '  -0.55458877143E-08   12   11   11   11'
         write(iunit, '(A)') '  -0.92586470977E-08   12   11   12    1'
         write(iunit, '(A)') '   0.15750142166E-08   12   11   12    2'
         write(iunit, '(A)') '   0.35468553054E-08   12   11   12    3'
         write(iunit, '(A)') '   0.37143268691E-03   12   11   12    5'
         write(iunit, '(A)') '  -0.11438389221E-05   12   11   12    7'
         write(iunit, '(A)') '  -0.38953592782E-08   12   11   12    8'
         write(iunit, '(A)') '   0.39883452488E-08   12   11   12   10'
         write(iunit, '(A)') '   0.97340242105E-01   12   11   12   11'
         write(iunit, '(A)') '   0.12267506615       12   12    1    1'
         write(iunit, '(A)') '  -0.33380490136E-08   12   12    2    1'
         write(iunit, '(A)') '   0.12160676076       12   12    2    2'
         write(iunit, '(A)') '  -0.26152191763E-08   12   12    3    1'
         write(iunit, '(A)') '   0.12160684322       12   12    3    3'
         write(iunit, '(A)') '  -0.14786287150E-08   12   12    4    2'
         write(iunit, '(A)') '  -0.17535565216E-08   12   12    4    3'
         write(iunit, '(A)') '   0.12049677853       12   12    4    4'
         write(iunit, '(A)') '   0.11843950716E-06   12   12    5    1'
         write(iunit, '(A)') '   0.17830220934E-08   12   12    5    2'
         write(iunit, '(A)') '  -0.14782042926E-08   12   12    5    3'
         write(iunit, '(A)') '   0.12049666723       12   12    5    5'
         write(iunit, '(A)') '   0.89133230784E-07   12   12    6    2'
         write(iunit, '(A)') '  -0.28567588993E-08   12   12    6    4'
         write(iunit, '(A)') '  -0.34278124272E-08   12   12    6    5'
         write(iunit, '(A)') '   0.12001381345       12   12    6    6'
         write(iunit, '(A)') '   0.46856685991E-03   12   12    7    1'
         write(iunit, '(A)') '   0.10948844695E-08   12   12    7    2'
         write(iunit, '(A)') '   0.22823397132E-07   12   12    7    3'
         write(iunit, '(A)') '  -0.45881341885E-08   12   12    7    4'
         write(iunit, '(A)') '   0.13619926667E-07   12   12    7    5'
         write(iunit, '(A)') '   0.15872997268E-08   12   12    7    6'
         write(iunit, '(A)') '   0.30845777442       12   12    7    7'
         write(iunit, '(A)') '   0.10655208584E-08   12   12    8    1'
         write(iunit, '(A)') '   0.66537408530E-03   12   12    8    2'
         write(iunit, '(A)') '  -0.95586137520E-08   12   12    8    3'
         write(iunit, '(A)') '   0.70378492908E-08   12   12    8    4'
         write(iunit, '(A)') '   0.32183141558E-08   12   12    8    5'
         write(iunit, '(A)') '  -0.24301456211E-07   12   12    8    6'
         write(iunit, '(A)') '   0.61294011949E-08   12   12    8    7'
         write(iunit, '(A)') '   0.30644082638       12   12    8    8'
         write(iunit, '(A)') '   0.22477290433E-07   12   12    9    1'
         write(iunit, '(A)') '  -0.95415218784E-08   12   12    9    2'
         write(iunit, '(A)') '   0.66537521737E-03   12   12    9    3'
         write(iunit, '(A)') '   0.33807170871E-08   12   12    9    4'
         write(iunit, '(A)') '   0.70190521804E-08   12   12    9    5'
         write(iunit, '(A)') '  -0.16347174743E-07   12   12    9    6'
         write(iunit, '(A)') '  -0.18809010460E-08   12   12    9    7'
         write(iunit, '(A)') '   0.19034469991E-08   12   12    9    8'
         write(iunit, '(A)') '   0.30643937062       12   12    9    9'
         write(iunit, '(A)') '  -0.46851124676E-08   12   12   10    1'
         write(iunit, '(A)') '   0.74134197526E-08   12   12   10    2'
         write(iunit, '(A)') '   0.37307543834E-08   12   12   10    3'
         write(iunit, '(A)') '   0.40271053359E-03   12   12   10    4'
         write(iunit, '(A)') '   0.48224824349E-08   12   12   10    6'
         write(iunit, '(A)') '   0.26367065908E-08   12   12   10    7'
         write(iunit, '(A)') '  -0.12062091187E-08   12   12   10    8'
         write(iunit, '(A)') '   0.43762397456E-08   12   12   10    9'
         write(iunit, '(A)') '   0.31653527094       12   12   10   10'
         write(iunit, '(A)') '  -0.33595306185E-07   12   12   11    1'
         write(iunit, '(A)') '   0.31766214323E-08   12   12   11    2'
         write(iunit, '(A)') '   0.74296736079E-08   12   12   11    3'
         write(iunit, '(A)') '   0.40270850988E-03   12   12   11    5'
         write(iunit, '(A)') '  -0.67228953142E-06   12   12   11    7'
         write(iunit, '(A)') '  -0.50298048782E-08   12   12   11    8'
         write(iunit, '(A)') '  -0.12172276936E-08   12   12   11    9'
         write(iunit, '(A)') '   0.19223336066E-08   12   12   11   10'
         write(iunit, '(A)') '   0.31653605355       12   12   11   11'
         write(iunit, '(A)') '   0.17020890735E-08   12   12   12    1'
         write(iunit, '(A)') '  -0.21476454398E-07   12   12   12    2'
         write(iunit, '(A)') '  -0.17735370990E-07   12   12   12    3'
         write(iunit, '(A)') '   0.50602982739E-08   12   12   12    4'
         write(iunit, '(A)') '   0.20490279252E-03   12   12   12    6'
         write(iunit, '(A)') '  -0.28492667951E-06   12   12   12    8'
         write(iunit, '(A)') '   0.24509077496E-08   12   12   12    9'
         write(iunit, '(A)') '  -0.19094590353E-08   12   12   12   10'
         write(iunit, '(A)') '   0.65999216162E-08   12   12   12   11'
         write(iunit, '(A)') '   0.32500414962       12   12   12   12'
         write(iunit, '(A)') '   -2.5782411158        1    1    0    0'
         write(iunit, '(A)') '   0.30904612910E-07    2    1    0    0'
         write(iunit, '(A)') '   -2.4295167912        2    2    0    0'
         write(iunit, '(A)') '   0.17628265689E-07    3    1    0    0'
         write(iunit, '(A)') '   -2.4295056222        3    3    0    0'
         write(iunit, '(A)') '   0.57025474655E-08    4    1    0    0'
         write(iunit, '(A)') '   0.44030317248E-08    4    2    0    0'
         write(iunit, '(A)') '   0.93570999837E-08    4    3    0    0'
         write(iunit, '(A)') '   -2.1968182973        4    4    0    0'
         write(iunit, '(A)') '  -0.27533296906E-05    5    1    0    0'
         write(iunit, '(A)') '  -0.11995604288E-07    5    2    0    0'
         write(iunit, '(A)') '   0.43245203096E-08    5    3    0    0'
         write(iunit, '(A)') '   -2.1968072957        5    5    0    0'
         write(iunit, '(A)') '  -0.15132530784E-08    6    1    0    0'
         write(iunit, '(A)') '  -0.25448815776E-05    6    2    0    0'
         write(iunit, '(A)') '   0.10943171854E-07    6    3    0    0'
         write(iunit, '(A)') '   0.14981480290E-07    6    4    0    0'
         write(iunit, '(A)') '   0.14616129254E-07    6    5    0    0'
         write(iunit, '(A)') '   -2.0149011236        6    6    0    0'
         write(iunit, '(A)') '   0.90272063532E-02    7    1    0    0'
         write(iunit, '(A)') '  -0.15171830124E-08    7    2    0    0'
         write(iunit, '(A)') '  -0.18684511817E-07    7    3    0    0'
         write(iunit, '(A)') '   0.91418378670E-08    7    4    0    0'
         write(iunit, '(A)') '   0.14111427253E-06    7    5    0    0'
         write(iunit, '(A)') '  -0.47229397736E-08    7    6    0    0'
         write(iunit, '(A)') '   -2.5782411119        7    7    0    0'
         write(iunit, '(A)') '   0.61854398857E-02    8    2    0    0'
         write(iunit, '(A)') '  -0.89103094504E-08    8    4    0    0'
         write(iunit, '(A)') '  -0.35625741836E-08    8    5    0    0'
         write(iunit, '(A)') '  -0.27144986426E-07    8    6    0    0'
         write(iunit, '(A)') '   0.39430442710E-07    8    7    0    0'
         write(iunit, '(A)') '   -2.4295167905        8    8    0    0'
         write(iunit, '(A)') '   0.17982035742E-07    9    1    0    0'
         write(iunit, '(A)') '   0.61856064036E-02    9    3    0    0'
         write(iunit, '(A)') '  -0.45759829884E-08    9    4    0    0'
         write(iunit, '(A)') '  -0.89279806999E-08    9    5    0    0'
         write(iunit, '(A)') '   0.36045174307E-07    9    6    0    0'
         write(iunit, '(A)') '   0.12562676371E-07    9    7    0    0'
         write(iunit, '(A)') '   -2.4295056194        9    9    0    0'
         write(iunit, '(A)') '  -0.90875966960E-08   10    1    0    0'
         write(iunit, '(A)') '   0.83713826435E-08   10    2    0    0'
         write(iunit, '(A)') '   0.37031773759E-08   10    3    0    0'
         write(iunit, '(A)') '   0.41815444524E-02   10    4    0    0'
         write(iunit, '(A)') '  -0.46876038033E-08   10    6    0    0'
         write(iunit, '(A)') '  -0.47842098356E-08   10    7    0    0'
         write(iunit, '(A)') '   0.12175523808E-07   10    8    0    0'
         write(iunit, '(A)') '   0.16215677912E-07   10    9    0    0'
         write(iunit, '(A)') '   -2.1968182965       10   10    0    0'
         write(iunit, '(A)') '   0.13094499719E-06   11    1    0    0'
         write(iunit, '(A)') '   0.43999865244E-08   11    2    0    0'
         write(iunit, '(A)') '   0.83499344173E-08   11    3    0    0'
         write(iunit, '(A)') '   0.41816289890E-02   11    5    0    0'
         write(iunit, '(A)') '  -0.27577905491E-05   11    7    0    0'
         write(iunit, '(A)') '  -0.14002716098E-07   11    8    0    0'
         write(iunit, '(A)') '   0.12159796636E-07   11    9    0    0'
         write(iunit, '(A)') '   -2.1968072959       11   11    0    0'
         write(iunit, '(A)') '   0.46340528637E-08   12    1    0    0'
         write(iunit, '(A)') '  -0.65532960990E-07   12    2    0    0'
         write(iunit, '(A)') '  -0.36031014410E-07   12    3    0    0'
         write(iunit, '(A)') '   0.42082379802E-08   12    4    0    0'
         write(iunit, '(A)') '   0.24159819147E-02   12    6    0    0'
         write(iunit, '(A)') '   0.33715914505E-08   12    7    0    0'
         write(iunit, '(A)') '  -0.25572755360E-05   12    8    0    0'
         write(iunit, '(A)') '  -0.11560146867E-07   12    9    0    0'
         write(iunit, '(A)') '   0.19889073957E-07   12   10    0    0'
         write(iunit, '(A)') '   0.25434461813E-07   12   11    0    0'
         write(iunit, '(A)') '   -2.0149011228       12   12    0    0'
         write(iunit, '(A)') '    0.0000000000        1    0    0    0'
         write(iunit, '(A)') '    0.0000000000        2    0    0    0'
         write(iunit, '(A)') '    0.0000000000        3    0    0    0'
         write(iunit, '(A)') '    0.0000000000        4    0    0    0'
         write(iunit, '(A)') '    0.0000000000        5    0    0    0'
         write(iunit, '(A)') '    0.0000000000        6    0    0    0'
         write(iunit, '(A)') '    0.0000000000        7    0    0    0'
         write(iunit, '(A)') '    0.0000000000        8    0    0    0'
         write(iunit, '(A)') '    0.0000000000        9    0    0    0'
         write(iunit, '(A)') '    0.0000000000       10    0    0    0'
         write(iunit, '(A)') '    0.0000000000       11    0    0    0'
         write(iunit, '(A)') '    0.0000000000       12    0    0    0'
         write(iunit, '(A)') '   -444.55721483        0    0    0    0'
    end subroutine

    pure function construct_RandomFciDumpWriter_t(n_spat_orbs, nI, sparse, sparseT, filepath, uhf, hermitian) result(res)
        integer, intent(in) :: n_spat_orbs, nI(:)
        real(dp), intent(in) :: sparse, sparseT
        character(*), optional, intent(in) :: filepath
        logical, optional, intent(in) :: uhf, hermitian
        class(RandomFcidumpWriter_t), allocatable :: res

        character(len=:), allocatable :: filepath_
        logical :: uhf_, hermitian_
        def_default(uhf_, uhf, .false.)
        def_default(hermitian_, hermitian, .true.)
        def_default(filepath_, filepath, 'FCIDUMP')

        res = RandomFcidumpWriter_t( &
                    filepath=filepath_, &
                    n_El=size(nI), n_spat_orb=n_spat_orbs, &
                    sparse=sparse, sparseT=sparseT, total_ms=sum(calc_spin_raw(nI)), &
                    uhf=uhf_, hermitian=hermitian_&
                )
    end function

    pure function construct_GAS_RandomFciDumpWriter_t(GAS_spec, nI, sparse, sparseT, filepath, uhf, hermitian) result(res)
        class(GASSpec_t), intent(in) :: GAS_spec
        integer, intent(in) :: nI(:)
        real(dp), intent(in) :: sparse, sparseT
        character(*), optional, intent(in) :: filepath
        logical, optional, intent(in) :: uhf, hermitian
        class(RandomFcidumpWriter_t), allocatable :: res

        res = RandomFcidumpWriter_t( &
                    GAS_spec%n_spin_orbs() .div. 2, nI, &
                    sparse=sparse, sparseT=sparseT, &
                    filepath=filepath, &
                    uhf=uhf, hermitian=hermitian&
                )
    end function

    subroutine write(this)
        class(Writer_t), intent(in) :: this
        integer :: file_id
        open(newunit=file_id, file=this%filepath)
            call this%write_to_unit(file_id)
        close(file_id)
    end subroutine


    ! generate an FCIDUMP file with random numbers with a given sparsity and write to iunit
    subroutine generate_random_integrals(iunit, n_el, n_spat_orb, sparse, sparseT, &
            total_ms, uhf, hermitian)
        integer, intent(in) :: iunit, n_el, n_spat_orb
        real(dp), intent(in) :: sparse, sparseT
        type(SpinProj_t), intent(in) :: total_ms
        logical, optional, intent(in) :: uhf, hermitian
            !! specify if the FCIDUMP is UHF
            !! specify if the FCIDUMP is hermitian
            !!
            !! @note if uhf then assume
            !! num spin-up basis functions = num spin-down basis functions
        logical :: uhf_, hermitian_
        integer :: i, j, k, l, j_end, l_end
        real(dp) :: r, matel
        ! we get random matrix elements from the cauchy-schwartz inequalities, so
        ! only <ij|ij> are random -> random 2d matrix
        real(dp), allocatable :: umatRand(:, :)
        integer :: norb ! n_spin_orb or n_spat_orb

        def_default(hermitian_, hermitian, .true.)
        ! UHF FCIDUMPs have six sectors:
        ! two-body integrals: up-up, down-down, up-down
        ! one-body integrals: up, down
        ! nuclear repulsion
        ! delimiter: 0.0000000000000000E+00   0   0   0   0
        def_default(uhf_, uhf, .false.)

        norb = merge(2*n_spat_orb, n_spat_orb, uhf_)
        allocate(umatRand(norb, norb), source=0.0_dp)

        do i = 1, norb
            do j = 1, norb
                r = genrand_real2_dSFMT()
                if (r < sparse) then
                    umatRand(i, j) = r * r
                    if (hermitian_) then
                        umatRand(j, i) = umatRand(i, j)
                    else
                        ! have the conjugate be similar
                        umatRand(j, i) = (1 + genrand_real2_dSFMT() * 0.1) * umatRand(i, j)
                    endif
                end if
            end do
        end do

        ! write the canonical FCIDUMP header (norb here is num spatial orbitals)
        write(iunit, *) "&FCI NORB=", n_spat_orb, ",NELEC=", n_el, "MS2=", total_ms%val, ","
        write(iunit, "(A)", advance="no") "ORBSYM="

        do i = 1, n_spat_orb
            write(iunit, "(A)", advance="no") "1,"
        end do
        write(iunit, *)
        write(iunit, *) "ISYM=1,"
        write(iunit, *) "&END"
        ! generate random 4-index integrals with a given sparsity
        ! then
        ! generate random 2-index integrals with a given sparsity
        if(uhf_) then
            ! three 4-index sectors, so three calls to write_4index
            call write_4index(1, n_spat_orb, 1, n_spat_orb, hermitian_)
            write(iunit, *) 0.0000000000000000E+00, 0, 0, 0, 0 ! delimiter
            ! we can keep using the spatial orbitals as indices because of the
            ! partitioning of the dump file
            call write_4index(1, n_spat_orb, 1, n_spat_orb, hermitian_)
            write(iunit, *) 0.0000000000000000E+00, 0, 0, 0, 0
            call write_4index(1, n_spat_orb, 1, n_spat_orb, hermitian_)
            write(iunit, *) 0.0000000000000000E+00, 0, 0, 0, 0
            call write_2index(1, n_spat_orb, hermitian_)
            write(iunit, *) 0.0000000000000000E+00, 0, 0, 0, 0
            call write_2index(1, n_spat_orb, hermitian_)
            write(iunit, *) 0.0000000000000000E+00, 0, 0, 0, 0
            ! then would come the nuclear repulsion
        else ! .not. uhf_
            call write_4index(1, norb, 1, norb, hermitian_)
            call write_2index(1, n_spat_orb, hermitian_)
        endif

    contains
        subroutine write_4index(i_start, i_end, k_start, k_end, hermitian)
            ! i_end corresponds to electron 1, j_end to electron 2
            integer, intent(in) :: i_start, i_end, k_start, k_end
            logical, intent(in) :: hermitian
            integer :: k_start_
            do i = i_start, i_end
                ! j_end = i if hermitian, else i_end
                j_end = merge(i, i_end, hermitian)
                do j = 1, j_end
                    ! if the Hamiltonian *is* Hermitian, we may flip these indices
                    k_start_ = merge(i, k_start, hermitian)
                    do k = k_start_, k_end
                        l_end = merge(k, k_end, hermitian)
                        do l = 1, l_end
                            matel = sqrt(umatRand(i, j) * umatRand(k, l))
                            if (matel > eps) write(iunit, *) matel, i, j, k, l
                        end do
                    end do
                end do
            end do
        end subroutine write_4index

        subroutine write_2index(i_start, i_end, hermitian)
            integer, intent(in) :: i_start, i_end
            logical, intent(in) :: hermitian
            do i = i_start, i_end
                j_end = merge(i, i_end, hermitian)
                do j = i_start, j_end
                    r = genrand_real2_dSFMT()
                    if (r < sparseT) then
                        write(iunit, *) r, i, j, 0, 0
                    end if
                end do
            end do
        end subroutine write_2index

    end subroutine generate_random_integrals

    subroutine generate_uniform_integrals

        use SystemData, only: nSpatOrbs, nel, lms

        integer :: i, j, k, l, iunit

        open (newunit=iunit, file="FCIDUMP")
        write(iunit, *) "&FCI NORB=", nSpatOrbs, ",NELEC=", nel, "MS2=", lms, ","
        write(iunit, "(A)", advance="no") "ORBSYM="
        do i = 1, nSpatOrbs
            write(iunit, "(A)", advance="no") "1,"
        end do
        write(iunit, *)
        write(iunit, *) "ISYM=1,"
        write(iunit, *) "&END"

        do i = 1, nSpatOrbs
            do j = 1, nSpatOrbs
                do l = 1, nSpatOrbs
                    do k = 1, nSpatOrbs
                        write(iunit, *) h_cast(1.0_dp), i, j, k, l
                    end do
                end do
            end do
        end do
        do i = 1, nSpatOrbs
            do j = i, nSpatOrbs
                write(iunit, *) h_cast(1.0_dp), i, j, 0, 0
            end do
        end do

        write(iunit, *) h_cast(0.0_dp), 0, 0, 0, 0

        close (iunit)

    end subroutine generate_uniform_integrals


    subroutine HeFciDumpWriter_t_write_to_unit(this, iunit)
        class(HeFciDumpWriter_t), intent(in) :: this
        integer, intent(in) :: iunit
        unused_var(this)
        call write_He_fcidump(iunit)
    end subroutine


    !> FCIDUMP file for 1s and 2s orbital of He-atom.
    subroutine write_He_fcidump(unit_id)
        integer, intent(in) :: unit_id
        write(unit_id, '(A)') ' &FCI NORB=2,NELEC=2,MS2=0,'
        write(unit_id, '(A)') '  ORBSYM=1,1,'
        write(unit_id, '(A)') '  ISYM=0'
        write(unit_id, '(A)') ' &END'
        write(unit_id, '(A)') '     1.0232804328        1    1    1    1'
        write(unit_id, '(A)') '   -0.32447343993        2    1    1    1'
        write(unit_id, '(A)') '    0.24653188123        2    1    2    1'
        write(unit_id, '(A)') '    0.89791396824        2    2    1    1'
        write(unit_id, '(A)') '   -0.30190988085        2    2    2    1'
        write(unit_id, '(A)') '    0.84005597186        2    2    2    2'
        write(unit_id, '(A)') '    -1.9424691161        1    1    0    0'
        write(unit_id, '(A)') '    0.32447343993        2    1    0    0'
        write(unit_id, '(A)') '    0.52336359664E-02    2    2    0    0'
        write(unit_id, '(A)') '   -0.91919000000        1    0    0    0'
        write(unit_id, '(A)') '     1.5545000000        2    0    0    0'
        write(unit_id, '(A)') '     0.0000000000        0    0    0    0'
    end subroutine


end module
