#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